$n+=<>;@q=1;$|--?$v=$_:$_>$n|@$_||push@q,$#$_=++$v,$_+($==unpack'%B*',chr),$v,$_-$=for@q;print$#$n