let length t = Hashtbl.length t.table