program rimski;
var a,b,c:integer;
st1,st2,st3:string;
arr:array[1..10] of string;
begin
readln(st1);
a:=length(st1); c:=0;
for b:=1 to a do arr[b]:=copy(st1,b,1);
for b:=1 to a do begin

if arr[b]='L'then begin
if arr[b+1]='X'then begin
if arr[b+2]='X'then c:=b+1
else begin arr[b]:='X'; arr[b+1]:='L'; end;
end; end;

if arr[b]='X'then begin
if arr[b+1]='I'then begin
if arr[b+2]='I'then c:=b+1;
if arr[b+2]='V'then c:=b+1
else begin arr[b]:='I'; arr[b+1]:='X';
end; end; end;

if arr[b]='V'then begin
if arr[b+1]='I'then begin
if arr[b+2]='I'then c:=b+1
else begin arr[b]:='I'; arr[b+1]:='V';
end; end; end;
end;

for b:=1 to a do write(arr[b]);
end.