object
method
connect : (
'
a
->
unit)
->
unit
method
set :
'
a
->
unit
end