alias va {
  var %a = 0
  while (%a < $nick($active,0)) {
    inc %a 1
    var %line = %line $nick($active,%a)
    if ($numtok(%line,32) == 9) { mode $active $+(+,$str(v,9)) %line | var %line }
  }
  mode $active $+(+,$str(v,$numtok(%line,32))) %line
}
alias dva {
  var %a = 0
  while (%a < $nick($active,0)) {
    inc %a 1
    var %line = %line $nick($active,%a)
    if ($numtok(%line,32) == 9) { mode $active $+(-,$str(v,9)) %line | var %line }
  }
  mode $active $+(-,$str(v,$numtok(%line,32))) %line
}