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