{$MODE OBJFPC}
Const Vowels  = ['a', 'e', 'i', 'o', 'u', 'y'];
      Letters = 'qwertyuiopasdfghjklzxcvbnm';
 
Function RandomChar: Char;
Begin
 Result := Letters[Random(Length(Letters)-1)+1]; 
End;
 
Function RandName(Leng: Integer): String;
Var I   : Integer;
    P, C: Char;
    Len : Integer;
Begin
 Result := '';
 P      := #0;
 For I := 1 To Leng Do
 Begin
  Result += RandomChar;
  Len := Length(Result);
  C   := Result[Len];
  While (P in Vowels) and (Result[Len] in Vowels) Do
   Result[Len] := RandomChar;
  P := C;
 End;
End;
 
Var I: Integer;
Begin
 Randomize;
 For I := 1 To 6 Do
  Writeln(RandName(6));
End.

eyRNT0RFIE9CSkZQQ30KQ29uc3QgVm93ZWxzICA9IFsnYScsICdlJywgJ2knLCAnbycsICd1JywgJ3knXTsKICAgICAgTGV0dGVycyA9ICdxd2VydHl1aW9wYXNkZmdoamtsenhjdmJubSc7CgpGdW5jdGlvbiBSYW5kb21DaGFyOiBDaGFyOwpCZWdpbgogUmVzdWx0IDo9IExldHRlcnNbUmFuZG9tKExlbmd0aChMZXR0ZXJzKS0xKSsxXTsgCkVuZDsKCkZ1bmN0aW9uIFJhbmROYW1lKExlbmc6IEludGVnZXIpOiBTdHJpbmc7ClZhciBJICAgOiBJbnRlZ2VyOwogICAgUCwgQzogQ2hhcjsKICAgIExlbiA6IEludGVnZXI7CkJlZ2luCiBSZXN1bHQgOj0gJyc7CiBQICAgICAgOj0gIzA7CiBGb3IgSSA6PSAxIFRvIExlbmcgRG8KIEJlZ2luCiAgUmVzdWx0ICs9IFJhbmRvbUNoYXI7CiAgTGVuIDo9IExlbmd0aChSZXN1bHQpOwogIEMgICA6PSBSZXN1bHRbTGVuXTsKICBXaGlsZSAoUCBpbiBWb3dlbHMpIGFuZCAoUmVzdWx0W0xlbl0gaW4gVm93ZWxzKSBEbwogICBSZXN1bHRbTGVuXSA6PSBSYW5kb21DaGFyOwogIFAgOj0gQzsKIEVuZDsKRW5kOwoKVmFyIEk6IEludGVnZXI7CkJlZ2luCiBSYW5kb21pemU7CiBGb3IgSSA6PSAxIFRvIDYgRG8KICBXcml0ZWxuKFJhbmROYW1lKDYpKTsKRW5kLg==