Hi,
import System main = do [a] <- getArgs putStrLn (show a)
import System
main = do
[a] <- getArgs
putStrLn (show a)