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

f a (x:xs) b = x + a + b : f a xs b ; f a [] b = []