-- IO action to greet
greet name = do
  putStrLn ("Hello " ++ name ++ "!")

-- when compiling, main is always an IO action
main = do
  putStrLn "Enter your name: "
  name <- getLine
  greet name