maxsharing-1.0.2: examples/exp_simpl.l

let
	f x = let g y z = let h a = y (y a)
	                  in h (h z)
	      in g (g x)
in f (f (λx.x)) (λx.x)