class [['x, 'i, 'o]] tx : ('x, 'i, 'o) wire -> object .. end
[['x, 'i, 'o]]
('x, 'i, 'o) wire ->
object
end
Cf_gadget.connector
'x
method put : 'x -> ('i, 'o, unit) t
'x -> ('i, 'o, unit) t
tx#put obj