-- Successfully terminate the program by printing a given message
terminate :: String -> IO ()
terminate str = putStrLn str >> exitSuccess
terminate :: String -> IO ()
terminate str = putStrLn str >> exitSuccess
terminate str = putStrLn str >> exitSuccess