program qwerty;
var
 i,m,n,j:integer;
 f,f1:text;
 st,word:string;
 kolg,kols,kol:byte;
const
 glas=[перечисление гласных];
 soglas=[перечисление согласных];
begin
 kol:=0;
 assign(f,'book.txt');
 reset(f);
 assign(f1,'words.txt');
 rewrite(f1);
 while not Eof(f) do
  begin
   readln(f,st);
   i:=1;
   while i<=length(st) do
    begin
     while st[i]=' ' do inc(i);
     m:=i;
     while (st[i]<>' ') do inc(i);
     n:=i;
     word:=copy(st,m,n-m);

     kolg:=0;
     kols:=0;
     for j:=1 to length(word) do
      begin
       if (word[j] in glas) then kolg:=kolg+1;
       if (word[j] in soglas) then kols:=kols+1;
      end;
     if kols>kolg then
      begin
       kol:=kol+1;
       write(f1,word,' ');
      end;
    end;
  end;
 close(f);
 close(f1);
end.