1 module Main (mainPrimIO) where
5 mainPrimIO :: PrimIO ()
7 = copy (``stdin'' :: _FILE)
12 `thenPrimIO` \ (n, s) ->
15 else fwrite s 1 n out `seqPrimIO`
18 -- 4,170,953 bytes/sec ( 600KB input)
19 -- 7,993,583 bytes/sec ( 9.3MB input)
20 -- 6,917,175 bytes/sec (25.5MB input)