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