http://qs321.pair.com?node_id=642353


in reply to Alphabet Blocks Japh

Beautiful! ++liverpole!

P.S. Also works on Mac OS X w/ X11


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