main = do
  hello "Fred"
  goodbye

hello n = putStrLn ("Hello " ++ n ++ "...")
goodbye = putStrLn "...and Goodbye."