alias vb {
unset % [ $+ [ $1 ] ]
var %i 1,%x,%r
while %i <= $numtok($2-,32) {
%x = $len($gettok($2-,%i,32))
while %x { %r = %r $+ $mid($gettok($2-,%i,32),%x,1) | dec %x }
set % [ $+ [ $1 ] ] % [ $+ [ $1 ] ] %r
%r = ""
inc %i
}
}
usage: /vb [var without %] [word(s)
]
