@verb #144:"fast_mult" this none this rxdo #55 @program #144:"fast_mult" this none this {@bignums} = args decoded = {} for x in (bignums) decoded = {@decoded, decode_binary(x, 1)} endfor r = {@this:poly_mult(@decoded), 0} for x in [1..length(r) - 1] r[x + 1] = r[x + 1] + r[x] / 256 r[x] = r[x] % 256 endfor return encode_binary(@$list_utils:reverse(r)) "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." .