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

f z (x:xs) = f (z*x) xs ; f z [] = z