1 __interface MyList 1 0 where
2 __export MyList MyList{Empty ZCZCZC};
3 import PrelBase 16 :: addr2Integer 1 foldr 1 int2Integer 1 integer_0 1 integer_1 1 integer_2 1 integer_m1 1;
4 import PrelPack 15 :: packCStringzh 1 unpackAppendCStringzh 1 unpackCStringzh 1 unpackFoldrCStringzh 1 unpackNByteszh 1;
5 2 data MyList a = Empty | ZCZCZC (MyList a) (MyList a) ;