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.