#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*/ freopen(char *, char *, int /*<<< orphan*/);
scalar_t__ isdigit(char);
int /*<<< orphan*/ printf(char *, int, char);
int /*<<< orphan*/ putchar(char);
int /*<<< orphan*/ scanf(char *, char *, char *);
int /*<<< orphan*/ stdin;
int /*<<< orphan*/ stdout;
int strlen(char *);
int main() {
  char command, string[100001], compressed[100001];
  int i, j, q, len, sum, numcompressed[100000];
  freopen("compress.in", "r", stdin);
  freopen("compress.out", "w", stdout);
  scanf("%c\n%s", &command, string);
  len = strlen(string);
  if (command == 'D') {
    for (i = 0; i < len; i += 1) {
      j = 0;
      while (isdigit(string[i])) {
        j *= 10;
        j += string[i] - '0';
        i += 1;
      }
      while (j--) {
        putchar(string[i]);
      }
    }
  } else {
    for (i = q = 0; q < len; ++i) {
      compressed[i] = string[q];
      for (sum = 0; compressed[i] == string[q]; ++q, ++sum)
        ;
      numcompressed[i] = sum;
    }
    for (j = 0; j < i; ++j) {
      printf("%d%c", numcompressed[j], compressed[j]);
    }
  }
  putchar('\n');
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x92800,%rsp
movl   $0x0,-0x4(%rbp)
mov    0x2e6f(%rip),%rax
mov    (%rax),%edx
lea    0xe7e(%rip),%rdi
lea    0xe83(%rip),%rsi
call   1070 <freopen@plt>
mov    0x2e43(%rip),%rax
mov    (%rax),%edx
lea    0xe70(%rip),%rdi
lea    0xe76(%rip),%rsi
call   1070 <freopen@plt>
lea    -0x186b0(%rbp),%rdx
lea    0xe65(%rip),%rdi
lea    -0x5(%rbp),%rsi
call   1080 <scanf@plt>
lea    -0x186b0(%rbp),%rdi
call   1050 <strlen@plt>
mov    %eax,-0x30d70(%rbp)
movsbl -0x5(%rbp),%eax
cmp    $0x44,%eax
jne    12b9 <main+0x159>
movl   $0x0,-0x30d64(%rbp)
mov    -0x30d64(%rbp),%eax
cmp    -0x30d70(%rbp),%eax
jge    12b4 <main+0x154>
movl   $0x0,-0x30d68(%rbp)
movslq -0x30d64(%rbp),%rax
movsbl -0x186b0(%rbp,%rax,1),%edi
ff
call   1040 <isdigit@plt>
cmp    $0x0,%rax
je     1263 <main+0x103>
imul   $0xa,-0x30d68(%rbp),%eax
mov    %eax,-0x30d68(%rbp)
movslq -0x30d64(%rbp),%rax
movsbl -0x186b0(%rbp,%rax,1),%eax
ff
sub    $0x30,%eax
add    -0x30d68(%rbp),%eax
mov    %eax,-0x30d68(%rbp)
mov    -0x30d64(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30d64(%rbp)
jmp    1206 <main+0xa6>
jmp    1268 <main+0x108>
mov    -0x30d68(%rbp),%eax
mov    %eax,%ecx
add    $0xffffffff,%ecx
mov    %ecx,-0x30d68(%rbp)
cmp    $0x0,%eax
je     129b <main+0x13b>
movslq -0x30d64(%rbp),%rax
movsbl -0x186b0(%rbp,%rax,1),%edi
ff
call   1030 <putchar@plt>
jmp    1268 <main+0x108>
jmp    12a0 <main+0x140>
mov    -0x30d64(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30d64(%rbp)
jmp    11ea <main+0x8a>
jmp    13d9 <main+0x279>
movl   $0x0,-0x30d6c(%rbp)
movl   $0x0,-0x30d64(%rbp)
mov    -0x30d6c(%rbp),%eax
cmp    -0x30d70(%rbp),%eax
jge    137b <main+0x21b>
movslq -0x30d6c(%rbp),%rax
mov    -0x186b0(%rbp,%rax,1),%cl
movslq -0x30d64(%rbp),%rax
mov    %cl,-0x30d60(%rbp,%rax,1)
movl   $0x0,-0x30d74(%rbp)
movslq -0x30d64(%rbp),%rax
movsbl -0x30d60(%rbp,%rax,1),%eax
ff
movslq -0x30d6c(%rbp),%rcx
movsbl -0x186b0(%rbp,%rcx,1),%ecx
ff
cmp    %ecx,%eax
jne    1353 <main+0x1f3>
jmp    1330 <main+0x1d0>
mov    -0x30d6c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30d6c(%rbp)
mov    -0x30d74(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30d74(%rbp)
jmp    1305 <main+0x1a5>
mov    -0x30d74(%rbp),%ecx
movslq -0x30d64(%rbp),%rax
mov    %ecx,-0x92800(%rbp,%rax,4)
mov    -0x30d64(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30d64(%rbp)
jmp    12cd <main+0x16d>
movl   $0x0,-0x30d68(%rbp)
mov    -0x30d68(%rbp),%eax
cmp    -0x30d64(%rbp),%eax
jge    13d4 <main+0x274>
movslq -0x30d68(%rbp),%rax
mov    -0x92800(%rbp,%rax,4),%esi
movslq -0x30d68(%rbp),%rax
lea    0xc70(%rip),%rdi
movsbl -0x30d60(%rbp,%rax,1),%edx
ff
call   1060 <printf@plt>
mov    -0x30d68(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30d68(%rbp)
jmp    1385 <main+0x225>
jmp    13d9 <main+0x279>
mov    $0xa,%edi
call   1030 <putchar@plt>
xor    %eax,%eax
add    $0x92800,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rbp
push   %r15
push   %r14
push   %rbx
sub    $0x927f8,%rsp
mov    0x2e74(%rip),%rax
mov    (%rax),%edx
lea    0xe83(%rip),%rdi
lea    0xe88(%rip),%rsi
call   1070 <freopen@plt>
mov    0x2e48(%rip),%rax
mov    (%rax),%edx
lea    0xe75(%rip),%rdi
lea    0xe7b(%rip),%rsi
call   1070 <freopen@plt>
lea    0xe71(%rip),%rdi
lea    0xf(%rsp),%rsi
lea    0x10(%rsp),%rbx
mov    %rbx,%rdx
call   1080 <scanf@plt>
mov    %rbx,%rdi
call   1050 <strlen@plt>
mov    %eax,%r14d
cmpb   $0x44,0xf(%rsp)
jne    124f <main+0xef>
test   %r14d,%r14d
jle    12f0 <main+0x190>
xor    %r15d,%r15d
jmp    11ed <main+0x8d>
xchg   %ax,%ax
add    $0x1,%r15d
cmp    %r14d,%r15d
jge    12f0 <main+0x190>
movslq %r15d,%rbx
movsbl 0x10(%rsp,%rbx,1),%edi
call   1040 <isdigit@plt>
test   %rax,%rax
je     11e0 <main+0x80>
add    %rsp,%rbx
add    $0x10,%rbx
xor    %ebp,%ebp
nopl   0x0(%rax,%rax,1)
lea    0x0(%rbp,%rbp,4),%eax
movsbl (%rbx),%ecx
lea    (%rcx,%rax,2),%ebp
add    $0xffffffd0,%ebp
movsbl 0x1(%rbx),%edi
add    $0x1,%rbx
call   1040 <isdigit@plt>
add    $0x1,%r15d
test   %rax,%rax
jne    1210 <main+0xb0>
test   %ebp,%ebp
je     11e0 <main+0x80>
nopw   0x0(%rax,%rax,1)
movsbl (%rbx),%edi
call   1030 <putchar@plt>
add    $0xffffffff,%ebp
jne    1240 <main+0xe0>
jmp    11e0 <main+0x80>
test   %r14d,%r14d
jle    12f0 <main+0x190>
mov    $0x1,%edi
xor    %eax,%eax
xor    %ebp,%ebp
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
mov    %edi,%ecx
movslq %ebp,%rdx
mov    0x10(%rsp,%rdx,1),%bl
mov    %bl,0x186c0(%rsp,%rax,1)
xor    %edi,%edi
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
mov    %rdx,%rsi
add    $0x1,%rdx
add    $0x1,%edi
cmp    0x11(%rsp,%rsi,1),%bl
je     1290 <main+0x130>
add    %edi,%ebp
mov    %edi,0x30d70(%rsp,%rax,4)
add    $0x1,%rax
lea    0x1(%rcx),%edi
cmp    %ebp,%r14d
mov    %rdx,%rbp
jg     1270 <main+0x110>
test   %eax,%eax
je     12f0 <main+0x190>
mov    %ecx,%ebp
xor    %ebx,%ebx
lea    0xd5c(%rip),%r14
nopw   0x0(%rax,%rax,1)
mov    0x30d70(%rsp,%rbx,4),%esi
movsbl 0x186c0(%rsp,%rbx,1),%edx
mov    %r14,%rdi
call   1060 <printf@plt>
add    $0x1,%rbx
cmp    %rbx,%rbp
jne    12d0 <main+0x170>
mov    $0xa,%edi
call   1030 <putchar@plt>
xor    %eax,%eax
add    $0x927f8,%rsp
pop    %rbx
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
@.str = [12 x i8] c"compress.in\00"
@.str.1 = [2 x i8] c"r\00"
@stdin = global i32 0
@.str.2 = [13 x i8] c"compress.out\00"
@.str.3 = [2 x i8] c"w\00"
@stdout = global i32 0
@.str.4 = [6 x i8] c"%c\0A%s\00"
@.str.5 = [5 x i8] c"%d%c\00"
define i32 @main() {
%1 = alloca i8
%2 = alloca [100001 x i8]
%3 = alloca [100001 x i8]
%4 = alloca [100000 x i32]
%5 = getelementptr inbounds [100001 x i8], [100001 x i8]* %2, i64 0, i64 0
%6 = getelementptr inbounds [100001 x i8], [100001 x i8]* %3, i64 0, i64 0
%7 = bitcast [100000 x i32]* %4 to i8*
%8 = load i32, i32* @stdin
%9 = tail call i32 @freopen(i8* getelementptr inbounds ([12 x i8], [12 x i8]* @.str, i64 0, i64 0), i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str.1, i64 0, i64 0), i32 %8)
%10 = load i32, i32* @stdout
%11 = tail call i32 @freopen(i8* getelementptr inbounds ([13 x i8], [13 x i8]* @.str.2, i64 0, i64 0), i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str.3, i64 0, i64 0), i32 %10)
%12 = call i32 @scanf(i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str.4, i64 0, i64 0), i8* %1, i8* %5)
%13 = call i32 @strlen(i8* %5)
%14 = load i8, i8* %1
%15 = icmp eq i8 %14, 68
%16 = icmp sgt i32 %13, 0
br i1 %15, label %18, label %17
17: ; preds = %0
br i1 %16, label %58, label %88
18: ; preds = %0
br i1 %16, label %19, label %88
19: ; preds = %18, %49
%20 = phi i32 [ %51, %49 ], [ 0, %18 ]
%21 = sext i32 %20 to i64
%22 = getelementptr inbounds [100001 x i8], [100001 x i8]* %2, i64 0, i64 %21
%23 = load i8, i8* %22
%24 = call i64 @isdigit(i8 signext %23)
%25 = icmp eq i64 %24, 0
br i1 %25, label %49, label %29
26: ; preds = %29
%27 = trunc i64 %38 to i32
%28 = icmp eq i32 %37, 0
br i1 %28, label %49, label %43
29: ; preds = %19, %29
%30 = phi i64 [ %38, %29 ], [ %21, %19 ]
%31 = phi i8* [ %39, %29 ], [ %22, %19 ]
%32 = phi i32 [ %37, %29 ], [ 0, %19 ]
%33 = mul nsw i32 %32, 10
%34 = load i8, i8* %31
%35 = sext i8 %34 to i32
%36 = add i32 %33, -48
%37 = add i32 %36, %35
%38 = add i64 %30, 1
%39 = getelementptr inbounds [100001 x i8], [100001 x i8]* %2, i64 0, i64 %38
%40 = load i8, i8* %39
%41 = call i64 @isdigit(i8 signext %40)
%42 = icmp eq i64 %41, 0
br i1 %42, label %26, label %29
43: ; preds = %26, %43
%44 = phi i32 [ %45, %43 ], [ %37, %26 ]
%45 = add nsw i32 %44, -1
%46 = load i8, i8* %39
%47 = call i32 @putchar(i8 signext %46)
%48 = icmp eq i32 %45, 0
br i1 %48, label %49, label %43
49: ; preds = %43, %19, %26
%50 = phi i32 [ %27, %26 ], [ %20, %19 ], [ %27, %43 ]
%51 = add nsw i32 %50, 1
%52 = icmp slt i32 %51, %13
br i1 %52, label %19, label %88
53: ; preds = %74
%54 = trunc i64 %77 to i32
%55 = icmp eq i32 %54, 0
br i1 %55, label %88, label %56
56: ; preds = %53
%57 = and i64 %77, 4294967295
br label %79
58: ; preds = %17, %74
%59 = phi i64 [ %77, %74 ], [ 0, %17 ]
%60 = phi i64 [ %69, %74 ], [ 0, %17 ]
%61 = shl i64 %60, 32
%62 = ashr exact i64 %61, 32
%63 = getelementptr inbounds [100001 x i8], [100001 x i8]* %2, i64 0, i64 %62
%64 = load i8, i8* %63
%65 = getelementptr inbounds [100001 x i8], [100001 x i8]* %3, i64 0, i64 %59
store i8 %64, i8* %65
br label %66
66: ; preds = %58, %66
%67 = phi i64 [ %62, %58 ], [ %69, %66 ]
%68 = phi i32 [ 0, %58 ], [ %70, %66 ]
%69 = add i64 %67, 1
%70 = add nuw nsw i32 %68, 1
%71 = getelementptr inbounds [100001 x i8], [100001 x i8]* %2, i64 0, i64 %69
%72 = load i8, i8* %71
%73 = icmp eq i8 %64, %72
br i1 %73, label %66, label %74
74: ; preds = %66
%75 = trunc i64 %69 to i32
%76 = getelementptr inbounds [100000 x i32], [100000 x i32]* %4, i64 0, i64 %59
store i32 %70, i32* %76
%77 = add nuw i64 %59, 1
%78 = icmp sgt i32 %13, %75
br i1 %78, label %58, label %53
79: ; preds = %56, %79
%80 = phi i64 [ 0, %56 ], [ %86, %79 ]
%81 = getelementptr inbounds [100000 x i32], [100000 x i32]* %4, i64 0, i64 %80
%82 = load i32, i32* %81
%83 = getelementptr inbounds [100001 x i8], [100001 x i8]* %3, i64 0, i64 %80
%84 = load i8, i8* %83
%85 = call i32 @printf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.5, i64 0, i64 0), i32 %82, i8 signext %84)
%86 = add nuw nsw i64 %80, 1
%87 = icmp eq i64 %86, %57
br i1 %87, label %88, label %79
88: ; preds = %79, %49, %17, %53, %18
%89 = call i32 @putchar(i8 signext 10)
ret i32 0
}