putStrLn :: String -> IO ()
putStrLn str = do putStr str
                  putStr "\n"