uses crt;
var s : string ;
d , i: byte ;
begin
clrscr;
readln(s);
while (s[1])=' ' do delete(s,1,1);
while pos(' ',s)<>0 do delete(s,pos(' ',s),1);
s[1]:=upcase(s[1]);
writeln(s);
for i := 1 to length(s) do
if (s[i]<>' ') and (s[i+1]<>' ') and (s[i+2]<>' ') and (s[i+3]=' ')
then d := d + 1 ;
writeln(d);
end.