Program a930;
uses crt;
const d='mama papa kot sapog bot brat.';
var s,t:string;
a:array[1..100] of string;
n,i:integer;
BEGIN
clrscr;
t:=d;
delete(t,length(t),1);
t:=t+' ';
n:=0;
s:='';
for i:=1 to length(t) do
begin
if t[i]<>' ' then
begin
s:=s+t[i];
end
else
begin
n:=n+1;
a[n]:=s;
s:='';
end;
end;
for i:=1 to n do
writeln(a[i]);
readln;
END.