let
fold x y =
Hashtbl
.fold compose x y