const nmax=100001;
var fi,fo:text;
    rez:array[0..nmax]of longint;
    cc:array[0..nmax]of char;
    vf,ct:longint;
    s:ansistring;
procedure push(vl:char);
begin
  inc(vf);
  cc[vf]:=vl;
end;
procedure solve(poz:longint);
begin
  if cc[poz]='+' then rez[ct-1]:=rez[ct-1]+rez[ct];
  if cc[poz]='-' then rez[ct-1]:=rez[ct-1]-rez[ct];
  if cc[poz]='*' then rez[ct-1]:=rez[ct-1]*rez[ct];
  if cc[poz]='/' then rez[ct-1]:=rez[ct-1] div rez[ct];
  dec(ct);
end;
procedure eval;
var i,put,last,numb,j:longint;
begin
  ct:=0; numb:=0;
  for i:=1 to length(s) do
    begin
      if s[i]='(' then push('(')
       else
        if s[i] in ['0'..'9'] then
          begin
            numb:=numb*10+ord(s[i])-48;
            put:=1;
          end
        else
         if s[i]=')' then
           begin
             if put=1 then
               begin
                 inc(ct); rez[ct]:=numb;
                 numb:=0; put:=0; end;
             for j:=vf downto 1 do
               if cc[j]<>'(' then solve(j)
                else
                  begin vf:=j-1; break; end;
           end
         else
          if s[i] in ['+','-'] then
            begin
              if put=1 then
                begin
                  inc(ct); rez[ct]:=numb;
                  numb:=0; put:=0; end;
              for j:=vf downto 0 do
                if cc[j] in ['*','/','-','+'] then solve(j)
                  else
                     begin vf:=j; break; end;
              push(s[i]);
            end
          else
           if s[i] in ['*','/'] then
             begin
               if put=1 then
                 begin
                   inc(ct); rez[ct]:=numb;
                   numb:=0; put:=0; end;
               for j:=vf downto 0 do
                 if cc[j] in ['/','*'] then
                   begin
                     if cc[j]='/' then rez[ct-1]:=rez[ct-1] div rez[ct]
                      else rez[ct-1]:=rez[ct-1]*rez[ct];
                     ct:=ct-1;
                   end
                 else begin vf:=j; break; end;
               push(s[i]);
             end;
    end;
  if s[length(s)]<>')' then
    begin
      ct:=ct+1; rez[ct]:=numb; end;
  for j:=vf downto 1 do
    solve(j);
  writeln(fo,rez[1]);
end;
begin
  assign(fi,'evaluare.in'); reset(fi);
  assign(fo,'evaluare.out'); rewrite(fo);
  readln(fi,s);
  eval;
  close(fi);
  close(fo);
end.