('x, 'i, 'o) Cf_state_gadget.wire ->
object
  method check : bool
  method id : string
  method put : '-> ('s, 'i, 'o, unit) Cf_state_gadget.t
end