{$H+}
var s:ansistring;
cn,i,lng:int64;
procedure check(k:int64);
var z:int64;
begin
delete(s,1,k-1);
k:=2;
while s[k]='-' do inc(k);
if s[k] in ['[',']','(',')'] then inc(cn);
if k<>length(s) then begin
z:=k+1;
while s[z]=s[k] do inc(z);
delete(s,1,z-1) ; end
else begin z:=k; delete(s,1,z-1); end;
end;
begin
//assign(input,'smile.in'); reset(input);
//assign(output,'smile.out'); rewrite(output);
read(s);
i:=0;
while (pos(';',s)<>0) or (pos(':',s)<>0) do begin inc(i); if (s[i]=';') or (s[i]=':') then begin check(i); i:=0; end;
end;
writeln(cn);
close(input);
close(output);
end.
eyRIK30NCnZhciAgczphbnNpc3RyaW5nOw0KY24saSxsbmc6aW50NjQ7DQpwcm9jZWR1cmUgY2hlY2soazppbnQ2NCk7DQp2YXIgejppbnQ2NDsNCmJlZ2luDQpkZWxldGUocywxLGstMSk7DQprOj0yOw0Kd2hpbGUgc1trXT0nLScgZG8gaW5jKGspOw0KaWYgc1trXSBpbiBbJ1snLCddJywnKCcsJyknXSB0aGVuIGluYyhjbik7DQppZiBrPD5sZW5ndGgocykgdGhlbiBiZWdpbg0Kejo9aysxOw0Kd2hpbGUgc1t6XT1zW2tdIGRvIGluYyh6KTsNCmRlbGV0ZShzLDEsei0xKSA7IGVuZA0KIGVsc2UgYmVnaW4gejo9azsgZGVsZXRlKHMsMSx6LTEpOyBlbmQ7DQoNCmVuZDsNCmJlZ2luDQovL2Fzc2lnbihpbnB1dCwnc21pbGUuaW4nKTsgcmVzZXQoaW5wdXQpOw0KLy9hc3NpZ24ob3V0cHV0LCdzbWlsZS5vdXQnKTsgcmV3cml0ZShvdXRwdXQpOw0KcmVhZChzKTsNCg0KaTo9MDsNCndoaWxlIChwb3MoJzsnLHMpPD4wKSBvciAocG9zKCc6JyxzKTw+MCkgIGRvIGJlZ2luICBpbmMoaSk7IGlmIChzW2ldPSc7Jykgb3IgKHNbaV09JzonKSB0aGVuIGJlZ2luIGNoZWNrKGkpOyBpOj0wOyBlbmQ7DQplbmQ7DQp3cml0ZWxuKGNuKTsNCmNsb3NlKGlucHV0KTsNCmNsb3NlKG91dHB1dCk7DQplbmQuDQo=