@verb #144:":tostr" this none this rxdo #55
@program #144:":tostr" this none this
bignum = this.value
r = ""
digits = decode_binary(bignum, 1)
for x in [1..length(digits)]
  products = {tostr(digits[x])}
  for y in [1..length(r)]
    products = {@products, tostr(toint(r[y]) * 256, $string_utils:space(length(r) - y, "0"))}
    $cmd_utils:suspend_if_needed(0)
  endfor
  "Add 'em up"
  r = ""
  while (products)
    while (products != (products = setremove(products, "")))
    endwhile
    s = 0
    for x in [1..length(products)]
      s = s + toint(products[x][$])
      products[x] = products[x][1..$ - 1]
    endfor
    r = tostr(s % 10, r)
    $cmd_utils:suspend_if_needed(0)
    s && (products = {@products, tostr(s / 10)})
  endwhile
endfor
while (r[1] == "0")
  r[1..1] = ""
endwhile
return r
"Last modified by manta (#7165) on Tue Mar  6 21:25:26 2001 MST."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:06 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:50:06 2002 MDT."
.