let register_builtin name f =
  Hashtbl.add table name f