class ['sujet] big_brother = 
  object 
    inherit ['sujet] inspecteur
    method retaillé (s:'sujet) = print_string "<R>"
    method devant (s:'sujet) = print_string "<D>"
  end;;
Et voilà le tout ensemble:
let w = new grande_fenêtre in
   w#ajoute (new grand_gestionnaire); w#ajoute (new big_brother);
   w#retaille 2; w#déplace 1;;
<R><D>{Position = 0; Taille = 3}<D>{Position = 1; Taille = 3}- : unit = ()