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

prompt p = do
  putStr p
  getLine