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 EVENPLISP-INTERNALS 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 ABSLISP-INTERNALS CARCONS CDRCONS ABSLISP-INTERNALS 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 ABSLISP-INTERNALS CARCONS ABSLISP-INTERNALS  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?CDBDAD@D?D>D=D<D;D:D9D8D7D6D5D4D3D2D1D0D/D.D-D,D+D*D)D(D'D&D%D$D#D"D!D DDDDDDDDDDDDDDDDDDD F D D D IDDJDE ERRORLISP-INTERNALSKF4!@ |B@ C@@A@AD@A J@A D@A D@A I@A D@A D@A D@A F@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A EAF b@@ATD D DD$You can't get the numerator of that!  DENOMINATORNEW-MATH  DENOMINATORNEW-MATH?CDBDAD@D?D>D=D<D;D:D9D8D7D6D5D4D3D2D1D0D/D.D-D,D+D*D)D(D'D&D%D$D#D"D!D DDDDDDDDDDDDDDDDDDD F D D D IDDJDE ERRORLISP-INTERNALSKF4!@ |B@ C@@A@AD@A J@A D@A D@A I@A D@A D@A D@A F@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A D@A EAF j@@ATDbDbDD&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 p@A @A`D 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