GCD-FIXNUMNEW-MATH  GCD-FIXNUMNEW-MATH-,,+$',"+,-  . p@A@A p@A@A@! x bD"p@A@A"p@A@A@#"x bD`&@j$@`"DpE@A @AP  xP ""x0&&x p!@A-@A@#$xp%@A,@A$p@A+@A$ @@"$x$p@A ,@AP'0!D aD$@%"x P$$x , $@  GCD-BIGNUMNEW-MATH  GCD-BIGNUMNEW-MATH2&1+.&)1&"%' 2  0  ASH-GENERICNEW-MATH" EVENPLISP-INTERNALS ODDPLISP-INTERNALS EVENPNEW-MATH EVENPLISP-INTERNALS3 p@A@A p@A@A@! x bD"p@A@A"p@A@A@#"x bD`&@j$@ CD@@A@A"CD@@A@AP  xP ""x0&&x CD@@A2@A@#$x$CD@@A'@A"P$$x $p@A1@A$ @@"$x$p@A &@A E'F+@%"x & $@ GCDNEW-MATH GCDNEW-MATH  CDRCONS  GCD-GENERICNEW-MATH ABSNEW-MATH CARCONS CDRCONS ABSNEW-MATH CARCONS  CONS-RESTLISP-INTERNALS@h@@n@(j@$@$@@A@A$C(AB$C @@A@A C(AB(#B C @A "D`D LCMNEW-MATH LCMNEW-MATH  CDRCONS TRUNCATE-GENERICNEW-MATH  GCD-GENERICNEW-MATH MULTIPLY-GENERICNEW-MATH ABSNEW-MATH CARCONS ABSNEW-MATH  CONS-RESTLISP-INTERNALS~@h@@n@(j@&@ C&@@A@A&C(AB$p@A@A"p@A@A$A"B($A#B@ B' C@A `D$D  NUMERATORNEW-MATH  NUMERATORNEW-MATH@DECEBEAE@E?E>E=E<E;E:E9E8E7E6E5E4E3E2E1E0E/E.E-E,E+E*E)E(E'E&E%E$E#E"E!E EEEEEEEEEEEEEEEEEEE G E E E JEEKEF ERRORLISP-INTERNALSLF4!@ |B@ C@@A@AE@A K@A E@A E@A J@A E@A E@A E@A G@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A EAF b@@ATD D DE$You can't get the numerator of that!  DENOMINATORNEW-MATH  DENOMINATORNEW-MATH@DECEBEAE@E?E>E=E<E;E:E9E8E7E6E5E4E3E2E1E0E/E.E-E,E+E*E)E(E'E&E%E$E#E"E!E EEEEEEEEEEEEEEEEEEE G E E E JEEKEF ERRORLISP-INTERNALSLF4!@ |B@ C@@A@AE@A K@A E@A E@A J@A E@A E@A E@A G@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A E@A EAF j@@ATDbDbDE&You can't get the denominator of that!  ADD-RATIONALNEW-MATH  ADD-RATIONALNEW-MATH MAKE-CANONICAL-RATIONALNEW-MATH MULTIPLY-GENERICNEW-MATH MULTIPLY-GENERICNEW-MATH  NUMERATORNEW-MATH MULTIPLY-GENERICNEW-MATH  NUMERATORNEW-MATH  DENOMINATORNEW-MATH  DENOMINATORNEW-MATH C# C@A C(& B"C((B Dx(A'BAF SUBTRACT-RATIONALNEW-MATH SUBTRACT-RATIONALNEW-MATH MAKE-CANONICAL-RATIONALNEW-MATH MULTIPLY-GENERICNEW-MATH MULTIPLY-GENERICNEW-MATH  NUMERATORNEW-MATH MULTIPLY-GENERICNEW-MATH  NUMERATORNEW-MATH  DENOMINATORNEW-MATH  DENOMINATORNEW-MATH C# C@A C(& B"C((B@Dx(A'BAF MULTIPLY-RATIONALNEW-MATH MULTIPLY-RATIONALNEW-MATH MAKE-CANONICAL-RATIONALNEW-MATH MULTIPLY-GENERICNEW-MATH  DENOMINATORNEW-MATH  DENOMINATORNEW-MATH MULTIPLY-GENERICNEW-MATH  NUMERATORNEW-MATH  NUMERATORNEW-MATH C(#C@B( C(#CABAF DIVIDE-RATIONALNEW-MATH DIVIDE-RATIONALNEW-MATH MAKE-CANONICAL-RATIONALNEW-MATH MULTIPLY-GENERICNEW-MATH  NUMERATORNEW-MATH  DENOMINATORNEW-MATH MULTIPLY-GENERICNEW-MATH  DENOMINATORNEW-MATH  NUMERATORNEW-MATH C(#C@B( C(#CABAF MAKE-CANONICAL-RATIONALNEW-MATH MAKE-CANONICAL-RATIONALNEW-MATH  CONSCONS MVBIND-2LISP-INTERNALS  TEST-GENERICNEW-MATH TRUNCATENEW-MATH TRUNCATENEW-MATH  GCD-GENERICNEW-MATH ERRORLISP-INTERNALS"p@A @AA@B"p@A @A@! x@#"x A" B A- B"A- Bp '0@A @A*(@*C@C`@%@`@$@a@(D*A&BF#oE(@@A )Can't make rational with zero denominator NEGATE-RATIONALNEW-MATH NEGATE-RATIONALNEW-MATH MVBIND-2LISP-INTERNALS  TEST-GENERICNEW-MATH CONSCONS  DENOMINATORNEW-MATH  NUMERATORNEW-MATH C@E&x!C(&BF#oE$@&C@C`@#@`@"@a@$D  TEST-RATIONALNEW-MATH  TEST-RATIONALNEW-MATH  TEST-GENERICNEW-MATH  NUMERATORNEW-MATH C(AF COMPARE-RATIONALNEW-MATH COMPARE-RATIONALNEW-MATH  TEST-GENERICNEW-MATH  NUMERATORNEW-MATH SUBTRACT-RATIONALNEW-MATH A"B(@B(AF