maxsharing-1.0.3: examples/running_ineff.l

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