あなたのことはわすれない

そうかっ、コアーションしても自分自身の事は忘れないんだ！考えてみたら当たり前だけど、これは使える！

open Printf

class type point = object
  method x : int
  method y : int
  method print : unit
end

class color_point = object (self)
  val x = 0
  val y = 0
  val c = 255
  method x = x
  method y = y
  method c = c
  method print =
    printf "%d,%d,%d\n" x y self#c
end

let _ =
  let cp = new color_point in
  let p = (cp :> point) in
  p#print