class virtualUse[['a, 'b]]start :object..end
inherit ['i, 'o] start to derive a class to represent the
initial state of a machine. It's start method initiates the machine
with the virtual private guard method.method private virtual guard : ('a, 'b, unit) guardmethod start : ('a, 'b, unit) tstart (guard self#guard).