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


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
movl   $0x0,-0x4(%rbp)
movl   $0x0,-0x24(%rbp)
lea    -0x20(%rbp),%rsi
lea    0xeaf(%rip),%rdi
call   1050 <scanf@plt>
lea    -0x20(%rbp),%rdi
call   1030 <strlen@plt>
mov    %eax,-0x28(%rbp)
movl   $0x0,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x28(%rbp),%eax
jge    1340 <main+0x210>
movslq -0x2c(%rbp),%rax
movsbl -0x20(%rbp,%rax,1),%eax
cmp    $0x43,%eax
jne    1190 <main+0x60>
mov    -0x24(%rbp),%eax
add    $0x64,%eax
mov    %eax,-0x24(%rbp)
movslq -0x2c(%rbp),%rax
movsbl -0x20(%rbp,%rax,1),%eax
cmp    $0x4c,%eax
jne    11ab <main+0x7b>
mov    -0x24(%rbp),%eax
add    $0x32,%eax
mov    %eax,-0x24(%rbp)
movslq -0x2c(%rbp),%rax
movsbl -0x20(%rbp,%rax,1),%eax
cmp    $0x58,%eax
jne    11c6 <main+0x96>
mov    -0x24(%rbp),%eax
add    $0xa,%eax
mov    %eax,-0x24(%rbp)
movslq -0x2c(%rbp),%rax
movsbl -0x20(%rbp,%rax,1),%eax
cmp    $0x56,%eax
jne    11e1 <main+0xb1>
mov    -0x24(%rbp),%eax
add    $0x5,%eax
mov    %eax,-0x24(%rbp)
movslq -0x2c(%rbp),%rax
movsbl -0x20(%rbp,%rax,1),%eax
cmp    $0x49,%eax
jne    1220 <main+0xf0>
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
cltq
movsbl -0x20(%rbp,%rax,1),%eax
cmp    $0x58,%eax
jne    121b <main+0xeb>
mov    -0x24(%rbp),%eax
add    $0x9,%eax
mov    %eax,-0x24(%rbp)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    1220 <main+0xf0>
movslq -0x2c(%rbp),%rax
movsbl -0x20(%rbp,%rax,1),%eax
cmp    $0x49,%eax
jne    125f <main+0x12f>
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
cltq
movsbl -0x20(%rbp,%rax,1),%eax
cmp    $0x56,%eax
jne    125a <main+0x12a>
mov    -0x24(%rbp),%eax
add    $0x4,%eax
mov    %eax,-0x24(%rbp)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    125f <main+0x12f>
movslq -0x2c(%rbp),%rax
movsbl -0x20(%rbp,%rax,1),%eax
cmp    $0x49,%eax
jne    1295 <main+0x165>
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
cltq
movsbl -0x20(%rbp,%rax,1),%eax
cmp    $0x4c,%eax
jne    1290 <main+0x160>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    1295 <main+0x165>
movslq -0x2c(%rbp),%rax
movsbl -0x20(%rbp,%rax,1),%eax
cmp    $0x49,%eax
jne    12cb <main+0x19b>
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
cltq
movsbl -0x20(%rbp,%rax,1),%eax
cmp    $0x43,%eax
jne    12c6 <main+0x196>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    12cb <main+0x19b>
movslq -0x2c(%rbp),%rax
movsbl -0x20(%rbp,%rax,1),%eax
cmp    $0x49,%eax
jne    1301 <main+0x1d1>
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
cltq
movsbl -0x20(%rbp,%rax,1),%eax
cmp    $0x49,%eax
jne    12fc <main+0x1cc>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    1301 <main+0x1d1>
mov    -0x2c(%rbp),%eax
mov    -0x28(%rbp),%ecx
sub    $0x1,%ecx
cmp    %ecx,%eax
jne    132d <main+0x1fd>
movslq -0x2c(%rbp),%rax
movsbl -0x20(%rbp,%rax,1),%eax
cmp    $0x49,%eax
jne    132d <main+0x1fd>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    1332 <main+0x202>
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    1169 <main+0x39>
mov    -0x24(%rbp),%esi
lea    0xcbd(%rip),%rdi
mov    $0x0,%al
call   1040 <printf@plt>
lea    0xcb2(%rip),%rdi
mov    $0x0,%al
call   1040 <printf@plt>
xor    %eax,%eax
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rbx
sub    $0x20,%rsp
lea    0xeb4(%rip),%rdi
mov    %rsp,%rbx
mov    %rbx,%rsi
call   1060 <scanf@plt>
mov    %rbx,%rdi
call   1040 <strlen@plt>
test   %eax,%eax
jle    1242 <main+0x102>
lea    -0x1(%rax),%r8d
xor    %edx,%edx
xor    %esi,%esi
jmp    119f <main+0x5f>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
mov    %esi,%edi
lea    0x1(%rdx),%ebx
xor    %esi,%esi
cmp    %r8d,%edx
sete   %cl
and    %sil,%cl
movzbl %cl,%esi
add    %edi,%esi
mov    %ebx,%edx
cmp    %eax,%ebx
jge    1244 <main+0x104>
movslq %edx,%r9
movzbl (%rsp,%r9,1),%ecx
lea    0x64(%rsi),%edi
cmp    $0x43,%cl
cmovne %esi,%edi
lea    0x32(%rdi),%esi
cmp    $0x4c,%cl
cmovne %edi,%esi
lea    0xa(%rsi),%ebx
cmp    $0x58,%cl
cmovne %esi,%ebx
lea    0x5(%rbx),%edi
cmp    $0x56,%cl
cmovne %ebx,%edi
cmp    $0x49,%cl
jne    1182 <main+0x42>
lea    0x1(%r9),%rcx
lea    0x9(%rdi),%esi
cmpb   $0x58,0x1(%rsp,%r9,1)
cmovne %edi,%esi
mov    %r9d,%edx
cmove  %ecx,%edx
movslq %edx,%rbx
cmpb   $0x49,(%rsp,%rbx,1)
jne    1180 <main+0x40>
lea    0x1(%rbx),%rcx
lea    0x4(%rsi),%edi
cmpb   $0x56,0x1(%rsp,%rbx,1)
cmovne %esi,%edi
mov    %ebx,%edx
cmove  %ecx,%edx
movslq %edx,%rbx
cmpb   $0x49,(%rsp,%rbx,1)
jne    1182 <main+0x42>
movzbl 0x1(%rsp,%rbx,1),%ecx
add    $0x1,%rbx
xor    %esi,%esi
cmp    $0x4c,%cl
sete   %sil
add    %esi,%edi
xor    %esi,%esi
cmp    $0x43,%cl
sete   %sil
add    %edi,%esi
xor    %edi,%edi
cmp    $0x49,%cl
sete   %dil
add    %esi,%edi
mov    $0x1,%sil
jmp    1187 <main+0x47>
xor    %esi,%esi
lea    0xdbc(%rip),%rdi
xor    %eax,%eax
call   1050 <printf@plt>
mov    $0xa,%edi
call   1030 <putchar@plt>
xor    %eax,%eax
add    $0x20,%rsp
pop    %rbx
ret

LLVM IR (-O0):
@.str = [7 x i8] c"%[^\0A]s\00"
@.str.1 = [3 x i8] c"%d\00"
@.str.2 = [2 x i8] c"\0A\00"
define i32 @main() {
%1 = alloca i32
%2 = alloca [20 x i8]
%3 = alloca i32
%4 = alloca i32
%5 = alloca i32
store i32 0, i32* %1
store i32 0, i32* %3
%6 = getelementptr inbounds [20 x i8], [20 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 [20 x i8], [20 x i8]* %2, i64 0, i64 0
%9 = call i32 @strlen(i8* %8)
store i32 %9, i32* %4
store i32 0, i32* %5
br label %10
10: ; preds = %169, %0
%11 = load i32, i32* %5
%12 = load i32, i32* %4
%13 = icmp slt i32 %11, %12
br i1 %13, label %14, label %172
14: ; preds = %10
%15 = load i32, i32* %5
%16 = sext i32 %15 to i64
%17 = getelementptr inbounds [20 x i8], [20 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 %24
21: ; preds = %14
%22 = load i32, i32* %3
%23 = add nsw i32 %22, 100
store i32 %23, i32* %3
br label %24
24: ; preds = %21, %14
%25 = load i32, i32* %5
%26 = sext i32 %25 to i64
%27 = getelementptr inbounds [20 x i8], [20 x i8]* %2, i64 0, i64 %26
%28 = load i8, i8* %27
%29 = sext i8 %28 to i32
%30 = icmp eq i32 %29, 76
br i1 %30, label %31, label %34
31: ; preds = %24
%32 = load i32, i32* %3
%33 = add nsw i32 %32, 50
store i32 %33, i32* %3
br label %34
34: ; preds = %31, %24
%35 = load i32, i32* %5
%36 = sext i32 %35 to i64
%37 = getelementptr inbounds [20 x i8], [20 x i8]* %2, i64 0, i64 %36
%38 = load i8, i8* %37
%39 = sext i8 %38 to i32
%40 = icmp eq i32 %39, 88
br i1 %40, label %41, label %44
41: ; preds = %34
%42 = load i32, i32* %3
%43 = add nsw i32 %42, 10
store i32 %43, i32* %3
br label %44
44: ; preds = %41, %34
%45 = load i32, i32* %5
%46 = sext i32 %45 to i64
%47 = getelementptr inbounds [20 x i8], [20 x i8]* %2, i64 0, i64 %46
%48 = load i8, i8* %47
%49 = sext i8 %48 to i32
%50 = icmp eq i32 %49, 86
br i1 %50, label %51, label %54
51: ; preds = %44
%52 = load i32, i32* %3
%53 = add nsw i32 %52, 5
store i32 %53, i32* %3
br label %54
54: ; preds = %51, %44
%55 = load i32, i32* %5
%56 = sext i32 %55 to i64
%57 = getelementptr inbounds [20 x i8], [20 x i8]* %2, i64 0, i64 %56
%58 = load i8, i8* %57
%59 = sext i8 %58 to i32
%60 = icmp eq i32 %59, 73
br i1 %60, label %61, label %75
61: ; preds = %54
%62 = load i32, i32* %5
%63 = add nsw i32 %62, 1
%64 = sext i32 %63 to i64
%65 = getelementptr inbounds [20 x i8], [20 x i8]* %2, i64 0, i64 %64
%66 = load i8, i8* %65
%67 = sext i8 %66 to i32
%68 = icmp eq i32 %67, 88
br i1 %68, label %69, label %74
69: ; preds = %61
%70 = load i32, i32* %3
%71 = add nsw i32 %70, 9
store i32 %71, i32* %3
%72 = load i32, i32* %5
%73 = add nsw i32 %72, 1
store i32 %73, i32* %5
br label %74
74: ; preds = %69, %61
br label %75
75: ; preds = %74, %54
%76 = load i32, i32* %5
%77 = sext i32 %76 to i64
%78 = getelementptr inbounds [20 x i8], [20 x i8]* %2, i64 0, i64 %77
%79 = load i8, i8* %78
%80 = sext i8 %79 to i32
%81 = icmp eq i32 %80, 73
br i1 %81, label %82, label %96
82: ; preds = %75
%83 = load i32, i32* %5
%84 = add nsw i32 %83, 1
%85 = sext i32 %84 to i64
%86 = getelementptr inbounds [20 x i8], [20 x i8]* %2, i64 0, i64 %85
%87 = load i8, i8* %86
%88 = sext i8 %87 to i32
%89 = icmp eq i32 %88, 86
br i1 %89, label %90, label %95
90: ; preds = %82
%91 = load i32, i32* %3
%92 = add nsw i32 %91, 4
store i32 %92, i32* %3
%93 = load i32, i32* %5
%94 = add nsw i32 %93, 1
store i32 %94, i32* %5
br label %95
95: ; preds = %90, %82
br label %96
96: ; preds = %95, %75
%97 = load i32, i32* %5
%98 = sext i32 %97 to i64
%99 = getelementptr inbounds [20 x i8], [20 x i8]* %2, i64 0, i64 %98
%100 = load i8, i8* %99
%101 = sext i8 %100 to i32
%102 = icmp eq i32 %101, 73
br i1 %102, label %103, label %115
103: ; preds = %96
%104 = load i32, i32* %5
%105 = add nsw i32 %104, 1
%106 = sext i32 %105 to i64
%107 = getelementptr inbounds [20 x i8], [20 x i8]* %2, i64 0, i64 %106
%108 = load i8, i8* %107
%109 = sext i8 %108 to i32
%110 = icmp eq i32 %109, 76
br i1 %110, label %111, label %114
111: ; preds = %103
%112 = load i32, i32* %3
%113 = add nsw i32 %112, 1
store i32 %113, i32* %3
br label %114
114: ; preds = %111, %103
br label %115
115: ; preds = %114, %96
%116 = load i32, i32* %5
%117 = sext i32 %116 to i64
%118 = getelementptr inbounds [20 x i8], [20 x i8]* %2, i64 0, i64 %117
%119 = load i8, i8* %118
%120 = sext i8 %119 to i32
%121 = icmp eq i32 %120, 73
br i1 %121, label %122, label %134
122: ; preds = %115
%123 = load i32, i32* %5
%124 = add nsw i32 %123, 1
%125 = sext i32 %124 to i64
%126 = getelementptr inbounds [20 x i8], [20 x i8]* %2, i64 0, i64 %125
%127 = load i8, i8* %126
%128 = sext i8 %127 to i32
%129 = icmp eq i32 %128, 67
br i1 %129, label %130, label %133
130: ; preds = %122
%131 = load i32, i32* %3
%132 = add nsw i32 %131, 1
store i32 %132, i32* %3
br label %133
133: ; preds = %130, %122
br label %134
134: ; preds = %133, %115
%135 = load i32, i32* %5
%136 = sext i32 %135 to i64
%137 = getelementptr inbounds [20 x i8], [20 x i8]* %2, i64 0, i64 %136
%138 = load i8, i8* %137
%139 = sext i8 %138 to i32
%140 = icmp eq i32 %139, 73
br i1 %140, label %141, label %153
141: ; preds = %134
%142 = load i32, i32* %5
%143 = add nsw i32 %142, 1
%144 = sext i32 %143 to i64
%145 = getelementptr inbounds [20 x i8], [20 x i8]* %2, i64 0, i64 %144
%146 = load i8, i8* %145
%147 = sext i8 %146 to i32
%148 = icmp eq i32 %147, 73
br i1 %148, label %149, label %152
149: ; preds = %141
%150 = load i32, i32* %3
%151 = add nsw i32 %150, 1
store i32 %151, i32* %3
br label %152
152: ; preds = %149, %141
br label %153
153: ; preds = %152, %134
%154 = load i32, i32* %5
%155 = load i32, i32* %4
%156 = sub nsw i32 %155, 1
%157 = icmp eq i32 %154, %156
br i1 %157, label %158, label %168
158: ; preds = %153
%159 = load i32, i32* %5
%160 = sext i32 %159 to i64
%161 = getelementptr inbounds [20 x i8], [20 x i8]* %2, i64 0, i64 %160
%162 = load i8, i8* %161
%163 = sext i8 %162 to i32
%164 = icmp eq i32 %163, 73
br i1 %164, label %165, label %168
165: ; preds = %158
%166 = load i32, i32* %3
%167 = add nsw i32 %166, 1
store i32 %167, i32* %3
br label %168
168: ; preds = %165, %158, %153
br label %169
169: ; preds = %168
%170 = load i32, i32* %5
%171 = add nsw i32 %170, 1
store i32 %171, i32* %5
br label %10
172: ; preds = %10
%173 = load i32, i32* %3
%174 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str.1, i64 0, i64 0), i32 %173)
%175 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str.2, i64 0, i64 0))
ret i32 0
}

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