main = do
  putStr "What is your name? "
  n <- getLine
  putStrLn ("Hello, " ++ n ++ "!")