_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
}