ghc/tests/io/should_run/io003.hs

   1 import System (getProgName, getArgs)
   2
   3 main =
   4     getProgName >>= \ argv0 ->
   5     putStr argv0 >>
   6     getArgs >>= \ argv ->
   7     sequence (map (\ x -> putChar ' ' >> putStr x) argv) >>
   8     putChar '\n'
   9