($H,$W)=glob<>;
$_=join'',map s/.*/.$&./r,'.'x$W.$/,<>,'.'x$W.$/;
++$W;
$%+=100while
	s/\w(.{$W})\.\w\.(.{$W})\./.$1...$2./s||
	s/\.(.{$W})\w\w\.(.{$W})\./.$1...$2./s||
	s/\.(.{$W})\.\w\w(.{$W})\./.$1...$2./s||
	s/\.(.{$W})\.\w\.(.{$W})\w/.$1...$2./s||
	s/\w(.{$W}.)?\w/.$1./s;
print$%+=($b=y/b//)<($w=y/w//)?9*$b+$w:9*$w+$b