program xz;
var r,ds:string;i,j,d,bi,bi2,bv,bv2,bx,bx2,bl,bl2,bc,bc2:integer;
begin
 readln(r);
 for i:=1 to length(r) do
 begin
  case r[i] of
   'I':inc(bi);
   'V':inc(bv);
   'X':inc(bx);
   'L':inc(bl);
   'C':inc(bc);
  end;
 end;

 for i:=1 to 99 do
 begin
  ds:='';bi2:=0;bv2:=0;bx2:=0;bl2:=0;bc2:=0;
  d:=i div 10;
  case d of
   1:ds:=ds+'X';
   2:ds:=ds+'XX';
   3:ds:=ds+'XXX';
   4:ds:=ds+'XL';
   5:ds:=ds+'L';
   6:ds:=ds+'LX';
   7:ds:=ds+'LXX';
   8:ds:=ds+'LXXX';
   9:ds:=ds+'XC';
  end;
  d:=i mod 10;
  case d of
   1:ds:=ds+'I';
   2:ds:=ds+'II';
   3:ds:=ds+'III';
   4:ds:=ds+'IV';
   5:ds:=ds+'V';
   6:ds:=ds+'VI';
   7:ds:=ds+'VII';
   8:ds:=ds+'VIII';
   9:ds:=ds+'IX';
  end;
  for j:=1 to length(ds) do
   begin
    case ds[j] of
     'I':inc(bi2);
     'V':inc(bv2);
     'X':inc(bx2);
     'L':inc(bl2);
     'C':inc(bc2);
    end;
   end;
    if (bi=bi2)and(bv=bv2)and(bx=bx2)and(bl=bl2)and(bc=bc2) then break;
 end;
 writeln(ds);
end.