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