gistfile1.fs

class functional_point y =
   object 
     val x = y
     method get_x = x
     method move d = {< x = x + d >}
   end

#let p = new functional_point 7;;
val p : functional_point = <obj>
 
#p#get_x;;
- : int = 7
 
#(p#move 3)#get_x;;
- : int = 10
 
#p#get_x;;
- : int = 7