Program evaluare;
type tabel=array[0..100000] of char;
var     s:tabel;
        f1,f2:text;
        i,r:longint;

Procedure citiresir;
begin
    i:=0;
    while not eoln(f1) do
        begin
          i:=i+1;
          read(f1,s[i]);
        end;

    s[0]:='(';
    s[i+1]:=')';
end;

Function eval():longint;
Forward;

Function numar():longint;
begin
numar:=0;
while (s[i]>='0') and (s[i]<='9') do
        begin
        numar:=numar*10+ord(s[i])-48;
        i:=i+1;
        end;
end;


Function secv():longint;
begin
secv:=numar();
while (s[i]='*') or (s[i]='/') do
begin
if s[i]='*' then
        begin
        i:=i+1;
        if s[i]='(' then
        secv:=secv*eval() else
        secv:=secv*numar();
        end else
if s[i]='/' then
        begin
        i:=i+1;
        if s[i]='(' then
        secv:=secv div eval() else
        secv:=secv div numar();
        end;
if s[i]=')' then
        i:=i+1;
end;
end;


Function eval():longint;
begin
eval:=0;
if s[i]='(' then
        begin i:=i+1; eval:=eval+eval(); end else
        begin
                eval:=eval+secv();

                while (s[i]='+') or (s[i]='-') or (s[i]='/') or (s[i]='*') do
                begin
                if s[i]='+' then
                        begin
                        i:=i+1;
                        if s[i]='(' then
                        eval:=eval+eval() else
                        eval:=eval+secv();
                        end else
                if s[i]='-' then
                        begin
                        i:=i+1;
                        if s[i]='(' then
                        eval:=eval-eval() else
                        eval:=eval-secv();
                        end else
                if s[i]='*' then
                        begin
                        i:=i+1;
                        if s[i]='(' then
                        eval:=eval*eval() else
                        eval:=eval*secv();
                        end else
                if s[i]='/' then
                        begin
                        i:=i+1;
                        if s[i]='(' then
                        eval:=eval div eval() else
                        eval:=eval div secv();
                        end;
                if s[i]=')' then
                i:=i+1;
                end;
        end;
end;


begin
    assign(f1,'evaluare.in'); reset(f1);
    assign(f2,'evaluare.out'); rewrite(f2);

    citiresir;
    i:=0;
    write(f2,eval());

    close(f1);
    close(f2);
end.