$n+=<>;@q=[1];($j,$v)=@$_,$j>$n|@$j||push@q,[$j+($b=grep$j&1<<$_,0..14),$#$j=++$v],[$j-$b,$v]for@q;print$#$n