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)))) then
            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.