Make.1-S
type state
val branching : state -> state list
val success : state -> bool
val pp : state -> Pp.t