class virtual[['i, 'o]]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 : ('i, 'o, unit) guardmethod start : ('i, 'o, unit) tstart (guard self#guard).