rlp/examples/sumList.hs

nil = Pack{0 0};
cons x y = Pack{1 2} x y;
list = cons 1 (cons 2 (cons 3 nil));
sum l = case l of
    { <0>      -> 0
    ; <1> x xs -> (+#) x (sum xs)
    };
main = sum list;