main = do
  withFile' "girlfriend.txt" ReadMode (\handle -> do
                                         contents <- hGetContents handle
                                         putStr contents)
main = do
  withFile' "girlfriend.txt" ReadMode (\handle -> do
                                         contents <- hGetContents handle
                                         putStr contents)
main = do
  withFile' "girlfriend.txt" ReadMode (\handle -> do
                                         contents <- hGetContents handle
                                         putStr contents)