blob: ce9b4e68d84cc3400d8ce0ff561985d4eeafc797 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
module Main (mainPrimIO) where
import PreludePrimIO
mainPrimIO :: PrimIO ()
mainPrimIO
= _casm_
``do { int c;
while ((c = getchar()) != EOF) {
putchar(c);
}} while (0);
%r = 1;'' -- pretend we have a "result"
`thenPrimIO` \ (I# _) ->
returnPrimIO ()
-- 1,955,134 bytes/sec ( 600KB input)
-- 1,989,892 bytes/sec ( 9.3MB input)
-- 1,871,706 bytes/sec (25.5MB input)
|