let hackish_hastbl_size (t: ('a,'b) Hashtbl.t) = (Obj.magic t : hackish_hastbl).size