alias k {
inc %kc
if ($2- == $null) { kick $active $nick $kc }
else {
kick $active $nick $+([,$2-,])$kc
}
alias kc {
return $($chr(40),$kc,$chr(41))
}