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