1 --!!! test various I/O Requests
10 hPutStr stderr (shows prog "\n")
12 hPutStr stderr (shows args "\n")
14 hPutStr stderr ("GOT PATH\n")
15 stdin_txt <- getContents
17 file_cts <- readFile (head args)
18 hPutStr stderr file_cts
19 trace "hello, trace" $
20 catch (getEnv "__WURBLE__" >> return ()) (\ e -> error "hello, error")