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

f [] y = y; f (x : xs) y = let z = g x y in f xs z