@l=split//," acehJklnoprstu\n5ecd0189d43b0a3b7041263bf";
for(0..24){print$l[ord(pack('h',$l[$_+16]))];}
[download]