#!/usr/bin/runghc

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

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