alias randtok {
  if $chr($$2) !isin $$1 { return $false }
  var %asc_ = $$2
  tokenize $2 $1
  var %j = 1 
  while ($eval($+($,%j),2)) {
    var % $+ rand_ $+ $r($str(9,10),1) $v1 
    inc %j 
  }
  var %m = 1 
  while ($var($+(%,rand_,*),%m)) { 
    var %b = %b $v1
    inc %m
  }
  var %z  = [ [ $ $+ sorttok(%b,32) ] ]
  return $replace(%z,$chr(32),$chr(%asc_))
}