var a,b,c:array[0..100]of string;t:string[14];s,k:longint;
Begin
        { переводит арабские числа(от 1 до 999) в римские}
        readln(s);
        a[1]:='I';
        a[2]:='II';
        a[3]:='III';
        a[4]:='IV';
        a[5]:='V';
        a[6]:='VI';
        a[7]:='VII';
        a[8]:='VIII';
        a[9]:='IX';
        b[1]:='X';
        b[2]:='XX';
        b[3]:='XXX';
        b[4]:='XL';
        b[5]:='L';
        b[6]:='LX';
        b[7]:='LXX';
        b[8]:='LXXX';
        b[9]:='XC';
        c[1]:='C';
        c[2]:='CC';
        c[3]:='CCC';
        c[4]:='CD';
        c[5]:='D';
        c[6]:='DC';
        c[7]:='DCC';
        c[8]:='DCCC';
        c[9]:='CM';
        WHILE s>0 do
        begin
                k:=k+1;
                if k=1 then t:=a[s mod 10]+t
                else if k=2 then t:=b[s mod 10]+t
                else t:=c[s mod 10]+t;
                s:= s div 10;
        end;
        writeln(t);
End.