main = do
    putStrLn "Hello, world !"
    putStrLn "Your name?"
    name <- getLine
    putStrLn ("Hey, "++ name ++", you rock!")