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 Haskell (GHC 7.10.3) (judge verdict: Time Limit Exceeded)

import qualified Data.Set as S
import Data.Char
 
div1 x y = let (d,m) = divMod x y in d + signum m
 
unionMap f s = foldr add s s
 where add e acc = let s' = f e in if S.isSubsetOf s' s then acc else S.union acc s'
 
main = do
 [h,w,k] <- map read . words <$> getLine
 m <- filter isPrint <$> getContents
 let ixm = zip [(i,j) | i<-[1..h], j<-[1..w]] m
 let (sx,sy) = fst (head (filter ((=='S') . snd) ixm))
 let cand ((i,j),c) = elem c ".S" && abs (sx-i) + abs (sy-j) <= k
 let ps = S.fromDistinctAscList (map fst (filter cand ixm))
 print (escape h w k ps (sx,sy))
 
type Height = Int
type Width = Int
type Opened = S.Set Point
type Point = (Int,Int)
type Init = Point
 
escape :: Height -> Width -> Int -> Opened -> Init -> Int
escape h w k ps s = minimum (map (nmagic h w k) (S.elems (reachable k ps s)))
 
nmagic :: Height -> Width -> Int -> Point -> Int
nmagic h w k (i,j) = minimum (map (flip div1 k) [i-1,h-i,j-1,w-j]) + 1

reachable :: Int -> Opened -> Point -> Opened
reachable k ps s = reachable' k (S.singleton s) (S.singleton s)
 where
  reachable' 0 acc _ = acc
  reachable' k' acc b = reachable' (k'-1) (S.union acc b') b'
   where b' = S.difference (move ps b) acc
 
move :: Opened -> Opened -> Opened
move ps rs = unionMap (neighbor ps) rs
 
neighbor :: Opened -> Point -> Opened
neighbor ps (i,j) = S.fromList (filter (flip S.member ps) [(i,j),(i+1,j),(i-1,j),(i,j+1),(i,j-1)])