program i;
var Str:string[255];
    Zac,Kon,Len:array[0..255] of longint;
    Poc:longint;
    Pos:longint;
    LastSpace:boolean;
    Cislo:longint;
    Neg:boolean;
    Temp:longint;
    c:char;
begin
   readln(str);
   while (length(Str)<>0) do begin
      LastSpace:=true;
      Poc:=0;
      for Pos:=1 to length(Str) do
         if LastSpace then begin
	    if Str[Pos]<>' ' then begin
	       LastSpace:=false;
	       Zac[Poc]:=Pos;
	    end;
	 end else begin
	    if Str[Pos]=' ' then begin
	       LastSpace:=true;
	       Kon[Poc]:=Pos;
	       inc(Poc);
	    end;
	 end;
     if not LastSpace then begin
        Kon[Poc]:=length(Str)+1;
     end else 
        dec(Poc);
     Neg:=false;
     Temp:=0;
     Cislo:=0;
      for Pos:=0 to Poc do
         Len[Pos]:=Kon[Pos]-Zac[Pos];
      for Pos:=0 to Poc do begin
         c:=UpCase(Str[Zac[Pos]]);
	 case c of
	 'O':Temp:=Temp+1;
	 'Z':;
	 'H':Temp:=Temp*100;
	 'M':begin
	    Cislo:=Cislo+(Temp*1000000);
	    Temp:=0;
	    end;
	'N':case Len[Pos] of
	    8:begin
	      c:=Str[Zac[Pos]+1];
	      if (c='E') or (c='e') then
	         Neg:=not Neg
	      else
	         Temp:=Temp+19;
	      end;
	    4:Temp:=Temp+9;
	    6:Temp:=Temp+90;
	    end;
	 'E':case Len[Pos] of
	     5:Temp:=Temp+8;
	     8:Temp:=Temp+18;
	     6:begin
	       c:=Str[Zac[Pos]+1];
	       if (c='L') or (c='l') then
	          Temp:=Temp+11
	       else
	          Temp:=Temp+80;
	       end;
	     end;
	 'T':case Len[Pos] of
	     5:Temp:=Temp+3;
	     3:begin
	       c:=Str[Zac[Pos]+1];
	       if (c='E') or (c='e') then
	          Temp:=Temp+10
	       else
	          Temp:=Temp+2;
	       end;
	     6:begin
	       c:=Str[Zac[Pos]+3];
	       if (c='L') or (c='l') then
	          Temp:=Temp+12
	       else
	          if (c='N') or (c='n') then
		     Temp:=Temp+20
		  else
		     Temp:=Temp+30;
	       end;
	     8:begin
	       c:=Str[Zac[Pos]+2];
	       if (c='O') or (c='o') then begin
	          Cislo:=Cislo+(Temp*1000);
		  Temp:=0;
	       end else 
	          Temp:=Temp+13;
	       end;
             end;
         'S':case LEn[Pos] of
	     3:Temp:=Temp+6;
	     9:TEmp:=Temp+17;
	     7:begin
	       c:=Str[Zac[Pos]+1];
	       if (c='I') or (c='i') then
	          Temp:=Temp+16
	       else
	          Temp:=Temp+70;
	       end;
	     5:begin
	       c:=Str[Zac[Pos]+1];
	       if (c='E') or (c='e') then
	          Temp:=Temp+7
	       else
	          Temp:=Temp+60;
	       end;     	 
             end;
	 'F':case Len[Pos] of
	     8:Temp:=Temp+14;
	     7:Temp:=Temp+15;
	     4:begin
	       c:=Str[Zac[Pos]+1];
	       if (c='o') or (c='O') then
	          Temp:=Temp+4
	       else
	          Temp:=Temp+5;
	       end;
	     5:begin
	       c:=Str[Zac[Pos]+1];
	       if (c='o') or (c='O') then
	          Temp:=Temp+40
	       else
	          Temp:=Temp+50;
	       end;
	     6:Temp:=Temp+40;
	     end;    
	 end;
      end;
      Cislo:=Cislo+Temp;
      if Neg then Cislo:=-Cislo;
      writeln(Cislo);
      readln(str);
   end;
end.