let add t k = Hashtbl.replace t ~key:k ~data:()