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

f (x:xs) = negate x + f xs ; f [] = 0