I have to admit, I've been running this since you originally put this out and I think it's a lot of fun. It's so exciting to see the number flash and then go up (or down, if I'm having a bad day ;) ). I'm glad I stopped back to check out all the new whiz-bang features.

Kudos and ++ for the cool tool.

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)
[download]