Alias nick {
  var %ni = 1
  var %no = 1
  set %nchan.tot $chan(0)
  while (%ni <= $chan(0)) {
    set %nchan. [ $+ [ %no ] ] $chan(%ni)
    inc %ni
    inc %no
  }
  .timer 1 1 partall Automatic part - nick change...
  .timer 1 2 nick $$1
  .timer 1 3 rebob
}
Alias rebob {
  var %bob = 1
  while (%bob <= %nchan.tot) {
    join %nchan. [ $+ [ %bob ] ]
    inc %bob
  }
  unset %nchan.*
}