class backup = object (self) val mutable backup = None method save = backup <- Some (Oo.copy self) method restore = match backup with None -> self | Some x -> x end;;