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