class ['sujet] grande_fenêtre =   object (self)     inherit ['sujet] fenêtre     val mutable taille = 1     method retaille x =       taille <- taille + x;       self#envoie (fun obs -> obs#retaillé)     val mutable devant = false     method en_avant =       devant <- true;       self#envoie (fun x -> x#devant)     method dessine =       Printf.printf "{Position_=_%d;_Taille_=_%d}" position taille;   end;;