let bonneteau =
  fun h (x, y) = g x
  and g x = f (x, x, x);
  and f (x, y, z) = y;
  f (1, 2, 3)