var
  i,j,k,num,ans,x,num2:longint;
  s:ansistring;
begin
  readln(s);
  k:=1;
  ans:=0;
  while k<=length(s) do
    begin
      num:=0;
      while (s[k]>='0')and(s[k]<='9') do
        begin
          num:=(num*10+ord(s[k])-48)mod 10000;
          inc(k);
        end;
      while s[k]='*' do
        begin
          num2:=0;
          inc(k);
          while (s[k]>='0')and(s[k]<='9') do
            begin
              num2:=(num2*10+ord(s[k])-48)mod 10000;
              inc(k);
            end;
          num:=(num*num2)mod 10000;
        end;
      ans:=(ans+num)mod 10000;
      inc(k);
    end;
  writeln(ans);
end.