program rimski;
var broj,des,jed: string;
    z,x: integer;
begin
   readln (broj);
   x:=length (broj);
   if (copy(broj,x-1,x)='xi') then begin
                                delete(broj,x-1,x);
                                insert('ix',broj,x-1);
                                end;
   if broj='lix' then broj:='xli';
   for Z:= 1 to x do
      if (broj[z]='i') or (broj[z]='v') then begin
                                           des:=copy(broj,1,(z-1));
                                           delete(broj,1,(z-1));
                                           jed:=(broj);
                                           break;
                                            end;
   if jed='vi' then jed:='iv';
   if des='lx' then des:='xl';
   writeln (des+jed);
   end.