perl -le "print map+chr 63+oct reverse,reverse+sort+0xbbddcb=~m~..~g"