uses crt;
procedure doit(qwe:string);
begin
 textcolor(random(7)+1);
 write(qwe);
end;
const super='eyuio0a';
var
x,t,q,z:integer;
sona,kala:string;
label 1;
begin
randomize;
1:clrscr;
  writeln('Sisestage oma sona');
  readln(sona);
  for x:=1 to length(sona) do
      begin
        q:=0;
        for t:=1 to 7 do
            if copy(sona,x,1)=copy(super,t,1) then q:=1;
        if q=1 then kala:=kala+'g' else kala:=kala+'s';
      end;
repeat
  q:=0;t:=0;
  z:=length(sona);
  for x:=2 to z do
      begin
        if length(copy(kala,x+1,length(sona)-x))<2 then
           begin
             doit(sona);sona:='';kala:='';q:=1;
           end;
        for t:=1 to x do
            begin
              if copy(kala,t,1)='g' then
                 begin
                  if (copy(kala,x+1,2)='sg') then
                    begin
                      doit(copy(sona,1,x));delete(sona,1,x);delete(kala,1,x);q:=1;
                    end;
                 end;
            end;
        if q=1 then
           begin
             x:=z;
             if kala>'' then write('-');
           end;
textcolor(white);
end;
until kala='';
writeln;
writeln('Tahate jatkata ?');
if readkey='j' then
goto 1;
end.