#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*/ printf(char *, int);
int /*<<< orphan*/ scanf(char *, char *);
int strlen(char *);
int main() {
  char roman[10];
  int l, i, decimal = 0;
  scanf("%[^\n]s", roman);
  l = strlen(roman);
  for (i = 0; i < l; i++) {
    if (roman[i] == 'C') {
      decimal = decimal + 100;
      if (i != 0) {
        if (roman[i - 1] == 'X')
          decimal = decimal - 20;
      }
    }
    if (roman[i] == 'L') {
      decimal = decimal + 50;
      if (i != 0) {
        if (roman[i - 1] == 'X')
          decimal = decimal - 20;
      }
    }
    if (roman[i] == 'X') {
      decimal = decimal + 10;
      if (i != 0) {
        if (roman[i - 1] == 'I')
          decimal = decimal - 2;
      }
    }
    if (roman[i] == 'V') {
      decimal = decimal + 5;
      if (i != 0) {
        if (roman[i - 1] == 'I')
          decimal = decimal - 2;
      }
    }
    if (roman[i] == 'I')
      decimal++;
  }
  printf("%d\n", decimal);
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x20,%rsp
movl   $0x0,-0x4(%rbp)
movl   $0x0,-0x1c(%rbp)
lea    -0xe(%rbp),%rsi
lea    0xeaf(%rip),%rdi
call   1050 <scanf@plt>
lea    -0xe(%rbp),%rdi
call   1030 <strlen@plt>
mov    %eax,-0x14(%rbp)
movl   $0x0,-0x18(%rbp)
mov    -0x18(%rbp),%eax
cmp    -0x14(%rbp),%eax
jge    12db <main+0x1ab>
movslq -0x18(%rbp),%rax
movsbl -0xe(%rbp,%rax,1),%eax
cmp    $0x43,%eax
jne    11c3 <main+0x93>
mov    -0x1c(%rbp),%eax
add    $0x64,%eax
mov    %eax,-0x1c(%rbp)
cmpl   $0x0,-0x18(%rbp)
je     11be <main+0x8e>
mov    -0x18(%rbp),%eax
sub    $0x1,%eax
cltq
movsbl -0xe(%rbp,%rax,1),%eax
cmp    $0x58,%eax
jne    11b9 <main+0x89>
mov    -0x1c(%rbp),%eax
sub    $0x14,%eax
mov    %eax,-0x1c(%rbp)
jmp    11be <main+0x8e>
jmp    11c3 <main+0x93>
movslq -0x18(%rbp),%rax
movsbl -0xe(%rbp,%rax,1),%eax
cmp    $0x4c,%eax
jne    1211 <main+0xe1>
mov    -0x1c(%rbp),%eax
add    $0x32,%eax
mov    %eax,-0x1c(%rbp)
cmpl   $0x0,-0x18(%rbp)
je     120c <main+0xdc>
mov    -0x18(%rbp),%eax
sub    $0x1,%eax
cltq
movsbl -0xe(%rbp,%rax,1),%eax
cmp    $0x58,%eax
jne    1207 <main+0xd7>
mov    -0x1c(%rbp),%eax
sub    $0x14,%eax
mov    %eax,-0x1c(%rbp)
jmp    120c <main+0xdc>
jmp    1211 <main+0xe1>
movslq -0x18(%rbp),%rax
movsbl -0xe(%rbp,%rax,1),%eax
cmp    $0x58,%eax
jne    125f <main+0x12f>
mov    -0x1c(%rbp),%eax
add    $0xa,%eax
mov    %eax,-0x1c(%rbp)
cmpl   $0x0,-0x18(%rbp)
je     125a <main+0x12a>
mov    -0x18(%rbp),%eax
sub    $0x1,%eax
cltq
movsbl -0xe(%rbp,%rax,1),%eax
cmp    $0x49,%eax
jne    1255 <main+0x125>
mov    -0x1c(%rbp),%eax
sub    $0x2,%eax
mov    %eax,-0x1c(%rbp)
jmp    125a <main+0x12a>
jmp    125f <main+0x12f>
movslq -0x18(%rbp),%rax
movsbl -0xe(%rbp,%rax,1),%eax
cmp    $0x56,%eax
jne    12ad <main+0x17d>
mov    -0x1c(%rbp),%eax
add    $0x5,%eax
mov    %eax,-0x1c(%rbp)
cmpl   $0x0,-0x18(%rbp)
je     12a8 <main+0x178>
mov    -0x18(%rbp),%eax
sub    $0x1,%eax
cltq
movsbl -0xe(%rbp,%rax,1),%eax
cmp    $0x49,%eax
jne    12a3 <main+0x173>
mov    -0x1c(%rbp),%eax
sub    $0x2,%eax
mov    %eax,-0x1c(%rbp)
jmp    12a8 <main+0x178>
jmp    12ad <main+0x17d>
movslq -0x18(%rbp),%rax
movsbl -0xe(%rbp,%rax,1),%eax
cmp    $0x49,%eax
jne    12c8 <main+0x198>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    12cd <main+0x19d>
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
jmp    1169 <main+0x39>
mov    -0x1c(%rbp),%esi
lea    0xd22(%rip),%rdi
call   1040 <printf@plt>
xor    %eax,%eax
add    $0x20,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rbx
sub    $0x10,%rsp
lea    0xf74(%rip),%rdi
lea    0x6(%rsp),%rbx
mov    %rbx,%rsi
call   1050 <scanf@plt>
mov    %rbx,%rdi
call   1030 <strlen@plt>
test   %eax,%eax
jle    117f <main+0x4f>
xor    %ecx,%ecx
mov    0x6(%rsp),%dl
lea    -0x43(%rdx),%esi
cmp    $0x15,%sil
ja     1196 <main+0x66>
movzbl %sil,%esi
lea    0xe91(%rip),%rdi
movslq (%rdi,%rsi,4),%rsi
add    %rdi,%rsi
jmp    *%rsi
mov    $0x64,%ecx
jmp    1196 <main+0x66>
xor    %esi,%esi
jmp    11a6 <main+0x76>
mov    $0x32,%ecx
jmp    1196 <main+0x66>
mov    $0x5,%ecx
jmp    1196 <main+0x66>
mov    $0xa,%ecx
xor    %esi,%esi
cmp    $0x49,%dl
sete   %sil
add    %ecx,%esi
cmp    $0x1,%eax
jne    11ba <main+0x8a>
lea    0xf0a(%rip),%rdi
call   1040 <printf@plt>
xor    %eax,%eax
add    $0x10,%rsp
pop    %rbx
ret
mov    %eax,%eax
add    $0xffffffffffffffff,%rax
xor    %ecx,%ecx
lea    0xe8f(%rip),%rdx
jmp    11f4 <main+0xc4>
nopl   0x0(%rax,%rax,1)
xor    %ebx,%ebx
cmpb   $0x49,0x6(%rsp,%rcx,1)
setne  %bl
lea    (%rsi,%rbx,2),%esi
add    $0x3,%esi
xor    %ebx,%ebx
cmp    $0x49,%dil
sete   %bl
add    %ebx,%esi
add    $0x1,%rcx
cmp    %rcx,%rax
je     11a6 <main+0x76>
movzbl 0x7(%rsp,%rcx,1),%edi
lea    -0x43(%rdi),%ebx
cmp    $0x15,%bl
ja     11e0 <main+0xb0>
movzbl %bl,%ebx
movslq (%rdx,%rbx,4),%rbx
add    %rdx,%rbx
jmp    *%rbx
lea    0x64(%rsi),%ebx
add    $0x50,%esi
jmp    1226 <main+0xf6>
cs nopw 0x0(%rax,%rax,1)
nop
lea    0x32(%rsi),%ebx
add    $0x1e,%esi
cmpb   $0x58,0x6(%rsp,%rcx,1)
cmovne %ebx,%esi
jmp    11e0 <main+0xb0>
xor    %ebx,%ebx
cmpb   $0x49,0x6(%rsp,%rcx,1)
setne  %bl
lea    (%rsi,%rbx,2),%esi
add    $0x8,%esi
jmp    11e0 <main+0xb0>

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

LLVM IR (-O2):
@.str = [7 x i8] c"%[^\0A]s\00"
@.str.1 = [4 x i8] c"%d\0A\00"
define i32 @main() {
%1 = alloca [10 x i8]
%2 = getelementptr inbounds [10 x i8], [10 x i8]* %1, i64 0, i64 0
%3 = call i32 @scanf(i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str, i64 0, i64 0), i8* %2)
%4 = call i32 @strlen(i8* %2)
%5 = icmp sgt i32 %4, 0
br i1 %5, label %6, label %59
6: ; preds = %0
%7 = zext i32 %4 to i64
%8 = load i8, i8* %2
switch i8 %8, label %13 [
i8 67, label %12
i8 76, label %11
i8 88, label %10
i8 86, label %9
]
9: ; preds = %6
br label %13
10: ; preds = %6
br label %13
11: ; preds = %6
br label %13
12: ; preds = %6
br label %13
13: ; preds = %12, %11, %10, %9, %6
%14 = phi i32 [ 5, %9 ], [ 10, %10 ], [ 50, %11 ], [ 100, %12 ], [ 0, %6 ]
%15 = icmp eq i8 %8, 73
%16 = zext i1 %15 to i32
%17 = add nuw nsw i32 %14, %16
%18 = icmp eq i32 %4, 1
br i1 %18, label %59, label %19
19: ; preds = %13, %52
%20 = phi i64 [ %57, %52 ], [ 1, %13 ]
%21 = phi i32 [ %56, %52 ], [ %17, %13 ]
%22 = getelementptr inbounds [10 x i8], [10 x i8]* %1, i64 0, i64 %20
%23 = load i8, i8* %22
switch i8 %23, label %52 [
i8 67, label %24
i8 76, label %31
i8 88, label %38
i8 86, label %45
]
24: ; preds = %19
%25 = add nsw i64 %20, -1
%26 = getelementptr inbounds [10 x i8], [10 x i8]* %1, i64 0, i64 %25
%27 = load i8, i8* %26
%28 = icmp eq i8 %27, 88
%29 = select i1 %28, i32 80, i32 100
%30 = add nsw i32 %21, %29
br label %52
31: ; preds = %19
%32 = add nsw i64 %20, -1
%33 = getelementptr inbounds [10 x i8], [10 x i8]* %1, i64 0, i64 %32
%34 = load i8, i8* %33
%35 = icmp eq i8 %34, 88
%36 = select i1 %35, i32 30, i32 50
%37 = add nsw i32 %21, %36
br label %52
38: ; preds = %19
%39 = add nsw i64 %20, -1
%40 = getelementptr inbounds [10 x i8], [10 x i8]* %1, i64 0, i64 %39
%41 = load i8, i8* %40
%42 = icmp eq i8 %41, 73
%43 = select i1 %42, i32 8, i32 10
%44 = add nsw i32 %21, %43
br label %52
45: ; preds = %19
%46 = add nsw i64 %20, -1
%47 = getelementptr inbounds [10 x i8], [10 x i8]* %1, i64 0, i64 %46
%48 = load i8, i8* %47
%49 = icmp eq i8 %48, 73
%50 = select i1 %49, i32 3, i32 5
%51 = add nsw i32 %21, %50
br label %52
52: ; preds = %19, %24, %31, %38, %45
%53 = phi i32 [ %51, %45 ], [ %44, %38 ], [ %37, %31 ], [ %30, %24 ], [ %21, %19 ]
%54 = icmp eq i8 %23, 73
%55 = zext i1 %54 to i32
%56 = add nsw i32 %53, %55
%57 = add nuw nsw i64 %20, 1
%58 = icmp eq i64 %57, %7
br i1 %58, label %59, label %19
59: ; preds = %52, %13, %0
%60 = phi i32 [ 0, %0 ], [ %17, %13 ], [ %56, %52 ]
%61 = call i32 @printf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.1, i64 0, i64 0), i32 %60)
ret i32 0
}