method cut : (unit -> unit) option = Some (fun () -> v#cut)