apply-refact-0.1.0.0: tests/examples/ListRec4.hs

f [] a = return a ; f (x:xs) a = a + x >>= \fax -> f xs fax