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