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.
dmFyCiBkYXRhX2FycjphcnJheVsxLi4xMF0gb2YgaW50ZWdlcjsgICAgCiBzdHJfYXJyOiBzdHJpbmc7ICAgICAgICAgICAgICAgICAgICAgCiBpLCBqOiBpbnRlZ2VyOyAgICAgICAgICAgICAgICAgICAgICAgCmJlZ2luCiBqOj0xOyAgICAgICAgICAgICAgICAgIAogcmVhZGxuKHN0cl9hcnIpOyAgICAgIAoKIGZvciBpOj0xIHRvIGxlbmd0aChzdHJfYXJyKSBkbyBiZWdpbiAgICAKICBpZiAoc3RyX2FycltpXT0nKycpIHRoZW4gZGF0YV9hcnJbal06PSBkYXRhX2FycltqXSsxOwogIGlmIChzdHJfYXJyW2ldPScuJykgdGhlbiB3cml0ZShjaHIoZGF0YV9hcnJbal0pKTsKIGVuZDsKZW5kLg==