gistfile1.fs

type Point(x,y)
     = class
           let mutable vx = x
           let mutable vy = y
           interface IPoint
                with member p.move q = vx <- vx + q.x;
                                       vy <- vy + q.y
                     member p.x = vx
                     member p.y = vy
       end