{Name: Conan Huang
School: Woburn C I
Division: Senior
}
var
temp:string;
word:array[1..256]of char;
single:boolean;
a,b,c,len:integer;
fin,fout:text;
label next;
begin
assign(fin,'chef.in');
assign(fout, 'chef.out');
reset(fin);
rewrite(fout);
for a:=1 to 5 do
begin
for b:=1 to 256 do
begin
word[b]:=' ';
end;
readln(fin, temp);
len:=length(temp)+1;
for b:=2 to len do
begin
word[b]:=temp[b-1];
end;
single:=false;
b:=0;
while (b<=len)
do
begin
inc(b);
if word[b]=' ' then single:=false;
if (word[b]='T') and (word[b+1]='H') and
(word[b+2]='E') then
begin
word[b]:='Z';
word[b+1]:='E';
b:=b+2;
goto next;
end;
if (word[b]='A') and (word[b+1]='N') then
begin
word[b]:='U';
inc(b);
goto next;
end;
if (word[b]='A') and (word[b+1]='U') then
begin
word[b]:='O';
word[b+1]:='O';
inc(b);
goto next;
end;
if (word[b]='A') and ((ord(word[b+1])>=65) and
(ord(word[b+1])<=90)) then
begin
word[b]:='E';
goto next;
end;
if (word[b]='O') and (word[b+1]='W') then
begin
word[b+1]:='O';
inc(b);
goto next;
end;
if (word[b]='O') then
begin
word[b]:='U';
goto next;
end;
if (word[b]='I') and (word[b+1]='R') then
begin
word[b]:='U';
inc(b);
goto next;
end;
if (word[b]='T') and (word[b+1]='I') and
(word[b+2]='O') and (word[b+3]='N')then
begin
word[b]:='S';
word[b+1]:='H';
word[b+2]:='U';
Word[b+3]:='N';
b:=b+3;
goto next;
end;
if ((ord(word[b-1])>=65) and
(ord(word[b-1])<=90)) and (single=false) and (word[b]='I')then
begin
for c:=len+1 downto b+2 do
begin
word[c]:=word[c-1];
end;
word[b]:='E';
word[b+1]:='E';
single:=true;
b:=b+1;
inc(len);
goto next;
end;
if (word[b]='E') and (word[b+1]='N') and
((ord(word[b+2])<65) or (ord(word[b+2])>90))then
begin
word[b]:='E';
word[b+1]:='E';
b:=b+1;
goto next;
end;
if word[b]='F' then
begin
for c:=len+1 downto b+2 do
begin
word[c]:=word[c-1];
end;
word[b]:='F';
word[b+1]:='F';
b:=b+1;
inc(len);
goto next;
end;
if (word[b]='E') and ((ord(word[b+1])<65) or
(ord(word[b+1])>90)) then
begin
for c:=len+2 downto b+3 do
begin
word[c]:=word[c-2];
end;
word[b]:='E';
word[b+1]:='-';
word[b+2]:='A';
b:=b+2;
len:=len+2;
goto next;
end;
if ((ord(word[b-1])>=65) and
(ord(word[b-1])<=90)) and (word[b]='U')then
begin
for c:=len+1 downto b+2 do
begin
word[c]:=word[c-1];
end;
word[b]:='O';
word[b+1]:='O';
b:=b+1;
inc(len);
goto next;
end;
if (word[b]='V') then
begin
word[b]:='F';
goto next;
end;
if (word[b]='W') then
begin
word[b]:='V';
goto next;
end;
next:
end;
for b:=2 to len do
begin
write(fout,word[b]);
end;
writeln(fout,' BORK BORK BORK!');
end;
close(fin);
close(fout);end.