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

Function eval():qword;
Forward;


Function numar():qword;
begin
numar:=0;
while (s[i]>='0') and (s[i]<='9') do
        begin
        numar:=numar*10+ord(s[i])-48;
        i:=i+1;
        end;
while (s[i]='*') or (s[i]='/') do
if s[i]='*' then
        begin
        i:=i+1;
        if s[i]='(' then
                begin numar:=numar*eval(); end else
                        numar:=numar*numar();
        end else
                if s[i]='/' then
                        begin
                        i:=i+1;
                        if s[i]='(' then
                                begin numar:=numar div eval(); end else
                                        numar:=numar div numar();
                        end;
end;


Function eval():qword;
begin
eval:=0;
if s[i]='(' then
        begin
        i:=i+1;
        eval:=eval+eval();
        i:=i+1;
        end else
                eval:=eval+numar();
        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
                                begin eval:=eval+eval(); end else
                                        eval:=eval+numar();
                        end else
                                if s[i]='-' then
                                        begin
                                        i:=i+1;
                                        if s[i]='(' then
                                                begin eval:=eval-eval(); end else
                                                        eval:=eval-numar();
                                        end;
                    if s[i]='*' then
                        begin
                        i:=i+1;
                        if s[i]='(' then
                                begin eval:=eval*eval();  end else
                                        eval:=eval*numar();
                        end else
                                if s[i]='/' then
                                        begin
                                        i:=i+1;
                                        if s[i]='(' then
                                                begin eval:=eval div eval(); end else
                                                        eval:=eval div numar();
                                        end;


                end;



end;


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


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

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

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


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