class 'a ograph2way : (< add : ('a * 'a Oset.oset) -> 'c
; delkey : 'a -> 'c
; find : 'a -> 'a Oset.oset
; iter : (('a * 'd) -> unit) -> 'e
; replkey : ('a * 'a Oset.oset) -> 'c.. > as 'c) -> (< add :
('a * 'a Oset.oset) ->
'f
; delkey : 'a -> 'f
; find : 'a -> 'a Oset.oset
; replkey : ('a * 'a Oset.oset) -> 'f.. > as 'f) -> (unit ->
'a Oset.oset) -> object ... end