let
update (h1:(
'
a,
'
b) t) (h2:(
'
a,
'
b) t) : unit =
Hashtbl
.iter (h1
#
add) (h2
#
get)