Someone

alias pall {
  var %c 1
  while (%c <= $chan(0)) {
    msg $chan(%c) Parting all channels..
    part $chan(%c)
    inc %c
  }
}