cycle all channel script

bind pub n !cycle cycle
proc cycle {n u h c a} {
 foreach ch [channels] {
  putserv "PART $ch"
 }
}