program krunch;
var
   s:string;
   b:array ['A'..'Z'] of boolean;
   a:longint;

begin
     assign(input,'krunch.in');
     assign(output,'krunch.out');
     reset(input);
     rewrite(output);

     readln(s);
     while (length(s)>0) and (s[1]=' ') do delete(s,1,1);
     while (length(s)>0) and (s[length(s)]=' ') do delete(s,length(s),1);
     while pos('A',s)>0 do delete(s,pos('A',s),1);
     while pos('E',s)>0 do delete(s,pos('E',s),1);
     while pos('I',s)>0 do delete(s,pos('I',s),1);
     while pos('O',s)>0 do delete(s,pos('O',s),1);
     while pos('U',s)>0 do delete(s,pos('U',s),1);
     while a<=length(s) do
     begin
          if s[a] in ['A'..'Z'] then
             if b[s[a]] then
             begin
                  delete(s,a,1);
                  continue;
             end else begin b[s[a]]:=true; inc(a); continue; end;
          if (s[a]=' ') and (s[a-1]=' ') then
          begin
               delete(s,a,1);
               continue;
          end;
          if (s[a] in ['.',',','?']) and (s[a-1]=' ') then
          begin
               delete(s,a-1,1);
               dec(a);
               continue;
          end;
          inc(a);
     end;
     while (length(s)>0) and (s[1]=' ') do delete(s,1,1);
     while (length(s)>0) and (s[length(s)]=' ') do delete(s,length(s),1);
     writeln(s);

     close(input);
     close(output);
end.