This looks nice. I'd like to mess with the source if you're willing to share. I've been thinking of making something like this for a while but as someone always says, there's no reason to reinvent the wheel. Unless you wanted a wheel that was square shaped, or made of licorice. But that would just be silly.
sm3g
perl -le 's;;uoli;;$a=length;y;g-w;e-u;;;$a--;s;j;$a;;print'