alias _rands {
  var %i 1 , %l $r(2,8) , %r
  while $len(%r) <= %l {
    var %o 1 , %u , %y
    while %o <= 3 {
      $iif($istok(a.e.i.o.u,$left($right(%r,%o),1),46),inc %u,inc %y)
      inc %o
    }
    var %k $iif(%u >= 2,1,$iif(%y >= 3,2,$r(1,2))) , %x $r(a,z)
    while $iif(%k == 1,$istok(a.e.i.o.u,%x,46),!$istok(a.e.i.o.u,%x,46)) {
      %x = $r(a,z)
    }
    %r = $+(%r,%x)
  }
  return %r
}