Testing the output

> evalm(htranspose(T)&*F&*T):map(evala,%);