Someone

alias dvv {
  if ($nick($1,0,v) != 0) {
    var %b = 1
    while (%b <= $nick($1,0,v)) {
      var %bb = %bb $+ $chr(46) $nick($1,%b,v)
      if (%b == $nick($1,0,v)) {
        mode $1 - $+ $str(v,$numtok(%bb,46)) $replace(%bb,$chr(46),$chr(32))
      }
      inc %b
    }
  }
}