Alias pall {
  while ($chan(0) > 0)){
  /msg $chan Parting all channels $1
  /part $chan}}