module type Symbol_T =sig..end
Create(S: Symbol_T) functor defined
below.type t
type 'a map
val map : (t -> 'a) -> 'a mapmap f to construct a map from symbols to state
transitions.val get : 'a map -> t -> 'aget m s to get the state transition from map m for
the symbol s.