($s,$t)=unpack QQ,'JÂt¹:‰Í×Ý-ŽâF';printf"%d"x31337,map{sort{1}map{(($t^=($s^=$s<<23)^$s>>17^($s=$t)>>26)/2**64+.42)/.69}0..63}A..RV