输入说明 ：
输入档会有多笔资料，每笔资料的开头会有一个正整數 N，N<=100，表示这组资料有几行，接下來N 行字会表示一个迷宫，每行不会超过100 个字元、其中#代表不能走的路、.代表可以走的路、@代表老鼠的位置(可能不只一只喔！)，K 代表喵喵的位置(喵喵只有一只！)，当N=0 时表示接下來没有测试资料了，迷宫的四周一定会用#围起來且一定是长方型。
输出说明 ：
对每组测试资料，请输出離喵喵最近的老鼠的位置(也就是喵喵需要走几格才能站到老鼠所在的位置？)，喵喵只能往上、往下、往右、往左走，如果没有喵喵能走到的老鼠请输出= =”(等号空白等号双引号)。 范例输入 ：
若题目没有特别说明，则应该以多测资的方式读取，若不知如何读取请参考 a001 的范例程式。3##########
#K......@#
#########
#3#
#########
#K..#
...@###########0
范例输出 ：
7= ="
http://cat.nknush.kh.edu.tw/ShowProblem?problemid=b224

VAR k,j,i,p,x1,y1:longint;flag:boolean; s:string;
f:array[0..100,0..100] of char;
procedure bfs(x,y,n:integer);
begin
if (f[x-1,y]='.') then bfs(x-1,y,n+1);
if (f[x+1,y]='.') then bfs(x+1,y,n+1);
if (f[x,y+1]='.') then bfs(x,y+1,n+1);
if (f[x,y-1]='.') then bfs(x,y-1,n+1);
if f[x,y]='@' then begin flag:=true;write(n);exit;end;
end;
begin
readln(k);
while k<>0 do
begin
fillchar(f,sizeof(f),'#'); flag:=false;
j:=1;
for i:=1 to k do
begin
readln(s);
for j:=1 to length(s) do f[i,j]:=s[j];
end;
for i:=1 to k do
for p:=1 to j do
if f[i,p]='K' then
begin x1:=i;y1:=p;break; end;
bfs(x1,y1,0); if not flag then writeln('= ="');
readln(k);
end;
end.

const dx:array[1..4] of longint=(1,-1,0,0);
dy:array[1..4] of longint=(0,0,1,-1);
var n:longint;
a:array[1..100,1..100] of char;
p:array[1..100,1..100] of boolean;
f:array[1..10000] of record
x,y,s:longint;
end;
procedure init;
var i,j:longint;
s:string;
begin
for i:=1 to n do begin
readln(s);
for j:=1 to length(s) do begin
a[i,j]:=s[j];
if s[j]='K' then begin
p[i,j]:=true;
f[1].x:=i;
f[1].y:=j;
f[1].s:=0;
end;
end;
end;
end;
procedure bfs;
var head,tail,i,nx,ny:longint;
begin
head:=1;
tail:=1;
repeat
for i:=1 to 4 do begin
nx:=f[head].x+dx[i];
ny:=f[head].y+dy[i];
if (a[nx,ny]<>'#')and(p[nx,ny]=false) then begin
inc(tail);
p[nx,ny]:=true;
f[tail].x:=nx;
f[tail].y:=ny;
f[tail].s:=f[head].s+1;
if a[nx,ny]='@' then begin
writeln(f[tail].s);
exit;
end;
end;
end;
inc(head);
until head>tail;
writeln('=="');
end;
begin
readln(n);
while n<>0 do begin
init;
bfs;
readln(n);
end;
end.