program rimski;
var broj:string;
    a:string;
    i:integer;
begin
     readln(broj);
     for i:=1 to length(broj)-1 do begin
     if (broj[i]='V') and (broj[i+1]='I') and ((broj[i+2]<>'I')or(i+2>length(broj))) then begin
                                                                                                          a:=broj[i];
                                                                                                          broj[i]:=broj[i+1];
                                                                                                          broj[i+1]:=a[1];
                                                                                                     end;
     if (broj[i]='X') and (broj[i+1]='I') and ((broj[i+2]<>'I') and (broj[i+2]<>'X')or(i+2>length(broj))) then begin
                                                                                                          a:=broj[i];
                                                                                                          broj[i]:=broj[i+1];
                                                                                                          broj[i+1]:=a[1];

                                                                                                     end;
     if (broj[i]='L') and (broj[i+1]='X') and ((broj[i+2]<>'I')or(i+2>length(broj))) then begin
                                                                                                          a:=broj[i];
                                                                                                          broj[i]:=broj[i+1];
                                                                                                          broj[i+1]:=a[1];
                                                                                                     end;
     if (broj[i]='L') and (broj[i+1]='I') and ((broj[i+2]<>'I') and (broj[i+2]<>'X')or(i+2>length(broj))) then begin
                                                                                                          a:=broj[i];
                                                                                                          broj[i]:=broj[i+1];
                                                                                                          broj[i+1]:=a[1];
                                                                                                     end;
                                 end;
     writeln(broj);
end.