program poolita;
  var
   sona:string;
   taish:string;
   koht,asend,i,j,k,l,m:integer;
   kaashaalik, kaash2:boolean;
  begin
   writeln('Palun sisesta �ks säna!');
   readln(sona);
   taish:='aeiou”„�ä';
   for i:=1 to length(sona) do begin
   for j:=1 to length(taish) do begin
   for k:=1 to length(taish) do begin
   for l:=1 to length(taish) do
    begin

     if ((sona[i]=taish[j]) and (sona[i+1]<>taish[k]) and
      (sona[i+2]=taish[l])) then
       begin
        koht:=i;
        insert('-',sona,koht+1);
       end
      end; end; end;end ;
        for i:=1 to length(sona) do  begin
            kaashaalik:=true;
            for m:=1 to length(taish) do
                if sona[i]=taish[m] then kaashaalik:=false;
            kaash2:=true;
            for m:=1 to length(taish) do
                if sona[i+1]=taish[m] then kaash2:=false;
           for k:=1 to length(taish) do
            if ((kaashaalik) and (sona[i]<>'-')) and (kaash2) and
               (sona[i+2]=taish[k]) then
            begin
              koht:=i;
              insert('-',sona,koht+1);
            end;
       end;

   writeln(sona);
   readln;
end.