let fold x y = Hashtbl.fold compose x y