$/=$%=<>;
$_=<>;
@a=('!',A..Z,a..j);
s/\./!/;
s/\.(.{$%})?!|!(.{$%})?\./!$1$2!/s||
s/$a[$i](.{$%})?#/$a[$i]$1$a[$i+1]/s|s/#(.{$%})?$a[$i]/$a[$i+1]$1$a[$i]/s||
$i++until/\w(.{$%})?\.|\.(.{$%})?\w/s;
print$i+1