let
register_fun htbl =
Hashtbl
.add htbl