/ROMAN - Số La Mã

              Uses Crt;
        Var     s:string;
                i,kq:longint;
                d:array['A'..'Z'] of longint;
        Begin
                readln(s);
                d['I']:=1;
                d['V']:=5;
                d['X']:=10;
                d['L']:=50;
                d['C']:=100;
                d['D']:=500;
                d['M']:=1000;
                s[length(s)+1]:='A';
                d['A']:=0;
                i:=1; kq:=0;
                while i<=length(s) do
                begin
                        if (d[s[i+1]]-d[s[i]]>0) then
                        begin
                                kq:=kq+d[s[i+1]]-d[s[i]]; inc(i,2);
                        end
                        else
                                begin
                                        kq:=kq+d[s[i]];
                                        inc(i);
                                end;
                        //writeln(kq);
        
                end;
                writeln(kq);
                readln;
        End.