#!/usr/bin/runghc

helloThing :: String -> String
helloThing x = "Hello " ++ x

main :: IO ()
main = putStrLn (helloThing "World!")