#!/usr/bin/runghc

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

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