kind of stressed (ok very)... tried to generate this perm7 constant. silly? yes. fun? some. anywayz: 400 16806 [a,b] >array [ 7 >base 5 CHAR: 0 pad-head natural-sort >string dup all-unique? [ drop f ] unless ] map sift prune