a:array[0..11,0..11] of longint;
i,j,k,l,m,n,x,y,ahe,ans:longint;
ch:char;
procedure search(x,y,he,step:longint);
var
i,j,l,m,x1,y1:longint;
begin
if step<0 then exit;
if (x<0) or (x>9) or (y<0) or (y>5) then exit;
if a[x,y]=1 then
begin
a[x,y]:=0;
if he>=ans then ans:=he+1;
search(x+1,y,he+1,step-1);
search(x-1,y,he+1,step-1);
search(x,y-1,he+1,step-1);
a[x,y]:=1;
end
else
begin
search(x+1,y,he,step-1);
search(x-1,y,he,step-1);
search(x,y-1,he,step-1);
end;
end;
begin
while not eof do
begin
readln(k);
for i:=1 to 5 do
begin
for j:=1 to 9 do
begin
read(ch);
if ch='*' then a[j,i]:=0;
if ch='K' then begin a[j,i]:=1;inc(ahe);end;
if ch='L' then
begin
x:=i;
y:=j;
a[j,i]:=0;
end;
end;
readln;
end;
if (ahe=0) then begin writeln('0');halt;end;
search(y,x,0,k);
writeln(ans);
end;
end.