var
s:string;
i,c:integer;
begin
readln(s);
c:=0;
while pos(':',s)<>0 do
begin
delete(s,pos(':',s),1);
inc(c)
end;
writeln('Result: ',c)
end.
var
s:string;
i,c:integer;
begin
readln(s);
c:=0;
while pos(':',s)<>0 do
begin
delete(s,pos(':',s),1);
inc(c)
end;
writeln('Result: ',c)
end.