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