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