main = birthday "Fred" 37

birthday :: String -> Int -> IO ()
birthday name age =
    putStrLn ("Happy Birthday "++ name ++ ", " ++
              show age ++ " years old today!")