#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
int /*<<< orphan*/ imprimirDirecao(int);
int scanf(char *, ...);
int main(void) {
  int quantidadeDeComandos, i, direcaoDaFace;
  char comandos[1024];
  while (scanf("%d\n", &quantidadeDeComandos), quantidadeDeComandos != 0) {
    scanf("%s\n", comandos);
    direcaoDaFace = 0;
    for (i = 0; i < quantidadeDeComandos; i++) {
      if (comandos[i] == 'D') {
        direcaoDaFace++;
      } else {
        direcaoDaFace--;
      }
    }
    imprimirDirecao(direcaoDaFace);
  }
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x410,%rsp
movl   $0x0,-0x4(%rbp)
lea    0xec7(%rip),%rdi
lea    -0x8(%rbp),%rsi
mov    $0x0,%al
call   1040 <scanf@plt>
cmpl   $0x0,-0x8(%rbp)
je     11c9 <main+0xa9>
lea    -0x410(%rbp),%rsi
lea    0xea8(%rip),%rdi
mov    $0x0,%al
call   1040 <scanf@plt>
movl   $0x0,-0x10(%rbp)
movl   $0x0,-0xc(%rbp)
mov    -0xc(%rbp),%eax
cmp    -0x8(%rbp),%eax
jge    11bc <main+0x9c>
movslq -0xc(%rbp),%rax
movsbl -0x410(%rbp,%rax,1),%eax
ff
cmp    $0x44,%eax
jne    11a0 <main+0x80>
mov    -0x10(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x10(%rbp)
jmp    11a9 <main+0x89>
mov    -0x10(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x10(%rbp)
jmp    11ae <main+0x8e>
mov    -0xc(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0xc(%rbp)
jmp    1171 <main+0x51>
mov    -0x10(%rbp),%edi
call   1030 <imprimirDirecao@plt>
jmp    1132 <main+0x12>
xor    %eax,%eax
add    $0x410,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %r15
push   %r14
push   %r12
push   %rbx
sub    $0x418,%rsp
lea    0xeeb(%rip),%rdi
lea    0xc(%rsp),%rsi
xor    %eax,%eax
call   1040 <scanf@plt>
cmpl   $0x0,0xc(%rsp)
je     1397 <main+0x277>
lea    0xed1(%rip),%r14
lea    0x10(%rsp),%r15
lea    0xec1(%rip),%r12
lea    0xc(%rsp),%rbx
jmp    118d <main+0x6d>
cs nopw 0x0(%rax,%rax,1)
call   1030 <imprimirDirecao@plt>
mov    %r12,%rdi
mov    %rbx,%rsi
xor    %eax,%eax
call   1040 <scanf@plt>
cmpl   $0x0,0xc(%rsp)
je     1397 <main+0x277>
mov    %r14,%rdi
mov    %r15,%rsi
xor    %eax,%eax
call   1040 <scanf@plt>
mov    0xc(%rsp),%eax
mov    $0x0,%edi
test   %eax,%eax
jle    1170 <main+0x50>
cmp    $0x8,%eax
jae    11c0 <main+0xa0>
xor    %ecx,%ecx
xor    %edi,%edi
jmp    1350 <main+0x230>
cs nopw 0x0(%rax,%rax,1)
nop
mov    %eax,%ecx
and    $0xfffffff8,%ecx
lea    -0x8(%rcx),%rsi
mov    %rsi,%rdx
shr    $0x3,%rdx
add    $0x1,%rdx
test   %rsi,%rsi
je     136e <main+0x24e>
mov    %rdx,%rdi
and    $0xfffffffffffffffe,%rdi
pxor   %xmm0,%xmm0
xor    %esi,%esi
pxor   %xmm1,%xmm1
movdqa 0xe0a(%rip),%xmm5
pcmpeqd %xmm6,%xmm6
movdqa 0xe0e(%rip),%xmm7
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
movd   0x14(%rsp,%rsi,1),%xmm2
movdqa 0x10(%rsp,%rsi,1),%xmm3
pcmpeqb %xmm5,%xmm3
punpcklbw %xmm3,%xmm3
punpcklwd %xmm3,%xmm3
psrad  $0x18,%xmm3
pcmpeqb %xmm5,%xmm2
punpcklbw %xmm2,%xmm2
punpcklwd %xmm2,%xmm2
psrad  $0x18,%xmm2
movdqa %xmm3,%xmm4
pxor   %xmm6,%xmm4
pand   %xmm7,%xmm3
por    %xmm4,%xmm3
paddd  %xmm0,%xmm3
movdqa %xmm2,%xmm0
pxor   %xmm6,%xmm0
pand   %xmm7,%xmm2
por    %xmm0,%xmm2
paddd  %xmm1,%xmm2
movq   0x18(%rsp,%rsi,1),%xmm0
movd   0x1c(%rsp,%rsi,1),%xmm1
pcmpeqb %xmm5,%xmm0
punpcklbw %xmm0,%xmm0
punpcklwd %xmm0,%xmm0
psrad  $0x18,%xmm0
pcmpeqb %xmm5,%xmm1
punpcklbw %xmm1,%xmm1
punpcklwd %xmm1,%xmm1
psrad  $0x18,%xmm1
movdqa %xmm0,%xmm4
pxor   %xmm6,%xmm4
pand   %xmm7,%xmm0
por    %xmm4,%xmm0
paddd  %xmm3,%xmm0
movdqa %xmm1,%xmm3
pxor   %xmm6,%xmm3
pand   %xmm7,%xmm1
por    %xmm3,%xmm1
paddd  %xmm2,%xmm1
add    $0x10,%rsi
add    $0xfffffffffffffffe,%rdi
jne    1210 <main+0xf0>
test   $0x1,%dl
je     1325 <main+0x205>
movq   0x10(%rsp,%rsi,1),%xmm2
movd   0x14(%rsp,%rsi,1),%xmm3
pcmpeqb %xmm5,%xmm2
punpcklbw %xmm2,%xmm2
punpcklwd %xmm2,%xmm2
psrad  $0x18,%xmm2
pcmpeqb %xmm5,%xmm3
punpcklbw %xmm3,%xmm3
punpcklwd %xmm3,%xmm3
psrad  $0x18,%xmm3
movdqa %xmm2,%xmm4
pxor   %xmm6,%xmm4
pand   %xmm7,%xmm2
por    %xmm4,%xmm2
paddd  %xmm2,%xmm0
movdqa %xmm3,%xmm2
pxor   %xmm6,%xmm2
pand   %xmm7,%xmm3
por    %xmm2,%xmm3
paddd  %xmm3,%xmm1
paddd  %xmm1,%xmm0
pshufd $0xee,%xmm0,%xmm1
paddd  %xmm0,%xmm1
pshufd $0x55,%xmm1,%xmm0
paddd  %xmm1,%xmm0
movd   %xmm0,%edi
cmp    %rax,%rcx
je     1170 <main+0x50>
nopl   0x0(%rax,%rax,1)
xor    %edx,%edx
cmpb   $0x44,0x10(%rsp,%rcx,1)
sete   %dl
lea    (%rdi,%rdx,2),%edi
add    $0xffffffff,%edi
add    $0x1,%rcx
cmp    %rcx,%rax
jne    1350 <main+0x230>
jmp    1170 <main+0x50>
pxor   %xmm0,%xmm0
xor    %esi,%esi
pxor   %xmm1,%xmm1
movdqa 0xc80(%rip),%xmm5
pcmpeqd %xmm6,%xmm6
movdqa 0xc84(%rip),%xmm7
test   $0x1,%dl
jne    12cf <main+0x1af>
jmp    1325 <main+0x205>
xor    %eax,%eax
add    $0x418,%rsp
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
ret

LLVM IR (-O0):
@.str = [4 x i8] c"%d\0A\00"
@.str.1 = [4 x i8] c"%s\0A\00"
define i32 @main() {
%1 = alloca i32
%2 = alloca i32
%3 = alloca i32
%4 = alloca i32
%5 = alloca [1024 x i8]
store i32 0, i32* %1
br label %6
6: ; preds = %34, %0
%7 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str, i64 0, i64 0), i32* %2)
%8 = load i32, i32* %2
%9 = icmp ne i32 %8, 0
br i1 %9, label %10, label %37
10: ; preds = %6
%11 = getelementptr inbounds [1024 x i8], [1024 x i8]* %5, i64 0, i64 0
%12 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.1, i64 0, i64 0), i8* %11)
store i32 0, i32* %4
store i32 0, i32* %3
br label %13
13: ; preds = %31, %10
%14 = load i32, i32* %3
%15 = load i32, i32* %2
%16 = icmp slt i32 %14, %15
br i1 %16, label %17, label %34
17: ; preds = %13
%18 = load i32, i32* %3
%19 = sext i32 %18 to i64
%20 = getelementptr inbounds [1024 x i8], [1024 x i8]* %5, i64 0, i64 %19
%21 = load i8, i8* %20
%22 = sext i8 %21 to i32
%23 = icmp eq i32 %22, 68
br i1 %23, label %24, label %27
24: ; preds = %17
%25 = load i32, i32* %4
%26 = add nsw i32 %25, 1
store i32 %26, i32* %4
br label %30
27: ; preds = %17
%28 = load i32, i32* %4
%29 = add nsw i32 %28, -1
store i32 %29, i32* %4
br label %30
30: ; preds = %27, %24
br label %31
31: ; preds = %30
%32 = load i32, i32* %3
%33 = add nsw i32 %32, 1
store i32 %33, i32* %3
br label %13
34: ; preds = %13
%35 = load i32, i32* %4
%36 = call i32 @imprimirDirecao(i32 %35)
br label %6
37: ; preds = %6
ret i32 0
}

LLVM IR (-O2):
@.str = [4 x i8] c"%d\0A\00"
@.str.1 = [4 x i8] c"%s\0A\00"
define i32 @main() {
%1 = alloca i32
%2 = alloca [1024 x i8]
%3 = bitcast i32* %1 to i8*
%4 = getelementptr inbounds [1024 x i8], [1024 x i8]* %2, i64 0, i64 0
%5 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str, i64 0, i64 0), i32* %1)
%6 = load i32, i32* %1
%7 = icmp eq i32 %6, 0
br i1 %7, label %102, label %8
8: ; preds = %0, %96
%9 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.1, i64 0, i64 0), i8* %4)
%10 = load i32, i32* %1
%11 = icmp sgt i32 %10, 0
br i1 %11, label %12, label %96
12: ; preds = %8
%13 = zext i32 %10 to i64
%14 = icmp ult i32 %10, 8
br i1 %14, label %83, label %15
15: ; preds = %12
%16 = and i64 %13, 4294967288
%17 = add nsw i64 %16, -8
%18 = lshr exact i64 %17, 3
%19 = add nuw nsw i64 %18, 1
%20 = and i64 %19, 1
%21 = icmp eq i64 %17, 0
br i1 %21, label %57, label %22
22: ; preds = %15
%23 = and i64 %19, 4611686018427387902
br label %24
24: ; preds = %24, %22
%25 = phi i64 [ 0, %22 ], [ %54, %24 ]
%26 = phi <4 x i32> [ zeroinitializer, %22 ], [ %52, %24 ]
%27 = phi <4 x i32> [ zeroinitializer, %22 ], [ %53, %24 ]
%28 = phi i64 [ 0, %22 ], [ %55, %24 ]
%29 = getelementptr inbounds [1024 x i8], [1024 x i8]* %2, i64 0, i64 %25
%30 = bitcast i8* %29 to <4 x i8>*
%31 = load <4 x i8>, <4 x i8>* %30
%32 = getelementptr inbounds i8, i8* %29, i64 4
%33 = bitcast i8* %32 to <4 x i8>*
%34 = load <4 x i8>, <4 x i8>* %33
%35 = icmp eq <4 x i8> %31, <i8 68, i8 68, i8 68, i8 68>
%36 = icmp eq <4 x i8> %34, <i8 68, i8 68, i8 68, i8 68>
%37 = select <4 x i1> %35, <4 x i32> <i32 1, i32 1, i32 1, i32 1>, <4 x i32> <i32 -1, i32 -1, i32 -1, i32 -1>
%38 = select <4 x i1> %36, <4 x i32> <i32 1, i32 1, i32 1, i32 1>, <4 x i32> <i32 -1, i32 -1, i32 -1, i32 -1>
%39 = add <4 x i32> %37, %26
%40 = add <4 x i32> %38, %27
%41 = or i64 %25, 8
%42 = getelementptr inbounds [1024 x i8], [1024 x i8]* %2, i64 0, i64 %41
%43 = bitcast i8* %42 to <4 x i8>*
%44 = load <4 x i8>, <4 x i8>* %43
%45 = getelementptr inbounds i8, i8* %42, i64 4
%46 = bitcast i8* %45 to <4 x i8>*
%47 = load <4 x i8>, <4 x i8>* %46
%48 = icmp eq <4 x i8> %44, <i8 68, i8 68, i8 68, i8 68>
%49 = icmp eq <4 x i8> %47, <i8 68, i8 68, i8 68, i8 68>
%50 = select <4 x i1> %48, <4 x i32> <i32 1, i32 1, i32 1, i32 1>, <4 x i32> <i32 -1, i32 -1, i32 -1, i32 -1>
%51 = select <4 x i1> %49, <4 x i32> <i32 1, i32 1, i32 1, i32 1>, <4 x i32> <i32 -1, i32 -1, i32 -1, i32 -1>
%52 = add <4 x i32> %50, %39
%53 = add <4 x i32> %51, %40
%54 = add nuw i64 %25, 16
%55 = add i64 %28, 2
%56 = icmp eq i64 %55, %23
br i1 %56, label %57, label %24
57: ; preds = %24, %15
%58 = phi <4 x i32> [ undef, %15 ], [ %52, %24 ]
%59 = phi <4 x i32> [ undef, %15 ], [ %53, %24 ]
%60 = phi i64 [ 0, %15 ], [ %54, %24 ]
%61 = phi <4 x i32> [ zeroinitializer, %15 ], [ %52, %24 ]
%62 = phi <4 x i32> [ zeroinitializer, %15 ], [ %53, %24 ]
%63 = icmp eq i64 %20, 0
br i1 %63, label %77, label %64
64: ; preds = %57
%65 = getelementptr inbounds [1024 x i8], [1024 x i8]* %2, i64 0, i64 %60
%66 = bitcast i8* %65 to <4 x i8>*
%67 = load <4 x i8>, <4 x i8>* %66
%68 = getelementptr inbounds i8, i8* %65, i64 4
%69 = bitcast i8* %68 to <4 x i8>*
%70 = load <4 x i8>, <4 x i8>* %69
%71 = icmp eq <4 x i8> %67, <i8 68, i8 68, i8 68, i8 68>
%72 = icmp eq <4 x i8> %70, <i8 68, i8 68, i8 68, i8 68>
%73 = select <4 x i1> %71, <4 x i32> <i32 1, i32 1, i32 1, i32 1>, <4 x i32> <i32 -1, i32 -1, i32 -1, i32 -1>
%74 = select <4 x i1> %72, <4 x i32> <i32 1, i32 1, i32 1, i32 1>, <4 x i32> <i32 -1, i32 -1, i32 -1, i32 -1>
%75 = add <4 x i32> %73, %61
%76 = add <4 x i32> %74, %62
br label %77
77: ; preds = %57, %64
%78 = phi <4 x i32> [ %58, %57 ], [ %75, %64 ]
%79 = phi <4 x i32> [ %59, %57 ], [ %76, %64 ]
%80 = add <4 x i32> %79, %78
%81 = call i32 @llvm.vector.reduce.add.v4i32(<4 x i32> %80)
%82 = icmp eq i64 %16, %13
br i1 %82, label %96, label %83
83: ; preds = %12, %77
%84 = phi i64 [ 0, %12 ], [ %16, %77 ]
%85 = phi i32 [ 0, %12 ], [ %81, %77 ]
br label %86
86: ; preds = %83, %86
%87 = phi i64 [ %94, %86 ], [ %84, %83 ]
%88 = phi i32 [ %93, %86 ], [ %85, %83 ]
%89 = getelementptr inbounds [1024 x i8], [1024 x i8]* %2, i64 0, i64 %87
%90 = load i8, i8* %89
%91 = icmp eq i8 %90, 68
%92 = select i1 %91, i32 1, i32 -1
%93 = add nsw i32 %92, %88
%94 = add nuw nsw i64 %87, 1
%95 = icmp eq i64 %94, %13
br i1 %95, label %96, label %86
96: ; preds = %86, %77, %8
%97 = phi i32 [ 0, %8 ], [ %81, %77 ], [ %93, %86 ]
%98 = call i32 @imprimirDirecao(i32 %97)
%99 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str, i64 0, i64 0), i32* %1)
%100 = load i32, i32* %1
%101 = icmp eq i32 %100, 0
br i1 %101, label %102, label %8
102: ; preds = %96, %0
ret i32 0
}