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