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.