program romeniski_skaitmenys;

  function skaitmuo (raide: char): integer;
  { rom‚nižkas skaitmuo u‘ražomas arabižku skai‡iumi }
  begin
    case raide of
      'I': skaitmuo := 1;
      'V': skaitmuo := 5;
      'X': skaitmuo := 10;
      'L': skaitmuo := 50;
      'C': skaitmuo := 100;
      'D': skaitmuo := 500;
      'M': skaitmuo := 1000;
    end;
  end; { skaitmuo }

  function arabiskas (rom: string): integer;
  { rom‚nižk… skai‡i— u‘ražo arabižku }
    var arab, i: integer;
  begin
    arab := 0;
    i := 1; { rom‚nižko skaitmens numeris }
    while i < length(rom) do
      begin
        if skaitmuo(rom[i]) >= skaitmuo(rom[i+1])
          then arab := arab + skaitmuo(rom[i])
          else arab := arab - skaitmuo(rom[i]);
        i := i + 1;
      end;
    arabiskas := arab + skaitmuo (rom[i]);
  end; { rom‚nižki }

  var rom: string;
begin
  readln (rom);
  writeln (arabiskas(rom));
end.