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) guard
method start : ('i, 'o, unit) t
start (guard self#guard)
.