1 module Main (mainPrimIO) where
5 mainPrimIO :: PrimIO ()
9 while ((c = getchar()) != EOF) {
12 %r = 1;'' -- pretend we have a "result"
13 `thenPrimIO` \ (I# _) ->
16 -- 1,955,134 bytes/sec ( 600KB input)
17 -- 1,989,892 bytes/sec ( 9.3MB input)
18 -- 1,871,706 bytes/sec (25.5MB input)