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.