var
s,v:string;
i:integer;
x1,x2:longint;
c,err:integer;
j:char;
first_number,minus,fi,se:boolean;
begin
v:='  ';
j:= ' ';
first_number:=True;
readln(s);
for i:=1 to length(s) do
  if (s[i] in ['+','/','*']) or ((s[i] = '-') and (i<>1)) then
    begin
      if (s[i-1] <> ' ') and (s[i+1] <> ' ') then
        begin
        insert(' ',s,i);
        insert(' ',s,i+2);
        break;
        end;
      if (s[i-1] <>' ') then
        insert(' ',s,i);
      if (s[i+1] <>' ') then
        insert(' ',s,i+1);
    end;

for i:=1 to length(s) do
  begin
  if s[i] = '-' then
    if minus then 
      minus:=False
    else
      minus:=True;
     
   
      
  if s[i] in ['1','2','3','4','5','6','7','8','9','0'] then
    if first_number then
      begin
      val(s[i],c,err);
      if minus then begin minus:=False; fi:=True; end;
      if fi then c:=-c;
      
      x1:= x1 * 10 + c;
      end
    else
      begin
      val(s[i],c,err);
      if minus then begin minus:=False; se:=True; end;
      if se then c:=-c;
      x2:= x2 * 10 + c;
      end
  else
    begin
    if s[i] = ' ' then
      first_number:=False;
    if s[i] in ['*','/'] then
      j:=s[i];
    end;
  end;
if j = ' ' then writeln(x1+x2);
if j = '*' then writeln(x1*x2);
if j = '/' then writeln(x1/x2);

 
     
end.