program rimski;
var b : string;

begin
    readln(b);
    if (not (pos('VI', b) = 0)) and (pos('II', b) = 0) then
    begin
        b[pos('VI', b)] := 'I';
        b[pos('II', b) + 1] := 'V';
    end;
    if (not (pos('LX', b) = 0)) and (pos('XX', b) = 0) then
    begin
        b[pos('LX', b)] := 'X';
        b[pos('XX', b) + 1] := 'L';
    end;
    if (not (pos('XI', b) = 0)) and (pos('II', b) = 0) and (pos('XIV', b) = 0) then
    begin
        b[pos('XI', b)] := 'I';
        b[pos('II', b) + 1] := 'X';
    end;
    writeln(b);
end.