sig val register : closure_id:string -> closure:('a -> 'b) -> unit val find : closure_id:string -> Eliom_lib.poly -> Eliom_lib.poly end