\x. \f. let  r = f (f r x) x  in  r