Parameter MakeState.S

type state
val init : state
val name : string