Something that came to mind right away when I read the title....

"plush" - PerL Unified SHell

perl -e '$_=$0;split??;chop$_;$;=pop@_;$;++for(0..9060420);$_.=reverse
+$;;print'
[download]