int main(int argc, char const *argv[]) {
  int r, c, p, graph[20][20];
  char grid[20][20];
  while (scanf("%d%d%d", &r, &c, &p) && r) {
    memset(grid, 0, sizeof(grid));
    memset(graph, -1, sizeof(graph));
    for (int i = 0; i < r; i++)
      scanf("%s", grid[i]);
    int x = 0, y = p - 1, cnt = 0;
    while (1) {
      graph[x][y] = cnt++;
      switch (grid[x][y]) {
      case 'N':
        x--;
        break;
      case 'S':
        x++;
        break;
      case 'E':
        y++;
        break;
      case 'W':
        y--;
        break;
      }
      if (x < 0 || x == r || y < 0 || y == c) {
        printf("%d step(s) to exit\n", cnt);
        break;
      }
      if (graph[x][y] != -1) {
        printf("%d step(s) before a loop of %d step(s)\n", graph[x][y],
               cnt - graph[x][y]);
        break;
      }
    }
  }
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x810,%rsp
movl   $0x0,-0x4(%rbp)
mov    %edi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
lea    0xefc(%rip),%rdi
lea    -0x14(%rbp),%rsi
lea    -0x18(%rbp),%rdx
lea    -0x1c(%rbp),%rcx
mov    $0x0,%al
call   1050 <scanf@plt>
mov    %eax,%ecx
xor    %eax,%eax
cmp    $0x0,%ecx
mov    %al,-0x801(%rbp)
je     1183 <main+0x53>
cmpl   $0x0,-0x14(%rbp)
setne  %al
mov    %al,-0x801(%rbp)
mov    -0x801(%rbp),%al
test   $0x1,%al
jne    1196 <main+0x66>
jmp    13ce <main+0x29e>
lea    -0x7f0(%rbp),%rdi
xor    %esi,%esi
mov    $0x190,%edx
call   1040 <memset@plt>
lea    -0x660(%rbp),%rdi
mov    $0xff,%esi
mov    $0x640,%edx
call   1040 <memset@plt>
movl   $0x0,-0x7f4(%rbp)
mov    -0x7f4(%rbp),%eax
cmp    -0x14(%rbp),%eax
jge    120f <main+0xdf>
movslq -0x7f4(%rbp),%rax
lea    -0x7f0(%rbp),%rsi
imul   $0x14,%rax,%rax
add    %rax,%rsi
lea    0xe5f(%rip),%rdi
mov    $0x0,%al
call   1050 <scanf@plt>
mov    -0x7f4(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x7f4(%rbp)
jmp    11c9 <main+0x99>
movl   $0x0,-0x7f8(%rbp)
mov    -0x1c(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x7fc(%rbp)
movl   $0x0,-0x800(%rbp)
mov    -0x800(%rbp),%edx
mov    %edx,%eax
add    $0x1,%eax
mov    %eax,-0x800(%rbp)
movslq -0x7f8(%rbp),%rax
lea    (%rax,%rax,4),%rax
shl    $0x4,%rax
lea    -0x660(%rbp,%rax,1),%rax
ff
movslq -0x7fc(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
movslq -0x7f8(%rbp),%rax
lea    (%rax,%rax,4),%rax
lea    -0x7f0(%rbp,%rax,4),%rcx
ff
movslq -0x7fc(%rbp),%rax
movsbl (%rax,%rcx,1),%eax
add    $0xffffffbb,%eax
mov    %eax,%ecx
mov    %rcx,-0x810(%rbp)
sub    $0x12,%eax
ja     12f6 <main+0x1c6>
mov    -0x810(%rbp),%rax
lea    0xd5e(%rip),%rcx
movslq (%rcx,%rax,4),%rax
add    %rcx,%rax
jmp    *%rax
mov    -0x7f8(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x7f8(%rbp)
jmp    12f6 <main+0x1c6>
mov    -0x7f8(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x7f8(%rbp)
jmp    12f6 <main+0x1c6>
mov    -0x7fc(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x7fc(%rbp)
jmp    12f6 <main+0x1c6>
mov    -0x7fc(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x7fc(%rbp)
cmpl   $0x0,-0x7f8(%rbp)
jl     132e <main+0x1fe>
mov    -0x7f8(%rbp),%eax
cmp    -0x14(%rbp),%eax
je     132e <main+0x1fe>
cmpl   $0x0,-0x7fc(%rbp)
jl     132e <main+0x1fe>
mov    -0x7fc(%rbp),%eax
cmp    -0x18(%rbp),%eax
jne    1347 <main+0x217>
mov    -0x800(%rbp),%esi
lea    0xd1b(%rip),%rdi
mov    $0x0,%al
call   1030 <printf@plt>
jmp    13c9 <main+0x299>
movslq -0x7f8(%rbp),%rcx
lea    -0x660(%rbp),%rax
imul   $0x50,%rcx,%rcx
add    %rcx,%rax
movslq -0x7fc(%rbp),%rcx
cmpl   $0xffffffff,(%rax,%rcx,4)
je     13c4 <main+0x294>
movslq -0x7f8(%rbp),%rcx
lea    -0x660(%rbp),%rax
imul   $0x50,%rcx,%rcx
add    %rcx,%rax
movslq -0x7fc(%rbp),%rcx
mov    (%rax,%rcx,4),%esi
mov    -0x800(%rbp),%edx
movslq -0x7f8(%rbp),%rcx
lea    -0x660(%rbp),%rax
imul   $0x50,%rcx,%rcx
add    %rcx,%rax
movslq -0x7fc(%rbp),%rcx
sub    (%rax,%rcx,4),%edx
lea    0xcb2(%rip),%rdi
mov    $0x0,%al
call   1030 <printf@plt>
jmp    13c9 <main+0x299>
jmp    122f <main+0xff>
jmp    1149 <main+0x19>
xor    %eax,%eax
add    $0x810,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x7e8,%rsp
lea    0xf04(%rip),%rdi
lea    0x4(%rsp),%rsi
lea    0xc(%rsp),%rdx
lea    0x8(%rsp),%rcx
xor    %eax,%eax
call   1050 <scanf@plt>
test   %eax,%eax
je     1322 <main+0x1f2>
mov    0x4(%rsp),%r13d
test   %r13d,%r13d
je     1322 <main+0x1f2>
lea    0x10(%rsp),%r14
lea    0xed3(%rip),%rbp
lea    0xe79(%rip),%r12
nopw   0x0(%rax,%rax,1)
mov    $0x190,%edx
mov    %r14,%rdi
xor    %esi,%esi
call   1040 <memset@plt>
mov    $0x640,%edx
lea    0x1a0(%rsp),%rdi
mov    $0xff,%esi
call   1040 <memset@plt>
test   %r13d,%r13d
jle    11f2 <main+0xc2>
mov    %r14,%rbx
mov    %r14,%r15
xor    %r14d,%r14d
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
mov    %rbp,%rdi
mov    %r15,%rsi
xor    %eax,%eax
call   1050 <scanf@plt>
add    $0x1,%r14
movslq 0x4(%rsp),%r13
add    $0x14,%r15
cmp    %r13,%r14
jl     11d0 <main+0xa0>
mov    %rbx,%r14
mov    %rbp,%r15
mov    0x8(%rsp),%eax
add    $0xffffffff,%eax
xor    %ecx,%ecx
mov    0xc(%rsp),%edi
xor    %edx,%edx
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
mov    %ecx,%esi
movslq %eax,%rbp
lea    (%rsi,%rsi,4),%rsi
lea    (%rsp,%rsi,4),%rbx
add    $0x10,%rbx
shl    $0x4,%rsi
add    %rsp,%rsi
add    $0x1a0,%rsi
mov    %edx,(%rsi,%rbp,4)
movsbl 0x0(%rbp,%rbx,1),%esi
add    $0xffffffbb,%esi
cmp    $0x12,%esi
ja     12b7 <main+0x187>
movslq (%r12,%rsi,4),%rsi
add    %r12,%rsi
mov    %r15,%rbp
jmp    *%rsi
add    $0x1,%eax
cmp    %r13d,%ecx
jne    1288 <main+0x158>
jmp    12c0 <main+0x190>
cs nopw 0x0(%rax,%rax,1)
nop
test   %ecx,%ecx
jle    12c0 <main+0x190>
add    $0xffffffff,%ecx
cmp    %r13d,%ecx
jne    1288 <main+0x158>
jmp    12c0 <main+0x190>
xchg   %ax,%ax
add    $0x1,%ecx
cmp    %r13d,%ecx
jne    1288 <main+0x158>
jmp    12c0 <main+0x190>
nopw   0x0(%rax,%rax,1)
add    $0xffffffff,%eax
cmp    %r13d,%ecx
je     12c0 <main+0x190>
test   %eax,%eax
js     12c0 <main+0x190>
cmp    %edi,%eax
je     12c0 <main+0x190>
mov    %ecx,%esi
mov    %eax,%ebp
lea    (%rsi,%rsi,4),%rsi
shl    $0x4,%rsi
add    %rsp,%rsi
add    $0x1a0,%rsi
mov    (%rsi,%rbp,4),%esi
add    $0x1,%edx
cmp    $0xffffffff,%esi
je     1210 <main+0xe0>
jmp    12e0 <main+0x1b0>
mov    %r15,%rbp
cmp    %r13d,%ecx
jne    1288 <main+0x158>
nop
add    $0x1,%edx
lea    0xd8c(%rip),%rdi
mov    %edx,%esi
xor    %eax,%eax
call   1030 <printf@plt>
jmp    12f3 <main+0x1c3>
cs nopw 0x0(%rax,%rax,1)
nop
sub    %esi,%edx
lea    0xd81(%rip),%rdi
xor    %eax,%eax
call   1030 <printf@plt>
mov    %r15,%rbp
lea    0xd52(%rip),%rdi
lea    0x4(%rsp),%rsi
lea    0xc(%rsp),%rdx
lea    0x8(%rsp),%rcx
xor    %eax,%eax
call   1050 <scanf@plt>
test   %eax,%eax
je     1322 <main+0x1f2>
mov    0x4(%rsp),%r13d
test   %r13d,%r13d
jne    1190 <main+0x60>
xor    %eax,%eax
add    $0x7e8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@.str = [7 x i8] c"%d%d%d\00"
@.str.1 = [3 x i8] c"%s\00"
@.str.2 = [20 x i8] c"%d step(s) to exit\0A\00"
@.str.3 = [40 x i8] c"%d step(s) before a loop of %d step(s)\0A\00"
define i32 @main(i32 %0, i8** %1) {
%3 = alloca i32
%4 = alloca i32
%5 = alloca i8**
%6 = alloca i32
%7 = alloca i32
%8 = alloca i32
%9 = alloca [20 x [20 x i32]]
%10 = alloca [20 x [20 x i8]]
%11 = alloca i32
%12 = alloca i32
%13 = alloca i32
%14 = alloca i32
store i32 0, i32* %3
store i32 %0, i32* %4
store i8** %1, i8*** %5
br label %15
15: ; preds = %118, %2
%16 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str, i64 0, i64 0), i32* %6, i32* %7, i32* %8)
%17 = icmp ne i32 %16, 0
br i1 %17, label %18, label %21
18: ; preds = %15
%19 = load i32, i32* %6
%20 = icmp ne i32 %19, 0
br label %21
21: ; preds = %18, %15
%22 = phi i1 [ false, %15 ], [ %20, %18 ]
br i1 %22, label %23, label %119
23: ; preds = %21
%24 = getelementptr inbounds [20 x [20 x i8]], [20 x [20 x i8]]* %10, i64 0, i64 0
%25 = bitcast [20 x i8]* %24 to i8*
%26 = getelementptr inbounds [20 x [20 x i32]], [20 x [20 x i32]]* %9, i64 0, i64 0
%27 = bitcast [20 x i32]* %26 to i8*
store i32 0, i32* %11
br label %28
28: ; preds = %38, %23
%29 = load i32, i32* %11
%30 = load i32, i32* %6
%31 = icmp slt i32 %29, %30
br i1 %31, label %32, label %41
32: ; preds = %28
%33 = load i32, i32* %11
%34 = sext i32 %33 to i64
%35 = getelementptr inbounds [20 x [20 x i8]], [20 x [20 x i8]]* %10, i64 0, i64 %34
%36 = getelementptr inbounds [20 x i8], [20 x i8]* %35, i64 0, i64 0
%37 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str.1, i64 0, i64 0), i8* %36)
br label %38
38: ; preds = %32
%39 = load i32, i32* %11
%40 = add nsw i32 %39, 1
store i32 %40, i32* %11
br label %28
41: ; preds = %28
store i32 0, i32* %12
%42 = load i32, i32* %8
%43 = sub nsw i32 %42, 1
store i32 %43, i32* %13
store i32 0, i32* %14
br label %44
44: ; preds = %41, %117
%45 = load i32, i32* %14
%46 = add nsw i32 %45, 1
store i32 %46, i32* %14
%47 = load i32, i32* %12
%48 = sext i32 %47 to i64
%49 = getelementptr inbounds [20 x [20 x i32]], [20 x [20 x i32]]* %9, i64 0, i64 %48
%50 = load i32, i32* %13
%51 = sext i32 %50 to i64
%52 = getelementptr inbounds [20 x i32], [20 x i32]* %49, i64 0, i64 %51
store i32 %45, i32* %52
%53 = load i32, i32* %12
%54 = sext i32 %53 to i64
%55 = getelementptr inbounds [20 x [20 x i8]], [20 x [20 x i8]]* %10, i64 0, i64 %54
%56 = load i32, i32* %13
%57 = sext i32 %56 to i64
%58 = getelementptr inbounds [20 x i8], [20 x i8]* %55, i64 0, i64 %57
%59 = load i8, i8* %58
%60 = sext i8 %59 to i32
switch i32 %60, label %73 [
i32 78, label %61
i32 83, label %64
i32 69, label %67
i32 87, label %70
]
61: ; preds = %44
%62 = load i32, i32* %12
%63 = add nsw i32 %62, -1
store i32 %63, i32* %12
br label %73
64: ; preds = %44
%65 = load i32, i32* %12
%66 = add nsw i32 %65, 1
store i32 %66, i32* %12
br label %73
67: ; preds = %44
%68 = load i32, i32* %13
%69 = add nsw i32 %68, 1
store i32 %69, i32* %13
br label %73
70: ; preds = %44
%71 = load i32, i32* %13
%72 = add nsw i32 %71, -1
store i32 %72, i32* %13
br label %73
73: ; preds = %44, %70, %67, %64, %61
%74 = load i32, i32* %12
%75 = icmp slt i32 %74, 0
br i1 %75, label %87, label %76
76: ; preds = %73
%77 = load i32, i32* %12
%78 = load i32, i32* %6
%79 = icmp eq i32 %77, %78
br i1 %79, label %87, label %80
80: ; preds = %76
%81 = load i32, i32* %13
%82 = icmp slt i32 %81, 0
br i1 %82, label %87, label %83
83: ; preds = %80
%84 = load i32, i32* %13
%85 = load i32, i32* %7
%86 = icmp eq i32 %84, %85
br i1 %86, label %87, label %90
87: ; preds = %83, %80, %76, %73
%88 = load i32, i32* %14
%89 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([20 x i8], [20 x i8]* @.str.2, i64 0, i64 0), i32 %88)
br label %118
90: ; preds = %83
%91 = load i32, i32* %12
%92 = sext i32 %91 to i64
%93 = getelementptr inbounds [20 x [20 x i32]], [20 x [20 x i32]]* %9, i64 0, i64 %92
%94 = load i32, i32* %13
%95 = sext i32 %94 to i64
%96 = getelementptr inbounds [20 x i32], [20 x i32]* %93, i64 0, i64 %95
%97 = load i32, i32* %96
%98 = icmp ne i32 %97, -1
br i1 %98, label %99, label %117
99: ; preds = %90
%100 = load i32, i32* %12
%101 = sext i32 %100 to i64
%102 = getelementptr inbounds [20 x [20 x i32]], [20 x [20 x i32]]* %9, i64 0, i64 %101
%103 = load i32, i32* %13
%104 = sext i32 %103 to i64
%105 = getelementptr inbounds [20 x i32], [20 x i32]* %102, i64 0, i64 %104
%106 = load i32, i32* %105
%107 = load i32, i32* %14
%108 = load i32, i32* %12
%109 = sext i32 %108 to i64
%110 = getelementptr inbounds [20 x [20 x i32]], [20 x [20 x i32]]* %9, i64 0, i64 %109
%111 = load i32, i32* %13
%112 = sext i32 %111 to i64
%113 = getelementptr inbounds [20 x i32], [20 x i32]* %110, i64 0, i64 %112
%114 = load i32, i32* %113
%115 = sub nsw i32 %107, %114
%116 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([40 x i8], [40 x i8]* @.str.3, i64 0, i64 0), i32 %106, i32 %115)
br label %118
117: ; preds = %90
br label %44
118: ; preds = %99, %87
br label %15
119: ; preds = %21
ret i32 0
}

LLVM IR (-O2):
@.str = [7 x i8] c"%d%d%d\00"
@.str.1 = [3 x i8] c"%s\00"
@.str.2 = [20 x i8] c"%d step(s) to exit\0A\00"
@.str.3 = [40 x i8] c"%d step(s) before a loop of %d step(s)\0A\00"
define i32 @main(i32 %0, i8** nocapture readnone %1) {
%3 = alloca i32
%4 = alloca i32
%5 = alloca i32
%6 = alloca [20 x [20 x i32]]
%7 = alloca [20 x [20 x i8]]
%8 = bitcast i32* %3 to i8*
%9 = bitcast i32* %4 to i8*
%10 = bitcast i32* %5 to i8*
%11 = bitcast [20 x [20 x i32]]* %6 to i8*
%12 = getelementptr inbounds [20 x [20 x i8]], [20 x [20 x i8]]* %7, i64 0, i64 0, i64 0
%13 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str, i64 0, i64 0), i32* %3, i32* %4, i32* %5)
%14 = icmp ne i32 %13, 0
%15 = load i32, i32* %3
%16 = icmp ne i32 %15, 0
%17 = select i1 %14, i1 %16, i1 false
br i1 %17, label %18, label %79
18: ; preds = %2, %73
%19 = phi i32 [ %76, %73 ], [ %15, %2 ]
%20 = icmp sgt i32 %19, 0
br i1 %20, label %26, label %21
21: ; preds = %26, %18
%22 = phi i32 [ %19, %18 ], [ %31, %26 ]
%23 = load i32, i32* %5
%24 = add nsw i32 %23, -1
%25 = load i32, i32* %4
br label %34
26: ; preds = %18, %26
%27 = phi i64 [ %30, %26 ], [ 0, %18 ]
%28 = getelementptr inbounds [20 x [20 x i8]], [20 x [20 x i8]]* %7, i64 0, i64 %27, i64 0
%29 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str.1, i64 0, i64 0), i8* %28)
%30 = add nuw nsw i64 %27, 1
%31 = load i32, i32* %3
%32 = sext i32 %31 to i64
%33 = icmp slt i64 %30, %32
br i1 %33, label %26, label %21
34: ; preds = %64, %21
%35 = phi i32 [ 0, %21 ], [ %56, %64 ]
%36 = phi i32 [ %24, %21 ], [ %55, %64 ]
%37 = phi i32 [ 0, %21 ], [ %38, %64 ]
%38 = add nuw nsw i32 %37, 1
%39 = zext i32 %35 to i64
%40 = sext i32 %36 to i64
%41 = getelementptr inbounds [20 x [20 x i32]], [20 x [20 x i32]]* %6, i64 0, i64 %39, i64 %40
store i32 %37, i32* %41
%42 = getelementptr inbounds [20 x [20 x i8]], [20 x [20 x i8]]* %7, i64 0, i64 %39, i64 %40
%43 = load i8, i8* %42
%44 = sext i8 %43 to i32
switch i32 %44, label %54 [
i32 78, label %51
i32 83, label %45
i32 69, label %47
i32 87, label %49
]
45: ; preds = %34
%46 = add nuw nsw i32 %35, 1
br label %54
47: ; preds = %34
%48 = add nsw i32 %36, 1
br label %54
49: ; preds = %34
%50 = add nsw i32 %36, -1
br label %54
51: ; preds = %34
%52 = add nsw i32 %35, -1
%53 = icmp slt i32 %35, 1
br i1 %53, label %62, label %54
54: ; preds = %45, %47, %49, %34, %51
%55 = phi i32 [ %36, %51 ], [ %36, %45 ], [ %48, %47 ], [ %50, %49 ], [ %36, %34 ]
%56 = phi i32 [ %52, %51 ], [ %46, %45 ], [ %35, %47 ], [ %35, %49 ], [ %35, %34 ]
%57 = icmp eq i32 %56, %22
%58 = icmp slt i32 %55, 0
%59 = select i1 %57, i1 true, i1 %58
%60 = icmp eq i32 %55, %25
%61 = select i1 %59, i1 true, i1 %60
br i1 %61, label %62, label %64
62: ; preds = %54, %51
%63 = call i32 (i8*, ...) @printf(i8* dereferenceable(1) getelementptr inbounds ([20 x i8], [20 x i8]* @.str.2, i64 0, i64 0), i32 %38)
br label %73
64: ; preds = %54
%65 = zext i32 %56 to i64
%66 = zext i32 %55 to i64
%67 = getelementptr inbounds [20 x [20 x i32]], [20 x [20 x i32]]* %6, i64 0, i64 %65, i64 %66
%68 = load i32, i32* %67
%69 = icmp eq i32 %68, -1
br i1 %69, label %34, label %70
70: ; preds = %64
%71 = sub nsw i32 %38, %68
%72 = call i32 (i8*, ...) @printf(i8* dereferenceable(1) getelementptr inbounds ([40 x i8], [40 x i8]* @.str.3, i64 0, i64 0), i32 %68, i32 %71)
br label %73
73: ; preds = %70, %62
%74 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str, i64 0, i64 0), i32* %3, i32* %4, i32* %5)
%75 = icmp ne i32 %74, 0
%76 = load i32, i32* %3
%77 = icmp ne i32 %76, 0
%78 = select i1 %75, i1 %77, i1 false
br i1 %78, label %18, label %79
79: ; preds = %73, %2
ret i32 0
}