main = hello "Fred"

hello n = putStrLn ("Hello, " ++ n ++ "!")