class type observer = object .. end
object
end
method observe : 'a. (#supports as 'a) -> string -> string -> unit
'a. (#supports as 'a) -> string -> string -> unit