var
 data_mem: array[1..10] of integer;    // data array
 command_mem: string;                 // command array
 i: integer;                         // index of command array
 j: integer;                        // index of data array
begin
 j:=1;                  
 readln(command_mem);       

 for i:=1 to length(command_mem) do begin   // the cycle  of command processing 
  if (command_mem[i]='+') then data_mem[j]:= data_mem[j]+1;
  if (command_mem[i]='.') then write(chr(data_mem[j]));
 end;
end.