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