beckettsimmons

type vector = { x : float ; y : float }

let add_pair a b =
  { x = a.x +. b.y ; y = a.x +. b.y }

module Point = struct

  class t ~pos ~vel = object (self)
    val pos = pos
    val vel = vel