let main = let y = (ref (\ x -> x)) ; y