alias random {
  return $regsubex($str(-,$r(10,20)),/-/g,$iif($r(1,2) == 1,$iif($r(1,2) == 1,$r(A,Z),$r(a,z)),$r(0,9)))
}
Alias seinfeld {
  var %seinfeld = $random
  join $+($chr(35),%seinfeld)
  .msg chanserv register $+($chr(35),%seinfeld) $random ur gay
  .msg chanserv access $+($chr(35),%seinfeld) add $1 1
  .msg chanserv set $+($chr(35),%seinfeld) founder $read(access.txt)
  part $+($chr(35),%seinfeld)
}