string

var
    st:string;
    i:integer;
Procedure xoa;
begin
    While st[1]=#32 do delete(st,1,1);
    While st[length(st)]=#32 do delete(st,length(St),1);
    While pos(#32#32,st) <> 0 do delete(st,pos(#32#32,st),1);
end;
begin
    readln(st);
    xoa;
    st:=st+#32;
    While pos(#32,st) <> 0 do
        begin
                        For i:=1 to pos(#32,st)-1 do write(st[i]);
                        delete(st,1,pos(#32,st));
                        writeln;
        end;
    readln
end.