gistfile1.fs

type Point = { mutable x: int; mutable y: int }
              with member p.move q = p.x <- p.x + q.x;
                                     p.y <- p.y + q.y
let makePoint x y = { x = x; y = y }