program Text;

var
	NumarLitere, NumarCuvinte: integer;
	c, lastchar: char;
	fin, fout: file of char;

begin
    assign(fin, 'text.in');
	reset(fin);
    while not eof(fin) do
    begin
		read(fin, c);
        if (ord(c) >= 65 and ord(c) <= 90) or (ord(c) >= 97 and ord(c) <= 122) then
            NumarLitere := NumarLitere + 1;
        if (not((ord(c) >= 65 and ord(c) <= 90) or (ord(c) >= 97 and ord(c) <= 122)) and ((ord(lastchar) >= 65 and ord(lastchar) <= 90) or (ord(lastchar) >= 97 and ord(lastchar) <= 122)))
            NumarCuvinte := NumarCuvinte + 1;
        lastchar := c;
    end;
    if (ord(lastchar) >= 65 and ord(lastchar) <= 90) or (ord(lastchar) >= 97 and ord(lastchar) <= 122)) then
        NumarCuvinte := NumarCuvinte + 1;
    close(fin);
    assign(fout, 'text.out');
	rewrite(fout);
    write(fout, NumarLitere div NumarCuvinte);
    close(fout);
end.