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];}