Problem:
J: Tiles are Colorful

ICPC で良い成績を収めるには修行が欠かせない．うさぎは ICPC で勝ちたいので，今日も修行をすることにした．

今日の修行は，流行りのパズルをすばやく解いて，瞬発力を鍛えようというものである．今日挑戦するのは，色とりどりのタイルが並んでいてそれらを上手く消していくパズルだ

初期状態では，グリッド上のいくつかのマスにタイルが置かれている．各タイルには色がついている．プレイヤーはゲーム開始後，以下の手順で示される操作を何回も行うことができる．

タイルが置かれていないマスを 1 つ選択し，そのマスを叩く．

叩いたマスから上に順に辿っていき，タイルが置かれているマスに至ったところでそのタイルに着目する．タイルが置かれているマスがないまま盤面の端に辿り着いたら何にも着目しない．

同様の操作を叩いたマスから下・左・右方向に対して行う．最大 4 枚のタイルが着目されることになる．

着目したタイルの中で同じ色のものがあれば，それらのタイルを盤面から取り除く．同じ色のタイルの組が 2 組あれば，それら両方を取り除く．

タイルを取り除いた枚数と同じ値の得点が入る．

着目をやめる．

たとえば，以下のような状況を考えよう．タイルが置かれていないマスはピリオドで，タイルの色はアルファベット大文字で表されている．

..A.......
.......B..
..........
..B.......
..A.CC....

ここで上から 2 行目，左から 3 列目のマスを叩く操作を考える．着目することになるタイルは A , B , B の 3 枚であるから，B の 2 枚が消えて盤面は以下のようになり，2 点を得る．

..A.......
..........
..........
..........
..A.CC....

このパズルはゆっくりしていると時間切れになってしまい，盤面の一部が見えなくなりどのくらい修行が足りなかったのかがわからなくなってしまう．
各色のタイルは 2 枚ずつ置かれているが，それらをすべて消せるとは限らないので，予めプログラムに得点の最大値を計算させておきたい．

Input

M N
C1,1C1,2...C1,N
C2,1C2,2...C2,N
...
CM,1CM,2...CM,N

整数 M, N は盤が 縦 M × 横 N のマス目であることを表す．Ci, j はアルファベット大文字またはピリオド ( . ) であり，上から i 行目，左から j 列目のマスについて，アルファベット大文字の場合は置かれているタイルの色を表し，ピリオドの場合はこのマスにタイルが置かれていないことを表す．

1 ≤ M ≤ 500，1 ≤ N ≤ 500 を満たす．各アルファベット大文字は入力中に 0 個または 2 個現れる．

Output

得点の最大値を 1 行に出力せよ．

Sample Input 1

5 10
..A.......
.......B..
..........
..B.......
..A.CC....

Sample Output 1

4

Sample Input 2

3 3
ABC
D.D
CBA

Sample Output 2

4

Sample Input 3

5 7
NUTUBOR
QT.SZRQ
SANAGIP
LMDGZBM
KLKIODP

Sample Output 3

34

Solution in C++ (judge verdict: Runtime Error)

#include <stdio.h>
#include <ctype.h>
#include <stdlib.h>
#include <string.h>


void gstr(char *str){
	int i;
	for(i = 0;(str[i] = getchar()) != '\n';i++);
	str[i] = '\0';
}

int main(void){
	int i, j, k, l, m, n, h, w, dx[4] = {0,1,0,-1}, dy[4] = {-1,0,1,0}, ans = 0, f[20][20];
	char s[500][501], *c[4];
	scanf("%d%d%*c",&h,&w);
	for(i = 0;i < h;i++) gstr(s[i]);
	memset(f,0,sizeof(f));
	for(i = 0;i < h;i++){
		for(j = 0;j < w;j++){
			if(isupper(s[i][j])){
				for(k = 0;k < 4;k++){
					for(l = 1;i + dy[k] * l >=  0 && i + dy[k] * l < h && j + dx[k] * l >= 0 && j + dx[k] * l < w && !isupper(s[i + dy[k] * l][j + dx[k] * l]);l++)
						f[i + dy[k] * l][j + dx[k] * l]++;
				}
			}
		}
	}
	for(i = 0;i < h;i++){
		for(j = 0;j < w;j++){
			if(!isupper(s[i][j]) && f[i][j] >= 2){
				for(k = 0;k < 4;k++){
					for(l = 0;i + dy[k] * l >=  0 && i + dy[k] * l < h && j + dx[k] * l >= 0 && j + dx[k] * l < w && !isupper(s[i + dy[k] * l][j + dx[k] * l]);l++);
					if(i + dy[k] * l >= 0 && i + dy[k] * l < h && j + dx[k] * l >= 0 && j + dx[k] * l < w) c[k] = &s[i + dy[k] * l][j + dx[k] * l];
					else c[k] = NULL;
				}
				for(k = 0;k < 3;k++){
					for(l = k + 1;l < 4;l++)
						if(c[k] != NULL && c[l] != NULL && k != l && *c[k] == *c[l] && *c[k] != '.') *c[k] = '.',*c[l] = '.',i = -1, ans += 2;
				}
				if(i == -1){
					memset(f,0,sizeof(f));
					for(k = 0;k < h;k++){
						for(l = 0;l < w;l++){
							if(isupper(s[k][l])){
								for(m = 0;m < 4;m++){
									for(n = 1;k + dy[m] * n >= 0 && k + dy[m] * n < h && l + dx[m] * n >= 0 && l + dx[m] * n < w && !isdigit(s[k + dy[m] * n][l + dx[m] * n]);n++){
										f[k + dy[m] * n][l + dx[m] * n]++;
									}
								}
							}
						}
					}
				}
			}
			if(i == -1) break;
		}
	}
	printf("%d\n",ans);
	return 0;
}