#include <stdio.h>
#include <math.h>

char pole[301][151];
int sebrano;
int rozmer_x,rozmer_y;

void seber(int x, int y, char barva)
{
    printf ("sebrat :(%d,%d),rozmer_y:%d\n",x,y,rozmer_y);
    if (pole[x][y]==barva)
    {
	sebrano+=1;
	pole[x][y]='.';
	printf("(%d,%d)sebral 1:%d \n",x,y,sebrano);
	
    }
    else return;
    
    if ( x>1 )seber(x-1,y,barva);
    if ( x<rozmer_x )seber(x+1,y,barva);
    if ( y>1 )seber(x,y-1,barva);
    if ( y<rozmer_y )seber(x,y+1,barva);
}

void zmensi_pole_vert()
{
    int i,j;
    int stary =1, novy =0,y;
    int zmena=1;
    for(i=1;i<rozmer_x;i++)
    {
	for (y =1; y<=rozmer_y;y++)
	{
//	    stary++;
	    //novy++;
	    if (pole[i][stary] == '.')
	    {
		while ((pole[i][stary++] != '.') && (stary>rozmer_y));
	    }
	    if (stary>rozmer_y)
		break;	    
/*	    else
	    {*/
	    pole[i][y] = pole[i][stary];
	    if (stary != y)
	    {
		pole[i][stary] = '.';
	    }
	    
//	    }	   
	} 
    }
}
void zmensi_pole_horiz()
{
    int i,j;
    int stary =1, novy =0,y;
    int zmena=1;
    for (y =1; y<=rozmer_y;y++)    
    {
	for(i=1;i<rozmer_x;i++)
	{
//	    stary++;
	    //novy++;
	    if (pole[stary][i] == '.')
	    {
		while ((pole[stary++][i] != '.') && (stary>rozmer_x));
	    }
	    if (stary>rozmer_x)
		break;	    
/*	    else
	    {*/i y
	    pole[y][i] = pole[stary][i];
	    if (stary != i)
	    {
		pole[stary][i] = '.';
	    }
	    
//	    }	   
	} 
    }

/*    int i,j;
    int zmena=1;
    for(i=1;i<rozmer_x;i++)
    {
	while(zmena)
	{
	    zmena=0;
    	    for(j=1;j<rozmer_y;j++)
    	    {
		if ( (pole[i][j]=='.')&& ( pole[i+1][j]!='.') )
		{
		    pole[i][j]=pole[i+1][j];
		    pole[i+1][j]='.';
		    zmena=1;
		}
	    }	    
	}
    }*/
}

int pole_prazdne()
{
    for(int i=1;i<rozmer_x;i++)
	for(int j=1;j<rozmer_x;j++)
	{
	    if (pole[i][j]!='.') return 0;
	}
return(1);
}

void doit (void) {
int i,j,tah,tahu;
//int rozmer_x,rozmer_y;
int score=0;
int x,y;
sebrano=0;
scanf("%d",&rozmer_x);
scanf("%d\n",&rozmer_y);

for(i=1;i<=rozmer_x;i++)
    for(j=1;j<=rozmer_y;j++)
	pole[i][j]='.';



for(i=1;i<=rozmer_y;i++)
{
    for(j=1;j<=rozmer_x+1;j++)
    {
//	scanf("%s",pole[i]+1);
	pole[j][i] = getchar();
	printf("Presetl jsi %c\n", pole[j][i]);

//	printf("%s\n",pole[i]);	
		
    }
    
}

for(i=1;i<=rozmer_y;i++)
{
    for(j=1;j<=rozmer_x+1;j++)
	printf("%c,",pole[j][i]);
	printf("<<\n");
}


scanf("%d",&tahu);

printf("tahu:%d,rozmer_x:%d,rozmer_y :%d\n",tahu,rozmer_x,rozmer_y);
int ok=0;

for(tah=1;tah<=tahu;tah++)
{
    printf ("_____tah :%d",tah);
    ok=0;
    scanf("%d",&x);
    scanf("%d",&y);//souradnice tahu

    printf("x :%d,y :%d,barva :%c",x,y,pole[x][y]);
    if (pole[x][y]=='.')break;//chyba, dalsi tah
    
    char akt=pole[x][y];    
    if ( (( x>1 ) && (pole[x-1][y]==akt) )
    || ( (x<rozmer_x ) && (pole[x+1][y]==akt) )
    || ( (y>1 ) && (pole[x][y-1]==akt) )
    || ( (y<rozmer_y ) && (pole[x][y+1]==akt) )
    )ok=1;
    
    
    if (ok)
    {
	seber(x,y,pole[x][y]);
	printf("sebrano :%d<\n",sebrano);

for(i=0;i<=rozmer_y;i++)
{
    for(j=0;j<=rozmer_x;j++)
	printf("%c,",pole[j][i]);
	printf("<<\n");
}


	zmensi_pole_vert();

printf("x:%d,%d<\n",rozmer_x,rozmer_y);
for(i=0;i<=rozmer_y;i++)
{
    for(j=0;j<=rozmer_x;j++)
	printf("%d,%d,%c,",i,j,pole[j][i]);
	printf("<<\n");
}
	
	zmensi_pole_horiz();
	score+=(sebrano-2)*(sebrano-2);
	sebrano=0;
    }
    printf(">>>>\n");

}
    if (pole_prazdne()) score+=1000;

printf ("score :%d\n",score);

}

int main (void) {
int a,b;
scanf("%d",&a);
for(b=0;b<a;b++) doit();
return 0;
}