sig type 'a typ val make : string -> 'a Dom.Event.typ end