program rimski;
var a:string[7];
    i,j:integer;
    c:string[1];
begin
readln(a);
for j:=1 to length(a) do begin
for i:=1 to length(a) do begin
 if (a[i]='I') and (a[i+1]<>'I') and (i<>1) and (a[i+1]<>'X') and (a[i+1]<>'V') and (a[i+1]<>'X') then
                                                                                     begin
                                                                                      c[1]:=a[i];
                                                                                      a[i]:=a[i-1];
                                                                                      a[i-1]:=c[1];
                                                                                     end;
 if (a[i]='X') and (a[i+1]<>'X') and (i<>1)  then begin
                                                  c[1]:=a[i];
                                                  a[i]:=a[i-1];
                                                  a[i-1]:=c[1];
                                                 end;
                         end;
                         end;
for i:=1 to length(a) do begin
if (a[i]='L') and (a[i+1]='X') and (a[i+2]='X') and (a[i+3]='I') then begin
                                                                       a[i]:='X';
                                                                       a[i+1]:='L';
                                                                       a[i+2]:='I';
                                                                       a[i+3]:='X';
                                                                      end;
if (a[i]='X') and (a[i+1]='I') and(a[i+2]='L') then begin
                                                     a[i]:='X';
                                                     a[i+1]:='L';
                                                     a[i+2]:='I';
                                                    end;
if (a[i]='L') and (a[i+1]='X') and (a[i+2]='X') and (a[i+3]='X') and (a[i+4]='I') then begin
                                                                       a[i]:='L';
                                                                       a[i+1]:='X';
                                                                       a[i+2]:='X';
                                                                       a[i+3]:='I';
                                                                       a[i+4]:='X';
                                                                      end;
                         end;
writeln(a);
end.