"cg025.bin"
["cg025.hs"]
GOT PATH
--!!! test various I/O Requests
--
--
import IO
import System
import IOExts (trace)

main = do
    prog <- getProgName
    hPutStr stderr (shows prog "\n")
    args <- getArgs
    hPutStr stderr (shows args "\n")
    path <- getEnv "PATH"
    hPutStr stderr ("GOT PATH\n")
    stdin_txt <- getContents
    putStr stdin_txt
    file_cts <- readFile (head args)
    hPutStr  stderr file_cts
    trace "hello, trace" $
      catch (getEnv "__WURBLE__" >> return ()) (\ e -> error "hello, error\n")
Trace On:
hello, trace
Trace Off.

Fail: hello, error