1 module Main ( main ) where
5 data CList = CNil | CCons Int# CList
10 else CCons 1# (mk (n -# 1#))
14 clen (CCons _ cl) = 1# +# (clen cl)
16 main = case (clen list4) of
18 case (len4 +# len4) of
19 8# -> finish 65# -- 'A'
20 _ -> finish 66# -- 'B'
24 finish :: Int# -> IO ()
25 finish n = _ccall_ putchar (C# (chr# n)) >> return ()