@verb #144:":add" this none this rxdo #55
@program #144:":add" this none this
{@bignums} = {this, @args}
decoded = {}
for x in (bignums)
  decoded = {@decoded, decode_binary(x.value, 1)}
endfor
r = ""
s = 0
while (decoded)
  while (decoded != (decoded = setremove(decoded, {})))
  endwhile
  for x in [1..length(decoded)]
    s = s + decoded[x][$]
    decoded[x] = decoded[x][1..$ - 1]
  endfor
  r = encode_binary(s % 256) + r
  s = s / 256
endwhile
while (index(r, "~00") == 1)
  r[1..3] = ""
endwhile
this.value = r
"Last modified by manta (#7165) on Tue Mar  6 21:34:03 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."
.