program st;
var
  s,s1: string;
  i,k: integer;
  kol: integer;
begin
  cls;
  readln(s);
  s:=s+' ';
  repeat
    if pos('  ',s)>0 then
      delete(s,pos('  ',s),1);
  until pos('  ',s)=0;
  k:=0; kol:=0;
  for i:=1 to length(s) do
    if s[i]=' ' then
    begin
      s1:=copy(s,k+1,i-k);
      writeln(s1);
      kol:=kol+1;
      k:=i;
    end;
  writeln(kol,' Слов');
end.