/pliant/math/vector.pli
 
 1  public 
 2   
 3    type Vector2 
 4      field Float x y 
 5   
 6    type Vector3 
 7      field Float x y z 
 8   
 9  function vector x y -> v 
 10    arg Float y ; arg Vector2 v 
 11    := x ; := y 
 12     
 13  function vector x y z -> v 
 14    arg Float z ; arg Vector3 v 
 15    := x ; := y ; := z 
 16   
 17  export vector