$a=24;@a=(1);sub d{push@a,map{2*$_}@a};
d for('1'.."$a");$b=$#a;$_=0;
push@b,$_+=$a[$#a-$b--] until($b==-1);
print$b[2**$a-1];