or download this
die unless print keys %j and open uc sqrt hex chr lstat;
@_[0..100]=grep{!/[qyixd;%]/}split//,~~<0>;$\=$/;print substr join(
$&,map{$$_[$[]}sort{z($$a[1])<=>z($$b[1])}map{[$_[$_],$_]}0..46),23;
sub z {@h[18,28,6,12,13,20,3,23,33,35,0,10,1,9,5,32,4,8,39,45,29,14,15
+,40]=
(1+\\///\\\//..$=);$h[pop];}