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