ALIAS h { set %x $chan(0) 
  while ( %x > 0 ) {
    part $chan(%x)
    timer 1 1 join $chan(%x) 
  dec %x }
  unset %x
}