@0=1;//,push@0,map$_*$',@0for map{$c=2**2**$_,$c+1}0..4;$a=<>;print-2+grep$_<=$a,@0