let ( +. ) (x:float) (y:float) =
  (x +. y) /. 2.