let register_fun htbl = Hashtbl.add htbl