let
register_builtin name f =
Hashtbl
.add table name f