1 module GHCmain ( mainPrimIO ) where
6 data CList = CNil | CCons Int# CList
11 else CCons 1# (mk (n -# 1#))
15 clen (CCons _ cl) = 1# +# (clen cl)
17 mainPrimIO = case (clen list4) of
19 case (len4 +# len4) of
20 8# -> finish 65# -- 'A'
21 _ -> finish 66# -- 'B'
25 finish :: Int# -> PrimIO ()
26 finish n = _ccall_ putchar (C# (chr# n)) `seqPrimIO` returnPrimIO ()