module type S = sig .. end
sig
end
type state
type symbol
val transition : state -> symbol -> state
state -> symbol -> state