1:SETBITSBBITS*TWOPOWERBBASE*BNUMWORDHI*BMINUSWORDLOW*LOGICALBITS*BTWOPOWERBSUB1SYSHI*BADD1SYSLO*BIGNUMPINDXBIGNEGBIGPOSNONBIGNUMERRORBLDMSGSTDERRORBSIZEUPBVGTPOSMKVECTGTNEGTRIMBIGNUMTRIMBIGNUM1TRUNCATEVECTORBIG2SYSBLESSPBGREATERPLIST2ERRORBMINUSPEXPTNONINTEGERERRORQUOTIENTREMAINDERBZEROPBONEPBABSBMAXBMINBEXPTINT2BBQUOTIENTBTIMES2BLORBLNOTBLANDGREATERPBLXORMIN2BSMALLADDBLSHIFTADDCARRYCARRY*BPLUS2BDIFFERENCE2BPLUSA2BDIFFERENCESUBCARRYBDIGITTIMES2ZEROPBSMALLTIMES2BDIVIDEBREMAINDERBSIMPLEQUOTIENTSAFECDRLIST5CARBSIMPLEDIVIDEBSIMPLEREMAINDERCDRCONSBHARDDIVIDEXCONSBHARDBUGPRIN2TPRIN2BUNSIGNEDGREATERPBGEQBUNSIGNEDGEQBLEQBSMALLDIFFFLOATFROMBIGNUMFLOATHI*FLOATLOW*LIST3FLOATTIMES2PLUS2MINUSBCHANNELPRIN2OUTPUTBASE*CHANNELWRITECHAR
CHANNELWRITESYSINTEGERDIGIT2LETTER*BPRINBREADSIZEBREADADDEQUALSUBBIGFROMFLOATMINUSPEQNLESSPFIXDIFFERENCEVECTOR-FIXARITHIMPORTSFLUID1PUTENTRYMACROEXPR/
,>Z$>& B, B>, B, B > D x>,, B,, B >,~,>61V+ + *3B+@@ x,3B+ + *2B+@@ x,3B+ + *>,~>xx Expect a BIGNUM in %r, given %p%n  $,	+
,>,3B+( x,2B+*@@>,~> Bx, B / L>,~x> Bx, B 4 L>,~x,>,2B+9 < x>+	 x,
  x>+
x
,>,>7`+B .x6@+B>+>  x,,
5BF x H L8 x>,~x is too large to be a Syslisp integer for BIG2SYS> Bx ,2B+T  x,3B+W j x, Z"1>}+ @ @ @~ @~ x,
 B5B\@@+i x, B .x  L~ > D~7@~+f $N~ ~.x .N~>~+a3@+h"~ B~ ~>},~H Z"+> Bx6	1v+t1V+t,2B+t 
 x>}+ @ @ @~ x,3B+y x, Bx  x, B  x, B :, B~ @~Z, L~ ~2l+ ~.~@@:~+ , .~ B : ~>}+
>x,>,
4B
 + *3B+ x,3B+ + *>,~,>,3B+ + *3B+  x,
1B+ + *3B+  x 1B+  +  *>,~,>,3B+% x>+ x>,~,>,>  ,3B+, +, x>,~,>,>  ,3B+2 +3 x>,~> Bx D6O1v+:1V+: P >~+5D<Z">~+1D+N5$CZ", B" x,4  >~+ @Z$ &  x,4 BZ$ & 5BK  >~+ x , >~+>~,~>x> Bx D,2B+V ,3B+[ x, B ,  ,>|+ @ @~ @~ @} x,
 B ,
 B~ ,3B+h ~ L~  L~ ~ L  L} x L } Lx , B} @}Z, L} }2l~+r }.} }.x }. G  B:}+k @} ~: B} }2l+y }.} }.x  L:}+t }>|,~> Bx D @~ @} @},3B+ x, Bx * L} ,3B+ , B *3@}+  D} x,
 B ,
 B~ ,3B+ ~ L~  L~ ~ L  L} x L } Lx , B}Z, L| |2l~+ |.} |.x |. F  B:|+ ~: B| |2l+$ |.} |.x  L:|+  },
 Bx3@}+(, Bx>|,~> Bx D,3B+3 ,3B+3 x, B ,  ,>|+ @ @~ @~ @} x,
 B ,
 B~  , B~, B} x,3B+F @}Z, L} }2l~+Z }.} }.x F }.A  B:}+? ,3B+Q @}Z, L} }2l~+Z }.} }.x }. F A B:}+J @}Z, L} }2l~+Z }.} }.x }. A  B:}+S ~ }>|+
Z$,+,>,> ,3B+e ,,  x>+ ,  x>+> Bx,3B+l x+{ @ @ x,
 B x,3B+r ,+s , B @~Z, L~ ~2l+z ~. ~.x  L:~+u >~,~ 3L+~ ,~x 
 .B 3$+Z, L".F+@@ ,~> Bx D, B , B~3@+2B+ x,   >~+3B+2@+ ,   x>~+   x>~+> Bx D F @} @} @|,
 B~ ,
 B~3b~+% ~ L~ B~  L} x L } Lx ~: D}3@+) ,+* , B}@@Z, L| |2l~+4 |. |.x . B|, |.} B:|+, ~: B| B| |2l~+< |.x , |.} B:|+6 }.}  L } }>{+
> Bx D ,3B+E x+V x,3B+H >~+ @ @~ x, B , B~3@+N3B+P3B+T2@+T ,   x>~+   x>~+>~,~  / 5$\Z, L.+]@@ ,~> Bx D F @~ @} @|,
 B~ ,
 B}3b~+n ~ L} B~ } L} x L|  Lx | L *3@+m  D+2B~+ B~ ~. ~.x 2L+u ~1l+u>~+o ~. ~.x 2,+ ~ L} } L~ } L} x L|  Lx | L *3@+  B3@+ ~,+ ~, B|@@Z, L| |2l}+ |.x |. /, |.| B:|+ }: B| |2l~+ |.x , |.| B:|+ ~ |>{+
> Bx D @~ @|,
 B ,
 B~3b+$ x L|  Lx | L  L~ B ~ L~ ~. D~ x, B} , B}3@}+*2B+,2@}+.2B+. ~,+/ ~, B|Z, L| |2l~+4 |.|@@:|+0Z, L| |2l~+< 
| |  .  x,:|+5 ~ |>{+
> Bx D F H~ J~ @} @} @| @| , 3B+F ~+Z@@} @{Z, L{ {2l+W {.x $ B| ~.{> F| }.B 
.
~.( H}  &  B(  & B}:{+H ~..~ } L ~>{,~> Bx D , 3B+`@@>{+ @ @~ @~ @} @} @| x,
 B~  & ~.B D} : F} , B|@@~ @|Z, L| |2l~+w |.x $.~ B &  |.| B  & B~:|+m @| ~: B| |2l}+  ~ B&  |.| B  & B~:|+y } |>{+
,! ,~,! ,~Argument mismatch in SMacro expansion>,"  D,"  D,"  D~," Bx  D~60V+ ,
 
~ ~   ,#  >}+>x#x$Argument mismatch in SMacro expansion>,"  D,"  D,"  D~," Bx  D~610V+, 2,
 
~ ~   2,#  1>}+>x%x$Attempt to divide by 0 in BDIVIDE> Bx D @~ @} @} ,
 B~5B> PZ"1, x,
 B3"~+E2B~+G .x .  3l+G@@, x>|+% ~0L+M ,     x>|+$ ~   x>|+&3> Bx D F H~ @} @| @{, B|3B+X2@~+Z2B+\2@~+\ ,+] , B{@@}  L~7@~+i ~.x }$. B} & ~.{ B  }&  B}>~+_3@|+kZ",+lZ", B| } L  {,
 B{Z$ |,
 {>z+&remainder when unscaling> Bx D F H~ @} @} @| @{ @{ @z @z @y @x @w @u @u @t @s Hv 
: Jv / Bw: By x, Bt , Bs3@t+2B+
 y,+3B+
 y,+ y, Bu :, B~ ~. : & B|@@xZ, Lr r2l+  r.x $|.x Bx &  r.~ B  x& Bx:r+: .~ x L | ,  B} * L ~0,+) ) ,	 ~.}  L|  L{@@r r2lw+ /r Bz /v Dy .~   L} }$.  Fu }2L|+8 
> Jt+: | & Bt t${ B{ t$|"`.F$.' Dz {3lz+D>t"{.B{ |$.Dz+?@@xZ, Lr r2lv+V r.y.~ x. r.} t$ / Bx & Bx  x&  Bx5"S>x .Nx r.y.~ x L:r+F v.y Bw7@x+f w2,z+f:w w.~ x. Bx & Bx  x&  Bx5"c>x .Nx w.~ x L+X7@x+>t@@x @rZ, Lr r2lv+v r.y.~ r.} ..Bx  x&  r.y.~ B   x& Bx:r+i v.y Bw w2,z+:w w.~ .Nx  x&  w.~ B  x& Bx+w y.u/r t L:r+, /w ~,
 B~@@{@@z,2B+$3@t+ ~ ) L8 |1L+$ ~,
 B@@x @r Br7`r+ r.~ x$. Bu |& r.~ B | u&  Bx>r+7@x+"  ~,
 Br y u,
 
 r  x (,'  ~,
 B~ y u,
 Bu@@u ~>q+%sxx&x	computed remainder=computed quotient=arg2=arg1=***** Internal error in BHardDivide> Bx D F H~ J~ G,' F,( ,' F,( ,' E,( ~,' E,( ~,' x>}+
*-/12,>,>,3B+O ,3B+N x +S +T ,3B+R x+T  x>+(>,~,>,>,3B+\ ,3B+[  x+` x+a ,3B+_ +a x >+(>,~,>,>,3B+j ,3B+i x +n +o ,3B+m x+o  x>+)>,~,>,>,3B+w ,3B+v  x+{ x+| ,3B+z +| x >+)>,~> Bx D @~,
 B ,
 B~3B+2"+ x+ + ~.x ~. 2L+ ~1l+>~+ ~.x ~. 2,+ x+ >},~> Bx D,
 B ,
 B~3B+2"+ x+& +& ~.x ~. 2L+! ~1l+!>~+ ~. ~.x 2,+% +& x>~,~Z$+Z$+*Argument, 
 to FLOAT is too large> Bx,3B+4 R+P + x,2B+9 , x,3B+= Q x Q,, Z"1>}+ @ @ @~ @~ x,
 B x, B~ .x ,- B > D~7@~+M  ,- B ~.x ,. B>~+F3@~+O ,. B >},~*,/> Bx D ,2B+X 	
 >{+	 @ @~ @~ @} @} @| / L| , B} ,
  /  ,$ B~  D  F~ ,3B+g@@~+h ~ 0 L~ } ~,% B} ,2B+y ,
  /  ,$ B~  D  F~ ,3B+u@@~+w ~ 0 L~ } ~,% B}+j3@}+|Z$ x,0 |1L+	Z& | x,0Z$ x,0 @| } L|6	0V+	
 |  B{ .1  x,0 |  B|+	 | L/ >{,~>|x1> Bx D F,2 B~Z", B~@@ x, B}1" +	0b-+	"..N} }1,+	 }0l+	"..N} ~ } L8Z, L} }2l~+	, } x, B}1" +	$0b-+	$"..N} }1,+	( }0l+	("..N} }  ~,3 B~:}+	6 +	. ~, B~ ~>|,~,>,  x>+> Bx D4D	S,3B+	8 >}+ x,3B+	= x, ,*>}+6 +	@" x>}+* @ @~  L x,
 B~:, B @~Z, L~ ~2l~+	M ~.x , ~. B:~+	G 0N+	Q ~.Z, L+	S ~ >}+
 >},~,>,>5B	X@@>+5"	[Z", B"x Dx+	]Z", B x L>,~ BSmallDiff V<C %p %p%n> Bx D4D
,3B+	g">}+ x,3B+	l x, ,>}+6 +	o" x>}+ @ @~  L x,
 B~, B @~Z, L~ ~2l~+	{ ~.x , ~. B:~+	u7@+	  x 
,	,
 ~ >}+
>},~	_%w> Bx6
61v+
	1V+
	 
7>|+2"+
>|+ @ @ @~ @~ @}  
7,	 B@@,Z$,33B+
O@~ ,2 >Z$ ,4 B+
Z, L~ @}@@} ,23"}+
! } ,Z$,33B+
  } L:}+
3@+
3 >@@ ,4 B}@@~ @}@@} },23"}+
- } }, ~$$.B/$ D~:}+
& ,2 /> : ,4 B+
4Z, L~ ~ ~ >|+2>
x> Bx6
j1v+
i1V+
i6
j1V+
i @ @ @~ @~ @},53B+
EO@~ x,. Bx+
FZ, L~@@, B7@x+
e 
j x,52B+
e  x,63B+
R x,6,  , B@@x+
H x L@@~  ,62B+
[  , B  ~,. B~+
T ~, B} ,6,  }, B},+  x,7 Bx } , B+
H ~,53B+
h , B >|,~>
8 !!""##$$%%&&''(())**++,,-x7$
~x8x@> .,8 .,9 -,9 -,9 ,,9 ,,9 +,9 +,9 *,9 *,9 ),9 ),9 (,9Z& ( ',9Z& ( ',9Z&" ( &,9Z&% ( &,9Z&+ ( %,9Z&0 ( %,9Z&5 ( $,9Z&= ( $,9Z&N ( #,9Z&k ( #,9Z&m ( ",9Z& ( ",9Z& ( !,9Z&" ( !,9Z&' (  ,9Z&. (  ,9Z&4 ( ,9Z&Q ( ,9Z&{ ( ,9Z&) ( ,9Z&\ ( ,9Z&^ ( ,9Z&h ( ,9Z&| ( ,9Z& ( ,9Z& ( ,9Z& ( ,9Z&@ ( ,9Z&X ( ,9Z&^ ( ,9Z& ( ,9Z&> ( ,9Z&[ ( ,9Z& ( ,9Z& ( ,9Z&
  ,9Z&"  ,9Z&7 ( ,9Z&Q ( ,9Z&v ( ,9Z&7 ( ,9Z&H ( ,9Z&U ( ,9Z&c ( ,9Z&p ( ,9Z&~ ( ,9Z& ( ,9Z&' ( ,9Z&) ( ,9Z&1 ( ,9  L1Z&S ( 
,9Z&	 ( 
,9Z&	0 ( ,9Z&	3 ( ,9Z&	U ( ,9Z&	b ( ,9Z&
 ( 
,9Z&
: ( 
,9Z",Z",, BxZ" ,  x, B+, B,>,~x4xx*xxx3x2x/ 
kx+xxx)x(x*x)xxx'x&x$x!x$x"x:x!xx xxxxxxxxxxxxxxxxxxxxxxxxx
x
xxx
x	xxx:x/xxxx,x+x1xxxxx$
}X
E*U*"A(QQ@<X" E@""`Q
D"`@"("@@@@#
 "DD(@"@@"
Q@ @D"A A  D DD  D@ A@"D  "@@@ P"@"@ DQ@AB(D "@ E@@@@D" UAD(D@@@ E@D AD@  AD?A(D?Q"AX DD(@D""D 
@A D "@" @@
_p"Q(TA?xDAD DDDDAD DDDA"D  D"@D @"E

D~"AADA@"@A D "D @ D DD@@
APDQ(@PD @@ D  "#`DQ D
"AQA DD"*UU*U*QQ(T*
E"QQ(T*
E"QQ(T*
E"QQ(T*
E"QQ(T*
E"QQ(T*Q(T*
E"Q x