defmodule
q
files
(bnq)
import
(z bnkern bngen)
export
(#:r:q:n:1/ #:r:q:z:1/ numerator denominator #:r:q:rationalp #:r:q:/:integerp 
#:r:q:/:0- #:r:q:/:abs #:r:q:/:floor #:r:q:/:truncate #:r:q:/:float #:r:q:/:1/
#:r:q:/:<?> #:r:q:/:+ #:r:q:/:* #:r:q:/:prin #:fix:1/ #:fix:/ #:r:q:quomod)
cpexport
((#:r:q:n:1/ subr1 ()) (#:r:q:z:1/ subr1 ()) (numerator subr1 ()) (denominator
subr1 ()) (#:r:q:rationalp subr1 ()) (#:r:q:/:integerp subr1 ()) (#:r:q:/:0- 
subr1 ()) (#:r:q:/:abs subr1 ()) (#:r:q:/:floor subr1 ()) (#:r:q:/:truncate 
subr1 ()) (#:r:q:/:float subr1 ()) (#:r:q:/:1/ subr1 ()) (#:r:q:/:<?> subr2 ()
) (#:r:q:/:+ subr2 ()) (#:r:q:/:* subr2 ()) (#:r:q:/:prin subr1 () (q)) (#:
fix:1/ subr1 ()) (#:fix:/ subr2 ()) (#:r:q:quomod subr2 ()))
cpfunctions
((#:r:q:/x subr2) (#:r:q:/:make subr0) (qx subr2) (#:r:q:/:q+z subr2) (#:r:q:
/:q*z subr2) (ecrit-fc nsubr) (division- subr2) (ecrit-10 nsubr))
cpimport
((z (pgcd . subr2)) (bngen (#:r:error . subr3) (precision . nsubr) (round . 
subr2) (#:r:quomod . subr2)))