Make.Strategy_impl
type state
val name : string
val on_event : state -> Strategy.context -> Strategy.event -> state * Strategy.intent list