alias _rands {
  var %t $r(5,10) , %i 1 , %r
  while %i <= %t {
    var %p $r(1,2) , %k $r(1,2)
    %r = $+(%r,$iif(%p == 1,$iif(%k == 1,$r(a,z),$r(A,Z)),$gettok(a.e.i.o.u,$r(1,5),46)))
    inc %i
  }
  return %r
}