($s,$t)=unpack QQ,'J\xc2\x0ft\xb9\x0e:\x89\xcd\xd7\xdd-\x00\x8e\xe2F';printf"%d"x31337,map{sort{1}map{(($t^=($s^=$s<<23)^$s>>17^($s=$t)>>26)/2**64+.42)/.69}0..63}A..RV
Note that non-ascii characters in the above source code will be escaped (such as \x9f).