Var
   ch: char;
   i,m,n,p: longint;

Begin
     readln(input, n, m);
     for i:= 1 to m do
         begin
         readln(input, ch, p);
         case ch of
              '+': n:= n + p;
              '-': n:= n - p;
              '*': n:= n * p;
              '/': n:= n div p;
              '%': n:= n mod p;
              end;
         end;
     writeln(output, n);
End.