class fsauvegarde =
  object (self)
    val original = None
    method copie = {< original = Some self >}
    method récupère = 
      match original with None -> self | Some x -> x
  end;;