$1[@q=1]=$n+=<>;map$_<=$n&@$_<1&&(@$_=(0,@$q),@q=($_,@q)),($q=pop@q)-($==grep$q>>$_&1,0..13),$q+$=while@q;print$#$n