obfuscated
ariels
We theoreticians always claim it's worth expending extra effort to find the best algorithm for the task. As you can see, the program itself is entirely straightforward Perl.
<blockquote><code>
#!/usr/local/bin/perl -w
use strict;
my$t=",rtlr\n h ahkP tcraneeeusoJ";
my$s=join'',sort split//,$t;
my(@t);
while ($s=~/(.)\1*/sg){my$l=$1;push@t,(pos$t)-1 while$t=~/$l/g}
my$i=0;print map{substr($s,$i=$t[$i],1)}(1..@t)
</code></blockquote>
</p>