class aa =
object
  method print = print_endline("Je suis A")
end;;
class bb =
object
  inherit aa
  method print = print_endline("Je suis B")
end;;
class cc =
object
  inherit bb as superb
end;;
class dd =
object (self)
  inherit cc as super
  method print = print_endline("Je suis D")
  method m = super#print
end;;
let a = new dd;;
a#m;;