object method private virtual guard : ('a, 'b, unit) Cf_gadget.guard method start : ('a, 'b, unit) Cf_gadget.t end