var s:array[1..100000] of char;
     f,g:text;
     rez,i,n:longint;

   function suma:longint; forward;
   function produs:longint; forward;
   function termen:longint; forward;

 function suma:longint;
 var sum,aux,j:longint;
 begin
   sum:=produs;
   while (s[i] in ['+','-']) do
                    begin
                       inc(i); j:=i-1;
                       aux:=produs;
                       if s[j]='+' then sum:=sum+aux
                                   else sum:=sum-aux;
                    end;
   suma:=sum;
  end;

 function produs:longint;
 var prod,j,aux:longint;
 begin
    prod:=termen;
    while (s[i] in ['*','/']) do
                  begin
                       inc(i); j:=i-1;
                       aux:=termen;
                       if s[j]='*' then prod:=prod*aux
                                   else prod:=prod div aux;
                  end;
   produs:=prod;
  end;


 function termen:longint;
 var x:longint;
 begin
   x:=0;
   if s[i]='(' then
            begin
               inc(i);
               x:=suma;
               inc(i);
            end
                 else
                       while (s[i] in ['0'..'9']) do
                                     begin
                                       x:=x*10+ord(s[i])-ord('0');
                                       inc(i);
                                     end;
   termen:=x;
  end;

 begin
  assign(f,'evaluare.in'); reset(f);
  assign(g,'evaluare.out'); rewrite(g);
  i:=0;
  while (not(eoln(f))) do
              begin
                  inc(i);
                  read(f,s[i]);
              end;
  i:=1;
  rez:=suma;
  writeln(g,rez);
  close(f); close(g);
 end.