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.

dmFyCiBkYXRhX21lbTogYXJyYXlbMS4uMTBdIG9mIGludGVnZXI7ICAgIC8vIGRhdGEgYXJyYXkKIGNvbW1hbmRfbWVtOiBzdHJpbmc7ICAgICAgICAgICAgICAgICAvLyBjb21tYW5kIGFycmF5CiBpOiBpbnRlZ2VyOyAgICAgICAgICAgICAgICAgICAgICAgICAvLyBpbmRleCBvZiBjb21tYW5kIGFycmF5CiBqOiBpbnRlZ2VyOyAgICAgICAgICAgICAgICAgICAgICAgIC8vIGluZGV4IG9mIGRhdGEgYXJyYXkKYmVnaW4KIGo6PTE7ICAgICAgICAgICAgICAgICAgCiByZWFkbG4oY29tbWFuZF9tZW0pOyAgICAgICAKCiBmb3IgaTo9MSB0byBsZW5ndGgoY29tbWFuZF9tZW0pIGRvIGJlZ2luICAgLy8gdGhlIGN5Y2xlICBvZiBjb21tYW5kIHByb2Nlc3NpbmcgCiAgaWYgKGNvbW1hbmRfbWVtW2ldPScrJykgdGhlbiBkYXRhX21lbVtqXTo9IGRhdGFfbWVtW2pdKzE7CiAgaWYgKGNvbW1hbmRfbWVtW2ldPScuJykgdGhlbiB3cml0ZShjaHIoZGF0YV9tZW1bal0pKTsKIGVuZDsKZW5kLg==

KysrKysrKysrKysrKysrKysrKysrKysrKysrKysrKysrLg==

+++++++++++++++++++++++++++++++++.