var f:text;
    cl,cc:longint;
    mid:longint;
    c:char;
const ALPHA = ['A'..'Z', 'a'..'z'];

begin
cl:=0;
cc:=0;
assign(f, 'text.in');
reset(f);
while EOln(f) = false do begin
read(f, c);
if c in ALPHA then
cl:=cl+1
else if c = ' '  then
cc:=cc+1;
end;
close(f);
assign(f, 'text.out');
rewrite(f);
cc:=cc+1;  {Pentru ca ultimul cuvant nu are spatiu dupa el}
mid:=Trunc(cl/cc);
writeln(f, mid);
writeln(f,cl);
writeln(f,cc);
close(f);
end.