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;;