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