alias joinin {
  set %join 1
  .whois $1
  .timer 1 1 unset %join
}

raw 319:*: {
  if (%join != $null) {
    var %x = 3
    while (%x <= $0) {
      join $remove($ [ $+ [ %x ] ],@,%,+)
      inc %x
    }
  }
}