maxsharing-1.0.2: examples/vincent-1-ww.l

let G = \g. g (g x) 
    F x = F x
    I x = x 
in  G (F I)