-- From http://learnyouahaskell.com/input-and-output, slightly modified

main = do 
    chat  
    putStrLn "Bye!"

chat = do
    putStrLn "Hello, what's your name?"
    name <- getLine
    putStrLn ("Hey " ++ name ++ ", you rock!")