1 module Main (main) where
6 main = copy standardInput standardOutput
9 = try (readFileDescriptor inn 4096) >>=
12 (\ s -> writeFileDescriptor out s >>
15 -- 124,879 bytes/sec ( 600KB input)
16 -- 130,694 bytes/sec ( 9.3MB input)
17 -- 127,263 bytes/sec (25.5MB input)