blob: 2ed61d486e70d9f64ac2fe80af51dfcba3d9fab9 (
plain)
1
2
3
4
5
6
7
8
9
10
|
import System.IO
import Debug.Trace
main = do
hPutStr stderr
(trace (trace (trace (trace (trace (trace (trace
"one" "fish") "two") "fish") "red") "fish") "blue") "fish")
hPutStr stdout
(trace (trace (trace (trace (trace (trace (trace
"ONE" "FISH") "TWO") "FISH") "RED") "FISH") "BLUE") "FISH")
|
