module type S = sig .. end
sig
end
type dom
type cod
val update : dom -> cod -> unit
dom -> cod -> unit
val call : dom -> (cod -> unit) -> unit
dom -> (cod -> unit) -> unit
val call_direct : dom -> cod
dom -> cod