{$APPTYPE CONSOLE}
uses
SysUtils;
var
i:integer;
a:string;
begin
readln(a);
for i:= length(a) downto 1 do
if a[i] = '.' then
write(length(a)-i);
break;
end;
readln;
end.