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)