#!perl -l

$a="0"x24;
%b=(x20,[4,C,11],x61,[5,13],x63,[14],x65,[A,E,16],x68,[9,12], x6A,[0],x6B,[15],x6C,[10],x6E,[6],x6F,[7],x70,[D],x72,[B,F,17], x73,[2],x74,[3,8],x75,[1]);

foreach $c(keys %b){

	foreach(@{$b{$c}}){
		substr $a,hex,1,chr(hex($c));
	}
}

print"$a";