Mine

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