type t = {
  x : float ;
  y : float ;
  z : float ;
}


let make { Point.x ; y ; z } = { x ; y ; z } 
(* = %identity *)