Hello, You!

module Main where

main = do putStr "Name?"
          n <- getLine
          putStrLn ("Hello, " ++ n)