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