Problem:
Score : 700 points

Problem Statement

Takahashi is locked within a building.

This building consists of H×W rooms, arranged in H rows and W columns.
We will denote the room at the i-th row and j-th column as (i,j). The state of this room is represented by a character A_{i,j}. If A_{i,j}= #, the room is locked and cannot be entered; if A_{i,j}= ., the room is not locked and can be freely entered.
Takahashi is currently at the room where A_{i,j}= S, which can also be freely entered.

Each room in the 1-st row, 1-st column, H-th row or W-th column, has an exit.
Each of the other rooms (i,j) is connected to four rooms: (i-1,j), (i+1,j), (i,j-1) and (i,j+1).

Takahashi will use his magic to get out of the building. In one cast, he can do the following:

Move to an adjacent room at most K times, possibly zero. Here, locked rooms cannot be entered.

Then, select and unlock at most K locked rooms, possibly zero. Those rooms will remain unlocked from then on.

His objective is to reach a room with an exit. Find the minimum necessary number of casts to do so.

It is guaranteed that Takahashi is initially at a room without an exit.

Constraints

3 ≤ H ≤ 800

3 ≤ W ≤ 800

1 ≤ K ≤ H×W

Each A_{i,j} is # , . or S.

There uniquely exists (i,j) such that A_{i,j}= S, and it satisfies 2 ≤ i ≤ H-1 and 2 ≤ j ≤ W-1.

Input

Input is given from Standard Input in the following format:

H W K
A_{1,1}A_{1,2}...A_{1,W}
:
A_{H,1}A_{H,2}...A_{H,W}

Output

Print the minimum necessary number of casts.

Sample Input 1

3 3 3
#.#
#S.
###

Sample Output 1

1

Takahashi can move to room (1,2) in one cast.

Sample Input 2

3 3 3
###
#S#
###

Sample Output 2

2

Takahashi cannot move in the first cast, but can unlock room (1,2).
Then, he can move to room (1,2) in the next cast, achieving the objective in two casts.

Sample Input 3

7 7 2
#######
#######
##...##
###S###
##.#.##
###.###
#######

Sample Output 3

2

Solution in Pascal (FPC 2.6.2) (judge verdict: Wrong Answer)

var h,w,k,i,j,min,hh,t,xx,yy:longint;
    s:ansistring;
    ww,p:array[0..801,0..801]of boolean;
    f:array[0..801,0..801]of longint;
    x,y:array[1..10000000]of longint;
begin
    readln(h,w,k);
    min:=maxlongint;
    fillchar(f,sizeof(f),$7f);
    for i:=1 to h do begin
        readln(s);
        for j:=1 to w do begin
            if s[j]<>'#' then p[i,j]:=true;
            if s[j]='S' then begin
                x[1]:=i;y[1]:=j;
                f[i,j]:=0;
                if i-1<min then min:=i-1;
                if h-i<min then min:=h-i;
                if j-1<min then min:=j-1;
                if w-j<min then min:=w-j;
            end;
        end;
    end;
    if min=0 then begin
        writeln(0);
        exit;
    end;
    hh:=1;t:=1;
    while hh<=t do begin
        xx:=x[hh];yy:=y[hh];
        if  (p[xx+1,yy])and(not ww[xx+1,yy])and(f[xx+1,yy]>f[xx,yy]+1) then begin
            inc(t);
            x[t]:=xx+1;
            y[t]:=yy;
            ww[xx+1,yy]:=true;
            f[xx+1,yy]:=f[xx,yy]+1;
            if h-xx-1<min then min:=h-xx-1;
        end;
        if  (p[xx-1,yy])and(not ww[xx-1,yy])and(f[xx-1,yy]>f[xx,yy]+1) then begin
            inc(t);
            x[t]:=xx-1;
            y[t]:=yy;
            ww[xx-1,yy]:=true;
            f[xx-1,yy]:=f[xx,yy]+1;
            if xx-2<min then min:=xx-2;
        end;
        if  (p[xx,yy+1])and(not ww[xx,yy+1])and(f[xx,yy]>f[xx,yy]+1) then begin
            inc(t);
            x[t]:=xx;
            y[t]:=yy+1;
            ww[xx,yy+1]:=true;
            f[xx,yy+1]:=f[xx,yy]+1;
            if w-yy-1<min then min:=w-yy-1;
        end;
        if  (p[xx,yy-1])and(not ww[xx,yy-1])and(f[xx,yy-1]>f[xx,yy]+1) then begin
            inc(t);
            x[t]:=xx;
            y[t]:=yy-1;
            ww[xx,yy-1]:=true;
            f[xx,yy-1]:=f[xx,yy]+1;
            if yy-2<min then min:=yy-2;
        end;
        ww[xx,yy]:=false;
        inc(hh);
        while (hh<=t)and(f[x[hh],y[hh]]=k) do inc(hh);
    end;
    if min mod k<>0 then writeln(2+(min div k)) else writeln(1+(min div k));
end.