var
 data_arr:array[1..10] of integer;    
 str_arr: string;                     
 i, j: integer;                       
begin
 j:=1;                  
 readln(str_arr);      

 for i:=1 to length(str_arr) do begin    
  if (str_arr[i]='+') then data_arr[j]:= data_arr[j]+1;
  if (str_arr[i]='.') then write(chr(data_arr[j]));
 end;
end.