var
s: string;
i: integer;

begin
readln(s);
i:=1;
while s[i]<>':' do inc(i);
write(i-1);
end.