let
disp_trans () = disp_table (va
"TRANSFORMS: [%2d]"
(
Hashtbl
.length ht)) ht