<>;[sort@0=/./g]~~@0&&map$1[$i]=${$&}[$i=$#$_+@0]=0,sort{1}a..$0[0]for sort<>;print@1+0