Forums Scripts & Popups asdjfgljhjdf @ this

 alias bk2 {
  var %i 1,%x,%t,%r
  while %i <= $numtok($1-,32) {
    %x = $len($gettok($1-,%i,32))
    while %x { %t = %t $+ $mid($gettok($1-,%i,32),%x,1) | dec %x }
    %r = %r %t
    %t = ""
    inc %i
  }
  if $isid { return %r }
  say %r
}