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