@verb #144:":initialize" this none this rxdo #55
@program #144:":initialize" this none this
{n} = args
if (typeof(n) == WAIF && n.class:isa($bignum))
  this.value = $blob:new(n)
elseif (typeof(n) == $INT)
  r = {}
  while (n)
    r = {n % 256, @r}
    n = n / 256
  endwhile
  this.value = $blob:new(@r)
elseif (typeof(n) == $STR)
  this.value = ""
  for x in [1..length(n)]
    this:multiply($bignum:new(10))
    this:add($bignum:new(toint(n[x])))
  endfor
else
  raise(E_TYPE)
endif
"Last modified by manta (#7165) on Tue Mar 20 16:37:49 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 Tue May  3 13:43:07 2005 MDT."
.