#!/usr/bin/runghc

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

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