@verb #322:"create_mpint" this none this rxdo #55
@program #322:"create_mpint" this none this
{bignum} = args
d = decode_binary(bignum, 1)
while (0 in d == 1)
  d[1..1] = {}
endwhile
if (d[1] > 127)
  d = {0, @d}
endif
l = length(d)
return encode_binary(l / 256 ^ 3, l / 65536 % 256, l / 256 % 256, l % 256, @d)
"Last modified by manta (#7165) on Fri Mar  2 08:49:31 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."
.