{AMMAR QADRI} 
{INTERMEDIATE DIVISION} 
{WOBURN COLLEGIATE INSTITUTE} 
{GRADE 9} 
{CONTEST 2}
uses crt;
var
  n,aa,bb,r:longint;
  s:string;
function posi(a,b:string):longint;
var
f:string;
begin
   f:=copy(b,n+1,length(b)-n);
   if pos(a,f) = 0 then posi:=0 else posi:=n+pos(a,f);
end;
begin
  clrscr;
  for aa:= 1 to 5 do begin
      readln(s);
      if pos('MAC',s) = 1 then begin
         n:=2;
         delete(s,1,3);
         s:='MC'+s;
      end;
      if pos('SCH',s) = 1 then begin
         n:=1;
         delete(s,1,3);
         s:='S'+s;
      end;
      if pos('KN',s) = 1 then begin
         n:=1;
         delete(s,1,2);
         s:='N'+s;
      end;
      if pos('PH',s) = 1 then begin
         n:=1;
         delete(s,1,2);
         s:='F'+s;
      end;
      if pos('PF',s) = 1 then begin
         n:=1;
         delete(s,1,2);
         s:='F'+s;
      end;
      if pos('K',s) = 1 then begin
         n:=1;
         delete(s,1,1);
         s:='C'+s;
      end;
      if pos('EE',s) = length(s)-1 then begin
         delete(s,length(s)-1,2);
         s:=s+'Y';
      end;
      if pos('IE',s) = length(s)-1 then begin
         delete(s,length(s)-1,2);
         s:=s+'Y';
      end;
      if pos('DT',s) = length(s)-1 then begin
         delete(s,length(s)-1,2);
         s:=s+'D';
      end;
      if pos('RT',s) = length(s)-1 then begin
         delete(s,length(s)-1,2);
         s:=s+'D';
      end;
      if pos('RD',s) = length(s)-1 then begin
         delete(s,length(s)-1,2);
         s:=s+'D';
      end;
      if pos('NT',s) = length(s)-1 then begin
         delete(s,length(s)-1,2);
         s:=s+'D';
      end;
      if pos('ND',s) = length(s)-1 then begin
         delete(s,length(s)-1,2);
         s:=s+'D';
      end;

      while posi('EV',s) <> 0 do begin
            r:=posi('EV',s);
            delete(s,r,2);
            insert('AF',s,r);
      end;

      while posi('E',s) <> 0 do begin
            r:=posi('E',s);
            delete(s,r,1);
            insert('A',s,r);
      end;
      while posi('I',s) <> 0 do begin
            r:=posi('I',s);
            delete(s,r,1);
            insert('A',s,r);
      end;
      while posi('O',s) <> 0 do begin
            r:=posi('O',s);
            delete(s,r,1);
            insert('A',s,r);
      end;
      while posi('U',s) <> 0 do begin
            r:=posi('U',s);
            delete(s,r,1);
            insert('A',s,r);
      end;
      while posi('Q',s) <> 0 do begin
            r:=posi('Q',s);
            delete(s,r,1);
            insert('Z',s,r);
      end;
      while posi('Z',s) <> 0 do begin
            r:=posi('Z',s);
            delete(s,r,1);
            insert('S',s,r);
      end;
      while posi('M',s) <> 0 do begin
            r:=posi('M',s);
            delete(s,r,1);
            insert('N',s,r);
      end;
      while posi('KN',s) <> 0 do begin
            r:=posi('KN',s);
            delete(s,r,2);
            insert('N',s,r);
      end;
      while posi('K',s) <> 0 do begin
            r:=posi('K',s);
            delete(s,r,1);
            insert('C',s,r);
      end;
      while posi('SCH',s) <> 0 do begin
            r:=posi('SCH',s);
            delete(s,r,3);
            insert('S',s,r);
      end;
      while posi('PH',s) <> 0 do begin
            r:=posi('PH',s);
            delete(s,r,2);
            insert('F',s,r);
      end;
      while posi('H',s) <> 0 do begin
            r:=posi('H',s);
            if ((s[r+1] <> 'A') and (s[r+1] <> 'E') and (s[r+1] <> 'I') and (s[r+1] <> 'O') and (s[r+1] <> 'U'))
            or ((s[r-1] <> 'A') and (s[r-1] <> 'E') and (s[r-1] <> 'I') and (s[r-1] <> 'O') and (s[r-1] <> 'U')) then
            delete(s,r,1);
      end;
      while posi('W',s) <> 0 do begin
            r:=posi('W',s);
            if (s[r-1] = 'A') or (s[r-1] = 'E') or (s[r-1] = 'I') or (s[r-1] = 'O') or (s[r-1] = 'U') then
            delete(s,r,1);
      end;
      bb:=n;
      while bb <= length(s) do begin
          inc(bb);
          if s[bb] = s[bb-1] then begin
             delete(s,bb,1);
          end;
      end;
      if s[length(s)] = 'S' then begin
         delete(s,length(s),1);
      end;
      if s[length(s)] = 'Y' then
      if s[length(s)-1] = 'A' then
      begin
         delete(s,length(s)-1,2);
         s:=s+'Y';
      end;
      if s[length(s)] = 'A' then begin
         delete(s,length(s),1);
      end;
      writeln(s);
  end;
  readln;
end.