alias all {
  set %t 1
  set %tn \o/
  unset %all
  while (%tn != $null) {
    set %all %all %tn
    set %tn $nick($active, %t).pnick
    if (%t == $nick($active,0)) unset %tn
    inc %t 
  }
  say $remove(%all,\o/)
}