let
jointable t1 t2 =
let
rettbl =
Hashtbl
.copy t1
in
(
Hashtbl
.iter (
Hashtbl
.add rettbl) t2; rettbl)