type vector=array[1..52] of CHAR;
const v:vector=('a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z',
'A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z');
var c:char;
nr,nrs,nrcuv:longint;
f,g:text;
i:byte;
ok:boolean;
begin
assign(f,'text.in');reset(f);
assign(g,'text.out');rewrite(g);
ok:=false;
while not eof(f) do
begin
read(f,c);
while ((c='a') or (c='b') or (c='c') or (c='d') or (c='e') or (c='f') or (c='g') or (c='h')
or (c='i') or (c='j') or (c='k') or (c='l') or (c='m') or (c='n') or (c='o') or (c='p') or (c='q')
or (c='r') or (c='s') or (c='t') or (c='u') or (c='v') or (c='w') or (c='x') or (c='y') or (c='z')
or (c='A') or (c='B') or (c='C') or (c='D') or (c='E') or (c='F') or (c='G') or (c='H') or (c='I')
or (c='J') or (c='K') or (c='L') or (c='M') or (c='N') or (c='O') or (c='P') or (c='Q') or (c='R')
or (c='S') or (c='T') or (c='U') or (c='V') or (c='W') or (c='X') or (c='Y') or (c='Z')) do
begin
inc(nr);
read(f,c);
end;
inc(nrs);
end;
nrcuv:=trunc(nr/nrs);
write(g,nrcuv);
close(f);
close(g);
end.