/* Generated automatically from libnum.scm.  DO NOT EDIT */
#define LIBGAUCHE_BODY 
#include <gauche.h>
#include <gauche/code.h>

#line 37 "libnum.scm"
#include <gauche/vminsn.h>
#include <gauche/bignum.h>
#include <stdlib.h>
#include <float.h>
#include <math.h>

#if !defined(M_PI)
#define M_PI 3.1415926535897932384
#endif /* !defined(M_PI) */

static ScmObj libnumnumberP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumnumberP__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumnumberP, SCM_MAKE_INT(SCM_VM_NUMBERP), NULL);


static ScmObj libnumcomplexP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumcomplexP__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumcomplexP, SCM_MAKE_INT(SCM_VM_NUMBERP), NULL);


static ScmObj libnumrealP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumrealP__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumrealP, SCM_MAKE_INT(SCM_VM_REALP), NULL);


static ScmObj libnumrationalP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumrationalP__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumrationalP, NULL, NULL);


static ScmObj libnumintegerP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumintegerP__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumintegerP, NULL, NULL);


static ScmObj libnumexactP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumexactP__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumexactP, NULL, NULL);


static ScmObj libnuminexactP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnuminexactP__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnuminexactP, NULL, NULL);


static ScmObj libnumzeroP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumzeroP__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumzeroP, NULL, NULL);


static ScmObj libnumpositiveP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumpositiveP__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumpositiveP, NULL, NULL);


static ScmObj libnumnegativeP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumnegativeP__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumnegativeP, NULL, NULL);


static ScmObj libnumoddP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumoddP__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumoddP, NULL, NULL);


static ScmObj libnumevenP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumevenP__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumevenP, NULL, NULL);


static ScmObj libnumfixnumP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumfixnumP__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumfixnumP, NULL, NULL);


static ScmObj libnumbignumP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumbignumP__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumbignumP, NULL, NULL);


static ScmObj libnumflonumP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumflonumP__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumflonumP, NULL, NULL);


static ScmObj libnumfiniteP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumfiniteP__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumfiniteP, NULL, NULL);


static ScmObj libnuminfiniteP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnuminfiniteP__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnuminfiniteP, NULL, NULL);


static ScmObj libnumnanP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumnanP__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumnanP, NULL, NULL);


static ScmObj libnum_zeroP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnum_zeroP__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnum_zeroP, NULL, NULL);


static ScmObj libnumexact_integerP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumexact_integerP__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumexact_integerP, NULL, NULL);


static ScmObj libnumfixnum_width(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumfixnum_width__STUB, 0, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumfixnum_width, NULL, NULL);


static ScmObj libnumleast_fixnum(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumleast_fixnum__STUB, 0, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumleast_fixnum, NULL, NULL);


static ScmObj libnumgreatest_fixnum(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumgreatest_fixnum__STUB, 0, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumgreatest_fixnum, NULL, NULL);


static ScmObj libnumnative_endian(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumnative_endian__STUB, 0, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumnative_endian, NULL, NULL);


static ScmObj libnumflonum_epsilon(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumflonum_epsilon__STUB, 0, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumflonum_epsilon, NULL, NULL);


static ScmObj libnumflonum_min_normalized(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumflonum_min_normalized__STUB, 0, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumflonum_min_normalized, NULL, NULL);


static ScmObj libnumflonum_min_denormalized(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumflonum_min_denormalized__STUB, 0, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumflonum_min_denormalized, NULL, NULL);


static ScmObj libnum_25bignum_dump(ScmObj*, int, void*);
static SCM_DEFINE_SUBR(libnum_25bignum_dump__STUB, 1, 0,SCM_FALSE,libnum_25bignum_dump, NULL, NULL);


static ScmObj libnum_3d(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnum_3d__STUB, 2, 3,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnum_3d, NULL, NULL);


static ScmObj libnum_LT(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnum_LT__STUB, 2, 3,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnum_LT, NULL, NULL);


static ScmObj libnum_LT_3d(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnum_LT_3d__STUB, 2, 3,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnum_LT_3d, NULL, NULL);


static ScmObj libnum_GT(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnum_GT__STUB, 2, 3,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnum_GT, NULL, NULL);


static ScmObj libnum_GT_3d(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnum_GT_3d__STUB, 2, 3,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnum_GT_3d, NULL, NULL);


static ScmObj libnummax(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnummax__STUB, 1, 1,1, SCM_FALSE,0, libnummax, NULL, NULL);


static ScmObj libnummin(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnummin__STUB, 1, 1,1, SCM_FALSE,0, libnummin, NULL, NULL);


static ScmObj libnummin_26max(ScmObj*, int, void*);
static SCM_DEFINE_SUBR(libnummin_26max__STUB, 1, 1,SCM_FALSE,libnummin_26max, NULL, NULL);


static ScmObj libnumexact_TOinexact(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumexact_TOinexact__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumexact_TOinexact, NULL, NULL);


static ScmObj libnuminexact_TOexact(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnuminexact_TOexact__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnuminexact_TOexact, NULL, NULL);


static ScmObj libnumnumber_TOstring(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumnumber_TOstring__STUB, 1, 4,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumnumber_TOstring, NULL, NULL);


static ScmObj libnumstring_TOnumber(ScmObj*, int, void*);
static SCM_DEFINE_SUBR(libnumstring_TOnumber__STUB, 1, 3,SCM_FALSE,libnumstring_TOnumber, NULL, NULL);


static ScmObj libnumfloor_TOexact(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumfloor_TOexact__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumfloor_TOexact, NULL, NULL);


static ScmObj libnumceiling_TOexact(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumceiling_TOexact__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumceiling_TOexact, NULL, NULL);


static ScmObj libnumtruncate_TOexact(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumtruncate_TOexact__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumtruncate_TOexact, NULL, NULL);


static ScmObj libnumround_TOexact(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumround_TOexact__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumround_TOexact, NULL, NULL);


static ScmObj libnumdecode_float(ScmObj*, int, void*);
static SCM_DEFINE_SUBR(libnumdecode_float__STUB, 1, 0,SCM_FALSE,libnumdecode_float, NULL, NULL);


static ScmObj libnumfmod(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumfmod__STUB, 2, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumfmod, NULL, NULL);


static ScmObj libnumfrexp(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumfrexp__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumfrexp, NULL, NULL);


static ScmObj libnummodf(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnummodf__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnummodf, NULL, NULL);


static ScmObj libnumldexp(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumldexp__STUB, 2, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumldexp, NULL, NULL);


static ScmObj libnumlog10(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumlog10__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumlog10, NULL, NULL);

#if defined(HAVE_TGAMMA)

static ScmObj libnum_25gamma(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnum_25gamma__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnum_25gamma, NULL, NULL);

#endif /* defined(HAVE_TGAMMA) */
#if defined(HAVE_LGAMMA)

static ScmObj libnum_25lgamma(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnum_25lgamma__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnum_25lgamma, NULL, NULL);

#endif /* defined(HAVE_LGAMMA) */

static ScmObj libnumflonum_TOf16bits(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumflonum_TOf16bits__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumflonum_TOf16bits, NULL, NULL);


static ScmObj libnum_2a(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnum_2a__STUB, 0, 1,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnum_2a, NULL, NULL);


static ScmObj libnum_2b(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnum_2b__STUB, 0, 1,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnum_2b, NULL, NULL);


static ScmObj libnum_(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnum___STUB, 1, 1,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnum_, NULL, NULL);


static ScmObj libnum_2f(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnum_2f__STUB, 1, 1,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnum_2f, NULL, NULL);


static ScmObj libnumabs(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumabs__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumabs, NULL, NULL);


static ScmObj libnumquotient(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumquotient__STUB, 2, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumquotient, NULL, NULL);


static ScmObj libnumremainder(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumremainder__STUB, 2, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumremainder, NULL, NULL);


static ScmObj libnummodulo(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnummodulo__STUB, 2, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnummodulo, NULL, NULL);


static ScmObj libnum_25gcd(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnum_25gcd__STUB, 2, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnum_25gcd, NULL, NULL);


static ScmObj libnumnumerator(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumnumerator__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumnumerator, NULL, NULL);


static ScmObj libnumdenominator(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumdenominator__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumdenominator, NULL, NULL);


static ScmObj libnumfloor(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumfloor__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumfloor, NULL, NULL);


static ScmObj libnumceiling(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumceiling__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumceiling, NULL, NULL);


static ScmObj libnumtruncate(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumtruncate__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumtruncate, NULL, NULL);


static ScmObj libnumround(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumround__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumround, NULL, NULL);


static ScmObj libnum_25exp(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnum_25exp__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnum_25exp, NULL, NULL);


static ScmObj libnum_25log(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnum_25log__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnum_25log, NULL, NULL);


static ScmObj libnum_25sin(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnum_25sin__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnum_25sin, NULL, NULL);


static ScmObj libnum_25cos(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnum_25cos__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnum_25cos, NULL, NULL);


static ScmObj libnum_25tan(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnum_25tan__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnum_25tan, NULL, NULL);


static ScmObj libnum_25sinpi(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnum_25sinpi__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnum_25sinpi, NULL, NULL);


static ScmObj libnum_25cospi(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnum_25cospi__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnum_25cospi, NULL, NULL);


static ScmObj libnum_25tanpi(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnum_25tanpi__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnum_25tanpi, NULL, NULL);


static ScmObj libnum_25asin(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnum_25asin__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnum_25asin, NULL, NULL);


static ScmObj libnum_25acos(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnum_25acos__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnum_25acos, NULL, NULL);


static ScmObj libnum_25atan(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnum_25atan__STUB, 1, 2,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnum_25atan, NULL, NULL);


static ScmObj libnum_25sinh(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnum_25sinh__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnum_25sinh, NULL, NULL);


static ScmObj libnum_25cosh(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnum_25cosh__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnum_25cosh, NULL, NULL);


static ScmObj libnum_25tanh(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnum_25tanh__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnum_25tanh, NULL, NULL);


static ScmObj libnum_25sqrt(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnum_25sqrt__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnum_25sqrt, NULL, NULL);


static ScmObj libnum_25sqrt_fast_path(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnum_25sqrt_fast_path__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnum_25sqrt_fast_path, NULL, NULL);


static ScmObj libnum_25expt(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnum_25expt__STUB, 2, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnum_25expt, NULL, NULL);


static ScmObj libnum_25exact_integer_expt(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnum_25exact_integer_expt__STUB, 2, 0,1, SCM_FALSE,0, libnum_25exact_integer_expt, NULL, NULL);


static ScmObj libnumash(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumash__STUB, 2, 0,1, SCM_FALSE,0, libnumash, NULL, NULL);


static ScmObj libnumlognot(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumlognot__STUB, 1, 0,1, SCM_FALSE,0, libnumlognot, NULL, NULL);


static ScmObj libnumlogand(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumlogand__STUB, 0, 3,1, SCM_FALSE,0, libnumlogand, NULL, NULL);


static ScmObj libnumlogior(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumlogior__STUB, 0, 3,1, SCM_FALSE,0, libnumlogior, NULL, NULL);


static ScmObj libnumlogxor(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumlogxor__STUB, 0, 3,1, SCM_FALSE,0, libnumlogxor, NULL, NULL);


static ScmObj libnumlogcount(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumlogcount__STUB, 1, 0,1, SCM_FALSE,0, libnumlogcount, NULL, NULL);


static ScmObj libnuminteger_length(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnuminteger_length__STUB, 1, 0,1, SCM_FALSE,0, libnuminteger_length, NULL, NULL);


static ScmObj libnumtwos_exponent_factor(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumtwos_exponent_factor__STUB, 1, 0,1, SCM_FALSE,0, libnumtwos_exponent_factor, NULL, NULL);


static ScmObj libnumtwos_exponent(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumtwos_exponent__STUB, 1, 0,1, SCM_FALSE,0, libnumtwos_exponent, NULL, NULL);


static ScmObj libnuminexact__2f(ScmObj*, int, void*);
static SCM_DEFINE_SUBR(libnuminexact__2f__STUB, 1, 1,SCM_FALSE,libnuminexact__2f, NULL, NULL);


static ScmObj libnum_2b_2e(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnum_2b_2e__STUB, 0, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnum_2b_2e, NULL, NULL);


static ScmObj libnum_2a_2e(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnum_2a_2e__STUB, 0, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnum_2a_2e, NULL, NULL);


static ScmObj libnum__2e(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnum__2e__STUB, 1, 1,1, SCM_FALSE,0, libnum__2e, NULL, NULL);


static ScmObj libnum_2f_2e(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnum_2f_2e__STUB, 1, 1,1, SCM_FALSE,0, libnum_2f_2e, NULL, NULL);


static ScmObj libnumclamp(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumclamp__STUB, 1, 3,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumclamp, NULL, NULL);


static ScmObj libnumquotient_26remainder(ScmObj*, int, void*);
static SCM_DEFINE_SUBR(libnumquotient_26remainder__STUB, 2, 0,SCM_FALSE,libnumquotient_26remainder, NULL, NULL);


static ScmObj libnummake_rectangular(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnummake_rectangular__STUB, 2, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnummake_rectangular, NULL, NULL);


static ScmObj libnummake_polar(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnummake_polar__STUB, 2, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnummake_polar, NULL, NULL);


static ScmObj libnumreal_part(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumreal_part__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumreal_part, NULL, NULL);


static ScmObj libnumimag_part(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumimag_part__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumimag_part, NULL, NULL);


static ScmObj libnummagnitude(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnummagnitude__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnummagnitude, NULL, NULL);


static ScmObj libnumangle(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumangle__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumangle, NULL, NULL);


#if defined(__CYGWIN__) || defined(GAUCHE_WINDOWS)
#define SCM_CGEN_CONST /*empty*/
#else
#define SCM_CGEN_CONST const
#endif
static SCM_CGEN_CONST struct scm__scRec {
#if defined(HAVE_LGAMMA)
  ScmString d1571[6];
#endif /*defined(HAVE_LGAMMA)*/
#if defined(HAVE_TGAMMA)
  ScmString d1568[6];
#endif /*defined(HAVE_TGAMMA)*/
  ScmString d1561[183];
} scm__sc SCM_UNUSED = {
#if defined(HAVE_LGAMMA)
  {   /* ScmString d1571 */
      SCM_STRING_CONST_INITIALIZER("%lgamma", 7, 7),
      SCM_STRING_CONST_INITIALIZER("x", 1, 1),
      SCM_STRING_CONST_INITIALIZER("source-info", 11, 11),
      SCM_STRING_CONST_INITIALIZER("libnum.scm", 10, 10),
      SCM_STRING_CONST_INITIALIZER("bind-info", 9, 9),
      SCM_STRING_CONST_INITIALIZER("gauche.internal", 15, 15),
  },
#endif /*defined(HAVE_LGAMMA)*/
#if defined(HAVE_TGAMMA)
  {   /* ScmString d1568 */
      SCM_STRING_CONST_INITIALIZER("%gamma", 6, 6),
      SCM_STRING_CONST_INITIALIZER("x", 1, 1),
      SCM_STRING_CONST_INITIALIZER("source-info", 11, 11),
      SCM_STRING_CONST_INITIALIZER("libnum.scm", 10, 10),
      SCM_STRING_CONST_INITIALIZER("bind-info", 9, 9),
      SCM_STRING_CONST_INITIALIZER("gauche.internal", 15, 15),
  },
#endif /*defined(HAVE_TGAMMA)*/
  {   /* ScmString d1561 */
      SCM_STRING_CONST_INITIALIZER("number\077", 7, 7),
      SCM_STRING_CONST_INITIALIZER("obj", 3, 3),
      SCM_STRING_CONST_INITIALIZER("source-info", 11, 11),
      SCM_STRING_CONST_INITIALIZER("libnum.scm", 10, 10),
      SCM_STRING_CONST_INITIALIZER("bind-info", 9, 9),
      SCM_STRING_CONST_INITIALIZER("scheme", 6, 6),
      SCM_STRING_CONST_INITIALIZER("complex\077", 8, 8),
      SCM_STRING_CONST_INITIALIZER("real\077", 5, 5),
      SCM_STRING_CONST_INITIALIZER("rational\077", 9, 9),
      SCM_STRING_CONST_INITIALIZER("integer\077", 8, 8),
      SCM_STRING_CONST_INITIALIZER("exact\077", 6, 6),
      SCM_STRING_CONST_INITIALIZER("inexact\077", 8, 8),
      SCM_STRING_CONST_INITIALIZER("zero\077", 5, 5),
      SCM_STRING_CONST_INITIALIZER("positive\077", 9, 9),
      SCM_STRING_CONST_INITIALIZER("negative\077", 9, 9),
      SCM_STRING_CONST_INITIALIZER("odd\077", 4, 4),
      SCM_STRING_CONST_INITIALIZER("even\077", 5, 5),
      SCM_STRING_CONST_INITIALIZER("fixnum\077", 7, 7),
      SCM_STRING_CONST_INITIALIZER("x", 1, 1),
      SCM_STRING_CONST_INITIALIZER("gauche", 6, 6),
      SCM_STRING_CONST_INITIALIZER("bignum\077", 7, 7),
      SCM_STRING_CONST_INITIALIZER("flonum\077", 7, 7),
      SCM_STRING_CONST_INITIALIZER("finite\077", 7, 7),
      SCM_STRING_CONST_INITIALIZER("infinite\077", 9, 9),
      SCM_STRING_CONST_INITIALIZER("nan\077", 4, 4),
      SCM_STRING_CONST_INITIALIZER("-zero\077", 6, 6),
      SCM_STRING_CONST_INITIALIZER("exact-integer\077", 14, 14),
      SCM_STRING_CONST_INITIALIZER("fixnum-width", 12, 12),
      SCM_STRING_CONST_INITIALIZER("least-fixnum", 12, 12),
      SCM_STRING_CONST_INITIALIZER("greatest-fixnum", 15, 15),
      SCM_STRING_CONST_INITIALIZER("native-endian", 13, 13),
      SCM_STRING_CONST_INITIALIZER("flonum-epsilon", 14, 14),
      SCM_STRING_CONST_INITIALIZER("flonum-min-normalized", 21, 21),
      SCM_STRING_CONST_INITIALIZER("flonum-min-denormalized", 23, 23),
      SCM_STRING_CONST_INITIALIZER("%bignum-dump", 12, 12),
      SCM_STRING_CONST_INITIALIZER("gauche.internal", 15, 15),
      SCM_STRING_CONST_INITIALIZER("=", 1, 1),
      SCM_STRING_CONST_INITIALIZER("arg0", 4, 4),
      SCM_STRING_CONST_INITIALIZER("arg1", 4, 4),
      SCM_STRING_CONST_INITIALIZER("rest", 4, 4),
      SCM_STRING_CONST_INITIALIZER("args", 4, 4),
      SCM_STRING_CONST_INITIALIZER("optarray", 8, 8),
      SCM_STRING_CONST_INITIALIZER("oarg", 4, 4),
      SCM_STRING_CONST_INITIALIZER("<", 1, 1),
      SCM_STRING_CONST_INITIALIZER("<=", 2, 2),
      SCM_STRING_CONST_INITIALIZER(">", 1, 1),
      SCM_STRING_CONST_INITIALIZER(">=", 2, 2),
      SCM_STRING_CONST_INITIALIZER("max", 3, 3),
      SCM_STRING_CONST_INITIALIZER("min", 3, 3),
      SCM_STRING_CONST_INITIALIZER("min&max", 7, 7),
      SCM_STRING_CONST_INITIALIZER("exact->inexact", 14, 14),
      SCM_STRING_CONST_INITIALIZER("inexact->exact", 14, 14),
      SCM_STRING_CONST_INITIALIZER("exact", 5, 5),
      SCM_STRING_CONST_INITIALIZER("%toplevel", 9, 9),
      SCM_STRING_CONST_INITIALIZER("inexact", 7, 7),
      SCM_STRING_CONST_INITIALIZER("number->string", 14, 14),
      SCM_STRING_CONST_INITIALIZER("uppercase", 9, 9),
      SCM_STRING_CONST_INITIALIZER("plus", 4, 4),
      SCM_STRING_CONST_INITIALIZER("radix", 5, 5),
      SCM_STRING_CONST_INITIALIZER("notational", 10, 10),
      SCM_STRING_CONST_INITIALIZER("optional", 8, 8),
      SCM_STRING_CONST_INITIALIZER("flags", 5, 5),
      SCM_STRING_CONST_INITIALIZER("precision", 9, 9),
      SCM_STRING_CONST_INITIALIZER("string->number", 14, 14),
      SCM_STRING_CONST_INITIALIZER("default-exactness", 17, 17),
      SCM_STRING_CONST_INITIALIZER("floor->exact", 12, 12),
      SCM_STRING_CONST_INITIALIZER("num", 3, 3),
      SCM_STRING_CONST_INITIALIZER("ceiling->exact", 14, 14),
      SCM_STRING_CONST_INITIALIZER("truncate->exact", 15, 15),
      SCM_STRING_CONST_INITIALIZER("round->exact", 12, 12),
      SCM_STRING_CONST_INITIALIZER("decode-float", 12, 12),
      SCM_STRING_CONST_INITIALIZER("fmod", 4, 4),
      SCM_STRING_CONST_INITIALIZER("y", 1, 1),
      SCM_STRING_CONST_INITIALIZER("frexp", 5, 5),
      SCM_STRING_CONST_INITIALIZER("d", 1, 1),
      SCM_STRING_CONST_INITIALIZER("modf", 4, 4),
      SCM_STRING_CONST_INITIALIZER("ldexp", 5, 5),
      SCM_STRING_CONST_INITIALIZER("exp", 3, 3),
      SCM_STRING_CONST_INITIALIZER("log10", 5, 5),
      SCM_STRING_CONST_INITIALIZER("flonum->f16bits", 15, 15),
      SCM_STRING_CONST_INITIALIZER("*", 1, 1),
      SCM_STRING_CONST_INITIALIZER("+", 1, 1),
      SCM_STRING_CONST_INITIALIZER("-", 1, 1),
      SCM_STRING_CONST_INITIALIZER("/", 1, 1),
      SCM_STRING_CONST_INITIALIZER("abs", 3, 3),
      SCM_STRING_CONST_INITIALIZER("quotient", 8, 8),
      SCM_STRING_CONST_INITIALIZER("n1", 2, 2),
      SCM_STRING_CONST_INITIALIZER("n2", 2, 2),
      SCM_STRING_CONST_INITIALIZER("remainder", 9, 9),
      SCM_STRING_CONST_INITIALIZER("modulo", 6, 6),
      SCM_STRING_CONST_INITIALIZER("integer required, but got", 25, 25),
      SCM_STRING_CONST_INITIALIZER("error", 5, 5),
      SCM_STRING_CONST_INITIALIZER("gcd", 3, 3),
      SCM_STRING_CONST_INITIALIZER("G1578", 5, 5),
      SCM_STRING_CONST_INITIALIZER("arg", 3, 3),
      SCM_STRING_CONST_INITIALIZER("unused-args", 11, 11),
      SCM_STRING_CONST_INITIALIZER("map", 3, 3),
      SCM_STRING_CONST_INITIALIZER("%gcd", 4, 4),
      SCM_STRING_CONST_INITIALIZER("lcm", 3, 3),
      SCM_STRING_CONST_INITIALIZER("G1579", 5, 5),
      SCM_STRING_CONST_INITIALIZER("numerator", 9, 9),
      SCM_STRING_CONST_INITIALIZER("n", 1, 1),
      SCM_STRING_CONST_INITIALIZER("denominator", 11, 11),
      SCM_STRING_CONST_INITIALIZER("rationalize", 11, 11),
      SCM_STRING_CONST_INITIALIZER("rationalize needs nonnegative error bound, but got", 50, 50),
      SCM_STRING_CONST_INITIALIZER("real->rational", 14, 14),
      SCM_STRING_CONST_INITIALIZER("e", 1, 1),
      SCM_STRING_CONST_INITIALIZER("floor", 5, 5),
      SCM_STRING_CONST_INITIALIZER("v", 1, 1),
      SCM_STRING_CONST_INITIALIZER("ceiling", 7, 7),
      SCM_STRING_CONST_INITIALIZER("truncate", 8, 8),
      SCM_STRING_CONST_INITIALIZER("round", 5, 5),
      SCM_STRING_CONST_INITIALIZER("%exp", 4, 4),
      SCM_STRING_CONST_INITIALIZER("%log", 4, 4),
      SCM_STRING_CONST_INITIALIZER("%sin", 4, 4),
      SCM_STRING_CONST_INITIALIZER("%cos", 4, 4),
      SCM_STRING_CONST_INITIALIZER("%tan", 4, 4),
      SCM_STRING_CONST_INITIALIZER("%sinpi", 6, 6),
      SCM_STRING_CONST_INITIALIZER("%cospi", 6, 6),
      SCM_STRING_CONST_INITIALIZER("%tanpi", 6, 6),
      SCM_STRING_CONST_INITIALIZER("%asin", 5, 5),
      SCM_STRING_CONST_INITIALIZER("%acos", 5, 5),
      SCM_STRING_CONST_INITIALIZER("%atan", 5, 5),
      SCM_STRING_CONST_INITIALIZER("z", 1, 1),
      SCM_STRING_CONST_INITIALIZER("%sinh", 5, 5),
      SCM_STRING_CONST_INITIALIZER("%cosh", 5, 5),
      SCM_STRING_CONST_INITIALIZER("%tanh", 5, 5),
      SCM_STRING_CONST_INITIALIZER("%sqrt", 5, 5),
      SCM_STRING_CONST_INITIALIZER("%sqrt-fast-path", 15, 15),
      SCM_STRING_CONST_INITIALIZER("%expt", 5, 5),
      SCM_STRING_CONST_INITIALIZER("real-part", 9, 9),
      SCM_STRING_CONST_INITIALIZER("imag-part", 9, 9),
      SCM_STRING_CONST_INITIALIZER("make-polar", 10, 10),
      SCM_STRING_CONST_INITIALIZER("number required, but got", 24, 24),
      SCM_STRING_CONST_INITIALIZER("log", 3, 3),
      SCM_STRING_CONST_INITIALIZER("magnitude", 9, 9),
      SCM_STRING_CONST_INITIALIZER("angle", 5, 5),
      SCM_STRING_CONST_INITIALIZER("make-rectangular", 16, 16),
      SCM_STRING_CONST_INITIALIZER("base", 4, 4),
      SCM_STRING_CONST_INITIALIZER("sqrt", 4, 4),
      SCM_STRING_CONST_INITIALIZER("%exact-integer-sqrt", 19, 19),
      SCM_STRING_CONST_INITIALIZER("10000000000000", 14, 14),
      SCM_STRING_CONST_INITIALIZER("integer-length", 14, 14),
      SCM_STRING_CONST_INITIALIZER("ash", 3, 3),
      SCM_STRING_CONST_INITIALIZER("k", 1, 1),
      SCM_STRING_CONST_INITIALIZER("expt", 4, 4),
      SCM_STRING_CONST_INITIALIZER("%exact-expt", 11, 11),
      SCM_STRING_CONST_INITIALIZER("%exact-integer-expt", 19, 19),
      SCM_STRING_CONST_INITIALIZER("cos", 3, 3),
      SCM_STRING_CONST_INITIALIZER("cosh", 4, 4),
      SCM_STRING_CONST_INITIALIZER("sin", 3, 3),
      SCM_STRING_CONST_INITIALIZER("sinh", 4, 4),
      SCM_STRING_CONST_INITIALIZER("tan", 3, 3),
      SCM_STRING_CONST_INITIALIZER("tanh", 4, 4),
      SCM_STRING_CONST_INITIALIZER("asin", 4, 4),
      SCM_STRING_CONST_INITIALIZER("asinh", 5, 5),
      SCM_STRING_CONST_INITIALIZER("acos", 4, 4),
      SCM_STRING_CONST_INITIALIZER("acosh", 5, 5),
      SCM_STRING_CONST_INITIALIZER("atan", 4, 4),
      SCM_STRING_CONST_INITIALIZER("atanh", 5, 5),
      SCM_STRING_CONST_INITIALIZER("cnt", 3, 3),
      SCM_STRING_CONST_INITIALIZER("lognot", 6, 6),
      SCM_STRING_CONST_INITIALIZER("logand", 6, 6),
      SCM_STRING_CONST_INITIALIZER("arg2", 4, 4),
      SCM_STRING_CONST_INITIALIZER("logior", 6, 6),
      SCM_STRING_CONST_INITIALIZER("logxor", 6, 6),
      SCM_STRING_CONST_INITIALIZER("logcount", 8, 8),
      SCM_STRING_CONST_INITIALIZER("twos-exponent-factor", 20, 20),
      SCM_STRING_CONST_INITIALIZER("twos-exponent", 13, 13),
      SCM_STRING_CONST_INITIALIZER("inexact-/", 9, 9),
      SCM_STRING_CONST_INITIALIZER("+.", 2, 2),
      SCM_STRING_CONST_INITIALIZER("*.", 2, 2),
      SCM_STRING_CONST_INITIALIZER("-.", 2, 2),
      SCM_STRING_CONST_INITIALIZER("/.", 2, 2),
      SCM_STRING_CONST_INITIALIZER("clamp", 5, 5),
      SCM_STRING_CONST_INITIALIZER("quotient&remainder", 18, 18),
      SCM_STRING_CONST_INITIALIZER("a", 1, 1),
      SCM_STRING_CONST_INITIALIZER("b", 1, 1),
      SCM_STRING_CONST_INITIALIZER("r", 1, 1),
      SCM_STRING_CONST_INITIALIZER("t", 1, 1),
      SCM_STRING_CONST_INITIALIZER("high", 4, 4),
      SCM_STRING_CONST_INITIALIZER("low", 3, 3),
      SCM_STRING_CONST_INITIALIZER("both", 4, 4),
  },
};
static struct scm__rcRec {
#if defined(HAVE_LGAMMA)
  ScmPair d1573[10] SCM_ALIGN_PAIR;
#endif /*defined(HAVE_LGAMMA)*/
#if defined(HAVE_LGAMMA)
  ScmObj d1572[6];
#endif /*defined(HAVE_LGAMMA)*/
#if defined(HAVE_TGAMMA)
  ScmPair d1570[10] SCM_ALIGN_PAIR;
#endif /*defined(HAVE_TGAMMA)*/
#if defined(HAVE_TGAMMA)
  ScmObj d1569[6];
#endif /*defined(HAVE_TGAMMA)*/
  ScmCompiledCode d1567[27];
  ScmWord d1566[1559];
  ScmPair d1563[997] SCM_ALIGN_PAIR;
  ScmObj d1562[389];
} scm__rc SCM_UNUSED = {
#if defined(HAVE_LGAMMA)
  {   /* ScmPair d1573 */
       { SCM_NIL, SCM_NIL },
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(300U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1571[3]), SCM_OBJ(&scm__rc.d1573[2])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1573[3])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1573[5])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1573[6])},
       { SCM_OBJ(&scm__rc.d1573[7]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1573[4]), SCM_OBJ(&scm__rc.d1573[8])},
  },
#endif /*defined(HAVE_LGAMMA)*/
#if defined(HAVE_LGAMMA)
  {   /* ScmObj d1572 */
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
  },
#endif /*defined(HAVE_LGAMMA)*/
#if defined(HAVE_TGAMMA)
  {   /* ScmPair d1570 */
       { SCM_NIL, SCM_NIL },
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(297U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1568[3]), SCM_OBJ(&scm__rc.d1570[2])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1570[3])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1570[5])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1570[6])},
       { SCM_OBJ(&scm__rc.d1570[7]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1570[4]), SCM_OBJ(&scm__rc.d1570[8])},
  },
#endif /*defined(HAVE_TGAMMA)*/
#if defined(HAVE_TGAMMA)
  {   /* ScmObj d1569 */
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
  },
#endif /*defined(HAVE_TGAMMA)*/
  {   /* ScmCompiledCode d1567 */
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1566[0])), 5,
            0, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1566[5])), 5,
            0, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* (gcd G1578) */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1566[10])), 20,
            11, 1, 0, SCM_OBJ(&scm__rc.d1563[475]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[483]),
            SCM_OBJ(&scm__rc.d1567[4]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* gcd */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1566[30])), 38,
            27, 0, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[489]),
            SCM_OBJ(&scm__rc.d1567[4]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1566[68])), 7,
            4, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* (lcm G1579) */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1566[75])), 20,
            11, 1, 0, SCM_OBJ(&scm__rc.d1563[491]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[496]),
            SCM_OBJ(&scm__rc.d1567[7]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* lcm */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1566[95])), 58,
            35, 0, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[502]),
            SCM_OBJ(&scm__rc.d1567[7]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1566[153])), 7,
            4, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* rationalize */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1566[160])), 83,
            12, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[534]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* exp */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1566[243])), 35,
            17, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[711]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* log */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1566[278])), 50,
            17, 1, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[717]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* sqrt */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1566[328])), 159,
            24, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[722]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %exact-integer-sqrt */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1566[487])), 113,
            29, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[728]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* expt */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1566[600])), 121,
            22, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[733]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %exact-expt */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1566[721])), 241,
            56, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[746]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* cos */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1566[962])), 61,
            17, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[751]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* cosh */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1566[1023])), 60,
            17, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[756]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* sin */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1566[1083])), 60,
            17, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[761]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* sinh */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1566[1143])), 60,
            17, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[766]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* tan */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1566[1203])), 58,
            17, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[771]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* tanh */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1566[1261])), 50,
            12, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[776]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* asin */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1566[1311])), 65,
            15, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[781]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* asinh */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1566[1376])), 46,
            15, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[786]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* acos */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1566[1422])), 33,
            11, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[791]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* acosh */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1566[1455])), 28,
            18, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[796]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* atan */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1566[1483])), 54,
            15, 1, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[802]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* atanh */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1566[1537])), 22,
            11, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[807]),
            SCM_FALSE, SCM_FALSE),
  },
  {   /* ScmWord d1566 */
    /* %toplevel */
    0x0000005d    /*   0 (GREF) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#inexact->exact.dfab5640> */,
    0x00000015    /*   2 (DEFINE 0) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#exact.dfab56c0> */,
    0x00000014    /*   4 (RET) */,
    /* %toplevel */
    0x0000005d    /*   0 (GREF) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#exact->inexact.dfb05b80> */,
    0x00000015    /*   2 (DEFINE 0) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#inexact.dfb05c80> */,
    0x00000014    /*   4 (RET) */,
    /* (gcd G1578) */
    0x0000100e    /*   0 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[10]) + 5),
    0x00000048    /*   2 (LREF0-PUSH) */,
    0x0000105f    /*   3 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#integer?.de4ef140> */,
    0x0000001e    /*   5 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[10]) + 9),
    0x00000013    /*   7 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[10]) + 16),
    0x0000200e    /*   9 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[10]) + 16),
    0x00000006    /*  11 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1561[90])) /* "integer required, but got" */,
    0x00000048    /*  13 (LREF0-PUSH) */,
    0x0000205f    /*  14 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.de4ef0e0> */,
    0x00000048    /*  16 (LREF0-PUSH) */,
    0x00001060    /*  17 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#abs.de4ef060> */,
    0x00000014    /*  19 (RET) */,
    /* gcd */
    0x0000200e    /*   0 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[30]) + 6),
    0x0000004c    /*   2 (LREF10-PUSH) */,
    0x00000048    /*   3 (LREF0-PUSH) */,
    0x0000205f    /*   4 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#map.de4ef2e0> */,
    0x00001018    /*   6 (PUSH-LOCAL-ENV 1) */,
    0x0000003d    /*   7 (LREF0) */,
    0x00000022    /*   8 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[30]) + 12),
    0x00000002    /*  10 (CONSTI 0) */,
    0x00000014    /*  11 (RET) */,
    0x00000076    /*  12 (LREF0-CDR) */,
    0x00000022    /*  13 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[30]) + 17),
    0x0000006a    /*  15 (LREF0-CAR) */,
    0x00000014    /*  16 (RET) */,
    0x0000006a    /*  17 (LREF0-CAR) */,
    0x0000000d    /*  18 (PUSH) */,
    0x00000076    /*  19 (LREF0-CDR) */,
    0x00002018    /*  20 (PUSH-LOCAL-ENV 2) */,
    0x0000003d    /*  21 (LREF0) */,
    0x00000022    /*  22 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[30]) + 25),
    0x00000054    /*  24 (LREF1-RET) */,
    0x0000200e    /*  25 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[30]) + 31),
    0x00000049    /*  27 (LREF1-PUSH) */,
    0x0000006a    /*  28 (LREF0-CAR) */,
    0x00002062    /*  29 (PUSH-GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%gcd.de4ef420> */,
    0x0000000d    /*  31 (PUSH) */,
    0x00000076    /*  32 (LREF0-CDR) */,
    0x0000000d    /*  33 (PUSH) */,
    0x0000101b    /*  34 (LOCAL-ENV-JUMP 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[30]) + 21),
    0x00000014    /*  36 (RET) */,
    0x00000014    /*  37 (RET) */,
    /* %toplevel */
    0x00001019    /*   0 (LOCAL-ENV-CLOSURES 1) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1563[484])) /* (#<compiled-code (gcd #:G1578)@0x7fb2df5f1180>) */,
    0x00000016    /*   2 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1567[3])) /* #<compiled-code gcd@0x7fb2df5f1120> */,
    0x00000015    /*   4 (DEFINE 0) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier scheme#gcd.de4ef6a0> */,
    0x00000014    /*   6 (RET) */,
    /* (lcm G1579) */
    0x0000100e    /*   0 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[75]) + 5),
    0x00000048    /*   2 (LREF0-PUSH) */,
    0x0000105f    /*   3 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#integer?.de774920> */,
    0x0000001e    /*   5 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[75]) + 9),
    0x00000013    /*   7 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[75]) + 16),
    0x0000200e    /*   9 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[75]) + 16),
    0x00000006    /*  11 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1561[90])) /* "integer required, but got" */,
    0x00000048    /*  13 (LREF0-PUSH) */,
    0x0000205f    /*  14 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.de7748c0> */,
    0x00000048    /*  16 (LREF0-PUSH) */,
    0x00001060    /*  17 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#abs.de774840> */,
    0x00000014    /*  19 (RET) */,
    /* lcm */
    0x0000200e    /*   0 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[95]) + 6),
    0x0000004c    /*   2 (LREF10-PUSH) */,
    0x00000048    /*   3 (LREF0-PUSH) */,
    0x0000205f    /*   4 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#map.de774a60> */,
    0x00001018    /*   6 (PUSH-LOCAL-ENV 1) */,
    0x0000003d    /*   7 (LREF0) */,
    0x00000022    /*   8 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[95]) + 12),
    0x00001002    /*  10 (CONSTI 1) */,
    0x00000014    /*  11 (RET) */,
    0x00000076    /*  12 (LREF0-CDR) */,
    0x00000022    /*  13 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[95]) + 17),
    0x0000006a    /*  15 (LREF0-CAR) */,
    0x00000014    /*  16 (RET) */,
    0x0000006a    /*  17 (LREF0-CAR) */,
    0x0000000d    /*  18 (PUSH) */,
    0x00000076    /*  19 (LREF0-CDR) */,
    0x00002018    /*  20 (PUSH-LOCAL-ENV 2) */,
    0x0000003d    /*  21 (LREF0) */,
    0x00000022    /*  22 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[95]) + 25),
    0x00000054    /*  24 (LREF1-RET) */,
    0x0000006a    /*  25 (LREF0-CAR) */,
    0x00001018    /*  26 (PUSH-LOCAL-ENV 1) */,
    0x0000200e    /*  27 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[95]) + 33),
    0x0000004d    /*  29 (LREF11-PUSH) */,
    0x00000048    /*  30 (LREF0-PUSH) */,
    0x0000205f    /*  31 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%gcd.de774ea0> */,
    0x00001018    /*  33 (PUSH-LOCAL-ENV 1) */,
    0x00000045    /*  34 (LREF21) */,
    0x0000002d    /*  35 (BNUMNEI 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[95]) + 40),
    0x00000002    /*  37 (CONSTI 0) */,
    0x00000013    /*  38 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[95]) + 49),
    0x0000200e    /*  40 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[95]) + 46),
    0x00000050    /*  42 (LREF21-PUSH) */,
    0x00000048    /*  43 (LREF0-PUSH) */,
    0x0000205f    /*  44 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#quotient.de774d40> */,
    0x0000000d    /*  46 (PUSH) */,
    0x00000041    /*  47 (LREF10) */,
    0x000000b4    /*  48 (NUMMUL2) */,
    0x0000001a    /*  49 (POP-LOCAL-ENV) */,
    0x0000001a    /*  50 (POP-LOCAL-ENV) */,
    0x0000000d    /*  51 (PUSH) */,
    0x00000076    /*  52 (LREF0-CDR) */,
    0x0000000d    /*  53 (PUSH) */,
    0x0000101b    /*  54 (LOCAL-ENV-JUMP 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[95]) + 21),
    0x00000014    /*  56 (RET) */,
    0x00000014    /*  57 (RET) */,
    /* %toplevel */
    0x00001019    /*   0 (LOCAL-ENV-CLOSURES 1) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1563[497])) /* (#<compiled-code (lcm #:G1579)@0x7fb2df04ede0>) */,
    0x00000016    /*   2 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1567[6])) /* #<compiled-code lcm@0x7fb2df04ecc0> */,
    0x00000015    /*   4 (DEFINE 0) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier scheme#lcm.de764160> */,
    0x00000014    /*   6 (RET) */,
    /* rationalize */
    0x00000002    /*   0 (CONSTI 0) */,
    0x00000029    /*   1 (LREF-VAL0-BNLT 0 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[160]) + 9),
    0x00000006    /*   3 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1561[104])) /* "rationalize needs nonnegative error bound, but got" */,
    0x00000048    /*   5 (LREF0-PUSH) */,
    0x00002060    /*   6 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.dea14160> */,
    0x00000014    /*   8 (RET) */,
    0x0000100e    /*   9 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[160]) + 14),
    0x00000049    /*  11 (LREF1-PUSH) */,
    0x0000105f    /*  12 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#nan?.dea14080> */,
    0x0000001e    /*  14 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[160]) + 18),
    0x0000000a    /*  16 (CONST-RET) */,
    SCM_WORD(SCM_UNDEFINED) /* +nan.0 */,
    0x0000100e    /*  18 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[160]) + 23),
    0x00000048    /*  20 (LREF0-PUSH) */,
    0x0000105f    /*  21 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#nan?.dea14020> */,
    0x0000001e    /*  23 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[160]) + 27),
    0x0000000a    /*  25 (CONST-RET) */,
    SCM_WORD(SCM_UNDEFINED) /* +nan.0 */,
    0x0000100e    /*  27 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[160]) + 32),
    0x00000048    /*  29 (LREF0-PUSH) */,
    0x0000105f    /*  30 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#infinite?.dea17f80> */,
    0x0000001e    /*  32 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[160]) + 45),
    0x0000100e    /*  34 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[160]) + 39),
    0x00000049    /*  36 (LREF1-PUSH) */,
    0x0000105f    /*  37 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#infinite?.dea17f00> */,
    0x0000001e    /*  39 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[160]) + 43),
    0x0000000a    /*  41 (CONST-RET) */,
    SCM_WORD(SCM_UNDEFINED) /* +nan.0 */,
    0x0000000a    /*  43 (CONST-RET) */,
    SCM_WORD(SCM_UNDEFINED) /* 0.0 */,
    0x0000100e    /*  45 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[160]) + 50),
    0x00000049    /*  47 (LREF1-PUSH) */,
    0x0000105f    /*  48 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#infinite?.dea17e40> */,
    0x0000001e    /*  50 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[160]) + 53),
    0x00000054    /*  52 (LREF1-RET) */,
    0x0000100e    /*  53 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[160]) + 58),
    0x00000049    /*  55 (LREF1-PUSH) */,
    0x0000105f    /*  56 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#inexact?.dea17d60> */,
    0x0000001e    /*  58 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[160]) + 70),
    0x0000300e    /*  60 (PRE-CALL 3) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[160]) + 67),
    0x00000049    /*  62 (LREF1-PUSH) */,
    0x00000048    /*  63 (LREF0-PUSH) */,
    0x00000048    /*  64 (LREF0-PUSH) */,
    0x0000305f    /*  65 (GREF-CALL 3) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#real->rational.dea17c60> */,
    0x00001063    /*  67 (PUSH-GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#inexact.dea17ca0> */,
    0x00000014    /*  69 (RET) */,
    0x0000100e    /*  70 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[160]) + 75),
    0x00000048    /*  72 (LREF0-PUSH) */,
    0x0000105f    /*  73 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#inexact?.dea17d00> */,
    0x0000001f    /*  75 (BT) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[160]) + 60),
    0x00000049    /*  77 (LREF1-PUSH) */,
    0x00000048    /*  78 (LREF0-PUSH) */,
    0x00000048    /*  79 (LREF0-PUSH) */,
    0x00003060    /*  80 (GREF-TAIL-CALL 3) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#real->rational.dea17b80> */,
    0x00000014    /*  82 (RET) */,
    /* exp */
    0x0000003d    /*   0 (LREF0) */,
    0x0000009f    /*   1 (REALP) */,
    0x0000001e    /*   2 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[243]) + 8),
    0x00000048    /*   4 (LREF0-PUSH) */,
    0x00001060    /*   5 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%exp.dee3b080> */,
    0x00000014    /*   7 (RET) */,
    0x0000003d    /*   8 (LREF0) */,
    0x0000009e    /*   9 (NUMBERP) */,
    0x0000001e    /*  10 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[243]) + 29),
    0x0000100e    /*  12 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[243]) + 21),
    0x0000100e    /*  14 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[243]) + 19),
    0x00000048    /*  16 (LREF0-PUSH) */,
    0x0000105f    /*  17 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#real-part.dee3ff40> */,
    0x00001062    /*  19 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%exp.dee3ff80> */,
    0x0000100f    /*  21 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[243]) + 26),
    0x00000048    /*  23 (LREF0-PUSH) */,
    0x0000105f    /*  24 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#imag-part.dee3fee0> */,
    0x00002063    /*  26 (PUSH-GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#make-polar.dee3ffc0> */,
    0x00000014    /*  28 (RET) */,
    0x00000006    /*  29 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1561[133])) /* "number required, but got" */,
    0x00000048    /*  31 (LREF0-PUSH) */,
    0x00002060    /*  32 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.dee3fe40> */,
    0x00000014    /*  34 (RET) */,
    /* log */
    0x0000003d    /*   0 (LREF0) */,
    0x00000022    /*   1 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[278]) + 38),
    0x0000003e    /*   3 (LREF1) */,
    0x0000009f    /*   4 (REALP) */,
    0x0000001e    /*   5 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[278]) + 11),
    0x00000049    /*   7 (LREF1-PUSH) */,
    0x00001060    /*   8 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%log.def7a180> */,
    0x00000014    /*  10 (RET) */,
    0x0000003e    /*  11 (LREF1) */,
    0x0000009e    /*  12 (NUMBERP) */,
    0x0000001e    /*  13 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[278]) + 32),
    0x0000100e    /*  15 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[278]) + 24),
    0x0000100e    /*  17 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[278]) + 22),
    0x00000049    /*  19 (LREF1-PUSH) */,
    0x0000105f    /*  20 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#magnitude.def7a040> */,
    0x00001062    /*  22 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%log.def7a080> */,
    0x0000100f    /*  24 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[278]) + 29),
    0x00000049    /*  26 (LREF1-PUSH) */,
    0x0000105f    /*  27 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#angle.def82fc0> */,
    0x00002063    /*  29 (PUSH-GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#make-rectangular.def7a0c0> */,
    0x00000014    /*  31 (RET) */,
    0x00000006    /*  32 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1561[133])) /* "number required, but got" */,
    0x00000049    /*  34 (LREF1-PUSH) */,
    0x00002060    /*  35 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.def82dc0> */,
    0x00000014    /*  37 (RET) */,
    0x0000100e    /*  38 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[278]) + 43),
    0x00000049    /*  40 (LREF1-PUSH) */,
    0x0000105f    /*  41 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#log.def82d20> */,
    0x0000100f    /*  43 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[278]) + 48),
    0x0000006a    /*  45 (LREF0-CAR) */,
    0x00001062    /*  46 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#log.def82cc0> */,
    0x000000b5    /*  48 (NUMDIV2) */,
    0x00000014    /*  49 (RET) */,
    /* sqrt */
    0x0000100e    /*   0 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]) + 5),
    0x00000048    /*   2 (LREF0-PUSH) */,
    0x0000105f    /*   3 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sqrt-fast-path.deb21a80> */,
    0x00000031    /*   5 (RT) */,
    0x0000100e    /*   6 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]) + 11),
    0x00000048    /*   8 (LREF0-PUSH) */,
    0x0000105f    /*   9 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#exact?.deb219c0> */,
    0x0000001e    /*  11 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]) + 117),
    0x00000002    /*  13 (CONSTI 0) */,
    0x0000002c    /*  14 (LREF-VAL0-BNGE 0 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]) + 117),
    0x0000100e    /*  16 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]) + 21),
    0x00000048    /*  18 (LREF0-PUSH) */,
    0x0000105f    /*  19 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#integer?.deb218e0> */,
    0x0000001e    /*  21 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]) + 37),
    0x0000100e    /*  23 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]) + 28),
    0x00000048    /*  25 (LREF0-PUSH) */,
    0x0000105f    /*  26 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%exact-integer-sqrt.deb21820> */,
    0x00002036    /*  28 (TAIL-RECEIVE 2 0) */,
    0x0000003d    /*  29 (LREF0) */,
    0x0000002d    /*  30 (BNUMNEI 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]) + 33),
    0x00000054    /*  32 (LREF1-RET) */,
    0x0000004c    /*  33 (LREF10-PUSH) */,
    0x00001060    /*  34 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sqrt.deb216a0> */,
    0x00000014    /*  36 (RET) */,
    0x0000100e    /*  37 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]) + 42),
    0x00000048    /*  39 (LREF0-PUSH) */,
    0x0000105f    /*  40 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#numerator.deb215c0> */,
    0x0000100f    /*  42 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]) + 47),
    0x00000048    /*  44 (LREF0-PUSH) */,
    0x0000105f    /*  45 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#denominator.deb21560> */,
    0x00002018    /*  47 (PUSH-LOCAL-ENV 2) */,
    0x0000100e    /*  48 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]) + 53),
    0x00000049    /*  50 (LREF1-PUSH) */,
    0x0000105f    /*  51 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sqrt-fast-path.deb213a0> */,
    0x00001018    /*  53 (PUSH-LOCAL-ENV 1) */,
    0x0000003d    /*  54 (LREF0) */,
    0x0000001e    /*  55 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]) + 87),
    0x0000100e    /*  57 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]) + 62),
    0x0000004c    /*  59 (LREF10-PUSH) */,
    0x0000105f    /*  60 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sqrt-fast-path.deb211c0> */,
    0x00001018    /*  62 (PUSH-LOCAL-ENV 1) */,
    0x0000003d    /*  63 (LREF0) */,
    0x0000001e    /*  64 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]) + 70),
    0x0000004c    /*  66 (LREF10-PUSH) */,
    0x0000003d    /*  67 (LREF0) */,
    0x000000b5    /*  68 (NUMDIV2) */,
    0x00000014    /*  69 (RET) */,
    0x0000100e    /*  70 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]) + 75),
    0x0000004f    /*  72 (LREF20-PUSH) */,
    0x0000105f    /*  73 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%exact-integer-sqrt.deb21020> */,
    0x00002036    /*  75 (TAIL-RECEIVE 2 0) */,
    0x0000003d    /*  76 (LREF0) */,
    0x0000002d    /*  77 (BNUMNEI 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]) + 83),
    0x0000004f    /*  79 (LREF20-PUSH) */,
    0x0000003e    /*  80 (LREF1) */,
    0x000000b5    /*  81 (NUMDIV2) */,
    0x00000014    /*  82 (RET) */,
    0x00004047    /*  83 (LREF-PUSH 4 0) */,
    0x00001060    /*  84 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sqrt.deb26e60> */,
    0x00000014    /*  86 (RET) */,
    0x0000100e    /*  87 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]) + 92),
    0x0000004d    /*  89 (LREF11-PUSH) */,
    0x0000105f    /*  90 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%exact-integer-sqrt.deb26da0> */,
    0x00002036    /*  92 (TAIL-RECEIVE 2 0) */,
    0x0000003d    /*  93 (LREF0) */,
    0x0000002d    /*  94 (BNUMNEI 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]) + 113),
    0x0000100e    /*  96 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]) + 101),
    0x0000004f    /*  98 (LREF20-PUSH) */,
    0x0000105f    /*  99 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%exact-integer-sqrt.deb26be0> */,
    0x00002036    /* 101 (TAIL-RECEIVE 2 0) */,
    0x0000003d    /* 102 (LREF0) */,
    0x0000002d    /* 103 (BNUMNEI 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]) + 109),
    0x0000004d    /* 105 (LREF11-PUSH) */,
    0x0000003e    /* 106 (LREF1) */,
    0x000000b5    /* 107 (NUMDIV2) */,
    0x00000014    /* 108 (RET) */,
    0x00004047    /* 109 (LREF-PUSH 4 0) */,
    0x00001060    /* 110 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sqrt.deb26a80> */,
    0x00000014    /* 112 (RET) */,
    0x00000051    /* 113 (LREF30-PUSH) */,
    0x00001060    /* 114 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sqrt.deb26a20> */,
    0x00000014    /* 116 (RET) */,
    0x0000003d    /* 117 (LREF0) */,
    0x0000009f    /* 118 (REALP) */,
    0x0000001e    /* 119 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]) + 125),
    0x00000048    /* 121 (LREF0-PUSH) */,
    0x00001060    /* 122 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sqrt.deb26960> */,
    0x00000014    /* 124 (RET) */,
    0x0000003d    /* 125 (LREF0) */,
    0x0000009e    /* 126 (NUMBERP) */,
    0x0000001e    /* 127 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]) + 150),
    0x0000100e    /* 129 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]) + 138),
    0x0000100e    /* 131 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]) + 136),
    0x00000048    /* 133 (LREF0-PUSH) */,
    0x0000105f    /* 134 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#magnitude.deb26760> */,
    0x00001062    /* 136 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sqrt.deb26800> */,
    0x0000100f    /* 138 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]) + 143),
    0x00000048    /* 140 (LREF0-PUSH) */,
    0x0000105f    /* 141 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#angle.deb266e0> */,
    0x0000000d    /* 143 (PUSH) */,
    0x00000001    /* 144 (CONST) */,
    SCM_WORD(SCM_UNDEFINED) /* 2.0 */,
    0x000000b5    /* 146 (NUMDIV2) */,
    0x00002063    /* 147 (PUSH-GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#make-polar.deb26840> */,
    0x00000014    /* 149 (RET) */,
    0x00000006    /* 150 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1561[133])) /* "number required, but got" */,
    0x00000048    /* 152 (LREF0-PUSH) */,
    0x00002060    /* 153 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.deb26620> */,
    0x00000014    /* 155 (RET) */,
    0x00000013    /* 156 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]) + 117),
    0x00000014    /* 158 (RET) */,
    /* %exact-integer-sqrt */
    0x00000001    /*   0 (CONST) */,
    SCM_WORD(SCM_UNDEFINED) /* 4503599627370496 */,
    0x00000029    /*   2 (LREF-VAL0-BNLT 0 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[487]) + 21),
    0x0000100e    /*   4 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[487]) + 13),
    0x0000100e    /*   6 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[487]) + 11),
    0x00000048    /*   8 (LREF0-PUSH) */,
    0x0000105f    /*   9 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sqrt.e1484ac0> */,
    0x00001062    /*  11 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#floor->exact.e1484b00> */,
    0x00001018    /*  13 (PUSH-LOCAL-ENV 1) */,
    0x00000048    /*  14 (LREF0-PUSH) */,
    0x0000004c    /*  15 (LREF10-PUSH) */,
    0x00000048    /*  16 (LREF0-PUSH) */,
    0x0000003d    /*  17 (LREF0) */,
    0x000000b4    /*  18 (NUMMUL2) */,
    0x000000b3    /*  19 (NUMSUB2) */,
    0x000020a3    /*  20 (VALUES-RET 2) */,
    0x0000100e    /*  21 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[487]) + 26),
    0x00000048    /*  23 (LREF0-PUSH) */,
    0x0000105f    /*  24 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sqrt.e1498b60> */,
    0x00001018    /*  26 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /*  27 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[487]) + 32),
    0x00000048    /*  29 (LREF0-PUSH) */,
    0x0000105f    /*  30 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#finite?.e14988e0> */,
    0x0000001e    /*  32 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[487]) + 45),
    0x0000100e    /*  34 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[487]) + 61),
    0x0000100e    /*  36 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[487]) + 41),
    0x0000004c    /*  38 (LREF10-PUSH) */,
    0x0000105f    /*  39 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sqrt.e1498660> */,
    0x00001062    /*  41 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#floor->exact.e14987e0> */,
    0x00000013    /*  43 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[487]) + 61),
    0x0000200e    /*  45 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[487]) + 61),
    0x00001007    /*  47 (CONSTI-PUSH 1) */,
    0x0000200e    /*  48 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[487]) + 59),
    0x0000100e    /*  50 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[487]) + 55),
    0x0000004c    /*  52 (LREF10-PUSH) */,
    0x0000105f    /*  53 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#integer-length.e14982c0> */,
    0x0000000d    /*  55 (PUSH) */,
    0x00002007    /*  56 (CONSTI-PUSH 2) */,
    0x0000205f    /*  57 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#quotient.e1498300> */,
    0x00002062    /*  59 (PUSH-GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#ash.e1498440> */,
    0x0000001a    /*  61 (POP-LOCAL-ENV) */,
    0x00001018    /*  62 (PUSH-LOCAL-ENV 1) */,
    0x00000048    /*  63 (LREF0-PUSH) */,
    0x0000003d    /*  64 (LREF0) */,
    0x000000b4    /*  65 (NUMMUL2) */,
    0x00001018    /*  66 (PUSH-LOCAL-ENV 1) */,
    0x0000003d    /*  67 (LREF0) */,
    0x00002029    /*  68 (LREF-VAL0-BNLT 2 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[487]) + 84),
    0x0000200e    /*  70 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[487]) + 80),
    0x0000003d    /*  72 (LREF0) */,
    0x000020b6    /*  73 (LREF-VAL0-NUMADD2 2 0) */,
    0x0000000d    /*  74 (PUSH) */,
    0x00002007    /*  75 (CONSTI-PUSH 2) */,
    0x00000041    /*  76 (LREF10) */,
    0x000000b4    /*  77 (NUMMUL2) */,
    0x00002062    /*  78 (PUSH-GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#quotient.e1484680> */,
    0x0000000d    /*  80 (PUSH) */,
    0x0000201b    /*  81 (LOCAL-ENV-JUMP 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[487]) + 63),
    0x00000014    /*  83 (RET) */,
    0x00002007    /*  84 (CONSTI-PUSH 2) */,
    0x00000041    /*  85 (LREF10) */,
    0x000000b4    /*  86 (NUMMUL2) */,
    0x000000b6    /*  87 (LREF-VAL0-NUMADD2 0 0) */,
    0x000010bc    /*  88 (NUMADDI 1) */,
    0x00001018    /*  89 (PUSH-LOCAL-ENV 1) */,
    0x0000003d    /*  90 (LREF0) */,
    0x00003029    /*  91 (LREF-VAL0-BNLT 3 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[487]) + 98),
    0x0000004f    /*  93 (LREF20-PUSH) */,
    0x00000051    /*  94 (LREF30-PUSH) */,
    0x00000041    /*  95 (LREF10) */,
    0x000000b3    /*  96 (NUMSUB2) */,
    0x000020a3    /*  97 (VALUES-RET 2) */,
    0x0000200e    /*  98 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[487]) + 108),
    0x00000041    /* 100 (LREF10) */,
    0x000030b6    /* 101 (LREF-VAL0-NUMADD2 3 0) */,
    0x0000000d    /* 102 (PUSH) */,
    0x00002007    /* 103 (CONSTI-PUSH 2) */,
    0x00000044    /* 104 (LREF20) */,
    0x000000b4    /* 105 (NUMMUL2) */,
    0x00002062    /* 106 (PUSH-GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#quotient.e1498f20> */,
    0x0000000d    /* 108 (PUSH) */,
    0x0000301b    /* 109 (LOCAL-ENV-JUMP 3) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[487]) + 63),
    0x00000014    /* 111 (RET) */,
    0x00000014    /* 112 (RET) */,
    /* expt */
    0x0000100e    /*   0 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[600]) + 5),
    0x00000049    /*   2 (LREF1-PUSH) */,
    0x0000105f    /*   3 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#exact?.df5a7ae0> */,
    0x0000001e    /*   5 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[600]) + 19),
    0x0000100e    /*   7 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[600]) + 12),
    0x00000048    /*   9 (LREF0-PUSH) */,
    0x0000105f    /*  10 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#exact?.df5a7a40> */,
    0x0000001e    /*  12 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[600]) + 19),
    0x00000049    /*  14 (LREF1-PUSH) */,
    0x00000048    /*  15 (LREF0-PUSH) */,
    0x00002060    /*  16 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%exact-expt.df5a7940> */,
    0x00000014    /*  18 (RET) */,
    0x0000003e    /*  19 (LREF1) */,
    0x0000009f    /*  20 (REALP) */,
    0x0000001e    /*  21 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[600]) + 98),
    0x0000003d    /*  23 (LREF0) */,
    0x0000009f    /*  24 (REALP) */,
    0x0000001e    /*  25 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[600]) + 32),
    0x00000049    /*  27 (LREF1-PUSH) */,
    0x00000048    /*  28 (LREF0-PUSH) */,
    0x00002060    /*  29 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%expt.df5a77a0> */,
    0x00000014    /*  31 (RET) */,
    0x0000003d    /*  32 (LREF0) */,
    0x0000009e    /*  33 (NUMBERP) */,
    0x0000001e    /*  34 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[600]) + 92),
    0x0000100e    /*  36 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[600]) + 41),
    0x00000048    /*  38 (LREF0-PUSH) */,
    0x0000105f    /*  39 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#real-part.df5a7480> */,
    0x00001018    /*  41 (PUSH-LOCAL-ENV 1) */,
    0x00000042    /*  42 (LREF11) */,
    0x0000002d    /*  43 (BNUMNEI 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[600]) + 63),
    0x0000100e    /*  45 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[600]) + 50),
    0x00000048    /*  47 (LREF0-PUSH) */,
    0x0000105f    /*  48 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#positive?.df5a7200> */,
    0x0000001e    /*  50 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[600]) + 63),
    0x0000100e    /*  52 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[600]) + 57),
    0x0000004d    /*  54 (LREF11-PUSH) */,
    0x0000105f    /*  55 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#exact?.df5acfe0> */,
    0x0000001e    /*  57 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[600]) + 61),
    0x00000002    /*  59 (CONSTI 0) */,
    0x00000014    /*  60 (RET) */,
    0x0000000a    /*  61 (CONST-RET) */,
    SCM_WORD(SCM_UNDEFINED) /* 0.0 */,
    0x0000200e    /*  63 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[600]) + 69),
    0x0000004d    /*  65 (LREF11-PUSH) */,
    0x00000048    /*  66 (LREF0-PUSH) */,
    0x0000205f    /*  67 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%expt.df5acf20> */,
    0x0000100f    /*  69 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[600]) + 87),
    0x00000006    /*  71 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* 0.0+1.0i */,
    0x0000100e    /*  73 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[600]) + 78),
    0x0000004c    /*  75 (LREF10-PUSH) */,
    0x0000105f    /*  76 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#imag-part.df5acde0> */,
    0x000000b4    /*  78 (NUMMUL2) */,
    0x0000100f    /*  79 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[600]) + 84),
    0x0000004d    /*  81 (LREF11-PUSH) */,
    0x0000105f    /*  82 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%log.df5acd20> */,
    0x000000b4    /*  84 (NUMMUL2) */,
    0x00001062    /*  85 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#exp.df5ace80> */,
    0x000000b4    /*  87 (NUMMUL2) */,
    0x00000014    /*  88 (RET) */,
    0x00000013    /*  89 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[600]) + 63),
    0x00000014    /*  91 (RET) */,
    0x00000006    /*  92 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1561[133])) /* "number required, but got" */,
    0x00000048    /*  94 (LREF0-PUSH) */,
    0x00002060    /*  95 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.df5acc60> */,
    0x00000014    /*  97 (RET) */,
    0x0000003e    /*  98 (LREF1) */,
    0x0000009e    /*  99 (NUMBERP) */,
    0x0000001e    /* 100 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[600]) + 112),
    0x00000048    /* 102 (LREF0-PUSH) */,
    0x0000100e    /* 103 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[600]) + 108),
    0x00000049    /* 105 (LREF1-PUSH) */,
    0x0000105f    /* 106 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#log.df5acb00> */,
    0x000000b4    /* 108 (NUMMUL2) */,
    0x00001063    /* 109 (PUSH-GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#exp.df5acb80> */,
    0x00000014    /* 111 (RET) */,
    0x00000006    /* 112 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1561[133])) /* "number required, but got" */,
    0x00000049    /* 114 (LREF1-PUSH) */,
    0x00002060    /* 115 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.df5ac420> */,
    0x00000014    /* 117 (RET) */,
    0x00000013    /* 118 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[600]) + 19),
    0x00000014    /* 120 (RET) */,
    /* %exact-expt */
    0x0000100e    /*   0 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 5),
    0x00000048    /*   2 (LREF0-PUSH) */,
    0x0000105f    /*   3 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#integer?.dec1f560> */,
    0x0000001e    /*   5 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 12),
    0x00000049    /*   7 (LREF1-PUSH) */,
    0x00000048    /*   8 (LREF0-PUSH) */,
    0x00002060    /*   9 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%exact-integer-expt.dec1f4c0> */,
    0x00000014    /*  11 (RET) */,
    0x00000002    /*  12 (CONSTI 0) */,
    0x00400029    /*  13 (LREF-VAL0-BNLT 0 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 20),
    0x00000049    /*  15 (LREF1-PUSH) */,
    0x00000048    /*  16 (LREF0-PUSH) */,
    0x00002060    /*  17 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%expt.dec1f280> */,
    0x00000014    /*  19 (RET) */,
    0x00000002    /*  20 (CONSTI 0) */,
    0x00000029    /*  21 (LREF-VAL0-BNLT 0 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 33),
    0x0000200e    /*  23 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 30),
    0x00000049    /*  25 (LREF1-PUSH) */,
    0x0000003d    /*  26 (LREF0) */,
    0x000000b7    /*  27 (NEGATE) */,
    0x00002062    /*  28 (PUSH-GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%exact-expt.dec22f60> */,
    0x00001063    /*  30 (PUSH-GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#/.dec1f0a0> */,
    0x00000014    /*  32 (RET) */,
    0x0000100e    /*  33 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 38),
    0x00000049    /*  35 (LREF1-PUSH) */,
    0x0000105f    /*  36 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#integer?.dec22e40> */,
    0x0000001e    /*  38 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 186),
    0x0000100e    /*  40 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 45),
    0x00000048    /*  42 (LREF0-PUSH) */,
    0x0000105f    /*  43 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#numerator.dec22d40> */,
    0x0000100f    /*  45 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 50),
    0x00000048    /*  47 (LREF0-PUSH) */,
    0x0000105f    /*  48 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#denominator.dec22ca0> */,
    0x00002018    /*  50 (PUSH-LOCAL-ENV 2) */,
    0x0000200e    /*  51 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 69),
    0x00001007    /*  53 (CONSTI-PUSH 1) */,
    0x0000100e    /*  54 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 67),
    0x0000200e    /*  56 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 62),
    0x0000004d    /*  58 (LREF11-PUSH) */,
    0x00002007    /*  59 (CONSTI-PUSH 2) */,
    0x0000205f    /*  60 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#log.dec22940> */,
    0x0000000d    /*  62 (PUSH) */,
    0x0000003d    /*  63 (LREF0) */,
    0x000000b5    /*  64 (NUMDIV2) */,
    0x00001062    /*  65 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#round->exact.dec229c0> */,
    0x00002062    /*  67 (PUSH-GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#ash.dec22b60> */,
    0x00001018    /*  69 (PUSH-LOCAL-ENV 1) */,
    0x0000200e    /*  70 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 76),
    0x00000048    /*  72 (LREF0-PUSH) */,
    0x0000004c    /*  73 (LREF10-PUSH) */,
    0x0000205f    /*  74 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%exact-integer-expt.dec22860> */,
    0x00001018    /*  76 (PUSH-LOCAL-ENV 1) */,
    0x0040303c    /*  77 (LREF 3 1) */,
    0x00000028    /*  78 (LREF-VAL0-BNUMNE 0 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 85),
    0x0000004c    /*  80 (LREF10-PUSH) */,
    0x00000050    /*  81 (LREF21-PUSH) */,
    0x00002060    /*  82 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%exact-integer-expt.dec22580> */,
    0x00000014    /*  84 (RET) */,
    0x0000004c    /*  85 (LREF10-PUSH) */,
    0x00000048    /*  86 (LREF0-PUSH) */,
    0x00002017    /*  87 (LOCAL-ENV 2) */,
    0x00000051    /*  88 (LREF30-PUSH) */,
    0x0000200e    /*  89 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 95),
    0x00000049    /*  91 (LREF1-PUSH) */,
    -0x00000f30   /*  92 (LREF30-NUMADDI-PUSH -1) */,
    0x0000205f    /*  93 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%exact-integer-expt.dec223c0> */,
    0x000000b4    /*  95 (NUMMUL2) */,
    0x00001018    /*  96 (PUSH-LOCAL-ENV 1) */,
    0x0000004c    /*  97 (LREF10-PUSH) */,
    0x0040503c    /*  98 (LREF 5 1) */,
    0x000000b3    /*  99 (NUMSUB2) */,
    0x00001018    /* 100 (PUSH-LOCAL-ENV 1) */,
    0x00000002    /* 101 (CONSTI 0) */,
    0x0000002b    /* 102 (LREF-VAL0-BNGT 0 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 115),
    0x0000200e    /* 104 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 125),
    0x0000003d    /* 106 (LREF0) */,
    0x000010b6    /* 107 (LREF-VAL0-NUMADD2 1 0) */,
    -0x00000f44   /* 108 (NUMADDI -1) */,
    0x0000000d    /* 109 (PUSH) */,
    0x0000004c    /* 110 (LREF10-PUSH) */,
    0x0000205f    /* 111 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#quotient.dec221e0> */,
    0x00000013    /* 113 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 125),
    0x0000200e    /* 115 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 125),
    0x00000048    /* 117 (LREF0-PUSH) */,
    0x00000041    /* 118 (LREF10) */,
    0x000000b3    /* 119 (NUMSUB2) */,
    0x000010bc    /* 120 (NUMADDI 1) */,
    0x0000000d    /* 121 (PUSH) */,
    0x0000004c    /* 122 (LREF10-PUSH) */,
    0x0000205f    /* 123 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#quotient.dec220c0> */,
    0x00001018    /* 125 (PUSH-LOCAL-ENV 1) */,
    0x00403047    /* 126 (LREF-PUSH 3 1) */,
    0x0000003d    /* 127 (LREF0) */,
    0x000000b3    /* 128 (NUMSUB2) */,
    0x00001018    /* 129 (PUSH-LOCAL-ENV 1) */,
    0x0000200e    /* 130 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 136),
    0x00000048    /* 132 (LREF0-PUSH) */,
    0x00007047    /* 133 (LREF-PUSH 7 0) */,
    0x0000205f    /* 134 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%exact-integer-expt.dec26f00> */,
    0x00001018    /* 136 (PUSH-LOCAL-ENV 1) */,
    0x0040903c    /* 137 (LREF 9 1) */,
    0x00000028    /* 138 (LREF-VAL0-BNUMNE 0 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 145),
    0x0000004c    /* 140 (LREF10-PUSH) */,
    0x00408047    /* 141 (LREF-PUSH 8 1) */,
    0x00002060    /* 142 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%exact-integer-expt.dec26da0> */,
    0x00000014    /* 144 (RET) */,
    0x00000044    /* 145 (LREF20) */,
    0x0000102d    /* 146 (BNUMNEI 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 159),
    0x0000300e    /* 148 (PRE-CALL 3) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 155),
    0x00000048    /* 150 (LREF0-PUSH) */,
    0x00409047    /* 151 (LREF-PUSH 9 1) */,
    0x00005047    /* 152 (LREF-PUSH 5 0) */,
    0x0000305f    /* 153 (GREF-CALL 3) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#<.dec26ba0> */,
    0x0000001e    /* 155 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 159),
    0x00000013    /* 157 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 173),
    0x00000044    /* 159 (LREF20) */,
    -0x00000fd3   /* 160 (BNUMNEI -1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 173),
    0x0000300e    /* 162 (PRE-CALL 3) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 173),
    0x00005047    /* 164 (LREF-PUSH 5 0) */,
    0x00409047    /* 165 (LREF-PUSH 9 1) */,
    0x00000048    /* 166 (LREF0-PUSH) */,
    0x0000305f    /* 167 (GREF-CALL 3) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#<.dec26920> */,
    0x00000013    /* 169 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 173),
    0x00000013    /* 171 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 159),
    0x0000001e    /* 173 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 180),
    0x00409047    /* 175 (LREF-PUSH 9 1) */,
    0x00009047    /* 176 (LREF-PUSH 9 0) */,
    0x00002060    /* 177 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%expt.dec26780> */,
    0x00000014    /* 179 (RET) */,
    0x0000004c    /* 180 (LREF10-PUSH) */,
    0x00000048    /* 181 (LREF0-PUSH) */,
    0x0000601b    /* 182 (LOCAL-ENV-JUMP 6) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 88),
    0x00000014    /* 184 (RET) */,
    0x00000014    /* 185 (RET) */,
    0x0000200e    /* 186 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 197),
    0x0000100e    /* 188 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 193),
    0x00000049    /* 190 (LREF1-PUSH) */,
    0x0000105f    /* 191 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#numerator.dec26280> */,
    0x0000000d    /* 193 (PUSH) */,
    0x00000048    /* 194 (LREF0-PUSH) */,
    0x0000205f    /* 195 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%exact-expt.dec262c0> */,
    0x00001018    /* 197 (PUSH-LOCAL-ENV 1) */,
    0x0000003d    /* 198 (LREF0) */,
    0x0000001e    /* 199 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 234),
    0x0000100e    /* 201 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 206),
    0x00000048    /* 203 (LREF0-PUSH) */,
    0x0000105f    /* 204 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#exact?.dec261e0> */,
    0x0000001e    /* 206 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 234),
    0x0000200e    /* 208 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 219),
    0x0000100e    /* 210 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 215),
    0x0000004d    /* 212 (LREF11-PUSH) */,
    0x0000105f    /* 213 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#denominator.dec26140> */,
    0x0000000d    /* 215 (PUSH) */,
    0x0000004c    /* 216 (LREF10-PUSH) */,
    0x0000205f    /* 217 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%exact-expt.dec26180> */,
    0x00001018    /* 219 (PUSH-LOCAL-ENV 1) */,
    0x0000003d    /* 220 (LREF0) */,
    0x0000001e    /* 221 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 233),
    0x0000100e    /* 223 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 228),
    0x00000048    /* 225 (LREF0-PUSH) */,
    0x0000105f    /* 226 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#exact?.dec260a0> */,
    0x0000001e    /* 228 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]) + 233),
    0x0000004c    /* 230 (LREF10-PUSH) */,
    0x0000003d    /* 231 (LREF0) */,
    0x000000b5    /* 232 (NUMDIV2) */,
    0x0000001a    /* 233 (POP-LOCAL-ENV) */,
    0x0000001a    /* 234 (POP-LOCAL-ENV) */,
    0x00000031    /* 235 (RT) */,
    0x00000049    /* 236 (LREF1-PUSH) */,
    0x00000048    /* 237 (LREF0-PUSH) */,
    0x00002060    /* 238 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%expt.dec2bfc0> */,
    0x00000014    /* 240 (RET) */,
    /* cos */
    0x0000003d    /*   0 (LREF0) */,
    0x0000009f    /*   1 (REALP) */,
    0x0000001e    /*   2 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[962]) + 14),
    0x0000003d    /*   4 (LREF0) */,
    0x0000002f    /*   5 (BNEQVC) */,
    SCM_WORD(SCM_MAKE_INT(0)) /* 0 */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[962]) + 10)  /*     10 */,
    0x00001002    /*   8 (CONSTI 1) */,
    0x00000014    /*   9 (RET) */,
    0x00000048    /*  10 (LREF0-PUSH) */,
    0x00001060    /*  11 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%cos.e1ba0b20> */,
    0x00000014    /*  13 (RET) */,
    0x0000003d    /*  14 (LREF0) */,
    0x0000009e    /*  15 (NUMBERP) */,
    0x0000001e    /*  16 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[962]) + 55),
    0x0000100e    /*  18 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[962]) + 23),
    0x00000048    /*  20 (LREF0-PUSH) */,
    0x0000105f    /*  21 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#real-part.e1ba09e0> */,
    0x0000100f    /*  23 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[962]) + 28),
    0x00000048    /*  25 (LREF0-PUSH) */,
    0x0000105f    /*  26 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#imag-part.e1ba0980> */,
    0x00002018    /*  28 (PUSH-LOCAL-ENV 2) */,
    0x0000100e    /*  29 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[962]) + 34),
    0x00000049    /*  31 (LREF1-PUSH) */,
    0x0000105f    /*  32 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%cos.e1ba1da0> */,
    0x0000100f    /*  34 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[962]) + 39),
    0x00000048    /*  36 (LREF0-PUSH) */,
    0x0000105f    /*  37 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%cosh.e1ba1d00> */,
    0x000000b4    /*  39 (NUMMUL2) */,
    0x0000100f    /*  40 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[962]) + 45),
    0x00000049    /*  42 (LREF1-PUSH) */,
    0x0000105f    /*  43 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sin.e1ba1c60> */,
    0x0000100f    /*  45 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[962]) + 50),
    0x00000048    /*  47 (LREF0-PUSH) */,
    0x0000105f    /*  48 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sinh.e1ba1c00> */,
    0x000000b4    /*  50 (NUMMUL2) */,
    0x000000b7    /*  51 (NEGATE) */,
    0x00002063    /*  52 (PUSH-GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#make-rectangular.e1ba1e00> */,
    0x00000014    /*  54 (RET) */,
    0x00000006    /*  55 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1561[133])) /* "number required, but got" */,
    0x00000048    /*  57 (LREF0-PUSH) */,
    0x00002060    /*  58 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.e1bcefa0> */,
    0x00000014    /*  60 (RET) */,
    /* cosh */
    0x0000003d    /*   0 (LREF0) */,
    0x0000009f    /*   1 (REALP) */,
    0x0000001e    /*   2 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1023]) + 14),
    0x0000003d    /*   4 (LREF0) */,
    0x0000002f    /*   5 (BNEQVC) */,
    SCM_WORD(SCM_MAKE_INT(0)) /* 0 */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1023]) + 10)  /*     10 */,
    0x00001002    /*   8 (CONSTI 1) */,
    0x00000014    /*   9 (RET) */,
    0x00000048    /*  10 (LREF0-PUSH) */,
    0x00001060    /*  11 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%cosh.dfab4dc0> */,
    0x00000014    /*  13 (RET) */,
    0x0000003d    /*  14 (LREF0) */,
    0x0000009e    /*  15 (NUMBERP) */,
    0x0000001e    /*  16 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1023]) + 54),
    0x0000100e    /*  18 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1023]) + 23),
    0x00000048    /*  20 (LREF0-PUSH) */,
    0x0000105f    /*  21 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#real-part.dfab4c60> */,
    0x0000100f    /*  23 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1023]) + 28),
    0x00000048    /*  25 (LREF0-PUSH) */,
    0x0000105f    /*  26 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#imag-part.dfab4ba0> */,
    0x00002018    /*  28 (PUSH-LOCAL-ENV 2) */,
    0x0000100e    /*  29 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1023]) + 34),
    0x00000049    /*  31 (LREF1-PUSH) */,
    0x0000105f    /*  32 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%cosh.dfab4a20> */,
    0x0000100f    /*  34 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1023]) + 39),
    0x00000048    /*  36 (LREF0-PUSH) */,
    0x0000105f    /*  37 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%cos.dfab4700> */,
    0x000000b4    /*  39 (NUMMUL2) */,
    0x0000100f    /*  40 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1023]) + 45),
    0x00000049    /*  42 (LREF1-PUSH) */,
    0x0000105f    /*  43 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sinh.dfab4600> */,
    0x0000100f    /*  45 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1023]) + 50),
    0x00000048    /*  47 (LREF0-PUSH) */,
    0x0000105f    /*  48 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sin.dfab4520> */,
    0x000000b4    /*  50 (NUMMUL2) */,
    0x00002063    /*  51 (PUSH-GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#make-rectangular.dfab4a80> */,
    0x00000014    /*  53 (RET) */,
    0x00000006    /*  54 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1561[133])) /* "number required, but got" */,
    0x00000048    /*  56 (LREF0-PUSH) */,
    0x00002060    /*  57 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.dfab4460> */,
    0x00000014    /*  59 (RET) */,
    /* sin */
    0x0000003d    /*   0 (LREF0) */,
    0x0000009f    /*   1 (REALP) */,
    0x0000001e    /*   2 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1083]) + 14),
    0x0000003d    /*   4 (LREF0) */,
    0x0000002f    /*   5 (BNEQVC) */,
    SCM_WORD(SCM_MAKE_INT(0)) /* 0 */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1083]) + 10)  /*     10 */,
    0x00000002    /*   8 (CONSTI 0) */,
    0x00000014    /*   9 (RET) */,
    0x00000048    /*  10 (LREF0-PUSH) */,
    0x00001060    /*  11 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sin.df027a40> */,
    0x00000014    /*  13 (RET) */,
    0x0000003d    /*  14 (LREF0) */,
    0x0000009e    /*  15 (NUMBERP) */,
    0x0000001e    /*  16 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1083]) + 54),
    0x0000100e    /*  18 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1083]) + 23),
    0x00000048    /*  20 (LREF0-PUSH) */,
    0x0000105f    /*  21 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#real-part.df027740> */,
    0x0000100f    /*  23 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1083]) + 28),
    0x00000048    /*  25 (LREF0-PUSH) */,
    0x0000105f    /*  26 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#imag-part.df0276c0> */,
    0x00002018    /*  28 (PUSH-LOCAL-ENV 2) */,
    0x0000100e    /*  29 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1083]) + 34),
    0x00000049    /*  31 (LREF1-PUSH) */,
    0x0000105f    /*  32 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sin.df027540> */,
    0x0000100f    /*  34 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1083]) + 39),
    0x00000048    /*  36 (LREF0-PUSH) */,
    0x0000105f    /*  37 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%cosh.df0274a0> */,
    0x000000b4    /*  39 (NUMMUL2) */,
    0x0000100f    /*  40 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1083]) + 45),
    0x00000049    /*  42 (LREF1-PUSH) */,
    0x0000105f    /*  43 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%cos.df0273e0> */,
    0x0000100f    /*  45 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1083]) + 50),
    0x00000048    /*  47 (LREF0-PUSH) */,
    0x0000105f    /*  48 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sinh.df027380> */,
    0x000000b4    /*  50 (NUMMUL2) */,
    0x00002063    /*  51 (PUSH-GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#make-rectangular.df0275a0> */,
    0x00000014    /*  53 (RET) */,
    0x00000006    /*  54 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1561[133])) /* "number required, but got" */,
    0x00000048    /*  56 (LREF0-PUSH) */,
    0x00002060    /*  57 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.df027260> */,
    0x00000014    /*  59 (RET) */,
    /* sinh */
    0x0000003d    /*   0 (LREF0) */,
    0x0000009f    /*   1 (REALP) */,
    0x0000001e    /*   2 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1143]) + 14),
    0x0000003d    /*   4 (LREF0) */,
    0x0000002f    /*   5 (BNEQVC) */,
    SCM_WORD(SCM_MAKE_INT(0)) /* 0 */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1143]) + 10)  /*     10 */,
    0x00000002    /*   8 (CONSTI 0) */,
    0x00000014    /*   9 (RET) */,
    0x00000048    /*  10 (LREF0-PUSH) */,
    0x00001060    /*  11 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sinh.df2af0e0> */,
    0x00000014    /*  13 (RET) */,
    0x0000003d    /*  14 (LREF0) */,
    0x0000009e    /*  15 (NUMBERP) */,
    0x0000001e    /*  16 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1143]) + 54),
    0x0000100e    /*  18 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1143]) + 23),
    0x00000048    /*  20 (LREF0-PUSH) */,
    0x0000105f    /*  21 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#real-part.df2bae20> */,
    0x0000100f    /*  23 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1143]) + 28),
    0x00000048    /*  25 (LREF0-PUSH) */,
    0x0000105f    /*  26 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#imag-part.df2badc0> */,
    0x00002018    /*  28 (PUSH-LOCAL-ENV 2) */,
    0x0000100e    /*  29 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1143]) + 34),
    0x00000049    /*  31 (LREF1-PUSH) */,
    0x0000105f    /*  32 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sinh.df2bac80> */,
    0x0000100f    /*  34 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1143]) + 39),
    0x00000048    /*  36 (LREF0-PUSH) */,
    0x0000105f    /*  37 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%cos.df2baba0> */,
    0x000000b4    /*  39 (NUMMUL2) */,
    0x0000100f    /*  40 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1143]) + 45),
    0x00000049    /*  42 (LREF1-PUSH) */,
    0x0000105f    /*  43 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%cosh.df2bab20> */,
    0x0000100f    /*  45 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1143]) + 50),
    0x00000048    /*  47 (LREF0-PUSH) */,
    0x0000105f    /*  48 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sin.df2baa00> */,
    0x000000b4    /*  50 (NUMMUL2) */,
    0x00002063    /*  51 (PUSH-GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#make-rectangular.df2bace0> */,
    0x00000014    /*  53 (RET) */,
    0x00000006    /*  54 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1561[133])) /* "number required, but got" */,
    0x00000048    /*  56 (LREF0-PUSH) */,
    0x00002060    /*  57 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.df2ba8a0> */,
    0x00000014    /*  59 (RET) */,
    /* tan */
    0x0000003d    /*   0 (LREF0) */,
    0x0000009f    /*   1 (REALP) */,
    0x0000001e    /*   2 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1203]) + 14),
    0x0000003d    /*   4 (LREF0) */,
    0x0000002f    /*   5 (BNEQVC) */,
    SCM_WORD(SCM_MAKE_INT(0)) /* 0 */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1203]) + 10)  /*     10 */,
    0x00000002    /*   8 (CONSTI 0) */,
    0x00000014    /*   9 (RET) */,
    0x00000048    /*  10 (LREF0-PUSH) */,
    0x00001060    /*  11 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%tan.dec2b6a0> */,
    0x00000014    /*  13 (RET) */,
    0x0000003d    /*  14 (LREF0) */,
    0x0000009e    /*  15 (NUMBERP) */,
    0x0000001e    /*  16 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1203]) + 52),
    0x00000006    /*  18 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* 0.0+1.0i */,
    0x0000003d    /*  20 (LREF0) */,
    0x000000b4    /*  21 (NUMMUL2) */,
    0x00001018    /*  22 (PUSH-LOCAL-ENV 1) */,
    0x00000006    /*  23 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* 0.0-1.0i */,
    0x0000100e    /*  25 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1203]) + 30),
    0x00000048    /*  27 (LREF0-PUSH) */,
    0x0000105f    /*  28 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#exp.dec2b160> */,
    0x0000100f    /*  30 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1203]) + 36),
    0x0000003d    /*  32 (LREF0) */,
    0x000000b7    /*  33 (NEGATE) */,
    0x00001062    /*  34 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#exp.dec2b100> */,
    0x000000b3    /*  36 (NUMSUB2) */,
    0x0000100f    /*  37 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1203]) + 42),
    0x00000048    /*  39 (LREF0-PUSH) */,
    0x0000105f    /*  40 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#exp.dec31fc0> */,
    0x0000100f    /*  42 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1203]) + 48),
    0x0000003d    /*  44 (LREF0) */,
    0x000000b7    /*  45 (NEGATE) */,
    0x00001062    /*  46 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#exp.dec31f60> */,
    0x000000b2    /*  48 (NUMADD2) */,
    0x000000b5    /*  49 (NUMDIV2) */,
    0x000000b4    /*  50 (NUMMUL2) */,
    0x00000014    /*  51 (RET) */,
    0x00000006    /*  52 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1561[133])) /* "number required, but got" */,
    0x00000048    /*  54 (LREF0-PUSH) */,
    0x00002060    /*  55 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.dec31e60> */,
    0x00000014    /*  57 (RET) */,
    /* tanh */
    0x0000003d    /*   0 (LREF0) */,
    0x0000009f    /*   1 (REALP) */,
    0x0000001e    /*   2 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1261]) + 14),
    0x0000003d    /*   4 (LREF0) */,
    0x0000002f    /*   5 (BNEQVC) */,
    SCM_WORD(SCM_MAKE_INT(0)) /* 0 */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1261]) + 10)  /*     10 */,
    0x00000002    /*   8 (CONSTI 0) */,
    0x00000014    /*   9 (RET) */,
    0x00000048    /*  10 (LREF0-PUSH) */,
    0x00001060    /*  11 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%tanh.dedf6ac0> */,
    0x00000014    /*  13 (RET) */,
    0x0000003d    /*  14 (LREF0) */,
    0x0000009e    /*  15 (NUMBERP) */,
    0x0000001e    /*  16 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1261]) + 44),
    0x0000100e    /*  18 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1261]) + 23),
    0x00000048    /*  20 (LREF0-PUSH) */,
    0x0000105f    /*  21 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#exp.dedf69c0> */,
    0x0000100f    /*  23 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1261]) + 29),
    0x0000003d    /*  25 (LREF0) */,
    0x000000b7    /*  26 (NEGATE) */,
    0x00001062    /*  27 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#exp.dedf6960> */,
    0x000000b3    /*  29 (NUMSUB2) */,
    0x0000100f    /*  30 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1261]) + 35),
    0x00000048    /*  32 (LREF0-PUSH) */,
    0x0000105f    /*  33 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#exp.dedf6860> */,
    0x0000100f    /*  35 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1261]) + 41),
    0x0000003d    /*  37 (LREF0) */,
    0x000000b7    /*  38 (NEGATE) */,
    0x00001062    /*  39 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#exp.dedf6800> */,
    0x000000b2    /*  41 (NUMADD2) */,
    0x000000b5    /*  42 (NUMDIV2) */,
    0x00000014    /*  43 (RET) */,
    0x00000006    /*  44 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1561[133])) /* "number required, but got" */,
    0x00000048    /*  46 (LREF0-PUSH) */,
    0x00002060    /*  47 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.dedf6740> */,
    0x00000014    /*  49 (RET) */,
    /* asin */
    0x0000003d    /*   0 (LREF0) */,
    0x0000009f    /*   1 (REALP) */,
    0x0000001e    /*   2 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1311]) + 14),
    0x0000003d    /*   4 (LREF0) */,
    0x0000002f    /*   5 (BNEQVC) */,
    SCM_WORD(SCM_MAKE_INT(0)) /* 0 */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1311]) + 10)  /*     10 */,
    0x00000002    /*   8 (CONSTI 0) */,
    0x00000014    /*   9 (RET) */,
    0x00000048    /*  10 (LREF0-PUSH) */,
    0x00001060    /*  11 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%asin.def8a2a0> */,
    0x00000014    /*  13 (RET) */,
    0x0000003d    /*  14 (LREF0) */,
    0x0000009e    /*  15 (NUMBERP) */,
    0x0000001e    /*  16 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1311]) + 59),
    0x00000006    /*  18 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* 0.0+1.0i */,
    0x0000003d    /*  20 (LREF0) */,
    0x000000b4    /*  21 (NUMMUL2) */,
    0x0000100f    /*  22 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1311]) + 30),
    0x00000048    /*  24 (LREF0-PUSH) */,
    0x0000003d    /*  25 (LREF0) */,
    0x000000b4    /*  26 (NUMMUL2) */,
    0x000010d1    /*  27 (NUMSUBI 1) */,
    0x00001062    /*  28 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#sqrt.def8ed00> */,
    0x000000b2    /*  30 (NUMADD2) */,
    0x00001018    /*  31 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /*  32 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1311]) + 37),
    0x00000048    /*  34 (LREF0-PUSH) */,
    0x0000105f    /*  35 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#magnitude.def8ea60> */,
    0x0000100f    /*  37 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1311]) + 42),
    0x0000004c    /*  39 (LREF10-PUSH) */,
    0x0000105f    /*  40 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#magnitude.def8e940> */,
    0x000000bb    /*  42 (NUMIDIV2) */,
    0x0000000d    /*  43 (PUSH) */,
    0x00000001    /*  44 (CONST) */,
    SCM_WORD(SCM_UNDEFINED) /* 1.0e-8 */,
    0x00000024    /*  46 (BNLT) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1311]) + 50),
    0x0000000a    /*  48 (CONST-RET) */,
    SCM_WORD(SCM_UNDEFINED) /* +nan.0+nan.0i */,
    0x00000006    /*  50 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* 0.0-1.0i */,
    0x0000100e    /*  52 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1311]) + 57),
    0x00000048    /*  54 (LREF0-PUSH) */,
    0x0000105f    /*  55 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#log.def8e660> */,
    0x000000b4    /*  57 (NUMMUL2) */,
    0x00000014    /*  58 (RET) */,
    0x00000006    /*  59 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1561[133])) /* "number required, but got" */,
    0x00000048    /*  61 (LREF0-PUSH) */,
    0x00002060    /*  62 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.def8e480> */,
    0x00000014    /*  64 (RET) */,
    /* asinh */
    0x0000003d    /*   0 (LREF0) */,
    0x0000002f    /*   1 (BNEQVC) */,
    SCM_WORD(SCM_MAKE_INT(0)) /* 0 */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1376]) + 6)  /*      6 */,
    0x00000002    /*   4 (CONSTI 0) */,
    0x00000014    /*   5 (RET) */,
    0x0000100e    /*   6 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1376]) + 14),
    0x00000048    /*   8 (LREF0-PUSH) */,
    0x0000003d    /*   9 (LREF0) */,
    0x000000b4    /*  10 (NUMMUL2) */,
    0x000010bc    /*  11 (NUMADDI 1) */,
    0x00001062    /*  12 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#sqrt.deb8fb60> */,
    0x000000b6    /*  14 (LREF-VAL0-NUMADD2 0 0) */,
    0x00001018    /*  15 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /*  16 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1376]) + 21),
    0x00000048    /*  18 (LREF0-PUSH) */,
    0x0000105f    /*  19 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#magnitude.deb8fa00> */,
    0x0000100f    /*  21 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1376]) + 26),
    0x0000004c    /*  23 (LREF10-PUSH) */,
    0x0000105f    /*  24 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#magnitude.deb8f9a0> */,
    0x000000bb    /*  26 (NUMIDIV2) */,
    0x0000000d    /*  27 (PUSH) */,
    0x00000001    /*  28 (CONST) */,
    SCM_WORD(SCM_UNDEFINED) /* 1.0e-8 */,
    0x00000024    /*  30 (BNLT) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1376]) + 34),
    0x0000000a    /*  32 (CONST-RET) */,
    SCM_WORD(SCM_UNDEFINED) /* +nan.0+nan.0i */,
    0x0000100e    /*  34 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1376]) + 42),
    0x0000004c    /*  36 (LREF10-PUSH) */,
    0x00000041    /*  37 (LREF10) */,
    0x000000b4    /*  38 (NUMMUL2) */,
    0x000010bc    /*  39 (NUMADDI 1) */,
    0x00001062    /*  40 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#sqrt.deb8f7c0> */,
    0x000010b6    /*  42 (LREF-VAL0-NUMADD2 1 0) */,
    0x00001063    /*  43 (PUSH-GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#log.deb8f860> */,
    0x00000014    /*  45 (RET) */,
    /* acos */
    0x0000003d    /*   0 (LREF0) */,
    0x0000009f    /*   1 (REALP) */,
    0x0000001e    /*   2 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1422]) + 14),
    0x0000003d    /*   4 (LREF0) */,
    0x0000002f    /*   5 (BNEQVC) */,
    SCM_WORD(SCM_MAKE_INT(1U)) /* 1 */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1422]) + 10)  /*     10 */,
    0x00000002    /*   8 (CONSTI 0) */,
    0x00000014    /*   9 (RET) */,
    0x00000048    /*  10 (LREF0-PUSH) */,
    0x00001060    /*  11 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%acos.de604020> */,
    0x00000014    /*  13 (RET) */,
    0x0000003d    /*  14 (LREF0) */,
    0x0000009e    /*  15 (NUMBERP) */,
    0x0000001e    /*  16 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1422]) + 27),
    0x00000006    /*  18 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* 1.5707963267948966 */,
    0x0000100e    /*  20 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1422]) + 25),
    0x00000048    /*  22 (LREF0-PUSH) */,
    0x0000105f    /*  23 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#asin.de60cec0> */,
    0x000000b3    /*  25 (NUMSUB2) */,
    0x00000014    /*  26 (RET) */,
    0x00000006    /*  27 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1561[133])) /* "number required, but got" */,
    0x00000048    /*  29 (LREF0-PUSH) */,
    0x00002060    /*  30 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.de60ce20> */,
    0x00000014    /*  32 (RET) */,
    /* acosh */
    0x0000003d    /*   0 (LREF0) */,
    0x0000002f    /*   1 (BNEQVC) */,
    SCM_WORD(SCM_MAKE_INT(1U)) /* 1 */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1455]) + 6)  /*      6 */,
    0x00000002    /*   4 (CONSTI 0) */,
    0x00000014    /*   5 (RET) */,
    0x00002007    /*   6 (CONSTI-PUSH 2) */,
    0x0000100e    /*   7 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1455]) + 26),
    0x0000100e    /*   9 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1455]) + 16),
    0x000010c7    /*  11 (LREF0-NUMADDI-PUSH 1) */,
    0x00002002    /*  12 (CONSTI 2) */,
    0x000000b5    /*  13 (NUMDIV2) */,
    0x00001062    /*  14 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#sqrt.e0493ee0> */,
    0x0000100f    /*  16 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1455]) + 23),
    -0x00000f39   /*  18 (LREF0-NUMADDI-PUSH -1) */,
    0x00002002    /*  19 (CONSTI 2) */,
    0x000000b5    /*  20 (NUMDIV2) */,
    0x00001062    /*  21 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#sqrt.e0493bc0> */,
    0x000000b2    /*  23 (NUMADD2) */,
    0x00001062    /*  24 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#log.e0493f40> */,
    0x000000b4    /*  26 (NUMMUL2) */,
    0x00000014    /*  27 (RET) */,
    /* atan */
    0x0000003e    /*   0 (LREF1) */,
    0x0000002e    /*   1 (BNEQC) */,
    SCM_WORD(SCM_MAKE_INT(0)) /* 0 */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1483]) + 6)  /*      6 */,
    0x00000002    /*   4 (CONSTI 0) */,
    0x00000014    /*   5 (RET) */,
    0x0000003d    /*   6 (LREF0) */,
    0x00000022    /*   7 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1483]) + 49),
    0x0000003e    /*   9 (LREF1) */,
    0x0000009f    /*  10 (REALP) */,
    0x0000001e    /*  11 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1483]) + 17),
    0x00000049    /*  13 (LREF1-PUSH) */,
    0x00001060    /*  14 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%atan.dfaad6a0> */,
    0x00000014    /*  16 (RET) */,
    0x0000003e    /*  17 (LREF1) */,
    0x0000009e    /*  18 (NUMBERP) */,
    0x0000001e    /*  19 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1483]) + 43),
    0x00000049    /*  21 (LREF1-PUSH) */,
    0x00000001    /*  22 (CONST) */,
    SCM_WORD(SCM_UNDEFINED) /* 0.0+1.0i */,
    0x000000b4    /*  24 (NUMMUL2) */,
    0x00001018    /*  25 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /*  26 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1483]) + 31),
    0x000010c7    /*  28 (LREF0-NUMADDI-PUSH 1) */,
    0x0000105f    /*  29 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#log.dfab1f60> */,
    0x0000100f    /*  31 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1483]) + 37),
    0x0000003d    /*  33 (LREF0) */,
    0x000010d1    /*  34 (NUMSUBI 1) */,
    0x00001062    /*  35 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#log.dfab1ec0> */,
    0x000000b3    /*  37 (NUMSUB2) */,
    0x0000000d    /*  38 (PUSH) */,
    0x00000001    /*  39 (CONST) */,
    SCM_WORD(SCM_UNDEFINED) /* 0.0+2.0i */,
    0x000000b5    /*  41 (NUMDIV2) */,
    0x00000014    /*  42 (RET) */,
    0x00000006    /*  43 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1561[133])) /* "number required, but got" */,
    0x00000049    /*  45 (LREF1-PUSH) */,
    0x00002060    /*  46 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.dfab1da0> */,
    0x00000014    /*  48 (RET) */,
    0x00000049    /*  49 (LREF1-PUSH) */,
    0x0000006a    /*  50 (LREF0-CAR) */,
    0x00002063    /*  51 (PUSH-GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%atan.dfab1ce0> */,
    0x00000014    /*  53 (RET) */,
    /* atanh */
    0x0000003d    /*   0 (LREF0) */,
    0x0000002e    /*   1 (BNEQC) */,
    SCM_WORD(SCM_MAKE_INT(0)) /* 0 */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1537]) + 6)  /*      6 */,
    0x00000002    /*   4 (CONSTI 0) */,
    0x00000014    /*   5 (RET) */,
    0x0000100e    /*   6 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1537]) + 11),
    0x000010c7    /*   8 (LREF0-NUMADDI-PUSH 1) */,
    0x0000105f    /*   9 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#log.df5ca1a0> */,
    0x0000100f    /*  11 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1566[1537]) + 17),
    0x0000003d    /*  13 (LREF0) */,
    0x000010d1    /*  14 (NUMSUBI 1) */,
    0x00001062    /*  15 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#log.df5ca040> */,
    0x000000b3    /*  17 (NUMSUB2) */,
    0x0000000d    /*  18 (PUSH) */,
    0x00002002    /*  19 (CONSTI 2) */,
    0x000000b5    /*  20 (NUMDIV2) */,
    0x00000014    /*  21 (RET) */,
  },
  {   /* ScmPair d1563 */
       { SCM_NIL, SCM_NIL },
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(50U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[2])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[3])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[5])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[6])},
       { SCM_OBJ(&scm__rc.d1563[7]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[4]), SCM_OBJ(&scm__rc.d1563[8])},
       { SCM_MAKE_INT(52U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[10])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[11])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[13])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[14])},
       { SCM_OBJ(&scm__rc.d1563[15]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[12]), SCM_OBJ(&scm__rc.d1563[16])},
       { SCM_MAKE_INT(54U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[18])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[19])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[21])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[22])},
       { SCM_OBJ(&scm__rc.d1563[23]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[20]), SCM_OBJ(&scm__rc.d1563[24])},
       { SCM_MAKE_INT(56U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[26])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[27])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[29])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[30])},
       { SCM_OBJ(&scm__rc.d1563[31]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[28]), SCM_OBJ(&scm__rc.d1563[32])},
       { SCM_MAKE_INT(58U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[34])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[35])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[37])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[38])},
       { SCM_OBJ(&scm__rc.d1563[39]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[36]), SCM_OBJ(&scm__rc.d1563[40])},
       { SCM_MAKE_INT(61U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[42])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[43])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[45])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[46])},
       { SCM_OBJ(&scm__rc.d1563[47]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[44]), SCM_OBJ(&scm__rc.d1563[48])},
       { SCM_MAKE_INT(62U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[50])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[51])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[53])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[54])},
       { SCM_OBJ(&scm__rc.d1563[55]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[52]), SCM_OBJ(&scm__rc.d1563[56])},
       { SCM_MAKE_INT(64U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[58])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[59])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[61])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[62])},
       { SCM_OBJ(&scm__rc.d1563[63]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[60]), SCM_OBJ(&scm__rc.d1563[64])},
       { SCM_MAKE_INT(67U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[66])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[67])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[69])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[70])},
       { SCM_OBJ(&scm__rc.d1563[71]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[68]), SCM_OBJ(&scm__rc.d1563[72])},
       { SCM_MAKE_INT(69U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[74])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[75])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[77])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[78])},
       { SCM_OBJ(&scm__rc.d1563[79]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[76]), SCM_OBJ(&scm__rc.d1563[80])},
       { SCM_MAKE_INT(71U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[82])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[83])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[85])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[86])},
       { SCM_OBJ(&scm__rc.d1563[87]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[84]), SCM_OBJ(&scm__rc.d1563[88])},
       { SCM_MAKE_INT(72U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[90])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[91])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[93])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[94])},
       { SCM_OBJ(&scm__rc.d1563[95]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[92]), SCM_OBJ(&scm__rc.d1563[96])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(77U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[99])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[100])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[102])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[103])},
       { SCM_OBJ(&scm__rc.d1563[104]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[101]), SCM_OBJ(&scm__rc.d1563[105])},
       { SCM_MAKE_INT(78U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[107])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[108])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[110])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[111])},
       { SCM_OBJ(&scm__rc.d1563[112]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[109]), SCM_OBJ(&scm__rc.d1563[113])},
       { SCM_MAKE_INT(79U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[115])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[116])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[118])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[119])},
       { SCM_OBJ(&scm__rc.d1563[120]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[117]), SCM_OBJ(&scm__rc.d1563[121])},
       { SCM_MAKE_INT(81U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[123])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[124])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[126])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[127])},
       { SCM_OBJ(&scm__rc.d1563[128]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[125]), SCM_OBJ(&scm__rc.d1563[129])},
       { SCM_MAKE_INT(82U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[131])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[132])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[134])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[135])},
       { SCM_OBJ(&scm__rc.d1563[136]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[133]), SCM_OBJ(&scm__rc.d1563[137])},
       { SCM_MAKE_INT(83U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[139])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[140])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[142])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[143])},
       { SCM_OBJ(&scm__rc.d1563[144]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[141]), SCM_OBJ(&scm__rc.d1563[145])},
       { SCM_MAKE_INT(84U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[147])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[148])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[150])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[151])},
       { SCM_OBJ(&scm__rc.d1563[152]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[149]), SCM_OBJ(&scm__rc.d1563[153])},
       { SCM_MAKE_INT(89U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[155])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[156])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[158])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[159])},
       { SCM_OBJ(&scm__rc.d1563[160]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[157]), SCM_OBJ(&scm__rc.d1563[161])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[163])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[164])},
       { SCM_OBJ(&scm__rc.d1563[165]), SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[167])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[168])},
       { SCM_OBJ(&scm__rc.d1563[169]), SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[171])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[172])},
       { SCM_OBJ(&scm__rc.d1563[173]), SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[175])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[176])},
       { SCM_OBJ(&scm__rc.d1563[177]), SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[179])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[180])},
       { SCM_OBJ(&scm__rc.d1563[181]), SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[183])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[184])},
       { SCM_OBJ(&scm__rc.d1563[185]), SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[187])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[188])},
       { SCM_OBJ(&scm__rc.d1563[189]), SCM_NIL},
       { SCM_MAKE_INT(131U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[191])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[192])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[194])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[195])},
       { SCM_OBJ(&scm__rc.d1563[196]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[193]), SCM_OBJ(&scm__rc.d1563[197])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[199])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[200])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[201])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[202])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[203])},
       { SCM_MAKE_INT(175U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[205])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[206])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[208])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[209])},
       { SCM_OBJ(&scm__rc.d1563[210]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[207]), SCM_OBJ(&scm__rc.d1563[211])},
       { SCM_MAKE_INT(177U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[213])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[214])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[216])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[217])},
       { SCM_OBJ(&scm__rc.d1563[218]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[215]), SCM_OBJ(&scm__rc.d1563[219])},
       { SCM_MAKE_INT(179U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[221])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[222])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[224])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[225])},
       { SCM_OBJ(&scm__rc.d1563[226]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[223]), SCM_OBJ(&scm__rc.d1563[227])},
       { SCM_MAKE_INT(181U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[229])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[230])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[232])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[233])},
       { SCM_OBJ(&scm__rc.d1563[234]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[231]), SCM_OBJ(&scm__rc.d1563[235])},
       { SCM_MAKE_INT(183U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[237])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[238])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[240])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[241])},
       { SCM_OBJ(&scm__rc.d1563[242]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[239]), SCM_OBJ(&scm__rc.d1563[243])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[245])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[246])},
       { SCM_MAKE_INT(186U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[248])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[249])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[251])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[252])},
       { SCM_OBJ(&scm__rc.d1563[253]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[250]), SCM_OBJ(&scm__rc.d1563[254])},
       { SCM_MAKE_INT(188U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[256])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[257])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[259])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[260])},
       { SCM_OBJ(&scm__rc.d1563[261]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[258]), SCM_OBJ(&scm__rc.d1563[262])},
       { SCM_MAKE_INT(192U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[264])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[265])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[267])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[268])},
       { SCM_OBJ(&scm__rc.d1563[269]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[266]), SCM_OBJ(&scm__rc.d1563[270])},
       { SCM_MAKE_INT(200U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[272])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[273])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[275])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[276])},
       { SCM_OBJ(&scm__rc.d1563[277]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[274]), SCM_OBJ(&scm__rc.d1563[278])},
       { SCM_MAKE_INT(201U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[280])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[281])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[283])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[284])},
       { SCM_OBJ(&scm__rc.d1563[285]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[282]), SCM_OBJ(&scm__rc.d1563[286])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[288])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[289])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[290])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[291])},
       { SCM_MAKE_INT(208U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[293])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[294])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[296])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[297])},
       { SCM_OBJ(&scm__rc.d1563[298]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[295]), SCM_OBJ(&scm__rc.d1563[299])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[301])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[302])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[303])},
       { SCM_MAKE_INT(240U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[305])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[306])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[308])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[309])},
       { SCM_OBJ(&scm__rc.d1563[310]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[307]), SCM_OBJ(&scm__rc.d1563[311])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(254U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[314])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[315])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[317])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[318])},
       { SCM_OBJ(&scm__rc.d1563[319]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[316]), SCM_OBJ(&scm__rc.d1563[320])},
       { SCM_MAKE_INT(256U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[322])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[323])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[325])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[326])},
       { SCM_OBJ(&scm__rc.d1563[327]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[324]), SCM_OBJ(&scm__rc.d1563[328])},
       { SCM_MAKE_INT(258U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[330])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[331])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[333])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[334])},
       { SCM_OBJ(&scm__rc.d1563[335]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[332]), SCM_OBJ(&scm__rc.d1563[336])},
       { SCM_MAKE_INT(260U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[338])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[339])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[341])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[342])},
       { SCM_OBJ(&scm__rc.d1563[343]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[340]), SCM_OBJ(&scm__rc.d1563[344])},
       { SCM_MAKE_INT(263U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[346])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[347])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[349])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[350])},
       { SCM_OBJ(&scm__rc.d1563[351]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[348]), SCM_OBJ(&scm__rc.d1563[352])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[354])},
       { SCM_MAKE_INT(280U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[356])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[357])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[359])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[360])},
       { SCM_OBJ(&scm__rc.d1563[361]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[358]), SCM_OBJ(&scm__rc.d1563[362])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(282U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[365])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[366])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[368])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[369])},
       { SCM_OBJ(&scm__rc.d1563[370]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[367]), SCM_OBJ(&scm__rc.d1563[371])},
       { SCM_MAKE_INT(285U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[373])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[374])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[376])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[377])},
       { SCM_OBJ(&scm__rc.d1563[378]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[375]), SCM_OBJ(&scm__rc.d1563[379])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[381])},
       { SCM_MAKE_INT(288U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[383])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[384])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[386])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[387])},
       { SCM_OBJ(&scm__rc.d1563[388]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[385]), SCM_OBJ(&scm__rc.d1563[389])},
       { SCM_MAKE_INT(290U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[391])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[392])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[394])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[395])},
       { SCM_OBJ(&scm__rc.d1563[396]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[393]), SCM_OBJ(&scm__rc.d1563[397])},
       { SCM_MAKE_INT(304U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[399])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[400])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[402])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[403])},
       { SCM_OBJ(&scm__rc.d1563[404]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[401]), SCM_OBJ(&scm__rc.d1563[405])},
       { SCM_MAKE_INT(311U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[407])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[408])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[410])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[411])},
       { SCM_OBJ(&scm__rc.d1563[412]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[409]), SCM_OBJ(&scm__rc.d1563[413])},
       { SCM_MAKE_INT(317U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[415])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[416])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[418])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[419])},
       { SCM_OBJ(&scm__rc.d1563[420]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[417]), SCM_OBJ(&scm__rc.d1563[421])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[246])},
       { SCM_MAKE_INT(323U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[424])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[425])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[427])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[428])},
       { SCM_OBJ(&scm__rc.d1563[429]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[426]), SCM_OBJ(&scm__rc.d1563[430])},
       { SCM_MAKE_INT(329U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[432])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[433])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[435])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[436])},
       { SCM_OBJ(&scm__rc.d1563[437]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[434]), SCM_OBJ(&scm__rc.d1563[438])},
       { SCM_MAKE_INT(335U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[440])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[441])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[443])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[444])},
       { SCM_OBJ(&scm__rc.d1563[445]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[442]), SCM_OBJ(&scm__rc.d1563[446])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[448])},
       { SCM_MAKE_INT(337U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[450])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[451])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[453])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[454])},
       { SCM_OBJ(&scm__rc.d1563[455]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[452]), SCM_OBJ(&scm__rc.d1563[456])},
       { SCM_MAKE_INT(339U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[458])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[459])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[461])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[462])},
       { SCM_OBJ(&scm__rc.d1563[463]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[460]), SCM_OBJ(&scm__rc.d1563[464])},
       { SCM_MAKE_INT(341U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[466])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[467])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[469])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[470])},
       { SCM_OBJ(&scm__rc.d1563[471]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[468]), SCM_OBJ(&scm__rc.d1563[472])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[474])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(352U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[477])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[478])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[480]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[479]), SCM_OBJ(&scm__rc.d1563[481])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_OBJ(&scm__rc.d1567[2]), SCM_NIL},
       { SCM_MAKE_INT(347U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[485])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[486])},
       { SCM_OBJ(&scm__rc.d1563[487]), SCM_OBJ(&scm__rc.d1563[481])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[490])},
       { SCM_MAKE_INT(368U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[492])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[493])},
       { SCM_OBJ(&scm__rc.d1563[494]), SCM_OBJ(&scm__rc.d1563[481])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_OBJ(&scm__rc.d1567[5]), SCM_NIL},
       { SCM_MAKE_INT(360U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[498])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[499])},
       { SCM_OBJ(&scm__rc.d1563[500]), SCM_OBJ(&scm__rc.d1563[481])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(377U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[503])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[504])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[506])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[507])},
       { SCM_OBJ(&scm__rc.d1563[508]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[505]), SCM_OBJ(&scm__rc.d1563[509])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(380U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[512])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[513])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[515])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[516])},
       { SCM_OBJ(&scm__rc.d1563[517]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[514]), SCM_OBJ(&scm__rc.d1563[518])},
       { SCM_MAKE_INT(381U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[520])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[521])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[523])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[524])},
       { SCM_OBJ(&scm__rc.d1563[525]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[522]), SCM_OBJ(&scm__rc.d1563[526])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[528])},
       { SCM_MAKE_INT(384U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[530])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[531])},
       { SCM_OBJ(&scm__rc.d1563[532]), SCM_OBJ(&scm__rc.d1563[481])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(395U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[536])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[537])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[539])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[540])},
       { SCM_OBJ(&scm__rc.d1563[541]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[538]), SCM_OBJ(&scm__rc.d1563[542])},
       { SCM_MAKE_INT(397U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[544])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[545])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[547])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[548])},
       { SCM_OBJ(&scm__rc.d1563[549]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[546]), SCM_OBJ(&scm__rc.d1563[550])},
       { SCM_MAKE_INT(399U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[552])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[553])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[555])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[556])},
       { SCM_OBJ(&scm__rc.d1563[557]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[554]), SCM_OBJ(&scm__rc.d1563[558])},
       { SCM_MAKE_INT(401U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[560])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[561])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[563])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[564])},
       { SCM_OBJ(&scm__rc.d1563[565]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[562]), SCM_OBJ(&scm__rc.d1563[566])},
       { SCM_MAKE_INT(407U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[568])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[569])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[571])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[572])},
       { SCM_OBJ(&scm__rc.d1563[573]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[570]), SCM_OBJ(&scm__rc.d1563[574])},
       { SCM_MAKE_INT(409U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[576])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[577])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[579])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[580])},
       { SCM_OBJ(&scm__rc.d1563[581]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[578]), SCM_OBJ(&scm__rc.d1563[582])},
       { SCM_MAKE_INT(429U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[584])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[585])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[587])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[588])},
       { SCM_OBJ(&scm__rc.d1563[589]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[586]), SCM_OBJ(&scm__rc.d1563[590])},
       { SCM_MAKE_INT(430U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[592])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[593])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[595])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[596])},
       { SCM_OBJ(&scm__rc.d1563[597]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[594]), SCM_OBJ(&scm__rc.d1563[598])},
       { SCM_MAKE_INT(431U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[600])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[601])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[603])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[604])},
       { SCM_OBJ(&scm__rc.d1563[605]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[602]), SCM_OBJ(&scm__rc.d1563[606])},
       { SCM_MAKE_INT(433U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[608])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[609])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[611])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[612])},
       { SCM_OBJ(&scm__rc.d1563[613]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[610]), SCM_OBJ(&scm__rc.d1563[614])},
       { SCM_MAKE_INT(434U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[616])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[617])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[619])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[620])},
       { SCM_OBJ(&scm__rc.d1563[621]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[618]), SCM_OBJ(&scm__rc.d1563[622])},
       { SCM_MAKE_INT(435U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[624])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[625])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[627])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[628])},
       { SCM_OBJ(&scm__rc.d1563[629]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[626]), SCM_OBJ(&scm__rc.d1563[630])},
       { SCM_MAKE_INT(437U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[632])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[633])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[635])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[636])},
       { SCM_OBJ(&scm__rc.d1563[637]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[634]), SCM_OBJ(&scm__rc.d1563[638])},
       { SCM_MAKE_INT(446U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[640])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[641])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[643])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[644])},
       { SCM_OBJ(&scm__rc.d1563[645]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[642]), SCM_OBJ(&scm__rc.d1563[646])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[98])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[648])},
       { SCM_MAKE_INT(453U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[650])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[651])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[653])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[654])},
       { SCM_OBJ(&scm__rc.d1563[655]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[652]), SCM_OBJ(&scm__rc.d1563[656])},
       { SCM_MAKE_INT(458U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[658])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[659])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[661])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[662])},
       { SCM_OBJ(&scm__rc.d1563[663]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[660]), SCM_OBJ(&scm__rc.d1563[664])},
       { SCM_MAKE_INT(459U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[666])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[667])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[669])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[670])},
       { SCM_OBJ(&scm__rc.d1563[671]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[668]), SCM_OBJ(&scm__rc.d1563[672])},
       { SCM_MAKE_INT(460U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[674])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[675])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[677])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[678])},
       { SCM_OBJ(&scm__rc.d1563[679]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[676]), SCM_OBJ(&scm__rc.d1563[680])},
       { SCM_MAKE_INT(463U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[682])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[683])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[685])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[686])},
       { SCM_OBJ(&scm__rc.d1563[687]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[684]), SCM_OBJ(&scm__rc.d1563[688])},
       { SCM_MAKE_INT(473U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[690])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[691])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[693])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[694])},
       { SCM_OBJ(&scm__rc.d1563[695]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[692]), SCM_OBJ(&scm__rc.d1563[696])},
       { SCM_MAKE_INT(490U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[698])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[699])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[701])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[702])},
       { SCM_OBJ(&scm__rc.d1563[703]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[700]), SCM_OBJ(&scm__rc.d1563[704])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(494U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[707])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[708])},
       { SCM_OBJ(&scm__rc.d1563[709]), SCM_OBJ(&scm__rc.d1563[481])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_UNDEFINED},
       { SCM_MAKE_INT(499U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[713])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[714])},
       { SCM_OBJ(&scm__rc.d1563[715]), SCM_OBJ(&scm__rc.d1563[481])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(507U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[718])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[719])},
       { SCM_OBJ(&scm__rc.d1563[720]), SCM_OBJ(&scm__rc.d1563[481])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(535U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[724])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[725])},
       { SCM_OBJ(&scm__rc.d1563[726]), SCM_OBJ(&scm__rc.d1563[481])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(556U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[729])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[730])},
       { SCM_OBJ(&scm__rc.d1563[731]), SCM_OBJ(&scm__rc.d1563[481])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(572U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[734])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[735])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[737])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[738])},
       { SCM_OBJ(&scm__rc.d1563[739]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[736]), SCM_OBJ(&scm__rc.d1563[740])},
       { SCM_MAKE_INT(573U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[742])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[743])},
       { SCM_OBJ(&scm__rc.d1563[744]), SCM_OBJ(&scm__rc.d1563[481])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(625U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[747])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[748])},
       { SCM_OBJ(&scm__rc.d1563[749]), SCM_OBJ(&scm__rc.d1563[481])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(634U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[752])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[753])},
       { SCM_OBJ(&scm__rc.d1563[754]), SCM_OBJ(&scm__rc.d1563[481])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(643U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[757])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[758])},
       { SCM_OBJ(&scm__rc.d1563[759]), SCM_OBJ(&scm__rc.d1563[481])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(652U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[762])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[763])},
       { SCM_OBJ(&scm__rc.d1563[764]), SCM_OBJ(&scm__rc.d1563[481])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(661U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[767])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[768])},
       { SCM_OBJ(&scm__rc.d1563[769]), SCM_OBJ(&scm__rc.d1563[481])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(670U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[772])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[773])},
       { SCM_OBJ(&scm__rc.d1563[774]), SCM_OBJ(&scm__rc.d1563[481])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(677U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[777])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[778])},
       { SCM_OBJ(&scm__rc.d1563[779]), SCM_OBJ(&scm__rc.d1563[481])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(694U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[782])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[783])},
       { SCM_OBJ(&scm__rc.d1563[784]), SCM_OBJ(&scm__rc.d1563[481])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(702U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[787])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[788])},
       { SCM_OBJ(&scm__rc.d1563[789]), SCM_OBJ(&scm__rc.d1563[481])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(713U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[792])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[793])},
       { SCM_OBJ(&scm__rc.d1563[794]), SCM_OBJ(&scm__rc.d1563[481])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_UNDEFINED},
       { SCM_MAKE_INT(720U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[798])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[799])},
       { SCM_OBJ(&scm__rc.d1563[800]), SCM_OBJ(&scm__rc.d1563[481])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(733U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[803])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[804])},
       { SCM_OBJ(&scm__rc.d1563[805]), SCM_OBJ(&scm__rc.d1563[481])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[808])},
       { SCM_MAKE_INT(741U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[810])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[811])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[813])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[814])},
       { SCM_OBJ(&scm__rc.d1563[815]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[812]), SCM_OBJ(&scm__rc.d1563[816])},
       { SCM_MAKE_INT(743U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[818])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[819])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[821])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[822])},
       { SCM_OBJ(&scm__rc.d1563[823]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[820]), SCM_OBJ(&scm__rc.d1563[824])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[826])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[827])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[828])},
       { SCM_MAKE_INT(759U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[830])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[831])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[833])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[834])},
       { SCM_OBJ(&scm__rc.d1563[835]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[832]), SCM_OBJ(&scm__rc.d1563[836])},
       { SCM_MAKE_INT(761U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[838])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[839])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[841])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[842])},
       { SCM_OBJ(&scm__rc.d1563[843]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[840]), SCM_OBJ(&scm__rc.d1563[844])},
       { SCM_MAKE_INT(763U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[846])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[847])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[849])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[850])},
       { SCM_OBJ(&scm__rc.d1563[851]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[848]), SCM_OBJ(&scm__rc.d1563[852])},
       { SCM_MAKE_INT(766U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[854])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[855])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[857])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[858])},
       { SCM_OBJ(&scm__rc.d1563[859]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[856]), SCM_OBJ(&scm__rc.d1563[860])},
       { SCM_MAKE_INT(776U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[862])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[863])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[865])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[866])},
       { SCM_OBJ(&scm__rc.d1563[867]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[864]), SCM_OBJ(&scm__rc.d1563[868])},
       { SCM_MAKE_INT(798U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[870])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[871])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[873])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[874])},
       { SCM_OBJ(&scm__rc.d1563[875]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[872]), SCM_OBJ(&scm__rc.d1563[876])},
       { SCM_MAKE_INT(809U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[878])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[879])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[881])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[882])},
       { SCM_OBJ(&scm__rc.d1563[883]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[880]), SCM_OBJ(&scm__rc.d1563[884])},
       { SCM_MAKE_INT(824U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[886])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[887])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[889])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[890])},
       { SCM_OBJ(&scm__rc.d1563[891]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[888]), SCM_OBJ(&scm__rc.d1563[892])},
       { SCM_MAKE_INT(832U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[894])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[895])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[897])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[898])},
       { SCM_OBJ(&scm__rc.d1563[899]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[896]), SCM_OBJ(&scm__rc.d1563[900])},
       { SCM_MAKE_INT(836U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[902])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[903])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[905])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[906])},
       { SCM_OBJ(&scm__rc.d1563[907]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[904]), SCM_OBJ(&scm__rc.d1563[908])},
       { SCM_MAKE_INT(840U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[910])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[911])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[913])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[914])},
       { SCM_OBJ(&scm__rc.d1563[915]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[912]), SCM_OBJ(&scm__rc.d1563[916])},
       { SCM_MAKE_INT(845U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[918])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[919])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[921])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[922])},
       { SCM_OBJ(&scm__rc.d1563[923]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[920]), SCM_OBJ(&scm__rc.d1563[924])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[251])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[926])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[927])},
       { SCM_MAKE_INT(851U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[929])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[930])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[932])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[933])},
       { SCM_OBJ(&scm__rc.d1563[934]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[931]), SCM_OBJ(&scm__rc.d1563[935])},
       { SCM_MAKE_INT(868U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[937])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[938])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[940])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[941])},
       { SCM_OBJ(&scm__rc.d1563[942]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[939]), SCM_OBJ(&scm__rc.d1563[943])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[945])},
       { SCM_MAKE_INT(876U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[947])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[948])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[950])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[951])},
       { SCM_OBJ(&scm__rc.d1563[952]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[949]), SCM_OBJ(&scm__rc.d1563[953])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[955])},
       { SCM_MAKE_INT(877U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[957])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[958])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[960])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[961])},
       { SCM_OBJ(&scm__rc.d1563[962]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[959]), SCM_OBJ(&scm__rc.d1563[963])},
       { SCM_MAKE_INT(881U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[965])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[966])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[968])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[969])},
       { SCM_OBJ(&scm__rc.d1563[970]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[967]), SCM_OBJ(&scm__rc.d1563[971])},
       { SCM_MAKE_INT(886U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[973])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[974])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[976])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[977])},
       { SCM_OBJ(&scm__rc.d1563[978]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[975]), SCM_OBJ(&scm__rc.d1563[979])},
       { SCM_MAKE_INT(891U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[981])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[982])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[984])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[985])},
       { SCM_OBJ(&scm__rc.d1563[986]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[983]), SCM_OBJ(&scm__rc.d1563[987])},
       { SCM_MAKE_INT(892U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[989])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[990])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[992])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[993])},
       { SCM_OBJ(&scm__rc.d1563[994]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[991]), SCM_OBJ(&scm__rc.d1563[995])},
  },
  {   /* ScmObj d1562 */
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
  },
};
static ScmObj libnumnumberP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj obj_scm;
  ScmObj obj;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("number?");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  obj_scm = SCM_SUBRARGS[0];
  obj = (obj_scm);
  {
{
int SCM_RESULT;
{SCM_RESULT=(SCM_NUMBERP(obj));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libnumcomplexP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj obj_scm;
  ScmObj obj;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("complex?");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  obj_scm = SCM_SUBRARGS[0];
  obj = (obj_scm);
  {
{
int SCM_RESULT;
{SCM_RESULT=(SCM_NUMBERP(obj));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libnumrealP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj obj_scm;
  ScmObj obj;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("real?");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  obj_scm = SCM_SUBRARGS[0];
  obj = (obj_scm);
  {
{
int SCM_RESULT;
{SCM_RESULT=(SCM_REALP(obj));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libnumrationalP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj obj_scm;
  ScmObj obj;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("rational?");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  obj_scm = SCM_SUBRARGS[0];
  obj = (obj_scm);
  {
{
int SCM_RESULT;

#line 57 "libnum.scm"
{SCM_RESULT=((SCM_REALP(obj))&&(Scm_FiniteP(obj)));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libnumintegerP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj obj_scm;
  ScmObj obj;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("integer?");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  obj_scm = SCM_SUBRARGS[0];
  obj = (obj_scm);
  {
{
int SCM_RESULT;

#line 59 "libnum.scm"
{SCM_RESULT=((SCM_NUMBERP(obj))&&(Scm_IntegerP(obj)));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libnumexactP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj obj_scm;
  ScmObj obj;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("exact?");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  obj_scm = SCM_SUBRARGS[0];
  obj = (obj_scm);
  {
{
int SCM_RESULT;
{SCM_RESULT=(SCM_EXACTP(obj));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libnuminexactP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj obj_scm;
  ScmObj obj;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("inexact?");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  obj_scm = SCM_SUBRARGS[0];
  obj = (obj_scm);
  {
{
int SCM_RESULT;
{SCM_RESULT=(SCM_INEXACTP(obj));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libnumzeroP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj obj_scm;
  ScmObj obj;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("zero?");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  obj_scm = SCM_SUBRARGS[0];
  if (!SCM_NUMBERP(obj_scm)) Scm_Error("number required, but got %S", obj_scm);
  obj = (obj_scm);
  {
{
int SCM_RESULT;

#line 65 "libnum.scm"
{SCM_RESULT=((SCM_REALP(obj))&&((Scm_Sign(obj))==(0)));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libnumpositiveP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj obj_scm;
  ScmObj obj;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("positive?");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  obj_scm = SCM_SUBRARGS[0];
  obj = (obj_scm);
  {
{
int SCM_RESULT;

#line 68 "libnum.scm"
{SCM_RESULT=((Scm_Sign(obj))>(0));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libnumnegativeP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj obj_scm;
  ScmObj obj;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("negative?");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  obj_scm = SCM_SUBRARGS[0];
  obj = (obj_scm);
  {
{
int SCM_RESULT;

#line 70 "libnum.scm"
{SCM_RESULT=((!(Scm_NanP(obj)))&&((Scm_Sign(obj))<(0)));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libnumoddP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj obj_scm;
  ScmObj obj;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("odd?");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  obj_scm = SCM_SUBRARGS[0];
  obj = (obj_scm);
  {
{
int SCM_RESULT;
{SCM_RESULT=(Scm_OddP(obj));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libnumevenP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj obj_scm;
  ScmObj obj;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("even?");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  obj_scm = SCM_SUBRARGS[0];
  obj = (obj_scm);
  {
{
int SCM_RESULT;

#line 73 "libnum.scm"
{SCM_RESULT=(!(Scm_OddP(obj)));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libnumfixnumP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj x_scm;
  ScmObj x;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("fixnum?");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  x_scm = SCM_SUBRARGS[0];
  x = (x_scm);
  {
{
int SCM_RESULT;
{SCM_RESULT=(SCM_INTP(x));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libnumbignumP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj x_scm;
  ScmObj x;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("bignum?");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  x_scm = SCM_SUBRARGS[0];
  x = (x_scm);
  {
{
int SCM_RESULT;
{SCM_RESULT=(SCM_BIGNUMP(x));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libnumflonumP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj x_scm;
  ScmObj x;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("flonum?");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  x_scm = SCM_SUBRARGS[0];
  x = (x_scm);
  {
{
int SCM_RESULT;
{SCM_RESULT=(SCM_FLONUMP(x));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libnumfiniteP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj x_scm;
  ScmObj x;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("finite?");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  x_scm = SCM_SUBRARGS[0];
  if (!SCM_NUMBERP(x_scm)) Scm_Error("number required, but got %S", x_scm);
  x = (x_scm);
  {
{
int SCM_RESULT;
{SCM_RESULT=(Scm_FiniteP(x));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libnuminfiniteP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj x_scm;
  ScmObj x;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("infinite?");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  x_scm = SCM_SUBRARGS[0];
  if (!SCM_NUMBERP(x_scm)) Scm_Error("number required, but got %S", x_scm);
  x = (x_scm);
  {
{
int SCM_RESULT;
{SCM_RESULT=(Scm_InfiniteP(x));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libnumnanP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj x_scm;
  ScmObj x;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("nan?");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  x_scm = SCM_SUBRARGS[0];
  if (!SCM_NUMBERP(x_scm)) Scm_Error("number required, but got %S", x_scm);
  x = (x_scm);
  {
{
int SCM_RESULT;
{SCM_RESULT=(Scm_NanP(x));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libnum_zeroP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj x_scm;
  ScmObj x;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("-zero?");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  x_scm = SCM_SUBRARGS[0];
  if (!SCM_NUMBERP(x_scm)) Scm_Error("number required, but got %S", x_scm);
  x = (x_scm);
  {
{
int SCM_RESULT;

#line 85 "libnum.scm"
{SCM_RESULT=(((SCM_FLONUMP(x))&&(
(SCM_FLONUM_VALUE(x))==(0.0)))&&(
(signbit(SCM_FLONUM_VALUE(x)))!=(0)));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libnumexact_integerP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj obj_scm;
  ScmObj obj;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("exact-integer?");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  obj_scm = SCM_SUBRARGS[0];
  obj = (obj_scm);
  {
{
int SCM_RESULT;
{SCM_RESULT=(SCM_INTEGERP(obj));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libnumfixnum_width(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  SCM_ENTER_SUBR("fixnum-width");
  {
{
int SCM_RESULT;

#line 98 "libnum.scm"
{SCM_RESULT=((SCM_SMALL_INT_SIZE)+(1));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(Scm_MakeInteger(SCM_RESULT));
}
  }
}

static ScmObj libnumleast_fixnum(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  SCM_ENTER_SUBR("least-fixnum");
  {
{
long SCM_RESULT;

#line 99 "libnum.scm"
{SCM_RESULT=(SCM_SMALL_INT_MIN);goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(Scm_MakeInteger(SCM_RESULT));
}
  }
}

static ScmObj libnumgreatest_fixnum(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  SCM_ENTER_SUBR("greatest-fixnum");
  {
{
long SCM_RESULT;

#line 100 "libnum.scm"
{SCM_RESULT=(SCM_SMALL_INT_MAX);goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(Scm_MakeInteger(SCM_RESULT));
}
  }
}

static ScmObj libnumnative_endian(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  SCM_ENTER_SUBR("native-endian");
  {
{
ScmObj SCM_RESULT;
{SCM_RESULT=(Scm_NativeEndian());goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnumflonum_epsilon(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  SCM_ENTER_SUBR("flonum-epsilon");
  {
{
ScmObj SCM_RESULT;

#line 112 "libnum.scm"
{static ScmObj x=SCM_UNBOUND;
if ((x)==(SCM_UNBOUND)){{
x=(Scm_MakeFlonum(DBL_EPSILON));}}
{SCM_RESULT=(x);goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnumflonum_min_normalized(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  SCM_ENTER_SUBR("flonum-min-normalized");
  {
{
ScmObj SCM_RESULT;

#line 117 "libnum.scm"
{static ScmObj x=SCM_UNBOUND;
if ((x)==(SCM_UNBOUND)){{
x=(Scm_MakeFlonum(DBL_MIN));}}
{SCM_RESULT=(x);goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnumflonum_min_denormalized(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  SCM_ENTER_SUBR("flonum-min-denormalized");
  {
{
ScmObj SCM_RESULT;

#line 122 "libnum.scm"
{static ScmObj x=SCM_UNBOUND;
if ((x)==(SCM_UNBOUND)){{
{double m=Scm_EncodeFlonum(SCM_MAKE_INT(1),-1074,1);
if ((m)==(0.0)){
x=(Scm_MakeFlonum(DBL_MIN));} else {
x=(Scm_MakeFlonum(m));}}}}
{SCM_RESULT=(x);goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnum_25bignum_dump(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj obj_scm;
  ScmObj obj;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("%bignum-dump");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  obj_scm = SCM_SUBRARGS[0];
  obj = (obj_scm);
  {

#line 132 "libnum.scm"
if (SCM_BIGNUMP(obj)){{
Scm_DumpBignum(SCM_BIGNUM(obj),SCM_CUROUT);}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_UNDEFINED);
  }
}

static ScmObj libnum_3d(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj arg0_scm;
  ScmObj arg0;
  ScmObj arg1_scm;
  ScmObj arg1;
  ScmObj* oarg;
  int optcnt;
  ScmObj args_scm;
  ScmObj args;
  ScmObj SCM_SUBRARGS[7];
  SCM_ENTER_SUBR("=");
  for (int SCM_i=0; SCM_i<7; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  arg0_scm = SCM_SUBRARGS[0];
  arg0 = (arg0_scm);
  arg1_scm = SCM_SUBRARGS[1];
  arg1 = (arg1_scm);
  oarg = &SCM_SUBRARGS[2];
  optcnt = SCM_ARGCNT-1-2;
  args_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  args = (args_scm);
  {
{
int SCM_RESULT;

#line 176 "libnum.scm"
{if (!(Scm_NumEq(arg0,arg1))){{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}}else if((optcnt)==(0)){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}}else if(!(Scm_NumEq(arg1,(oarg)[0]))){{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}}else if((optcnt)==(1)){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}}else if(!(Scm_NumEq((oarg)[0],(oarg)[1]))){{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}}else if(((optcnt)==(2))&&(SCM_NULLP(args))){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}} else {arg0=((oarg)[1]),arg1=(SCM_CAR(args)),args=(SCM_CDR(args));for (;;){if (!(Scm_NumEq(arg0,arg1))){{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}}else if(SCM_NULLP(args)){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}} else {arg0=(arg1),arg1=(SCM_CAR(args)),args=(SCM_CDR(args));}}}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libnum_LT(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj arg0_scm;
  ScmObj arg0;
  ScmObj arg1_scm;
  ScmObj arg1;
  ScmObj* oarg;
  int optcnt;
  ScmObj args_scm;
  ScmObj args;
  ScmObj SCM_SUBRARGS[7];
  SCM_ENTER_SUBR("<");
  for (int SCM_i=0; SCM_i<7; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  arg0_scm = SCM_SUBRARGS[0];
  arg0 = (arg0_scm);
  arg1_scm = SCM_SUBRARGS[1];
  arg1 = (arg1_scm);
  oarg = &SCM_SUBRARGS[2];
  optcnt = SCM_ARGCNT-1-2;
  args_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  args = (args_scm);
  {
{
int SCM_RESULT;

#line 178 "libnum.scm"
{if (!(Scm_NumLT(arg0,arg1))){{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}}else if((optcnt)==(0)){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}}else if(!(Scm_NumLT(arg1,(oarg)[0]))){{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}}else if((optcnt)==(1)){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}}else if(!(Scm_NumLT((oarg)[0],(oarg)[1]))){{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}}else if(((optcnt)==(2))&&(SCM_NULLP(args))){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}} else {arg0=((oarg)[1]),arg1=(SCM_CAR(args)),args=(SCM_CDR(args));for (;;){if (!(Scm_NumLT(arg0,arg1))){{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}}else if(SCM_NULLP(args)){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}} else {arg0=(arg1),arg1=(SCM_CAR(args)),args=(SCM_CDR(args));}}}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libnum_LT_3d(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj arg0_scm;
  ScmObj arg0;
  ScmObj arg1_scm;
  ScmObj arg1;
  ScmObj* oarg;
  int optcnt;
  ScmObj args_scm;
  ScmObj args;
  ScmObj SCM_SUBRARGS[7];
  SCM_ENTER_SUBR("<=");
  for (int SCM_i=0; SCM_i<7; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  arg0_scm = SCM_SUBRARGS[0];
  arg0 = (arg0_scm);
  arg1_scm = SCM_SUBRARGS[1];
  arg1 = (arg1_scm);
  oarg = &SCM_SUBRARGS[2];
  optcnt = SCM_ARGCNT-1-2;
  args_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  args = (args_scm);
  {
{
int SCM_RESULT;

#line 180 "libnum.scm"
{if (!(Scm_NumLE(arg0,arg1))){{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}}else if((optcnt)==(0)){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}}else if(!(Scm_NumLE(arg1,(oarg)[0]))){{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}}else if((optcnt)==(1)){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}}else if(!(Scm_NumLE((oarg)[0],(oarg)[1]))){{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}}else if(((optcnt)==(2))&&(SCM_NULLP(args))){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}} else {arg0=((oarg)[1]),arg1=(SCM_CAR(args)),args=(SCM_CDR(args));for (;;){if (!(Scm_NumLE(arg0,arg1))){{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}}else if(SCM_NULLP(args)){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}} else {arg0=(arg1),arg1=(SCM_CAR(args)),args=(SCM_CDR(args));}}}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libnum_GT(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj arg0_scm;
  ScmObj arg0;
  ScmObj arg1_scm;
  ScmObj arg1;
  ScmObj* oarg;
  int optcnt;
  ScmObj args_scm;
  ScmObj args;
  ScmObj SCM_SUBRARGS[7];
  SCM_ENTER_SUBR(">");
  for (int SCM_i=0; SCM_i<7; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  arg0_scm = SCM_SUBRARGS[0];
  arg0 = (arg0_scm);
  arg1_scm = SCM_SUBRARGS[1];
  arg1 = (arg1_scm);
  oarg = &SCM_SUBRARGS[2];
  optcnt = SCM_ARGCNT-1-2;
  args_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  args = (args_scm);
  {
{
int SCM_RESULT;

#line 182 "libnum.scm"
{if (!(Scm_NumGT(arg0,arg1))){{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}}else if((optcnt)==(0)){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}}else if(!(Scm_NumGT(arg1,(oarg)[0]))){{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}}else if((optcnt)==(1)){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}}else if(!(Scm_NumGT((oarg)[0],(oarg)[1]))){{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}}else if(((optcnt)==(2))&&(SCM_NULLP(args))){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}} else {arg0=((oarg)[1]),arg1=(SCM_CAR(args)),args=(SCM_CDR(args));for (;;){if (!(Scm_NumGT(arg0,arg1))){{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}}else if(SCM_NULLP(args)){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}} else {arg0=(arg1),arg1=(SCM_CAR(args)),args=(SCM_CDR(args));}}}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libnum_GT_3d(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj arg0_scm;
  ScmObj arg0;
  ScmObj arg1_scm;
  ScmObj arg1;
  ScmObj* oarg;
  int optcnt;
  ScmObj args_scm;
  ScmObj args;
  ScmObj SCM_SUBRARGS[7];
  SCM_ENTER_SUBR(">=");
  for (int SCM_i=0; SCM_i<7; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  arg0_scm = SCM_SUBRARGS[0];
  arg0 = (arg0_scm);
  arg1_scm = SCM_SUBRARGS[1];
  arg1 = (arg1_scm);
  oarg = &SCM_SUBRARGS[2];
  optcnt = SCM_ARGCNT-1-2;
  args_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  args = (args_scm);
  {
{
int SCM_RESULT;

#line 184 "libnum.scm"
{if (!(Scm_NumGE(arg0,arg1))){{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}}else if((optcnt)==(0)){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}}else if(!(Scm_NumGE(arg1,(oarg)[0]))){{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}}else if((optcnt)==(1)){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}}else if(!(Scm_NumGE((oarg)[0],(oarg)[1]))){{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}}else if(((optcnt)==(2))&&(SCM_NULLP(args))){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}} else {arg0=((oarg)[1]),arg1=(SCM_CAR(args)),args=(SCM_CDR(args));for (;;){if (!(Scm_NumGE(arg0,arg1))){{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}}else if(SCM_NULLP(args)){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}} else {arg0=(arg1),arg1=(SCM_CAR(args)),args=(SCM_CDR(args));}}}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libnummax(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj arg0_scm;
  ScmObj arg0;
  ScmObj args_scm;
  ScmObj args;
  ScmObj SCM_SUBRARGS[3];
  SCM_ENTER_SUBR("max");
  for (int SCM_i=0; SCM_i<3; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  arg0_scm = SCM_SUBRARGS[0];
  arg0 = (arg0_scm);
  args_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  args = (args_scm);
  {
{
ScmObj SCM_RESULT;

#line 187 "libnum.scm"
Scm_MinMax(arg0,args,NULL,&(SCM_RESULT));
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnummin(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj arg0_scm;
  ScmObj arg0;
  ScmObj args_scm;
  ScmObj args;
  ScmObj SCM_SUBRARGS[3];
  SCM_ENTER_SUBR("min");
  for (int SCM_i=0; SCM_i<3; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  arg0_scm = SCM_SUBRARGS[0];
  arg0 = (arg0_scm);
  args_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  args = (args_scm);
  {
{
ScmObj SCM_RESULT;

#line 189 "libnum.scm"
Scm_MinMax(arg0,args,&(SCM_RESULT),NULL);
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnummin_26max(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj arg0_scm;
  ScmObj arg0;
  ScmObj args_scm;
  ScmObj args;
  ScmObj SCM_SUBRARGS[3];
  SCM_ENTER_SUBR("min&max");
  for (int SCM_i=0; SCM_i<3; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  arg0_scm = SCM_SUBRARGS[0];
  arg0 = (arg0_scm);
  args_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  args = (args_scm);
  {
ScmObj SCM_RESULT0;
ScmObj SCM_RESULT1;
{

#line 193 "libnum.scm"
Scm_MinMax(arg0,args,&(SCM_RESULT0),&(SCM_RESULT1));
}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(Scm_Values2(SCM_OBJ_SAFE(SCM_RESULT0),SCM_OBJ_SAFE(SCM_RESULT1)));
  }
}

static ScmObj libnumexact_TOinexact(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj obj_scm;
  ScmObj obj;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("exact->inexact");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  obj_scm = SCM_SUBRARGS[0];
  obj = (obj_scm);
  {
{
ScmObj SCM_RESULT;
{SCM_RESULT=(Scm_Inexact(obj));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnuminexact_TOexact(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj obj_scm;
  ScmObj obj;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("inexact->exact");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  obj_scm = SCM_SUBRARGS[0];
  obj = (obj_scm);
  {
{
ScmObj SCM_RESULT;
{SCM_RESULT=(Scm_Exact(obj));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnumnumber_TOstring(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj obj_scm;
  ScmObj obj;
  ScmObj radix_scm;
  ScmSmallInt radix;
  ScmObj flags_scm;
  ScmObj flags;
  ScmObj precision_scm;
  ScmSmallInt precision;
  ScmObj SCM_SUBRARGS[7];
  SCM_ENTER_SUBR("number->string");
  if (SCM_ARGCNT >= 5
      && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
    Scm_Error("too many arguments: up to 4 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
  for (int SCM_i=0; SCM_i<7; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  obj_scm = SCM_SUBRARGS[0];
  obj = (obj_scm);
  if (SCM_ARGCNT > 1+1) {
    radix_scm = SCM_SUBRARGS[1];
  } else {
    radix_scm = SCM_MAKE_INT(10U);
  }
  if (!SCM_INTP(radix_scm)) Scm_Error("small integer required, but got %S", radix_scm);
  radix = SCM_INT_VALUE(radix_scm);
  if (SCM_ARGCNT > 2+1) {
    flags_scm = SCM_SUBRARGS[2];
  } else {
    flags_scm = SCM_FALSE;
  }
  flags = (flags_scm);
  if (SCM_ARGCNT > 3+1) {
    precision_scm = SCM_SUBRARGS[3];
  } else {
    precision_scm = SCM_MAKE_INT(-1);
  }
  if (!SCM_INTP(precision_scm)) Scm_Error("small integer required, but got %S", precision_scm);
  precision = SCM_INT_VALUE(precision_scm);
  {
{
ScmObj SCM_RESULT;

#line 212 "libnum.scm"
{u_long f=0;ScmNumberFormat fmt;ScmPort* o=
#line 214 "libnum.scm"
SCM_PORT(Scm_MakeOutputStringPort(TRUE));
if (((radix)<(SCM_RADIX_MIN))||((radix)>(SCM_RADIX_MAX))){{
Scm_Error("radix must be an integer between %d and %d, but got %d",SCM_RADIX_MIN,SCM_RADIX_MAX,radix);}}
#line 218 "libnum.scm"
if ((SCM_FALSEP(flags))||(SCM_NULLP(flags))){f=(0);}else if(
SCM_TRUEP(flags)){f=(SCM_NUMBER_FORMAT_USE_UPPER);}else if(
SCM_PAIRP(flags)){
if (!(SCM_FALSEP(Scm_Memq(scm__rc.d1562[97],flags)))){{
(f)|=(SCM_NUMBER_FORMAT_USE_UPPER);}}
if (!(SCM_FALSEP(Scm_Memq(scm__rc.d1562[98],flags)))){{
(f)|=(SCM_NUMBER_FORMAT_SHOW_PLUS);}}
if (!(SCM_FALSEP(Scm_Memq(scm__rc.d1562[99],flags)))){{
(f)|=(SCM_NUMBER_FORMAT_ALT_RADIX);}}
if (!(SCM_FALSEP(Scm_Memq(scm__rc.d1562[100],flags)))){{
(f)|=(SCM_NUMBER_FORMAT_ROUND_NOTATIONAL);}}} else {
#line 230 "libnum.scm"
Scm_Error("flags argument must be a list of symbols (uppercase, plus, radix, notational) or a boolean, but got: %S",flags);}
#line 233 "libnum.scm"
Scm_NumberFormatInit(&(fmt));
(fmt).radix=(radix);
(fmt).flags=(f);
(fmt).precision=(precision);
Scm_PrintNumber(o,obj,&(fmt));
{SCM_RESULT=(Scm_GetOutputString(o,0));goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnumstring_TOnumber(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj obj_scm;
  ScmString* obj;
  ScmObj radix_scm;
  ScmSmallInt radix;
  ScmObj default_exactness_scm;
  ScmObj default_exactness;
  ScmObj SCM_SUBRARGS[5];
  SCM_ENTER_SUBR("string->number");
  if (SCM_ARGCNT >= 4
      && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
    Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
  for (int SCM_i=0; SCM_i<5; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  obj_scm = SCM_SUBRARGS[0];
  if (!SCM_STRINGP(obj_scm)) Scm_Error("string required, but got %S", obj_scm);
  obj = SCM_STRING(obj_scm);
  if (SCM_ARGCNT > 1+1) {
    radix_scm = SCM_SUBRARGS[1];
  } else {
    radix_scm = SCM_MAKE_INT(10U);
  }
  if (!SCM_INTP(radix_scm)) Scm_Error("small integer required, but got %S", radix_scm);
  radix = SCM_INT_VALUE(radix_scm);
  if (SCM_ARGCNT > 2+1) {
    default_exactness_scm = SCM_SUBRARGS[2];
  } else {
    default_exactness_scm = SCM_FALSE;
  }
  default_exactness = (default_exactness_scm);
  {
{
ScmObj SCM_RESULT;

#line 243 "libnum.scm"
{u_long flags=0;
if (
SCM_EQ(default_exactness,scm__rc.d1562[92])){
flags=(SCM_NUMBER_FORMAT_EXACT);}else if(
SCM_EQ(default_exactness,scm__rc.d1562[96])){
flags=(SCM_NUMBER_FORMAT_INEXACT);}else if(
SCM_FALSEP(default_exactness)){} else {
Scm_Error("default-exactness must be either #f, exact or inexact, but got: %S",default_exactness);}
{SCM_RESULT=(Scm_StringToNumber(obj,radix,flags));goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnumfloor_TOexact(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj num_scm;
  ScmObj num;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("floor->exact");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  num_scm = SCM_SUBRARGS[0];
  num = (num_scm);
  {
{
ScmObj SCM_RESULT;

#line 255 "libnum.scm"
{SCM_RESULT=(Scm_RoundToExact(num,SCM_ROUND_FLOOR));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnumceiling_TOexact(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj num_scm;
  ScmObj num;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("ceiling->exact");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  num_scm = SCM_SUBRARGS[0];
  num = (num_scm);
  {
{
ScmObj SCM_RESULT;

#line 257 "libnum.scm"
{SCM_RESULT=(Scm_RoundToExact(num,SCM_ROUND_CEIL));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnumtruncate_TOexact(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj num_scm;
  ScmObj num;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("truncate->exact");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  num_scm = SCM_SUBRARGS[0];
  num = (num_scm);
  {
{
ScmObj SCM_RESULT;

#line 259 "libnum.scm"
{SCM_RESULT=(Scm_RoundToExact(num,SCM_ROUND_TRUNC));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnumround_TOexact(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj num_scm;
  ScmObj num;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("round->exact");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  num_scm = SCM_SUBRARGS[0];
  num = (num_scm);
  {
{
ScmObj SCM_RESULT;

#line 261 "libnum.scm"
{SCM_RESULT=(Scm_RoundToExact(num,SCM_ROUND_ROUND));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnumdecode_float(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj num_scm;
  ScmObj num;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("decode-float");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  num_scm = SCM_SUBRARGS[0];
  num = (num_scm);
  {
{
ScmObj SCM_RESULT;

#line 264 "libnum.scm"
if (SCM_FLONUMP(num)){
{int exp;int sign;ScmObj f=
Scm_DecodeFlonum(SCM_FLONUM_VALUE(num),&(exp),&(sign));ScmObj v=
Scm_MakeVector(3,SCM_FALSE);
SCM_VECTOR_ELEMENT(v,0)=(f),
SCM_VECTOR_ELEMENT(v,1)=(Scm_MakeInteger(exp)),
SCM_VECTOR_ELEMENT(v,2)=(Scm_MakeInteger(sign));
{SCM_RESULT=(v);goto SCM_STUB_RETURN;}}}else if(
SCM_INTP(num)){
{ScmObj v=Scm_MakeVector(3,SCM_FALSE);
SCM_VECTOR_ELEMENT(v,0)=(Scm_Abs(num)),
SCM_VECTOR_ELEMENT(v,1)=(Scm_MakeInteger(0)),
SCM_VECTOR_ELEMENT(v,2)=(Scm_MakeInteger(Scm_Sign(num)));
{SCM_RESULT=(v);goto SCM_STUB_RETURN;}}} else {
SCM_TYPE_ERROR(num,"real number");{SCM_RESULT=(SCM_UNDEFINED);goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnumfmod(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj x_scm;
  double x;
  ScmObj y_scm;
  double y;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("fmod");
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  x_scm = SCM_SUBRARGS[0];
  if (!SCM_REALP(x_scm)) Scm_Error("real number required, but got %S", x_scm);
  x = Scm_GetDouble(x_scm);
  y_scm = SCM_SUBRARGS[1];
  if (!SCM_REALP(y_scm)) Scm_Error("real number required, but got %S", y_scm);
  y = Scm_GetDouble(y_scm);
  {
{
double SCM_RESULT;
{SCM_RESULT=(fmod(x,y));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(Scm_VMReturnFlonum(SCM_RESULT));
}
  }
}

static ScmObj libnumfrexp(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj d_scm;
  double d;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("frexp");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  d_scm = SCM_SUBRARGS[0];
  if (!SCM_REALP(d_scm)) Scm_Error("real number required, but got %S", d_scm);
  d = Scm_GetDouble(d_scm);
  {
double SCM_RESULT0;
int SCM_RESULT1;
{

#line 283 "libnum.scm"
SCM_RESULT0=(frexp(d,&(SCM_RESULT1)));
}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(Scm_Values2(Scm_VMReturnFlonum(SCM_RESULT0),Scm_MakeInteger(SCM_RESULT1)));
  }
}

static ScmObj libnummodf(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj x_scm;
  double x;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("modf");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  x_scm = SCM_SUBRARGS[0];
  if (!SCM_REALP(x_scm)) Scm_Error("real number required, but got %S", x_scm);
  x = Scm_GetDouble(x_scm);
  {
double SCM_RESULT0;
double SCM_RESULT1;
{

#line 286 "libnum.scm"
SCM_RESULT0=(modf(x,&(SCM_RESULT1)));
}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(Scm_Values2(Scm_VMReturnFlonum(SCM_RESULT0),Scm_VMReturnFlonum(SCM_RESULT1)));
  }
}

static ScmObj libnumldexp(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj x_scm;
  double x;
  ScmObj exp_scm;
  int exp;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("ldexp");
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  x_scm = SCM_SUBRARGS[0];
  if (!SCM_REALP(x_scm)) Scm_Error("real number required, but got %S", x_scm);
  x = Scm_GetDouble(x_scm);
  exp_scm = SCM_SUBRARGS[1];
  if (!SCM_INTEGERP(exp_scm)) Scm_Error("C integer required, but got %S", exp_scm);
  exp = Scm_GetInteger(exp_scm);
  {
{
double SCM_RESULT;
{SCM_RESULT=(ldexp(x,exp));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(Scm_VMReturnFlonum(SCM_RESULT));
}
  }
}

static ScmObj libnumlog10(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj x_scm;
  double x;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("log10");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  x_scm = SCM_SUBRARGS[0];
  if (!SCM_REALP(x_scm)) Scm_Error("real number required, but got %S", x_scm);
  x = Scm_GetDouble(x_scm);
  {
{
double SCM_RESULT;
{SCM_RESULT=(log10(x));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(Scm_VMReturnFlonum(SCM_RESULT));
}
  }
}

#if defined(HAVE_TGAMMA)
static ScmObj libnum_25gamma(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj x_scm;
  double x;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("%gamma");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  x_scm = SCM_SUBRARGS[0];
  if (!SCM_REALP(x_scm)) Scm_Error("real number required, but got %S", x_scm);
  x = Scm_GetDouble(x_scm);
  {
{
double SCM_RESULT;
{SCM_RESULT=(tgamma(x));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(Scm_VMReturnFlonum(SCM_RESULT));
}
  }
}

#endif /* defined(HAVE_TGAMMA) */
#if defined(HAVE_LGAMMA)
static ScmObj libnum_25lgamma(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj x_scm;
  double x;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("%lgamma");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  x_scm = SCM_SUBRARGS[0];
  if (!SCM_REALP(x_scm)) Scm_Error("real number required, but got %S", x_scm);
  x = Scm_GetDouble(x_scm);
  {
{
double SCM_RESULT;
{SCM_RESULT=(lgamma(x));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(Scm_VMReturnFlonum(SCM_RESULT));
}
  }
}

#endif /* defined(HAVE_LGAMMA) */
static ScmObj libnumflonum_TOf16bits(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj x_scm;
  double x;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("flonum->f16bits");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  x_scm = SCM_SUBRARGS[0];
  if (!SCM_REALP(x_scm)) Scm_Error("real number required, but got %S", x_scm);
  x = Scm_GetDouble(x_scm);
  {
{
int SCM_RESULT;
{SCM_RESULT=(Scm_DoubleToHalf(x));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(Scm_MakeInteger(SCM_RESULT));
}
  }
}

static ScmObj libnum_2a(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj args_scm;
  ScmObj args;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("*");
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  args_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  args = (args_scm);
  {
{
ScmObj SCM_RESULT;
ScmObj cise__1574;
#line 312 "libnum.scm"
if (!(SCM_PAIRP(args))){{SCM_RESULT=(SCM_MAKE_INT(1));goto SCM_STUB_RETURN;}} else {
{ScmObj r=SCM_CAR(args);
SCM_FOR_EACH(cise__1574,SCM_CDR(args)) {{ScmObj v=SCM_CAR(cise__1574);r=(Scm_Mul(r,v));}}
{SCM_RESULT=(r);goto SCM_STUB_RETURN;}}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnum_2b(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj args_scm;
  ScmObj args;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("+");
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  args_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  args = (args_scm);
  {
{
ScmObj SCM_RESULT;
ScmObj cise__1575;
#line 318 "libnum.scm"
if (!(SCM_PAIRP(args))){{SCM_RESULT=(SCM_MAKE_INT(0));goto SCM_STUB_RETURN;}} else {
{ScmObj r=SCM_CAR(args);
SCM_FOR_EACH(cise__1575,SCM_CDR(args)) {{ScmObj v=SCM_CAR(cise__1575);r=(Scm_Add(r,v));}}
{SCM_RESULT=(r);goto SCM_STUB_RETURN;}}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnum_(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj arg1_scm;
  ScmObj arg1;
  ScmObj args_scm;
  ScmObj args;
  ScmObj SCM_SUBRARGS[3];
  SCM_ENTER_SUBR("-");
  for (int SCM_i=0; SCM_i<3; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  arg1_scm = SCM_SUBRARGS[0];
  arg1 = (arg1_scm);
  args_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  args = (args_scm);
  {
{
ScmObj SCM_RESULT;
ScmObj cise__1576;
#line 324 "libnum.scm"
if (SCM_NULLP(args)){
{SCM_RESULT=(Scm_VMNegate(arg1));goto SCM_STUB_RETURN;}} else {
{SCM_FOR_EACH(cise__1576,args) {{ScmObj v=SCM_CAR(cise__1576);arg1=(Scm_Sub(arg1,v));}}
{SCM_RESULT=(arg1);goto SCM_STUB_RETURN;}}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnum_2f(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj arg1_scm;
  ScmObj arg1;
  ScmObj args_scm;
  ScmObj args;
  ScmObj SCM_SUBRARGS[3];
  SCM_ENTER_SUBR("/");
  for (int SCM_i=0; SCM_i<3; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  arg1_scm = SCM_SUBRARGS[0];
  arg1 = (arg1_scm);
  args_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  args = (args_scm);
  {
{
ScmObj SCM_RESULT;
ScmObj cise__1577;
#line 330 "libnum.scm"
if (SCM_NULLP(args)){
{SCM_RESULT=(Scm_VMReciprocal(arg1));goto SCM_STUB_RETURN;}} else {
{SCM_FOR_EACH(cise__1577,args) {{ScmObj v=SCM_CAR(cise__1577);arg1=(Scm_Div(arg1,v));}}
{SCM_RESULT=(arg1);goto SCM_STUB_RETURN;}}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnumabs(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj obj_scm;
  ScmObj obj;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("abs");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  obj_scm = SCM_SUBRARGS[0];
  obj = (obj_scm);
  {
{
ScmObj SCM_RESULT;
{SCM_RESULT=(Scm_VMAbs(obj));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnumquotient(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj n1_scm;
  ScmObj n1;
  ScmObj n2_scm;
  ScmObj n2;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("quotient");
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  n1_scm = SCM_SUBRARGS[0];
  n1 = (n1_scm);
  n2_scm = SCM_SUBRARGS[1];
  n2 = (n2_scm);
  {
{
ScmObj SCM_RESULT;

#line 338 "libnum.scm"
{SCM_RESULT=(Scm_Quotient(n1,n2,NULL));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnumremainder(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj n1_scm;
  ScmObj n1;
  ScmObj n2_scm;
  ScmObj n2;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("remainder");
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  n1_scm = SCM_SUBRARGS[0];
  n1 = (n1_scm);
  n2_scm = SCM_SUBRARGS[1];
  n2 = (n2_scm);
  {
{
ScmObj SCM_RESULT;

#line 340 "libnum.scm"
{SCM_RESULT=(Scm_Modulo(n1,n2,TRUE));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnummodulo(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj n1_scm;
  ScmObj n1;
  ScmObj n2_scm;
  ScmObj n2;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("modulo");
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  n1_scm = SCM_SUBRARGS[0];
  n1 = (n1_scm);
  n2_scm = SCM_SUBRARGS[1];
  n2 = (n2_scm);
  {
{
ScmObj SCM_RESULT;

#line 342 "libnum.scm"
{SCM_RESULT=(Scm_Modulo(n1,n2,FALSE));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnum_25gcd(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj n1_scm;
  ScmObj n1;
  ScmObj n2_scm;
  ScmObj n2;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("%gcd");
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  n1_scm = SCM_SUBRARGS[0];
  n1 = (n1_scm);
  n2_scm = SCM_SUBRARGS[1];
  n2 = (n2_scm);
  {
{
ScmObj SCM_RESULT;
{SCM_RESULT=(Scm_Gcd(n1,n2));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnumnumerator(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj n_scm;
  ScmObj n;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("numerator");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  n_scm = SCM_SUBRARGS[0];
  n = (n_scm);
  {
{
ScmObj SCM_RESULT;
{SCM_RESULT=(Scm_Numerator(n));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnumdenominator(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj n_scm;
  ScmObj n;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("denominator");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  n_scm = SCM_SUBRARGS[0];
  n = (n_scm);
  {
{
ScmObj SCM_RESULT;
{SCM_RESULT=(Scm_Denominator(n));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnumfloor(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj v_scm;
  ScmObj v;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("floor");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  v_scm = SCM_SUBRARGS[0];
  v = (v_scm);
  {
{
ScmObj SCM_RESULT;

#line 396 "libnum.scm"
{SCM_RESULT=(Scm_Round(v,SCM_ROUND_FLOOR));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnumceiling(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj v_scm;
  ScmObj v;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("ceiling");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  v_scm = SCM_SUBRARGS[0];
  v = (v_scm);
  {
{
ScmObj SCM_RESULT;

#line 398 "libnum.scm"
{SCM_RESULT=(Scm_Round(v,SCM_ROUND_CEIL));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnumtruncate(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj v_scm;
  ScmObj v;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("truncate");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  v_scm = SCM_SUBRARGS[0];
  v = (v_scm);
  {
{
ScmObj SCM_RESULT;

#line 400 "libnum.scm"
{SCM_RESULT=(Scm_Round(v,SCM_ROUND_TRUNC));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnumround(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj v_scm;
  ScmObj v;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("round");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  v_scm = SCM_SUBRARGS[0];
  v = (v_scm);
  {
{
ScmObj SCM_RESULT;

#line 402 "libnum.scm"
{SCM_RESULT=(Scm_Round(v,SCM_ROUND_ROUND));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnum_25exp(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj x_scm;
  double x;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("%exp");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  x_scm = SCM_SUBRARGS[0];
  if (!SCM_REALP(x_scm)) Scm_Error("real number required, but got %S", x_scm);
  x = Scm_GetDouble(x_scm);
  {
{
double SCM_RESULT;
{SCM_RESULT=(exp(x));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(Scm_VMReturnFlonum(SCM_RESULT));
}
  }
}

static ScmObj libnum_25log(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj x_scm;
  ScmObj x;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("%log");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  x_scm = SCM_SUBRARGS[0];
  x = (x_scm);
  {
{
ScmObj SCM_RESULT;

#line 410 "libnum.scm"
if (!(SCM_REALP(x))){{SCM_TYPE_ERROR(x,"real number");}}

#line 411 "libnum.scm"
if (Scm_InfiniteP(x)){{
if ((Scm_Sign(x))>(0)){
{SCM_RESULT=(SCM_POSITIVE_INFINITY);goto SCM_STUB_RETURN;}} else {
{SCM_RESULT=(Scm_MakeComplex(SCM_DBL_POSITIVE_INFINITY,M_PI));goto SCM_STUB_RETURN;}}}}

#line 415 "libnum.scm"
{double d=Scm_GetDouble(x);double shift=0.0;
#line 417 "libnum.scm"
if (((d)==(SCM_DBL_POSITIVE_INFINITY))||(
(d)==(SCM_DBL_NEGATIVE_INFINITY))){{
SCM_ASSERT(SCM_BIGNUMP(x));
{ScmBits* z=((ScmBits* )((SCM_BIGNUM(x))->values));long scale=
Scm_BitsHighest1(z,0,(SCM_BIGNUM_SIZE(x))*(SCM_WORD_BITS));
shift=((scale)*(log(2.0)));
d=(Scm_GetDouble(
Scm_DivInexact(x,Scm_Ash(SCM_MAKE_INT(1),scale))));}}}
if ((Scm_FlonumSign(d))<(0)){
{SCM_RESULT=(Scm_MakeComplex((log(-(d)))+(shift),M_PI));goto SCM_STUB_RETURN;}} else {
{SCM_RESULT=(Scm_VMReturnFlonum((log(d))+(shift)));goto SCM_STUB_RETURN;}}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnum_25sin(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj x_scm;
  double x;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("%sin");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  x_scm = SCM_SUBRARGS[0];
  if (!SCM_REALP(x_scm)) Scm_Error("real number required, but got %S", x_scm);
  x = Scm_GetDouble(x_scm);
  {
{
double SCM_RESULT;
{SCM_RESULT=(sin(x));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(Scm_VMReturnFlonum(SCM_RESULT));
}
  }
}

static ScmObj libnum_25cos(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj x_scm;
  double x;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("%cos");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  x_scm = SCM_SUBRARGS[0];
  if (!SCM_REALP(x_scm)) Scm_Error("real number required, but got %S", x_scm);
  x = Scm_GetDouble(x_scm);
  {
{
double SCM_RESULT;
{SCM_RESULT=(cos(x));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(Scm_VMReturnFlonum(SCM_RESULT));
}
  }
}

static ScmObj libnum_25tan(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj x_scm;
  double x;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("%tan");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  x_scm = SCM_SUBRARGS[0];
  if (!SCM_REALP(x_scm)) Scm_Error("real number required, but got %S", x_scm);
  x = Scm_GetDouble(x_scm);
  {
{
double SCM_RESULT;
{SCM_RESULT=(tan(x));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(Scm_VMReturnFlonum(SCM_RESULT));
}
  }
}

static ScmObj libnum_25sinpi(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj x_scm;
  double x;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("%sinpi");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  x_scm = SCM_SUBRARGS[0];
  if (!SCM_REALP(x_scm)) Scm_Error("real number required, but got %S", x_scm);
  x = Scm_GetDouble(x_scm);
  {
{
double SCM_RESULT;
{SCM_RESULT=(Scm_SinPi(x));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(Scm_VMReturnFlonum(SCM_RESULT));
}
  }
}

static ScmObj libnum_25cospi(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj x_scm;
  double x;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("%cospi");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  x_scm = SCM_SUBRARGS[0];
  if (!SCM_REALP(x_scm)) Scm_Error("real number required, but got %S", x_scm);
  x = Scm_GetDouble(x_scm);
  {
{
double SCM_RESULT;
{SCM_RESULT=(Scm_CosPi(x));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(Scm_VMReturnFlonum(SCM_RESULT));
}
  }
}

static ScmObj libnum_25tanpi(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj x_scm;
  double x;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("%tanpi");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  x_scm = SCM_SUBRARGS[0];
  if (!SCM_REALP(x_scm)) Scm_Error("real number required, but got %S", x_scm);
  x = Scm_GetDouble(x_scm);
  {
{
double SCM_RESULT;
{SCM_RESULT=(Scm_TanPi(x));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(Scm_VMReturnFlonum(SCM_RESULT));
}
  }
}

static ScmObj libnum_25asin(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj x_scm;
  double x;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("%asin");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  x_scm = SCM_SUBRARGS[0];
  if (!SCM_REALP(x_scm)) Scm_Error("real number required, but got %S", x_scm);
  x = Scm_GetDouble(x_scm);
  {
{
ScmObj SCM_RESULT;

#line 438 "libnum.scm"
if ((x)>(1.0)){
{SCM_RESULT=(Scm_MakeComplex((M_PI)/(2.0),
-(log((x)+(sqrt(((x)*(x))-(1.0)))))));goto SCM_STUB_RETURN;}}else if(
(x)<(-1.0)){
{SCM_RESULT=(Scm_MakeComplex((-(M_PI))/(2.0),
-(log((-(x))-(sqrt(((x)*(x))-(1.0)))))));goto SCM_STUB_RETURN;}} else {
{SCM_RESULT=(Scm_VMReturnFlonum(asin(x)));goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnum_25acos(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj x_scm;
  double x;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("%acos");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  x_scm = SCM_SUBRARGS[0];
  if (!SCM_REALP(x_scm)) Scm_Error("real number required, but got %S", x_scm);
  x = Scm_GetDouble(x_scm);
  {
{
ScmObj SCM_RESULT;

#line 447 "libnum.scm"
if ((x)>(1.0)){
{SCM_RESULT=(Scm_MakeComplex(0,log((x)+(sqrt(((x)*(x))-(1.0))))));goto SCM_STUB_RETURN;}}else if(
(x)<(-1.0)){
{SCM_RESULT=(Scm_MakeComplex(0,log((x)+(sqrt(((x)*(x))-(1.0))))));goto SCM_STUB_RETURN;}} else {
{SCM_RESULT=(Scm_VMReturnFlonum(acos(x)));goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnum_25atan(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj z_scm;
  double z;
  ScmObj x_scm;
  ScmObj x;
  ScmObj SCM_SUBRARGS[3];
  SCM_ENTER_SUBR("%atan");
  if (SCM_ARGCNT >= 3
      && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
    Scm_Error("too many arguments: up to 2 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
  for (int SCM_i=0; SCM_i<3; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  z_scm = SCM_SUBRARGS[0];
  if (!SCM_REALP(z_scm)) Scm_Error("real number required, but got %S", z_scm);
  z = Scm_GetDouble(z_scm);
  if (SCM_ARGCNT > 1+1) {
    x_scm = SCM_SUBRARGS[1];
  } else {
    x_scm = SCM_UNBOUND;
  }
  x = (x_scm);
  {
{
double SCM_RESULT;

#line 454 "libnum.scm"
if (SCM_UNBOUNDP(x)){{SCM_RESULT=(atan(z));goto SCM_STUB_RETURN;}} else {
if (!(SCM_REALP(x))){{SCM_TYPE_ERROR(x,"real number");}}
{SCM_RESULT=(atan2(z,Scm_GetDouble(x)));goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(Scm_VMReturnFlonum(SCM_RESULT));
}
  }
}

static ScmObj libnum_25sinh(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj x_scm;
  double x;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("%sinh");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  x_scm = SCM_SUBRARGS[0];
  if (!SCM_REALP(x_scm)) Scm_Error("real number required, but got %S", x_scm);
  x = Scm_GetDouble(x_scm);
  {
{
double SCM_RESULT;
{SCM_RESULT=(sinh(x));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(Scm_VMReturnFlonum(SCM_RESULT));
}
  }
}

static ScmObj libnum_25cosh(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj x_scm;
  double x;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("%cosh");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  x_scm = SCM_SUBRARGS[0];
  if (!SCM_REALP(x_scm)) Scm_Error("real number required, but got %S", x_scm);
  x = Scm_GetDouble(x_scm);
  {
{
double SCM_RESULT;
{SCM_RESULT=(cosh(x));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(Scm_VMReturnFlonum(SCM_RESULT));
}
  }
}

static ScmObj libnum_25tanh(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj x_scm;
  double x;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("%tanh");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  x_scm = SCM_SUBRARGS[0];
  if (!SCM_REALP(x_scm)) Scm_Error("real number required, but got %S", x_scm);
  x = Scm_GetDouble(x_scm);
  {
{
double SCM_RESULT;
{SCM_RESULT=(tanh(x));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(Scm_VMReturnFlonum(SCM_RESULT));
}
  }
}

static ScmObj libnum_25sqrt(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj x_scm;
  double x;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("%sqrt");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  x_scm = SCM_SUBRARGS[0];
  if (!SCM_REALP(x_scm)) Scm_Error("real number required, but got %S", x_scm);
  x = Scm_GetDouble(x_scm);
  {
{
ScmObj SCM_RESULT;

#line 464 "libnum.scm"
if ((x)<(0)){
{SCM_RESULT=(Scm_MakeComplex(0.0,sqrt(-(x))));goto SCM_STUB_RETURN;}} else {
{SCM_RESULT=(Scm_VMReturnFlonum(sqrt(x)));goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnum_25sqrt_fast_path(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj x_scm;
  ScmObj x;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("%sqrt-fast-path");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  x_scm = SCM_SUBRARGS[0];
  x = (x_scm);
  {
{
ScmObj SCM_RESULT;

#line 474 "libnum.scm"
if ((SCM_FLONUMP(x))&&((Scm_Sign(x))>=(0))){
{SCM_RESULT=(Scm_VMReturnFlonum(sqrt(SCM_FLONUM_VALUE(x))));goto SCM_STUB_RETURN;}}else if(
((SCM_INTEGERP(x))&&(
(Scm_Sign(x))>=(0)))&&(
(Scm_NumCmp(SCM_2_52,x))>=(0))){
{double d=Scm_GetDouble(x);double q=
sqrt(d);double qq=
floor(q);double dd=
(qq)*(qq);
#line 484 "libnum.scm"
if ((d)==(dd)){
{SCM_RESULT=(SCM_MAKE_INT(((long )(q))));goto SCM_STUB_RETURN;}} else {
{SCM_RESULT=(Scm_VMReturnFlonum(q));goto SCM_STUB_RETURN;}}}} else {
{SCM_RESULT=(SCM_FALSE);goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnum_25expt(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj x_scm;
  ScmObj x;
  ScmObj y_scm;
  ScmObj y;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("%expt");
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  x_scm = SCM_SUBRARGS[0];
  x = (x_scm);
  y_scm = SCM_SUBRARGS[1];
  y = (y_scm);
  {
{
ScmObj SCM_RESULT;
{SCM_RESULT=(Scm_Expt(x,y));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnum_25exact_integer_expt(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj x_scm;
  ScmObj x;
  ScmObj y_scm;
  ScmObj y;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("%exact-integer-expt");
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  x_scm = SCM_SUBRARGS[0];
  x = (x_scm);
  y_scm = SCM_SUBRARGS[1];
  y = (y_scm);
  {
{
ScmObj SCM_RESULT;
{SCM_RESULT=(Scm_ExactIntegerExpt(x,y));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnumash(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj num_scm;
  ScmObj num;
  ScmObj cnt_scm;
  ScmSmallInt cnt;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("ash");
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  num_scm = SCM_SUBRARGS[0];
  num = (num_scm);
  cnt_scm = SCM_SUBRARGS[1];
  if (!SCM_INTP(cnt_scm)) Scm_Error("small integer required, but got %S", cnt_scm);
  cnt = SCM_INT_VALUE(cnt_scm);
  {
{
ScmObj SCM_RESULT;
{SCM_RESULT=(Scm_Ash(num,cnt));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnumlognot(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj x_scm;
  ScmObj x;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("lognot");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  x_scm = SCM_SUBRARGS[0];
  x = (x_scm);
  {
{
ScmObj SCM_RESULT;
{SCM_RESULT=(Scm_LogNot(x));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnumlogand(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj* arg2;
  int optcnt;
  ScmObj args_scm;
  ScmObj args;
  ScmObj SCM_SUBRARGS[5];
  SCM_ENTER_SUBR("logand");
  for (int SCM_i=0; SCM_i<5; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  arg2 = &SCM_SUBRARGS[0];
  optcnt = SCM_ARGCNT-1-0;
  args_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  args = (args_scm);
  {
{
ScmObj SCM_RESULT;
ScmObj cise__1601;
#line 760 "libnum.scm"
if ((optcnt)==(0)){{SCM_RESULT=(SCM_MAKE_INT(-1));goto SCM_STUB_RETURN;}}else if((optcnt)==(1)){if (!(SCM_INTEGERP((arg2)[0]))){{Scm_Error("Exact integer required, but got %S",(arg2)[0]);}}{SCM_RESULT=((arg2)[0]);goto SCM_STUB_RETURN;}} else {{ScmObj r=Scm_LogAnd((arg2)[0],(arg2)[1]);SCM_FOR_EACH(cise__1601,args) {{ScmObj v=SCM_CAR(cise__1601);r=(Scm_LogAnd(r,v));}}{SCM_RESULT=(r);goto SCM_STUB_RETURN;}}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnumlogior(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj* arg2;
  int optcnt;
  ScmObj args_scm;
  ScmObj args;
  ScmObj SCM_SUBRARGS[5];
  SCM_ENTER_SUBR("logior");
  for (int SCM_i=0; SCM_i<5; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  arg2 = &SCM_SUBRARGS[0];
  optcnt = SCM_ARGCNT-1-0;
  args_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  args = (args_scm);
  {
{
ScmObj SCM_RESULT;
ScmObj cise__1602;
#line 762 "libnum.scm"
if ((optcnt)==(0)){{SCM_RESULT=(SCM_MAKE_INT(0));goto SCM_STUB_RETURN;}}else if((optcnt)==(1)){if (!(SCM_INTEGERP((arg2)[0]))){{Scm_Error("Exact integer required, but got %S",(arg2)[0]);}}{SCM_RESULT=((arg2)[0]);goto SCM_STUB_RETURN;}} else {{ScmObj r=Scm_LogIor((arg2)[0],(arg2)[1]);SCM_FOR_EACH(cise__1602,args) {{ScmObj v=SCM_CAR(cise__1602);r=(Scm_LogIor(r,v));}}{SCM_RESULT=(r);goto SCM_STUB_RETURN;}}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnumlogxor(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj* arg2;
  int optcnt;
  ScmObj args_scm;
  ScmObj args;
  ScmObj SCM_SUBRARGS[5];
  SCM_ENTER_SUBR("logxor");
  for (int SCM_i=0; SCM_i<5; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  arg2 = &SCM_SUBRARGS[0];
  optcnt = SCM_ARGCNT-1-0;
  args_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  args = (args_scm);
  {
{
ScmObj SCM_RESULT;
ScmObj cise__1603;
#line 764 "libnum.scm"
if ((optcnt)==(0)){{SCM_RESULT=(SCM_MAKE_INT(0));goto SCM_STUB_RETURN;}}else if((optcnt)==(1)){if (!(SCM_INTEGERP((arg2)[0]))){{Scm_Error("Exact integer required, but got %S",(arg2)[0]);}}{SCM_RESULT=((arg2)[0]);goto SCM_STUB_RETURN;}} else {{ScmObj r=Scm_LogXor((arg2)[0],(arg2)[1]);SCM_FOR_EACH(cise__1603,args) {{ScmObj v=SCM_CAR(cise__1603);r=(Scm_LogXor(r,v));}}{SCM_RESULT=(r);goto SCM_STUB_RETURN;}}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnumlogcount(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj n_scm;
  ScmObj n;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("logcount");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  n_scm = SCM_SUBRARGS[0];
  n = (n_scm);
  {
{
int SCM_RESULT;

#line 767 "libnum.scm"
if (SCM_EQ(n,SCM_MAKE_INT(0))){{SCM_RESULT=(0);goto SCM_STUB_RETURN;}}else if(
SCM_INTP(n)){
{ScmBits z=((ScmBits )(((long )(SCM_INT_VALUE(n)))));
if ((SCM_INT_VALUE(n))>(0)){
{SCM_RESULT=(Scm_BitsCount1(&(z),0,SCM_WORD_BITS));goto SCM_STUB_RETURN;}} else {
{SCM_RESULT=(Scm_BitsCount0(&(z),0,SCM_WORD_BITS));goto SCM_STUB_RETURN;}}}}else if(
SCM_BIGNUMP(n)){{SCM_RESULT=(Scm_BignumLogCount(SCM_BIGNUM(n)));goto SCM_STUB_RETURN;}} else {
SCM_TYPE_ERROR(n,"exact integer");{SCM_RESULT=(0);goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(Scm_MakeInteger(SCM_RESULT));
}
  }
}

static ScmObj libnuminteger_length(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj n_scm;
  ScmObj n;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("integer-length");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  n_scm = SCM_SUBRARGS[0];
  n = (n_scm);
  {
{
int SCM_RESULT;

#line 777 "libnum.scm"
if (SCM_INTP(n)){
{ScmBits z=((ScmBits )(((long )(SCM_INT_VALUE(n)))));
if ((SCM_INT_VALUE(n))>=(0)){
{SCM_RESULT=((Scm_BitsHighest1(&(z),0,SCM_WORD_BITS))+(1));goto SCM_STUB_RETURN;}} else {
{SCM_RESULT=((Scm_BitsHighest0(&(z),0,SCM_WORD_BITS))+(1));goto SCM_STUB_RETURN;}}}}else if(
SCM_BIGNUMP(n)){
#line 784 "libnum.scm"
if ((SCM_BIGNUM_SIGN(n))<(0)){{
n=(Scm_Add(n,SCM_MAKE_INT(1)));}}
#line 787 "libnum.scm"
if (SCM_BIGNUMP(n)){
{ScmBits* z=((ScmBits* )((SCM_BIGNUM(n))->values));int k=
SCM_BIGNUM_SIZE(n);
{SCM_RESULT=((Scm_BitsHighest1(z,0,(k)*(SCM_WORD_BITS)))+(1));goto SCM_STUB_RETURN;}}} else {
#line 792 "libnum.scm"
{SCM_RESULT=((SCM_SMALL_INT_SIZE)+(1));goto SCM_STUB_RETURN;}}} else {
SCM_TYPE_ERROR(n,"exact integer");{SCM_RESULT=(0);goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(Scm_MakeInteger(SCM_RESULT));
}
  }
}

static ScmObj libnumtwos_exponent_factor(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj n_scm;
  ScmObj n;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("twos-exponent-factor");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  n_scm = SCM_SUBRARGS[0];
  n = (n_scm);
  {
{
int SCM_RESULT;

#line 799 "libnum.scm"
if (SCM_EQ(n,SCM_MAKE_INT(0))){{SCM_RESULT=(-1);goto SCM_STUB_RETURN;}}else if(
SCM_INTP(n)){
{ScmBits z=((ScmBits )(((long )(SCM_INT_VALUE(n)))));
{SCM_RESULT=(Scm_BitsLowest1(&(z),0,SCM_WORD_BITS));goto SCM_STUB_RETURN;}}}else if(
SCM_BIGNUMP(n)){
{ScmBits* z=((ScmBits* )((SCM_BIGNUM(n))->values));int k=
SCM_BIGNUM_SIZE(n);
{SCM_RESULT=(Scm_BitsLowest1(z,0,(k)*(SCM_WORD_BITS)));goto SCM_STUB_RETURN;}}} else {
SCM_TYPE_ERROR(n,"exact integer");{SCM_RESULT=(0);goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(Scm_MakeInteger(SCM_RESULT));
}
  }
}

static ScmObj libnumtwos_exponent(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj n_scm;
  ScmObj n;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("twos-exponent");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  n_scm = SCM_SUBRARGS[0];
  n = (n_scm);
  {
{
ScmObj SCM_RESULT;

#line 810 "libnum.scm"
if (SCM_INTEGERP(n)){
{long i=Scm_TwosPower(n);
{SCM_RESULT=((((i)>=(0))?(Scm_MakeInteger(i)):(SCM_FALSE)));goto SCM_STUB_RETURN;}}} else {
{SCM_TYPE_ERROR(n,"exact integer");{SCM_RESULT=(SCM_FALSE);goto SCM_STUB_RETURN;}}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnuminexact__2f(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj arg1_scm;
  ScmObj arg1;
  ScmObj args_scm;
  ScmObj args;
  ScmObj SCM_SUBRARGS[3];
  SCM_ENTER_SUBR("inexact-/");
  for (int SCM_i=0; SCM_i<3; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  arg1_scm = SCM_SUBRARGS[0];
  arg1 = (arg1_scm);
  args_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  args = (args_scm);
  {
{
ScmObj SCM_RESULT;
ScmObj cise__1604;
#line 825 "libnum.scm"
if (SCM_NULLP(args)){{SCM_RESULT=(Scm_ReciprocalInexact(arg1));goto SCM_STUB_RETURN;}} else {
SCM_FOR_EACH(cise__1604,args) {{ScmObj x=SCM_CAR(cise__1604);arg1=(Scm_DivCompat(arg1,x));}}
{SCM_RESULT=(arg1);goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnum_2b_2e(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj args_scm;
  ScmObj args;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("+.");
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  args_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  args = (args_scm);
  {
{
ScmObj SCM_RESULT;
ScmObj cise__1605;
#line 833 "libnum.scm"
{ScmObj a=scm__rc.d1562[186];
SCM_FOR_EACH(cise__1605,args) {{ScmObj x=SCM_CAR(cise__1605);a=(Scm_Add(a,Scm_Inexact(x)));}}
{SCM_RESULT=(a);goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnum_2a_2e(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj args_scm;
  ScmObj args;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("*.");
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  args_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  args = (args_scm);
  {
{
ScmObj SCM_RESULT;
ScmObj cise__1606;
#line 837 "libnum.scm"
{ScmObj a=scm__rc.d1562[365];
SCM_FOR_EACH(cise__1606,args) {{ScmObj x=SCM_CAR(cise__1606);a=(Scm_Mul(a,Scm_Inexact(x)));}}
{SCM_RESULT=(a);goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnum__2e(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj arg1_scm;
  ScmObj arg1;
  ScmObj args_scm;
  ScmObj args;
  ScmObj SCM_SUBRARGS[3];
  SCM_ENTER_SUBR("-.");
  for (int SCM_i=0; SCM_i<3; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  arg1_scm = SCM_SUBRARGS[0];
  arg1 = (arg1_scm);
  args_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  args = (args_scm);
  {
{
ScmObj SCM_RESULT;
ScmObj cise__1607;
#line 841 "libnum.scm"
if (
SCM_NULLP(args)){{SCM_RESULT=(Scm_Negate(Scm_Inexact(arg1)));goto SCM_STUB_RETURN;}} else {
SCM_FOR_EACH(cise__1607,args) {{ScmObj x=SCM_CAR(cise__1607);arg1=(Scm_Sub(arg1,Scm_Inexact(x)));}}
{SCM_RESULT=(arg1);goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnum_2f_2e(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj arg1_scm;
  ScmObj arg1;
  ScmObj args_scm;
  ScmObj args;
  ScmObj SCM_SUBRARGS[3];
  SCM_ENTER_SUBR("/.");
  for (int SCM_i=0; SCM_i<3; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  arg1_scm = SCM_SUBRARGS[0];
  arg1 = (arg1_scm);
  args_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  args = (args_scm);
  {
{
ScmObj SCM_RESULT;
ScmObj cise__1608;
#line 846 "libnum.scm"
if (
SCM_NULLP(args)){{SCM_RESULT=(Scm_Reciprocal(Scm_Inexact(arg1)));goto SCM_STUB_RETURN;}} else {
SCM_FOR_EACH(cise__1608,args) {{ScmObj x=SCM_CAR(cise__1608);arg1=(Scm_DivInexact(arg1,x));}}
{SCM_RESULT=(arg1);goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnumclamp(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj x_scm;
  ScmObj x;
  ScmObj min_scm;
  ScmObj min;
  ScmObj max_scm;
  ScmObj max;
  ScmObj SCM_SUBRARGS[5];
  SCM_ENTER_SUBR("clamp");
  if (SCM_ARGCNT >= 4
      && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
    Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
  for (int SCM_i=0; SCM_i<5; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  x_scm = SCM_SUBRARGS[0];
  x = (x_scm);
  if (SCM_ARGCNT > 1+1) {
    min_scm = SCM_SUBRARGS[1];
  } else {
    min_scm = SCM_FALSE;
  }
  min = (min_scm);
  if (SCM_ARGCNT > 2+1) {
    max_scm = SCM_SUBRARGS[2];
  } else {
    max_scm = SCM_FALSE;
  }
  max = (max_scm);
  {
{
ScmObj SCM_RESULT;

#line 852 "libnum.scm"
{ScmObj r=x;int maybe_exact=SCM_EXACTP(x);
if (!(SCM_REALP(x))){{SCM_TYPE_ERROR(x,"real number");}}
if (SCM_EXACTP(min)){if ((Scm_NumCmp(x,min))<(0)){{r=(min);}}}else if(
SCM_FLONUMP(min)){
maybe_exact=(FALSE);
if ((Scm_NumCmp(x,min))<(0)){{r=(min);}}}else if(
!(SCM_FALSEP(min))){SCM_TYPE_ERROR(min,"real number or #f");}
if (SCM_EXACTP(max)){if ((Scm_NumCmp(x,max))>(0)){{r=(max);}}}else if(
SCM_FLONUMP(max)){
maybe_exact=(FALSE);
if ((Scm_NumCmp(x,max))>(0)){{r=(max);}}}else if(
!(SCM_FALSEP(max))){SCM_TYPE_ERROR(max,"real number or #f");}
if ((!(maybe_exact))&&(SCM_EXACTP(r))){
{SCM_RESULT=(Scm_Inexact(r));goto SCM_STUB_RETURN;}} else {
{SCM_RESULT=(r);goto SCM_STUB_RETURN;}}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnumquotient_26remainder(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj n1_scm;
  ScmObj n1;
  ScmObj n2_scm;
  ScmObj n2;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("quotient&remainder");
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  n1_scm = SCM_SUBRARGS[0];
  n1 = (n1_scm);
  n2_scm = SCM_SUBRARGS[1];
  n2 = (n2_scm);
  {
ScmObj SCM_RESULT0;
ScmObj SCM_RESULT1;
{

#line 869 "libnum.scm"
SCM_RESULT0=(Scm_Quotient(n1,n2,&(SCM_RESULT1)));
}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(Scm_Values2(SCM_OBJ_SAFE(SCM_RESULT0),SCM_OBJ_SAFE(SCM_RESULT1)));
  }
}

static ScmObj libnummake_rectangular(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj a_scm;
  double a;
  ScmObj b_scm;
  double b;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("make-rectangular");
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  a_scm = SCM_SUBRARGS[0];
  if (!SCM_REALP(a_scm)) Scm_Error("real number required, but got %S", a_scm);
  a = Scm_GetDouble(a_scm);
  b_scm = SCM_SUBRARGS[1];
  if (!SCM_REALP(b_scm)) Scm_Error("real number required, but got %S", b_scm);
  b = Scm_GetDouble(b_scm);
  {
{
ScmObj SCM_RESULT;
{SCM_RESULT=(Scm_MakeComplex(a,b));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnummake_polar(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj r_scm;
  double r;
  ScmObj t_scm;
  double t;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("make-polar");
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  r_scm = SCM_SUBRARGS[0];
  if (!SCM_REALP(r_scm)) Scm_Error("real number required, but got %S", r_scm);
  r = Scm_GetDouble(r_scm);
  t_scm = SCM_SUBRARGS[1];
  if (!SCM_REALP(t_scm)) Scm_Error("real number required, but got %S", t_scm);
  t = Scm_GetDouble(t_scm);
  {
{
ScmObj SCM_RESULT;
{SCM_RESULT=(Scm_MakeComplexPolar(r,t));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnumreal_part(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj z_scm;
  ScmObj z;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("real-part");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  z_scm = SCM_SUBRARGS[0];
  if (!SCM_NUMBERP(z_scm)) Scm_Error("number required, but got %S", z_scm);
  z = (z_scm);
  {
{
ScmObj SCM_RESULT;

#line 882 "libnum.scm"
if (SCM_REALP(z)){
{SCM_RESULT=(z);goto SCM_STUB_RETURN;}} else {
{SCM_RESULT=(Scm_VMReturnFlonum(SCM_COMPNUM_REAL(z)));goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnumimag_part(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj z_scm;
  ScmObj z;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("imag-part");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  z_scm = SCM_SUBRARGS[0];
  if (!SCM_NUMBERP(z_scm)) Scm_Error("number required, but got %S", z_scm);
  z = (z_scm);
  {
{
ScmObj SCM_RESULT;

#line 887 "libnum.scm"
if (SCM_EXACTP(z)){{SCM_RESULT=(SCM_MAKE_INT(0));goto SCM_STUB_RETURN;}}else if(
SCM_REALP(z)){{SCM_RESULT=(Scm_VMReturnFlonum(0.0));goto SCM_STUB_RETURN;}} else {
{SCM_RESULT=(Scm_VMReturnFlonum(SCM_COMPNUM_IMAG(z)));goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnummagnitude(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj z_scm;
  ScmObj z;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("magnitude");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  z_scm = SCM_SUBRARGS[0];
  z = (z_scm);
  {
{
ScmObj SCM_RESULT;
{SCM_RESULT=(Scm_VMAbs(z));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libnumangle(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj z_scm;
  ScmObj z;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("angle");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  z_scm = SCM_SUBRARGS[0];
  z = (z_scm);
  {
{
double SCM_RESULT;
{SCM_RESULT=(Scm_Angle(z));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(Scm_VMReturnFlonum(SCM_RESULT));
}
  }
}

 int Scm_ClampMode(ScmObj clamp){{
#line 900 "libnum.scm"
if (SCM_EQ(clamp,scm__rc.d1562[388])){return (SCM_CLAMP_BOTH);}else if(
SCM_EQ(clamp,scm__rc.d1562[387])){return (SCM_CLAMP_LO);}else if(
SCM_EQ(clamp,scm__rc.d1562[386])){return (SCM_CLAMP_HI);}else if(
!((SCM_FALSEP(clamp))||(SCM_UNBOUNDP(clamp)))){
Scm_Error("clamp argument must be either 'both, 'high, 'low or #f, but got %S",clamp);}
#line 906 "libnum.scm"
return (SCM_CLAMP_ERROR);}}
static ScmCompiledCode *toplevels[] = {
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1567[0])),
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1567[1])),
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1567[4])),
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1567[7])),
 NULL /*termination*/
};
void Scm_Init_libnum() {
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
  scm__rc.d1562[0] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[0])),TRUE); /* number? */
  scm__rc.d1562[1] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[1])),TRUE); /* obj */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1]), scm__rc.d1562[1]);
  scm__rc.d1562[2] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[2])),TRUE); /* source-info */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[4]), scm__rc.d1562[2]);
  scm__rc.d1562[3] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[4])),TRUE); /* bind-info */
  scm__rc.d1562[4] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[5])),TRUE); /* scheme */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[5]), scm__rc.d1562[0]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[6]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[7]), scm__rc.d1562[3]);
  scm__rc.d1562[5] = Scm_MakeExtendedPair(scm__rc.d1562[0], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[9]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("number?")), SCM_OBJ(&libnumnumberP__STUB), SCM_BINDING_INLINABLE);
  libnumnumberP__STUB.common.info = scm__rc.d1562[5];
  scm__rc.d1562[6] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[6])),TRUE); /* complex? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[12]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[13]), scm__rc.d1562[6]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[14]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[15]), scm__rc.d1562[3]);
  scm__rc.d1562[7] = Scm_MakeExtendedPair(scm__rc.d1562[6], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[17]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("complex?")), SCM_OBJ(&libnumcomplexP__STUB), SCM_BINDING_INLINABLE);
  libnumcomplexP__STUB.common.info = scm__rc.d1562[7];
  scm__rc.d1562[8] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[7])),TRUE); /* real? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[20]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[21]), scm__rc.d1562[8]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[22]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[23]), scm__rc.d1562[3]);
  scm__rc.d1562[9] = Scm_MakeExtendedPair(scm__rc.d1562[8], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[25]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("real?")), SCM_OBJ(&libnumrealP__STUB), SCM_BINDING_INLINABLE);
  libnumrealP__STUB.common.info = scm__rc.d1562[9];
  scm__rc.d1562[10] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[8])),TRUE); /* rational? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[28]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[29]), scm__rc.d1562[10]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[30]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[31]), scm__rc.d1562[3]);
  scm__rc.d1562[11] = Scm_MakeExtendedPair(scm__rc.d1562[10], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[33]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("rational?")), SCM_OBJ(&libnumrationalP__STUB), SCM_BINDING_INLINABLE);
  libnumrationalP__STUB.common.info = scm__rc.d1562[11];
  scm__rc.d1562[12] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[9])),TRUE); /* integer? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[36]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[37]), scm__rc.d1562[12]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[38]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[39]), scm__rc.d1562[3]);
  scm__rc.d1562[13] = Scm_MakeExtendedPair(scm__rc.d1562[12], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[41]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("integer?")), SCM_OBJ(&libnumintegerP__STUB), SCM_BINDING_INLINABLE);
  libnumintegerP__STUB.common.info = scm__rc.d1562[13];
  scm__rc.d1562[14] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[10])),TRUE); /* exact? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[44]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[45]), scm__rc.d1562[14]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[46]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[47]), scm__rc.d1562[3]);
  scm__rc.d1562[15] = Scm_MakeExtendedPair(scm__rc.d1562[14], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[49]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("exact?")), SCM_OBJ(&libnumexactP__STUB), SCM_BINDING_INLINABLE);
  libnumexactP__STUB.common.info = scm__rc.d1562[15];
  scm__rc.d1562[16] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[11])),TRUE); /* inexact? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[52]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[53]), scm__rc.d1562[16]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[54]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[55]), scm__rc.d1562[3]);
  scm__rc.d1562[17] = Scm_MakeExtendedPair(scm__rc.d1562[16], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[57]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("inexact?")), SCM_OBJ(&libnuminexactP__STUB), SCM_BINDING_INLINABLE);
  libnuminexactP__STUB.common.info = scm__rc.d1562[17];
  scm__rc.d1562[18] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[12])),TRUE); /* zero? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[60]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[61]), scm__rc.d1562[18]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[62]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[63]), scm__rc.d1562[3]);
  scm__rc.d1562[19] = Scm_MakeExtendedPair(scm__rc.d1562[18], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[65]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("zero?")), SCM_OBJ(&libnumzeroP__STUB), SCM_BINDING_INLINABLE);
  libnumzeroP__STUB.common.info = scm__rc.d1562[19];
  scm__rc.d1562[20] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[13])),TRUE); /* positive? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[68]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[69]), scm__rc.d1562[20]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[70]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[71]), scm__rc.d1562[3]);
  scm__rc.d1562[21] = Scm_MakeExtendedPair(scm__rc.d1562[20], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[73]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("positive?")), SCM_OBJ(&libnumpositiveP__STUB), SCM_BINDING_INLINABLE);
  libnumpositiveP__STUB.common.info = scm__rc.d1562[21];
  scm__rc.d1562[22] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[14])),TRUE); /* negative? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[76]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[77]), scm__rc.d1562[22]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[78]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[79]), scm__rc.d1562[3]);
  scm__rc.d1562[23] = Scm_MakeExtendedPair(scm__rc.d1562[22], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[81]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("negative?")), SCM_OBJ(&libnumnegativeP__STUB), SCM_BINDING_INLINABLE);
  libnumnegativeP__STUB.common.info = scm__rc.d1562[23];
  scm__rc.d1562[24] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[15])),TRUE); /* odd? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[84]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[85]), scm__rc.d1562[24]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[86]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[87]), scm__rc.d1562[3]);
  scm__rc.d1562[25] = Scm_MakeExtendedPair(scm__rc.d1562[24], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[89]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("odd?")), SCM_OBJ(&libnumoddP__STUB), SCM_BINDING_INLINABLE);
  libnumoddP__STUB.common.info = scm__rc.d1562[25];
  scm__rc.d1562[26] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[16])),TRUE); /* even? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[92]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[93]), scm__rc.d1562[26]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[94]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[95]), scm__rc.d1562[3]);
  scm__rc.d1562[27] = Scm_MakeExtendedPair(scm__rc.d1562[26], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[97]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("even?")), SCM_OBJ(&libnumevenP__STUB), SCM_BINDING_INLINABLE);
  libnumevenP__STUB.common.info = scm__rc.d1562[27];
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1562[28] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[17])),TRUE); /* fixnum? */
  scm__rc.d1562[29] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[18])),TRUE); /* x */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[98]), scm__rc.d1562[29]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[101]), scm__rc.d1562[2]);
  scm__rc.d1562[30] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[19])),TRUE); /* gauche */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[102]), scm__rc.d1562[28]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[103]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[104]), scm__rc.d1562[3]);
  scm__rc.d1562[31] = Scm_MakeExtendedPair(scm__rc.d1562[28], SCM_OBJ(&scm__rc.d1563[98]), SCM_OBJ(&scm__rc.d1563[106]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("fixnum?")), SCM_OBJ(&libnumfixnumP__STUB), 0);
  libnumfixnumP__STUB.common.info = scm__rc.d1562[31];
  scm__rc.d1562[32] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[20])),TRUE); /* bignum? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[109]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[110]), scm__rc.d1562[32]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[111]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[112]), scm__rc.d1562[3]);
  scm__rc.d1562[33] = Scm_MakeExtendedPair(scm__rc.d1562[32], SCM_OBJ(&scm__rc.d1563[98]), SCM_OBJ(&scm__rc.d1563[114]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("bignum?")), SCM_OBJ(&libnumbignumP__STUB), 0);
  libnumbignumP__STUB.common.info = scm__rc.d1562[33];
  scm__rc.d1562[34] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[21])),TRUE); /* flonum? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[117]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[118]), scm__rc.d1562[34]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[119]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[120]), scm__rc.d1562[3]);
  scm__rc.d1562[35] = Scm_MakeExtendedPair(scm__rc.d1562[34], SCM_OBJ(&scm__rc.d1563[98]), SCM_OBJ(&scm__rc.d1563[122]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("flonum?")), SCM_OBJ(&libnumflonumP__STUB), SCM_BINDING_INLINABLE);
  libnumflonumP__STUB.common.info = scm__rc.d1562[35];
  scm__rc.d1562[36] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[22])),TRUE); /* finite? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[125]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[126]), scm__rc.d1562[36]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[127]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[128]), scm__rc.d1562[3]);
  scm__rc.d1562[37] = Scm_MakeExtendedPair(scm__rc.d1562[36], SCM_OBJ(&scm__rc.d1563[98]), SCM_OBJ(&scm__rc.d1563[130]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("finite?")), SCM_OBJ(&libnumfiniteP__STUB), 0);
  libnumfiniteP__STUB.common.info = scm__rc.d1562[37];
  scm__rc.d1562[38] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[23])),TRUE); /* infinite? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[133]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[134]), scm__rc.d1562[38]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[135]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[136]), scm__rc.d1562[3]);
  scm__rc.d1562[39] = Scm_MakeExtendedPair(scm__rc.d1562[38], SCM_OBJ(&scm__rc.d1563[98]), SCM_OBJ(&scm__rc.d1563[138]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("infinite?")), SCM_OBJ(&libnuminfiniteP__STUB), 0);
  libnuminfiniteP__STUB.common.info = scm__rc.d1562[39];
  scm__rc.d1562[40] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[24])),TRUE); /* nan? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[141]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[142]), scm__rc.d1562[40]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[143]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[144]), scm__rc.d1562[3]);
  scm__rc.d1562[41] = Scm_MakeExtendedPair(scm__rc.d1562[40], SCM_OBJ(&scm__rc.d1563[98]), SCM_OBJ(&scm__rc.d1563[146]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("nan?")), SCM_OBJ(&libnumnanP__STUB), 0);
  libnumnanP__STUB.common.info = scm__rc.d1562[41];
  scm__rc.d1562[42] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[25])),TRUE); /* -zero? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[149]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[150]), scm__rc.d1562[42]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[151]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[152]), scm__rc.d1562[3]);
  scm__rc.d1562[43] = Scm_MakeExtendedPair(scm__rc.d1562[42], SCM_OBJ(&scm__rc.d1563[98]), SCM_OBJ(&scm__rc.d1563[154]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("-zero?")), SCM_OBJ(&libnum_zeroP__STUB), SCM_BINDING_INLINABLE);
  libnum_zeroP__STUB.common.info = scm__rc.d1562[43];
  scm__rc.d1562[44] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[26])),TRUE); /* exact-integer? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[157]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[158]), scm__rc.d1562[44]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[159]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[160]), scm__rc.d1562[3]);
  scm__rc.d1562[45] = Scm_MakeExtendedPair(scm__rc.d1562[44], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[162]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("exact-integer?")), SCM_OBJ(&libnumexact_integerP__STUB), SCM_BINDING_INLINABLE);
  libnumexact_integerP__STUB.common.info = scm__rc.d1562[45];
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1562[46] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[27])),TRUE); /* fixnum-width */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[163]), scm__rc.d1562[46]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[164]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[165]), scm__rc.d1562[3]);
  scm__rc.d1562[47] = Scm_MakeExtendedPair(scm__rc.d1562[46], SCM_NIL, SCM_OBJ(&scm__rc.d1563[166]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("fixnum-width")), SCM_OBJ(&libnumfixnum_width__STUB), 0);
  libnumfixnum_width__STUB.common.info = scm__rc.d1562[47];
  scm__rc.d1562[48] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[28])),TRUE); /* least-fixnum */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[167]), scm__rc.d1562[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[168]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[169]), scm__rc.d1562[3]);
  scm__rc.d1562[49] = Scm_MakeExtendedPair(scm__rc.d1562[48], SCM_NIL, SCM_OBJ(&scm__rc.d1563[170]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("least-fixnum")), SCM_OBJ(&libnumleast_fixnum__STUB), 0);
  libnumleast_fixnum__STUB.common.info = scm__rc.d1562[49];
  scm__rc.d1562[50] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[29])),TRUE); /* greatest-fixnum */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[171]), scm__rc.d1562[50]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[172]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[173]), scm__rc.d1562[3]);
  scm__rc.d1562[51] = Scm_MakeExtendedPair(scm__rc.d1562[50], SCM_NIL, SCM_OBJ(&scm__rc.d1563[174]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("greatest-fixnum")), SCM_OBJ(&libnumgreatest_fixnum__STUB), 0);
  libnumgreatest_fixnum__STUB.common.info = scm__rc.d1562[51];

#line 106 "libnum.scm"
Scm_DefaultEndian();
  scm__rc.d1562[52] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[30])),TRUE); /* native-endian */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[175]), scm__rc.d1562[52]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[176]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[177]), scm__rc.d1562[3]);
  scm__rc.d1562[53] = Scm_MakeExtendedPair(scm__rc.d1562[52], SCM_NIL, SCM_OBJ(&scm__rc.d1563[178]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("native-endian")), SCM_OBJ(&libnumnative_endian__STUB), 0);
  libnumnative_endian__STUB.common.info = scm__rc.d1562[53];
  scm__rc.d1562[54] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[31])),TRUE); /* flonum-epsilon */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[179]), scm__rc.d1562[54]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[180]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[181]), scm__rc.d1562[3]);
  scm__rc.d1562[55] = Scm_MakeExtendedPair(scm__rc.d1562[54], SCM_NIL, SCM_OBJ(&scm__rc.d1563[182]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("flonum-epsilon")), SCM_OBJ(&libnumflonum_epsilon__STUB), 0);
  libnumflonum_epsilon__STUB.common.info = scm__rc.d1562[55];
  scm__rc.d1562[56] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[32])),TRUE); /* flonum-min-normalized */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[183]), scm__rc.d1562[56]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[184]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[185]), scm__rc.d1562[3]);
  scm__rc.d1562[57] = Scm_MakeExtendedPair(scm__rc.d1562[56], SCM_NIL, SCM_OBJ(&scm__rc.d1563[186]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("flonum-min-normalized")), SCM_OBJ(&libnumflonum_min_normalized__STUB), 0);
  libnumflonum_min_normalized__STUB.common.info = scm__rc.d1562[57];
  scm__rc.d1562[58] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[33])),TRUE); /* flonum-min-denormalized */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[187]), scm__rc.d1562[58]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[188]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[189]), scm__rc.d1562[3]);
  scm__rc.d1562[59] = Scm_MakeExtendedPair(scm__rc.d1562[58], SCM_NIL, SCM_OBJ(&scm__rc.d1563[190]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("flonum-min-denormalized")), SCM_OBJ(&libnumflonum_min_denormalized__STUB), 0);
  libnumflonum_min_denormalized__STUB.common.info = scm__rc.d1562[59];
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
  scm__rc.d1562[60] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[34])),TRUE); /* %bignum-dump */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[193]), scm__rc.d1562[2]);
  scm__rc.d1562[61] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[35])),TRUE); /* gauche.internal */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[194]), scm__rc.d1562[60]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[195]), scm__rc.d1562[61]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[196]), scm__rc.d1562[3]);
  scm__rc.d1562[62] = Scm_MakeExtendedPair(scm__rc.d1562[60], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[198]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%bignum-dump")), SCM_OBJ(&libnum_25bignum_dump__STUB), 0);
  libnum_25bignum_dump__STUB.common.info = scm__rc.d1562[62];
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
  scm__rc.d1562[63] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[36])),TRUE); /* = */
  scm__rc.d1562[64] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[37])),TRUE); /* arg0 */
  scm__rc.d1562[65] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[38])),TRUE); /* arg1 */
  scm__rc.d1562[66] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[39]))); /* :rest */
  scm__rc.d1562[67] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[40])),TRUE); /* args */
  scm__rc.d1562[68] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[41]))); /* :optarray */
  scm__rc.d1562[69] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[42])),TRUE); /* oarg */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[199]), scm__rc.d1562[69]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[200]), scm__rc.d1562[68]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[201]), scm__rc.d1562[67]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[202]), scm__rc.d1562[66]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[203]), scm__rc.d1562[65]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[204]), scm__rc.d1562[64]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[207]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[208]), scm__rc.d1562[63]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[209]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[210]), scm__rc.d1562[3]);
  scm__rc.d1562[70] = Scm_MakeExtendedPair(scm__rc.d1562[63], SCM_OBJ(&scm__rc.d1563[204]), SCM_OBJ(&scm__rc.d1563[212]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("=")), SCM_OBJ(&libnum_3d__STUB), SCM_BINDING_INLINABLE);
  libnum_3d__STUB.common.info = scm__rc.d1562[70];
  scm__rc.d1562[71] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[43])),TRUE); /* < */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[215]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[216]), scm__rc.d1562[71]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[217]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[218]), scm__rc.d1562[3]);
  scm__rc.d1562[72] = Scm_MakeExtendedPair(scm__rc.d1562[71], SCM_OBJ(&scm__rc.d1563[204]), SCM_OBJ(&scm__rc.d1563[220]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("<")), SCM_OBJ(&libnum_LT__STUB), SCM_BINDING_INLINABLE);
  libnum_LT__STUB.common.info = scm__rc.d1562[72];
  scm__rc.d1562[73] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[44])),TRUE); /* <= */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[223]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[224]), scm__rc.d1562[73]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[225]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[226]), scm__rc.d1562[3]);
  scm__rc.d1562[74] = Scm_MakeExtendedPair(scm__rc.d1562[73], SCM_OBJ(&scm__rc.d1563[204]), SCM_OBJ(&scm__rc.d1563[228]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("<=")), SCM_OBJ(&libnum_LT_3d__STUB), SCM_BINDING_INLINABLE);
  libnum_LT_3d__STUB.common.info = scm__rc.d1562[74];
  scm__rc.d1562[75] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[45])),TRUE); /* > */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[231]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[232]), scm__rc.d1562[75]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[233]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[234]), scm__rc.d1562[3]);
  scm__rc.d1562[76] = Scm_MakeExtendedPair(scm__rc.d1562[75], SCM_OBJ(&scm__rc.d1563[204]), SCM_OBJ(&scm__rc.d1563[236]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN(">")), SCM_OBJ(&libnum_GT__STUB), SCM_BINDING_INLINABLE);
  libnum_GT__STUB.common.info = scm__rc.d1562[76];
  scm__rc.d1562[77] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[46])),TRUE); /* >= */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[239]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[240]), scm__rc.d1562[77]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[241]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[242]), scm__rc.d1562[3]);
  scm__rc.d1562[78] = Scm_MakeExtendedPair(scm__rc.d1562[77], SCM_OBJ(&scm__rc.d1563[204]), SCM_OBJ(&scm__rc.d1563[244]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN(">=")), SCM_OBJ(&libnum_GT_3d__STUB), SCM_BINDING_INLINABLE);
  libnum_GT_3d__STUB.common.info = scm__rc.d1562[78];
  scm__rc.d1562[79] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[47])),TRUE); /* max */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[245]), scm__rc.d1562[67]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[246]), scm__rc.d1562[66]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[247]), scm__rc.d1562[64]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[250]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[251]), scm__rc.d1562[79]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[252]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[253]), scm__rc.d1562[3]);
  scm__rc.d1562[80] = Scm_MakeExtendedPair(scm__rc.d1562[79], SCM_OBJ(&scm__rc.d1563[247]), SCM_OBJ(&scm__rc.d1563[255]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("max")), SCM_OBJ(&libnummax__STUB), SCM_BINDING_INLINABLE);
  libnummax__STUB.common.info = scm__rc.d1562[80];
  scm__rc.d1562[81] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[48])),TRUE); /* min */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[258]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[259]), scm__rc.d1562[81]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[260]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[261]), scm__rc.d1562[3]);
  scm__rc.d1562[82] = Scm_MakeExtendedPair(scm__rc.d1562[81], SCM_OBJ(&scm__rc.d1563[247]), SCM_OBJ(&scm__rc.d1563[263]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("min")), SCM_OBJ(&libnummin__STUB), SCM_BINDING_INLINABLE);
  libnummin__STUB.common.info = scm__rc.d1562[82];
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1562[83] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[49])),TRUE); /* min&max */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[266]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[267]), scm__rc.d1562[83]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[268]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[269]), scm__rc.d1562[3]);
  scm__rc.d1562[84] = Scm_MakeExtendedPair(scm__rc.d1562[83], SCM_OBJ(&scm__rc.d1563[247]), SCM_OBJ(&scm__rc.d1563[271]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("min&max")), SCM_OBJ(&libnummin_26max__STUB), 0);
  libnummin_26max__STUB.common.info = scm__rc.d1562[84];
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
  scm__rc.d1562[85] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[50])),TRUE); /* exact->inexact */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[274]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[275]), scm__rc.d1562[85]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[276]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[277]), scm__rc.d1562[3]);
  scm__rc.d1562[86] = Scm_MakeExtendedPair(scm__rc.d1562[85], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[279]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("exact->inexact")), SCM_OBJ(&libnumexact_TOinexact__STUB), SCM_BINDING_INLINABLE);
  libnumexact_TOinexact__STUB.common.info = scm__rc.d1562[86];
  scm__rc.d1562[87] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[51])),TRUE); /* inexact->exact */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[282]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[283]), scm__rc.d1562[87]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[284]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[285]), scm__rc.d1562[3]);
  scm__rc.d1562[88] = Scm_MakeExtendedPair(scm__rc.d1562[87], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[287]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("inexact->exact")), SCM_OBJ(&libnuminexact_TOexact__STUB), SCM_BINDING_INLINABLE);
  libnuminexact_TOexact__STUB.common.info = scm__rc.d1562[88];
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1562[90] = SCM_OBJ(Scm_FindModule(SCM_SYMBOL(scm__rc.d1562[30]), SCM_FIND_MODULE_CREATE|SCM_FIND_MODULE_PLACEHOLDING)); /* module gauche */
  scm__rc.d1562[89] = Scm_MakeIdentifier(scm__rc.d1562[87], SCM_MODULE(scm__rc.d1562[90]), SCM_NIL); /* gauche#inexact->exact */
  scm__rc.d1562[92] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[52])),TRUE); /* exact */
  scm__rc.d1562[91] = Scm_MakeIdentifier(scm__rc.d1562[92], SCM_MODULE(scm__rc.d1562[90]), SCM_NIL); /* gauche#exact */
  scm__rc.d1562[93] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[53])),TRUE); /* %toplevel */
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1567[0]))->name = scm__rc.d1562[93];/* %toplevel */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[0]))[1] = SCM_WORD(scm__rc.d1562[89]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[0]))[3] = SCM_WORD(scm__rc.d1562[91]);
  scm__rc.d1562[94] = Scm_MakeIdentifier(scm__rc.d1562[85], SCM_MODULE(scm__rc.d1562[90]), SCM_NIL); /* gauche#exact->inexact */
  scm__rc.d1562[96] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[54])),TRUE); /* inexact */
  scm__rc.d1562[95] = Scm_MakeIdentifier(scm__rc.d1562[96], SCM_MODULE(scm__rc.d1562[90]), SCM_NIL); /* gauche#inexact */
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1567[1]))->name = scm__rc.d1562[93];/* %toplevel */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[5]))[1] = SCM_WORD(scm__rc.d1562[94]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[5]))[3] = SCM_WORD(scm__rc.d1562[95]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
  scm__rc.d1562[97] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[56])),TRUE); /* uppercase */
  scm__rc.d1562[98] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[57])),TRUE); /* plus */
  scm__rc.d1562[99] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[58])),TRUE); /* radix */
  scm__rc.d1562[100] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[59])),TRUE); /* notational */
  scm__rc.d1562[101] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[55])),TRUE); /* number->string */
  scm__rc.d1562[102] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[60]))); /* :optional */
  scm__rc.d1562[103] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[61])),TRUE); /* flags */
  scm__rc.d1562[104] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[62])),TRUE); /* precision */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[288]), scm__rc.d1562[104]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[289]), scm__rc.d1562[103]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[290]), scm__rc.d1562[99]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[291]), scm__rc.d1562[102]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[292]), scm__rc.d1562[1]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[295]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[296]), scm__rc.d1562[101]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[297]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[298]), scm__rc.d1562[3]);
  scm__rc.d1562[105] = Scm_MakeExtendedPair(scm__rc.d1562[101], SCM_OBJ(&scm__rc.d1563[292]), SCM_OBJ(&scm__rc.d1563[300]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("number->string")), SCM_OBJ(&libnumnumber_TOstring__STUB), SCM_BINDING_INLINABLE);
  libnumnumber_TOstring__STUB.common.info = scm__rc.d1562[105];
  scm__rc.d1562[106] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[63])),TRUE); /* string->number */
  scm__rc.d1562[107] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[64])),TRUE); /* default-exactness */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[301]), scm__rc.d1562[107]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[302]), scm__rc.d1562[99]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[303]), scm__rc.d1562[102]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[304]), scm__rc.d1562[1]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[307]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[308]), scm__rc.d1562[106]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[309]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[310]), scm__rc.d1562[3]);
  scm__rc.d1562[108] = Scm_MakeExtendedPair(scm__rc.d1562[106], SCM_OBJ(&scm__rc.d1563[304]), SCM_OBJ(&scm__rc.d1563[312]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string->number")), SCM_OBJ(&libnumstring_TOnumber__STUB), 0);
  libnumstring_TOnumber__STUB.common.info = scm__rc.d1562[108];
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1562[109] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[65])),TRUE); /* floor->exact */
  scm__rc.d1562[110] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[66])),TRUE); /* num */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[313]), scm__rc.d1562[110]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[316]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[317]), scm__rc.d1562[109]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[318]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[319]), scm__rc.d1562[3]);
  scm__rc.d1562[111] = Scm_MakeExtendedPair(scm__rc.d1562[109], SCM_OBJ(&scm__rc.d1563[313]), SCM_OBJ(&scm__rc.d1563[321]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("floor->exact")), SCM_OBJ(&libnumfloor_TOexact__STUB), SCM_BINDING_INLINABLE);
  libnumfloor_TOexact__STUB.common.info = scm__rc.d1562[111];
  scm__rc.d1562[112] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[67])),TRUE); /* ceiling->exact */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[324]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[325]), scm__rc.d1562[112]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[326]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[327]), scm__rc.d1562[3]);
  scm__rc.d1562[113] = Scm_MakeExtendedPair(scm__rc.d1562[112], SCM_OBJ(&scm__rc.d1563[313]), SCM_OBJ(&scm__rc.d1563[329]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("ceiling->exact")), SCM_OBJ(&libnumceiling_TOexact__STUB), SCM_BINDING_INLINABLE);
  libnumceiling_TOexact__STUB.common.info = scm__rc.d1562[113];
  scm__rc.d1562[114] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[68])),TRUE); /* truncate->exact */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[332]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[333]), scm__rc.d1562[114]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[334]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[335]), scm__rc.d1562[3]);
  scm__rc.d1562[115] = Scm_MakeExtendedPair(scm__rc.d1562[114], SCM_OBJ(&scm__rc.d1563[313]), SCM_OBJ(&scm__rc.d1563[337]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("truncate->exact")), SCM_OBJ(&libnumtruncate_TOexact__STUB), SCM_BINDING_INLINABLE);
  libnumtruncate_TOexact__STUB.common.info = scm__rc.d1562[115];
  scm__rc.d1562[116] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[69])),TRUE); /* round->exact */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[340]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[341]), scm__rc.d1562[116]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[342]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[343]), scm__rc.d1562[3]);
  scm__rc.d1562[117] = Scm_MakeExtendedPair(scm__rc.d1562[116], SCM_OBJ(&scm__rc.d1563[313]), SCM_OBJ(&scm__rc.d1563[345]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("round->exact")), SCM_OBJ(&libnumround_TOexact__STUB), SCM_BINDING_INLINABLE);
  libnumround_TOexact__STUB.common.info = scm__rc.d1562[117];
  scm__rc.d1562[118] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[70])),TRUE); /* decode-float */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[348]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[349]), scm__rc.d1562[118]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[350]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[351]), scm__rc.d1562[3]);
  scm__rc.d1562[119] = Scm_MakeExtendedPair(scm__rc.d1562[118], SCM_OBJ(&scm__rc.d1563[313]), SCM_OBJ(&scm__rc.d1563[353]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("decode-float")), SCM_OBJ(&libnumdecode_float__STUB), 0);
  libnumdecode_float__STUB.common.info = scm__rc.d1562[119];
  scm__rc.d1562[120] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[71])),TRUE); /* fmod */
  scm__rc.d1562[121] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[72])),TRUE); /* y */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[354]), scm__rc.d1562[121]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[355]), scm__rc.d1562[29]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[358]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[359]), scm__rc.d1562[120]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[360]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[361]), scm__rc.d1562[3]);
  scm__rc.d1562[122] = Scm_MakeExtendedPair(scm__rc.d1562[120], SCM_OBJ(&scm__rc.d1563[355]), SCM_OBJ(&scm__rc.d1563[363]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("fmod")), SCM_OBJ(&libnumfmod__STUB), 0);
  libnumfmod__STUB.common.info = scm__rc.d1562[122];
  scm__rc.d1562[123] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[73])),TRUE); /* frexp */
  scm__rc.d1562[124] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[74])),TRUE); /* d */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[364]), scm__rc.d1562[124]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[367]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[368]), scm__rc.d1562[123]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[369]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[370]), scm__rc.d1562[3]);
  scm__rc.d1562[125] = Scm_MakeExtendedPair(scm__rc.d1562[123], SCM_OBJ(&scm__rc.d1563[364]), SCM_OBJ(&scm__rc.d1563[372]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("frexp")), SCM_OBJ(&libnumfrexp__STUB), 0);
  libnumfrexp__STUB.common.info = scm__rc.d1562[125];
  scm__rc.d1562[126] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[75])),TRUE); /* modf */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[375]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[376]), scm__rc.d1562[126]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[377]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[378]), scm__rc.d1562[3]);
  scm__rc.d1562[127] = Scm_MakeExtendedPair(scm__rc.d1562[126], SCM_OBJ(&scm__rc.d1563[98]), SCM_OBJ(&scm__rc.d1563[380]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("modf")), SCM_OBJ(&libnummodf__STUB), 0);
  libnummodf__STUB.common.info = scm__rc.d1562[127];
  scm__rc.d1562[128] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[76])),TRUE); /* ldexp */
  scm__rc.d1562[129] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[77])),TRUE); /* exp */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[381]), scm__rc.d1562[129]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[382]), scm__rc.d1562[29]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[385]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[386]), scm__rc.d1562[128]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[387]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[388]), scm__rc.d1562[3]);
  scm__rc.d1562[130] = Scm_MakeExtendedPair(scm__rc.d1562[128], SCM_OBJ(&scm__rc.d1563[382]), SCM_OBJ(&scm__rc.d1563[390]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("ldexp")), SCM_OBJ(&libnumldexp__STUB), 0);
  libnumldexp__STUB.common.info = scm__rc.d1562[130];
  scm__rc.d1562[131] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[78])),TRUE); /* log10 */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[393]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[394]), scm__rc.d1562[131]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[395]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[396]), scm__rc.d1562[3]);
  scm__rc.d1562[132] = Scm_MakeExtendedPair(scm__rc.d1562[131], SCM_OBJ(&scm__rc.d1563[98]), SCM_OBJ(&scm__rc.d1563[398]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("log10")), SCM_OBJ(&libnumlog10__STUB), 0);
  libnumlog10__STUB.common.info = scm__rc.d1562[132];
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
#if defined(HAVE_TGAMMA)
  scm__rc.d1569[0] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1568[0])),TRUE); /* %gamma */
#endif /* defined(HAVE_TGAMMA) */
#if defined(HAVE_TGAMMA)
  scm__rc.d1569[1] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1568[1])),TRUE); /* x */
#endif /* defined(HAVE_TGAMMA) */
#if defined(HAVE_TGAMMA)
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1570[1]), scm__rc.d1569[1]);
#endif /* defined(HAVE_TGAMMA) */
#if defined(HAVE_TGAMMA)
  scm__rc.d1569[2] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1568[2])),TRUE); /* source-info */
#endif /* defined(HAVE_TGAMMA) */
#if defined(HAVE_TGAMMA)
#endif /* defined(HAVE_TGAMMA) */
#if defined(HAVE_TGAMMA)
#endif /* defined(HAVE_TGAMMA) */
#if defined(HAVE_TGAMMA)
#endif /* defined(HAVE_TGAMMA) */
#if defined(HAVE_TGAMMA)
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1570[4]), scm__rc.d1569[2]);
#endif /* defined(HAVE_TGAMMA) */
#if defined(HAVE_TGAMMA)
  scm__rc.d1569[3] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1568[4])),TRUE); /* bind-info */
#endif /* defined(HAVE_TGAMMA) */
#if defined(HAVE_TGAMMA)
  scm__rc.d1569[4] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1568[5])),TRUE); /* gauche.internal */
#endif /* defined(HAVE_TGAMMA) */
#if defined(HAVE_TGAMMA)
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1570[5]), scm__rc.d1569[0]);
#endif /* defined(HAVE_TGAMMA) */
#if defined(HAVE_TGAMMA)
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1570[6]), scm__rc.d1569[4]);
#endif /* defined(HAVE_TGAMMA) */
#if defined(HAVE_TGAMMA)
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1570[7]), scm__rc.d1569[3]);
#endif /* defined(HAVE_TGAMMA) */
#if defined(HAVE_TGAMMA)
#endif /* defined(HAVE_TGAMMA) */
#if defined(HAVE_TGAMMA)
#endif /* defined(HAVE_TGAMMA) */
#if defined(HAVE_TGAMMA)
  scm__rc.d1569[5] = Scm_MakeExtendedPair(scm__rc.d1569[0], SCM_OBJ(&scm__rc.d1570[1]), SCM_OBJ(&scm__rc.d1570[9]));
#endif /* defined(HAVE_TGAMMA) */
#if defined(HAVE_TGAMMA)
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%gamma")), SCM_OBJ(&libnum_25gamma__STUB), SCM_BINDING_INLINABLE);
  libnum_25gamma__STUB.common.info = scm__rc.d1569[5];
#endif /* defined(HAVE_TGAMMA) */
#if defined(HAVE_LGAMMA)
  scm__rc.d1572[0] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1571[0])),TRUE); /* %lgamma */
#endif /* defined(HAVE_LGAMMA) */
#if defined(HAVE_LGAMMA)
  scm__rc.d1572[1] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1571[1])),TRUE); /* x */
#endif /* defined(HAVE_LGAMMA) */
#if defined(HAVE_LGAMMA)
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1573[1]), scm__rc.d1572[1]);
#endif /* defined(HAVE_LGAMMA) */
#if defined(HAVE_LGAMMA)
  scm__rc.d1572[2] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1571[2])),TRUE); /* source-info */
#endif /* defined(HAVE_LGAMMA) */
#if defined(HAVE_LGAMMA)
#endif /* defined(HAVE_LGAMMA) */
#if defined(HAVE_LGAMMA)
#endif /* defined(HAVE_LGAMMA) */
#if defined(HAVE_LGAMMA)
#endif /* defined(HAVE_LGAMMA) */
#if defined(HAVE_LGAMMA)
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1573[4]), scm__rc.d1572[2]);
#endif /* defined(HAVE_LGAMMA) */
#if defined(HAVE_LGAMMA)
  scm__rc.d1572[3] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1571[4])),TRUE); /* bind-info */
#endif /* defined(HAVE_LGAMMA) */
#if defined(HAVE_LGAMMA)
  scm__rc.d1572[4] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1571[5])),TRUE); /* gauche.internal */
#endif /* defined(HAVE_LGAMMA) */
#if defined(HAVE_LGAMMA)
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1573[5]), scm__rc.d1572[0]);
#endif /* defined(HAVE_LGAMMA) */
#if defined(HAVE_LGAMMA)
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1573[6]), scm__rc.d1572[4]);
#endif /* defined(HAVE_LGAMMA) */
#if defined(HAVE_LGAMMA)
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1573[7]), scm__rc.d1572[3]);
#endif /* defined(HAVE_LGAMMA) */
#if defined(HAVE_LGAMMA)
#endif /* defined(HAVE_LGAMMA) */
#if defined(HAVE_LGAMMA)
#endif /* defined(HAVE_LGAMMA) */
#if defined(HAVE_LGAMMA)
  scm__rc.d1572[5] = Scm_MakeExtendedPair(scm__rc.d1572[0], SCM_OBJ(&scm__rc.d1573[1]), SCM_OBJ(&scm__rc.d1573[9]));
#endif /* defined(HAVE_LGAMMA) */
#if defined(HAVE_LGAMMA)
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%lgamma")), SCM_OBJ(&libnum_25lgamma__STUB), SCM_BINDING_INLINABLE);
  libnum_25lgamma__STUB.common.info = scm__rc.d1572[5];
#endif /* defined(HAVE_LGAMMA) */
  scm__rc.d1562[133] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[79])),TRUE); /* flonum->f16bits */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[401]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[402]), scm__rc.d1562[133]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[403]), scm__rc.d1562[61]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[404]), scm__rc.d1562[3]);
  scm__rc.d1562[134] = Scm_MakeExtendedPair(scm__rc.d1562[133], SCM_OBJ(&scm__rc.d1563[98]), SCM_OBJ(&scm__rc.d1563[406]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("flonum->f16bits")), SCM_OBJ(&libnumflonum_TOf16bits__STUB), 0);
  libnumflonum_TOf16bits__STUB.common.info = scm__rc.d1562[134];
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
  scm__rc.d1562[135] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[80])),TRUE); /* * */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[409]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[410]), scm__rc.d1562[135]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[411]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[412]), scm__rc.d1562[3]);
  scm__rc.d1562[136] = Scm_MakeExtendedPair(scm__rc.d1562[135], SCM_OBJ(&scm__rc.d1563[246]), SCM_OBJ(&scm__rc.d1563[414]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("*")), SCM_OBJ(&libnum_2a__STUB), 0);
  libnum_2a__STUB.common.info = scm__rc.d1562[136];
  scm__rc.d1562[137] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[81])),TRUE); /* + */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[417]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[418]), scm__rc.d1562[137]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[419]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[420]), scm__rc.d1562[3]);
  scm__rc.d1562[138] = Scm_MakeExtendedPair(scm__rc.d1562[137], SCM_OBJ(&scm__rc.d1563[246]), SCM_OBJ(&scm__rc.d1563[422]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("+")), SCM_OBJ(&libnum_2b__STUB), 0);
  libnum_2b__STUB.common.info = scm__rc.d1562[138];
  scm__rc.d1562[139] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[82])),TRUE); /* - */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[423]), scm__rc.d1562[65]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[426]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[427]), scm__rc.d1562[139]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[428]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[429]), scm__rc.d1562[3]);
  scm__rc.d1562[140] = Scm_MakeExtendedPair(scm__rc.d1562[139], SCM_OBJ(&scm__rc.d1563[423]), SCM_OBJ(&scm__rc.d1563[431]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("-")), SCM_OBJ(&libnum___STUB), 0);
  libnum___STUB.common.info = scm__rc.d1562[140];
  scm__rc.d1562[141] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[83])),TRUE); /* / */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[434]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[435]), scm__rc.d1562[141]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[436]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[437]), scm__rc.d1562[3]);
  scm__rc.d1562[142] = Scm_MakeExtendedPair(scm__rc.d1562[141], SCM_OBJ(&scm__rc.d1563[423]), SCM_OBJ(&scm__rc.d1563[439]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("/")), SCM_OBJ(&libnum_2f__STUB), 0);
  libnum_2f__STUB.common.info = scm__rc.d1562[142];
  scm__rc.d1562[143] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[84])),TRUE); /* abs */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[442]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[443]), scm__rc.d1562[143]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[444]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[445]), scm__rc.d1562[3]);
  scm__rc.d1562[144] = Scm_MakeExtendedPair(scm__rc.d1562[143], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[447]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("abs")), SCM_OBJ(&libnumabs__STUB), SCM_BINDING_INLINABLE);
  libnumabs__STUB.common.info = scm__rc.d1562[144];
  scm__rc.d1562[145] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[85])),TRUE); /* quotient */
  scm__rc.d1562[146] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[86])),TRUE); /* n1 */
  scm__rc.d1562[147] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[87])),TRUE); /* n2 */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[448]), scm__rc.d1562[147]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[449]), scm__rc.d1562[146]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[452]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[453]), scm__rc.d1562[145]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[454]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[455]), scm__rc.d1562[3]);
  scm__rc.d1562[148] = Scm_MakeExtendedPair(scm__rc.d1562[145], SCM_OBJ(&scm__rc.d1563[449]), SCM_OBJ(&scm__rc.d1563[457]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("quotient")), SCM_OBJ(&libnumquotient__STUB), SCM_BINDING_INLINABLE);
  libnumquotient__STUB.common.info = scm__rc.d1562[148];
  scm__rc.d1562[149] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[88])),TRUE); /* remainder */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[460]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[461]), scm__rc.d1562[149]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[462]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[463]), scm__rc.d1562[3]);
  scm__rc.d1562[150] = Scm_MakeExtendedPair(scm__rc.d1562[149], SCM_OBJ(&scm__rc.d1563[449]), SCM_OBJ(&scm__rc.d1563[465]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("remainder")), SCM_OBJ(&libnumremainder__STUB), SCM_BINDING_INLINABLE);
  libnumremainder__STUB.common.info = scm__rc.d1562[150];
  scm__rc.d1562[151] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[89])),TRUE); /* modulo */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[468]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[469]), scm__rc.d1562[151]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[470]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[471]), scm__rc.d1562[3]);
  scm__rc.d1562[152] = Scm_MakeExtendedPair(scm__rc.d1562[151], SCM_OBJ(&scm__rc.d1563[449]), SCM_OBJ(&scm__rc.d1563[473]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("modulo")), SCM_OBJ(&libnummodulo__STUB), SCM_BINDING_INLINABLE);
  libnummodulo__STUB.common.info = scm__rc.d1562[152];
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1562[153] = Scm_MakeIdentifier(scm__rc.d1562[12], SCM_MODULE(scm__rc.d1562[90]), SCM_NIL); /* gauche#integer? */
  scm__rc.d1562[155] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[91])),TRUE); /* error */
  scm__rc.d1562[154] = Scm_MakeIdentifier(scm__rc.d1562[155], SCM_MODULE(scm__rc.d1562[90]), SCM_NIL); /* gauche#error */
  scm__rc.d1562[156] = Scm_MakeIdentifier(scm__rc.d1562[143], SCM_MODULE(scm__rc.d1562[90]), SCM_NIL); /* gauche#abs */
  scm__rc.d1562[157] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[92])),TRUE); /* gcd */
  scm__rc.d1562[158] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[93])),FALSE); /* G1578 */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[474]), scm__rc.d1562[158]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[475]), scm__rc.d1562[157]);
  scm__rc.d1562[159] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[94])),TRUE); /* arg */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[476]), scm__rc.d1562[159]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[479]), scm__rc.d1562[2]);
  scm__rc.d1562[160] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[95])),TRUE); /* unused-args */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[480]), scm__rc.d1562[160]);
  scm__rc.d1562[161] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[475]), SCM_OBJ(&scm__rc.d1563[476]), SCM_OBJ(&scm__rc.d1563[482]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[483]), scm__rc.d1562[161]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[10]))[4] = SCM_WORD(scm__rc.d1562[153]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[10]))[15] = SCM_WORD(scm__rc.d1562[154]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[10]))[18] = SCM_WORD(scm__rc.d1562[156]);
  scm__rc.d1562[163] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[96])),TRUE); /* map */
  scm__rc.d1562[162] = Scm_MakeIdentifier(scm__rc.d1562[163], SCM_MODULE(scm__rc.d1562[90]), SCM_NIL); /* gauche#map */
  scm__rc.d1562[165] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[97])),TRUE); /* %gcd */
  scm__rc.d1562[164] = Scm_MakeIdentifier(scm__rc.d1562[165], SCM_MODULE(Scm_GaucheInternalModule()), SCM_NIL); /* gauche.internal#%gcd */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[487]), scm__rc.d1562[2]);
  scm__rc.d1562[166] = Scm_MakeExtendedPair(scm__rc.d1562[157], scm__rc.d1562[67], SCM_OBJ(&scm__rc.d1563[488]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[489]), scm__rc.d1562[166]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1567[3]))->name = scm__rc.d1562[157];/* gcd */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[30]))[5] = SCM_WORD(scm__rc.d1562[162]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[30]))[30] = SCM_WORD(scm__rc.d1562[164]);
  scm__rc.d1562[167] = Scm_MakeIdentifier(scm__rc.d1562[157], SCM_MODULE(Scm_SchemeModule()), SCM_NIL); /* scheme#gcd */
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1567[4]))->name = scm__rc.d1562[93];/* %toplevel */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[68]))[5] = SCM_WORD(scm__rc.d1562[167]);
  scm__rc.d1562[168] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[98])),TRUE); /* lcm */
  scm__rc.d1562[169] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[99])),FALSE); /* G1579 */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[490]), scm__rc.d1562[169]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[491]), scm__rc.d1562[168]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[494]), scm__rc.d1562[2]);
  scm__rc.d1562[170] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[491]), SCM_OBJ(&scm__rc.d1563[476]), SCM_OBJ(&scm__rc.d1563[495]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[496]), scm__rc.d1562[170]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[75]))[4] = SCM_WORD(scm__rc.d1562[153]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[75]))[15] = SCM_WORD(scm__rc.d1562[154]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[75]))[18] = SCM_WORD(scm__rc.d1562[156]);
  scm__rc.d1562[171] = Scm_MakeIdentifier(scm__rc.d1562[145], SCM_MODULE(scm__rc.d1562[90]), SCM_NIL); /* gauche#quotient */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[500]), scm__rc.d1562[2]);
  scm__rc.d1562[172] = Scm_MakeExtendedPair(scm__rc.d1562[168], scm__rc.d1562[67], SCM_OBJ(&scm__rc.d1563[501]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[502]), scm__rc.d1562[172]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1567[6]))->name = scm__rc.d1562[168];/* lcm */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[95]))[5] = SCM_WORD(scm__rc.d1562[162]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[95]))[32] = SCM_WORD(scm__rc.d1562[164]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[95]))[45] = SCM_WORD(scm__rc.d1562[171]);
  scm__rc.d1562[173] = Scm_MakeIdentifier(scm__rc.d1562[168], SCM_MODULE(Scm_SchemeModule()), SCM_NIL); /* scheme#lcm */
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1567[7]))->name = scm__rc.d1562[93];/* %toplevel */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[153]))[5] = SCM_WORD(scm__rc.d1562[173]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[505]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[506]), scm__rc.d1562[165]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[507]), scm__rc.d1562[61]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[508]), scm__rc.d1562[3]);
  scm__rc.d1562[174] = Scm_MakeExtendedPair(scm__rc.d1562[165], SCM_OBJ(&scm__rc.d1563[449]), SCM_OBJ(&scm__rc.d1563[510]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%gcd")), SCM_OBJ(&libnum_25gcd__STUB), SCM_BINDING_INLINABLE);
  libnum_25gcd__STUB.common.info = scm__rc.d1562[174];
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
  scm__rc.d1562[175] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[100])),TRUE); /* numerator */
  scm__rc.d1562[176] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[101])),TRUE); /* n */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[511]), scm__rc.d1562[176]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[514]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[515]), scm__rc.d1562[175]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[516]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[517]), scm__rc.d1562[3]);
  scm__rc.d1562[177] = Scm_MakeExtendedPair(scm__rc.d1562[175], SCM_OBJ(&scm__rc.d1563[511]), SCM_OBJ(&scm__rc.d1563[519]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("numerator")), SCM_OBJ(&libnumnumerator__STUB), SCM_BINDING_INLINABLE);
  libnumnumerator__STUB.common.info = scm__rc.d1562[177];
  scm__rc.d1562[178] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[102])),TRUE); /* denominator */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[522]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[523]), scm__rc.d1562[178]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[524]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[525]), scm__rc.d1562[3]);
  scm__rc.d1562[179] = Scm_MakeExtendedPair(scm__rc.d1562[178], SCM_OBJ(&scm__rc.d1563[511]), SCM_OBJ(&scm__rc.d1563[527]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("denominator")), SCM_OBJ(&libnumdenominator__STUB), SCM_BINDING_INLINABLE);
  libnumdenominator__STUB.common.info = scm__rc.d1562[179];
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1562[180] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[103])),TRUE); /* rationalize */
  scm__rc.d1562[181] = Scm_MakeIdentifier(scm__rc.d1562[40], SCM_MODULE(scm__rc.d1562[90]), SCM_NIL); /* gauche#nan? */
  scm__rc.d1562[182] = 
SCM_NAN;
  scm__rc.d1562[183] = 
SCM_NAN;
  scm__rc.d1562[184] = Scm_MakeIdentifier(scm__rc.d1562[38], SCM_MODULE(scm__rc.d1562[90]), SCM_NIL); /* gauche#infinite? */
  scm__rc.d1562[185] = 
SCM_NAN;
  scm__rc.d1562[186] = 
Scm_MakeFlonum(0.0);
  scm__rc.d1562[187] = Scm_MakeIdentifier(scm__rc.d1562[16], SCM_MODULE(scm__rc.d1562[90]), SCM_NIL); /* gauche#inexact? */
  scm__rc.d1562[189] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[105])),TRUE); /* real->rational */
  scm__rc.d1562[188] = Scm_MakeIdentifier(scm__rc.d1562[189], SCM_MODULE(scm__rc.d1562[90]), SCM_NIL); /* gauche#real->rational */
  scm__rc.d1562[190] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[106])),TRUE); /* e */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[528]), scm__rc.d1562[190]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[529]), scm__rc.d1562[29]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[532]), scm__rc.d1562[2]);
  scm__rc.d1562[191] = Scm_MakeExtendedPair(scm__rc.d1562[180], SCM_OBJ(&scm__rc.d1563[529]), SCM_OBJ(&scm__rc.d1563[533]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[534]), scm__rc.d1562[191]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1567[8]))->name = scm__rc.d1562[180];/* rationalize */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[160]))[7] = SCM_WORD(scm__rc.d1562[154]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[160]))[13] = SCM_WORD(scm__rc.d1562[181]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[160]))[17] = SCM_WORD(scm__rc.d1562[182]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[160]))[22] = SCM_WORD(scm__rc.d1562[181]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[160]))[26] = SCM_WORD(scm__rc.d1562[183]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[160]))[31] = SCM_WORD(scm__rc.d1562[184]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[160]))[38] = SCM_WORD(scm__rc.d1562[184]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[160]))[42] = SCM_WORD(scm__rc.d1562[185]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[160]))[44] = SCM_WORD(scm__rc.d1562[186]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[160]))[49] = SCM_WORD(scm__rc.d1562[184]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[160]))[57] = SCM_WORD(scm__rc.d1562[187]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[160]))[66] = SCM_WORD(scm__rc.d1562[188]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[160]))[68] = SCM_WORD(scm__rc.d1562[95]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[160]))[74] = SCM_WORD(scm__rc.d1562[187]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[160]))[81] = SCM_WORD(scm__rc.d1562[188]);
  ScmObj G1580 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1567[8]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1562[180]) /* rationalize */, G1580,0);

   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
  scm__rc.d1562[192] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[107])),TRUE); /* floor */
  scm__rc.d1562[193] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[108])),TRUE); /* v */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[535]), scm__rc.d1562[193]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[538]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[539]), scm__rc.d1562[192]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[540]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[541]), scm__rc.d1562[3]);
  scm__rc.d1562[194] = Scm_MakeExtendedPair(scm__rc.d1562[192], SCM_OBJ(&scm__rc.d1563[535]), SCM_OBJ(&scm__rc.d1563[543]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("floor")), SCM_OBJ(&libnumfloor__STUB), SCM_BINDING_INLINABLE);
  libnumfloor__STUB.common.info = scm__rc.d1562[194];
  scm__rc.d1562[195] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[109])),TRUE); /* ceiling */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[546]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[547]), scm__rc.d1562[195]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[548]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[549]), scm__rc.d1562[3]);
  scm__rc.d1562[196] = Scm_MakeExtendedPair(scm__rc.d1562[195], SCM_OBJ(&scm__rc.d1563[535]), SCM_OBJ(&scm__rc.d1563[551]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("ceiling")), SCM_OBJ(&libnumceiling__STUB), SCM_BINDING_INLINABLE);
  libnumceiling__STUB.common.info = scm__rc.d1562[196];
  scm__rc.d1562[197] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[110])),TRUE); /* truncate */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[554]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[555]), scm__rc.d1562[197]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[556]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[557]), scm__rc.d1562[3]);
  scm__rc.d1562[198] = Scm_MakeExtendedPair(scm__rc.d1562[197], SCM_OBJ(&scm__rc.d1563[535]), SCM_OBJ(&scm__rc.d1563[559]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("truncate")), SCM_OBJ(&libnumtruncate__STUB), SCM_BINDING_INLINABLE);
  libnumtruncate__STUB.common.info = scm__rc.d1562[198];
  scm__rc.d1562[199] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[111])),TRUE); /* round */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[562]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[563]), scm__rc.d1562[199]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[564]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[565]), scm__rc.d1562[3]);
  scm__rc.d1562[200] = Scm_MakeExtendedPair(scm__rc.d1562[199], SCM_OBJ(&scm__rc.d1563[535]), SCM_OBJ(&scm__rc.d1563[567]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("round")), SCM_OBJ(&libnumround__STUB), SCM_BINDING_INLINABLE);
  libnumround__STUB.common.info = scm__rc.d1562[200];
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1562[201] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[112])),TRUE); /* %exp */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[570]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[571]), scm__rc.d1562[201]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[572]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[573]), scm__rc.d1562[3]);
  scm__rc.d1562[202] = Scm_MakeExtendedPair(scm__rc.d1562[201], SCM_OBJ(&scm__rc.d1563[98]), SCM_OBJ(&scm__rc.d1563[575]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("%exp")), SCM_OBJ(&libnum_25exp__STUB), SCM_BINDING_INLINABLE);
  libnum_25exp__STUB.common.info = scm__rc.d1562[202];
  scm__rc.d1562[203] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[113])),TRUE); /* %log */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[578]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[579]), scm__rc.d1562[203]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[580]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[581]), scm__rc.d1562[3]);
  scm__rc.d1562[204] = Scm_MakeExtendedPair(scm__rc.d1562[203], SCM_OBJ(&scm__rc.d1563[98]), SCM_OBJ(&scm__rc.d1563[583]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("%log")), SCM_OBJ(&libnum_25log__STUB), SCM_BINDING_INLINABLE);
  libnum_25log__STUB.common.info = scm__rc.d1562[204];
  scm__rc.d1562[205] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[114])),TRUE); /* %sin */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[586]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[587]), scm__rc.d1562[205]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[588]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[589]), scm__rc.d1562[3]);
  scm__rc.d1562[206] = Scm_MakeExtendedPair(scm__rc.d1562[205], SCM_OBJ(&scm__rc.d1563[98]), SCM_OBJ(&scm__rc.d1563[591]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("%sin")), SCM_OBJ(&libnum_25sin__STUB), SCM_BINDING_INLINABLE);
  libnum_25sin__STUB.common.info = scm__rc.d1562[206];
  scm__rc.d1562[207] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[115])),TRUE); /* %cos */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[594]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[595]), scm__rc.d1562[207]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[596]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[597]), scm__rc.d1562[3]);
  scm__rc.d1562[208] = Scm_MakeExtendedPair(scm__rc.d1562[207], SCM_OBJ(&scm__rc.d1563[98]), SCM_OBJ(&scm__rc.d1563[599]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("%cos")), SCM_OBJ(&libnum_25cos__STUB), SCM_BINDING_INLINABLE);
  libnum_25cos__STUB.common.info = scm__rc.d1562[208];
  scm__rc.d1562[209] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[116])),TRUE); /* %tan */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[602]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[603]), scm__rc.d1562[209]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[604]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[605]), scm__rc.d1562[3]);
  scm__rc.d1562[210] = Scm_MakeExtendedPair(scm__rc.d1562[209], SCM_OBJ(&scm__rc.d1563[98]), SCM_OBJ(&scm__rc.d1563[607]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("%tan")), SCM_OBJ(&libnum_25tan__STUB), SCM_BINDING_INLINABLE);
  libnum_25tan__STUB.common.info = scm__rc.d1562[210];
  scm__rc.d1562[211] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[117])),TRUE); /* %sinpi */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[610]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[611]), scm__rc.d1562[211]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[612]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[613]), scm__rc.d1562[3]);
  scm__rc.d1562[212] = Scm_MakeExtendedPair(scm__rc.d1562[211], SCM_OBJ(&scm__rc.d1563[98]), SCM_OBJ(&scm__rc.d1563[615]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("%sinpi")), SCM_OBJ(&libnum_25sinpi__STUB), SCM_BINDING_INLINABLE);
  libnum_25sinpi__STUB.common.info = scm__rc.d1562[212];
  scm__rc.d1562[213] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[118])),TRUE); /* %cospi */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[618]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[619]), scm__rc.d1562[213]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[620]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[621]), scm__rc.d1562[3]);
  scm__rc.d1562[214] = Scm_MakeExtendedPair(scm__rc.d1562[213], SCM_OBJ(&scm__rc.d1563[98]), SCM_OBJ(&scm__rc.d1563[623]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("%cospi")), SCM_OBJ(&libnum_25cospi__STUB), SCM_BINDING_INLINABLE);
  libnum_25cospi__STUB.common.info = scm__rc.d1562[214];
  scm__rc.d1562[215] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[119])),TRUE); /* %tanpi */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[626]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[627]), scm__rc.d1562[215]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[628]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[629]), scm__rc.d1562[3]);
  scm__rc.d1562[216] = Scm_MakeExtendedPair(scm__rc.d1562[215], SCM_OBJ(&scm__rc.d1563[98]), SCM_OBJ(&scm__rc.d1563[631]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("%tanpi")), SCM_OBJ(&libnum_25tanpi__STUB), SCM_BINDING_INLINABLE);
  libnum_25tanpi__STUB.common.info = scm__rc.d1562[216];
  scm__rc.d1562[217] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[120])),TRUE); /* %asin */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[634]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[635]), scm__rc.d1562[217]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[636]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[637]), scm__rc.d1562[3]);
  scm__rc.d1562[218] = Scm_MakeExtendedPair(scm__rc.d1562[217], SCM_OBJ(&scm__rc.d1563[98]), SCM_OBJ(&scm__rc.d1563[639]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("%asin")), SCM_OBJ(&libnum_25asin__STUB), SCM_BINDING_INLINABLE);
  libnum_25asin__STUB.common.info = scm__rc.d1562[218];
  scm__rc.d1562[219] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[121])),TRUE); /* %acos */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[642]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[643]), scm__rc.d1562[219]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[644]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[645]), scm__rc.d1562[3]);
  scm__rc.d1562[220] = Scm_MakeExtendedPair(scm__rc.d1562[219], SCM_OBJ(&scm__rc.d1563[98]), SCM_OBJ(&scm__rc.d1563[647]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("%acos")), SCM_OBJ(&libnum_25acos__STUB), SCM_BINDING_INLINABLE);
  libnum_25acos__STUB.common.info = scm__rc.d1562[220];
  scm__rc.d1562[221] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[122])),TRUE); /* %atan */
  scm__rc.d1562[222] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[123])),TRUE); /* z */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[648]), scm__rc.d1562[102]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[649]), scm__rc.d1562[222]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[652]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[653]), scm__rc.d1562[221]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[654]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[655]), scm__rc.d1562[3]);
  scm__rc.d1562[223] = Scm_MakeExtendedPair(scm__rc.d1562[221], SCM_OBJ(&scm__rc.d1563[649]), SCM_OBJ(&scm__rc.d1563[657]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("%atan")), SCM_OBJ(&libnum_25atan__STUB), SCM_BINDING_INLINABLE);
  libnum_25atan__STUB.common.info = scm__rc.d1562[223];
  scm__rc.d1562[224] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[124])),TRUE); /* %sinh */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[660]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[661]), scm__rc.d1562[224]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[662]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[663]), scm__rc.d1562[3]);
  scm__rc.d1562[225] = Scm_MakeExtendedPair(scm__rc.d1562[224], SCM_OBJ(&scm__rc.d1563[98]), SCM_OBJ(&scm__rc.d1563[665]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("%sinh")), SCM_OBJ(&libnum_25sinh__STUB), SCM_BINDING_INLINABLE);
  libnum_25sinh__STUB.common.info = scm__rc.d1562[225];
  scm__rc.d1562[226] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[125])),TRUE); /* %cosh */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[668]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[669]), scm__rc.d1562[226]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[670]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[671]), scm__rc.d1562[3]);
  scm__rc.d1562[227] = Scm_MakeExtendedPair(scm__rc.d1562[226], SCM_OBJ(&scm__rc.d1563[98]), SCM_OBJ(&scm__rc.d1563[673]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("%cosh")), SCM_OBJ(&libnum_25cosh__STUB), SCM_BINDING_INLINABLE);
  libnum_25cosh__STUB.common.info = scm__rc.d1562[227];
  scm__rc.d1562[228] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[126])),TRUE); /* %tanh */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[676]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[677]), scm__rc.d1562[228]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[678]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[679]), scm__rc.d1562[3]);
  scm__rc.d1562[229] = Scm_MakeExtendedPair(scm__rc.d1562[228], SCM_OBJ(&scm__rc.d1563[98]), SCM_OBJ(&scm__rc.d1563[681]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("%tanh")), SCM_OBJ(&libnum_25tanh__STUB), SCM_BINDING_INLINABLE);
  libnum_25tanh__STUB.common.info = scm__rc.d1562[229];
  scm__rc.d1562[230] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[127])),TRUE); /* %sqrt */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[684]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[685]), scm__rc.d1562[230]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[686]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[687]), scm__rc.d1562[3]);
  scm__rc.d1562[231] = Scm_MakeExtendedPair(scm__rc.d1562[230], SCM_OBJ(&scm__rc.d1563[98]), SCM_OBJ(&scm__rc.d1563[689]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("%sqrt")), SCM_OBJ(&libnum_25sqrt__STUB), SCM_BINDING_INLINABLE);
  libnum_25sqrt__STUB.common.info = scm__rc.d1562[231];
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
  scm__rc.d1562[232] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[128])),TRUE); /* %sqrt-fast-path */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[692]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[693]), scm__rc.d1562[232]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[694]), scm__rc.d1562[61]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[695]), scm__rc.d1562[3]);
  scm__rc.d1562[233] = Scm_MakeExtendedPair(scm__rc.d1562[232], SCM_OBJ(&scm__rc.d1563[98]), SCM_OBJ(&scm__rc.d1563[697]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%sqrt-fast-path")), SCM_OBJ(&libnum_25sqrt_fast_path__STUB), SCM_BINDING_INLINABLE);
  libnum_25sqrt_fast_path__STUB.common.info = scm__rc.d1562[233];
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1562[234] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[129])),TRUE); /* %expt */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[700]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[701]), scm__rc.d1562[234]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[702]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[703]), scm__rc.d1562[3]);
  scm__rc.d1562[235] = Scm_MakeExtendedPair(scm__rc.d1562[234], SCM_OBJ(&scm__rc.d1563[355]), SCM_OBJ(&scm__rc.d1563[705]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("%expt")), SCM_OBJ(&libnum_25expt__STUB), SCM_BINDING_INLINABLE);
  libnum_25expt__STUB.common.info = scm__rc.d1562[235];
  scm__rc.d1562[236] = Scm_MakeIdentifier(scm__rc.d1562[201], SCM_MODULE(scm__rc.d1562[90]), SCM_NIL); /* gauche#%exp */
  scm__rc.d1562[238] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[130])),TRUE); /* real-part */
  scm__rc.d1562[237] = Scm_MakeIdentifier(scm__rc.d1562[238], SCM_MODULE(scm__rc.d1562[90]), SCM_NIL); /* gauche#real-part */
  scm__rc.d1562[240] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[131])),TRUE); /* imag-part */
  scm__rc.d1562[239] = Scm_MakeIdentifier(scm__rc.d1562[240], SCM_MODULE(scm__rc.d1562[90]), SCM_NIL); /* gauche#imag-part */
  scm__rc.d1562[242] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[132])),TRUE); /* make-polar */
  scm__rc.d1562[241] = Scm_MakeIdentifier(scm__rc.d1562[242], SCM_MODULE(scm__rc.d1562[90]), SCM_NIL); /* gauche#make-polar */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[706]), scm__rc.d1562[222]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[709]), scm__rc.d1562[2]);
  scm__rc.d1562[243] = Scm_MakeExtendedPair(scm__rc.d1562[129], SCM_OBJ(&scm__rc.d1563[706]), SCM_OBJ(&scm__rc.d1563[710]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[711]), scm__rc.d1562[243]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1567[9]))->name = scm__rc.d1562[129];/* exp */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[243]))[6] = SCM_WORD(scm__rc.d1562[236]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[243]))[18] = SCM_WORD(scm__rc.d1562[237]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[243]))[20] = SCM_WORD(scm__rc.d1562[236]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[243]))[25] = SCM_WORD(scm__rc.d1562[239]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[243]))[27] = SCM_WORD(scm__rc.d1562[241]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[243]))[33] = SCM_WORD(scm__rc.d1562[154]);
  ScmObj G1581 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1567[9]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1562[129]) /* exp */, G1581,0);

  scm__rc.d1562[244] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[134])),TRUE); /* log */
  scm__rc.d1562[245] = Scm_MakeIdentifier(scm__rc.d1562[203], SCM_MODULE(scm__rc.d1562[90]), SCM_NIL); /* gauche#%log */
  scm__rc.d1562[247] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[135])),TRUE); /* magnitude */
  scm__rc.d1562[246] = Scm_MakeIdentifier(scm__rc.d1562[247], SCM_MODULE(scm__rc.d1562[90]), SCM_NIL); /* gauche#magnitude */
  scm__rc.d1562[249] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[136])),TRUE); /* angle */
  scm__rc.d1562[248] = Scm_MakeIdentifier(scm__rc.d1562[249], SCM_MODULE(scm__rc.d1562[90]), SCM_NIL); /* gauche#angle */
  scm__rc.d1562[251] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[137])),TRUE); /* make-rectangular */
  scm__rc.d1562[250] = Scm_MakeIdentifier(scm__rc.d1562[251], SCM_MODULE(scm__rc.d1562[90]), SCM_NIL); /* gauche#make-rectangular */
  scm__rc.d1562[252] = Scm_MakeIdentifier(scm__rc.d1562[244], SCM_MODULE(scm__rc.d1562[90]), SCM_NIL); /* gauche#log */
  scm__rc.d1562[253] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[138])),TRUE); /* base */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[712]), scm__rc.d1562[222]);
  SCM_SET_CDR(SCM_OBJ(&scm__rc.d1563[712]), scm__rc.d1562[253]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[715]), scm__rc.d1562[2]);
  scm__rc.d1562[254] = Scm_MakeExtendedPair(scm__rc.d1562[244], SCM_OBJ(&scm__rc.d1563[712]), SCM_OBJ(&scm__rc.d1563[716]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[717]), scm__rc.d1562[254]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1567[10]))->name = scm__rc.d1562[244];/* log */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[278]))[9] = SCM_WORD(scm__rc.d1562[245]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[278]))[21] = SCM_WORD(scm__rc.d1562[246]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[278]))[23] = SCM_WORD(scm__rc.d1562[245]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[278]))[28] = SCM_WORD(scm__rc.d1562[248]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[278]))[30] = SCM_WORD(scm__rc.d1562[250]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[278]))[36] = SCM_WORD(scm__rc.d1562[154]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[278]))[42] = SCM_WORD(scm__rc.d1562[252]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[278]))[47] = SCM_WORD(scm__rc.d1562[252]);
  ScmObj G1582 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1567[10]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1562[244]) /* log */, G1582,0);

   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
  scm__rc.d1562[255] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[139])),TRUE); /* sqrt */
  scm__rc.d1562[257] = SCM_OBJ(Scm_FindModule(SCM_SYMBOL(scm__rc.d1562[61]), SCM_FIND_MODULE_CREATE|SCM_FIND_MODULE_PLACEHOLDING)); /* module gauche.internal */
  scm__rc.d1562[256] = Scm_MakeIdentifier(scm__rc.d1562[232], SCM_MODULE(scm__rc.d1562[257]), SCM_NIL); /* gauche.internal#%sqrt-fast-path */
  scm__rc.d1562[258] = Scm_MakeIdentifier(scm__rc.d1562[14], SCM_MODULE(scm__rc.d1562[257]), SCM_NIL); /* gauche.internal#exact? */
  scm__rc.d1562[259] = Scm_MakeIdentifier(scm__rc.d1562[12], SCM_MODULE(scm__rc.d1562[257]), SCM_NIL); /* gauche.internal#integer? */
  scm__rc.d1562[261] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[140])),TRUE); /* %exact-integer-sqrt */
  scm__rc.d1562[260] = Scm_MakeIdentifier(scm__rc.d1562[261], SCM_MODULE(scm__rc.d1562[257]), SCM_NIL); /* gauche.internal#%exact-integer-sqrt */
  scm__rc.d1562[262] = Scm_MakeIdentifier(scm__rc.d1562[230], SCM_MODULE(scm__rc.d1562[257]), SCM_NIL); /* gauche.internal#%sqrt */
  scm__rc.d1562[263] = Scm_MakeIdentifier(scm__rc.d1562[175], SCM_MODULE(scm__rc.d1562[257]), SCM_NIL); /* gauche.internal#numerator */
  scm__rc.d1562[264] = Scm_MakeIdentifier(scm__rc.d1562[178], SCM_MODULE(scm__rc.d1562[257]), SCM_NIL); /* gauche.internal#denominator */
  scm__rc.d1562[265] = Scm_MakeIdentifier(scm__rc.d1562[247], SCM_MODULE(scm__rc.d1562[257]), SCM_NIL); /* gauche.internal#magnitude */
  scm__rc.d1562[266] = Scm_MakeIdentifier(scm__rc.d1562[249], SCM_MODULE(scm__rc.d1562[257]), SCM_NIL); /* gauche.internal#angle */
  scm__rc.d1562[267] = 
Scm_MakeFlonum(2.0);
  scm__rc.d1562[268] = Scm_MakeIdentifier(scm__rc.d1562[242], SCM_MODULE(scm__rc.d1562[257]), SCM_NIL); /* gauche.internal#make-polar */
  scm__rc.d1562[269] = Scm_MakeIdentifier(scm__rc.d1562[155], SCM_MODULE(scm__rc.d1562[257]), SCM_NIL); /* gauche.internal#error */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[720]), scm__rc.d1562[2]);
  scm__rc.d1562[270] = Scm_MakeExtendedPair(scm__rc.d1562[255], SCM_OBJ(&scm__rc.d1563[706]), SCM_OBJ(&scm__rc.d1563[721]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[722]), scm__rc.d1562[270]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1567[11]))->name = scm__rc.d1562[255];/* sqrt */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]))[4] = SCM_WORD(scm__rc.d1562[256]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]))[10] = SCM_WORD(scm__rc.d1562[258]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]))[20] = SCM_WORD(scm__rc.d1562[259]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]))[27] = SCM_WORD(scm__rc.d1562[260]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]))[35] = SCM_WORD(scm__rc.d1562[262]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]))[41] = SCM_WORD(scm__rc.d1562[263]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]))[46] = SCM_WORD(scm__rc.d1562[264]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]))[52] = SCM_WORD(scm__rc.d1562[256]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]))[61] = SCM_WORD(scm__rc.d1562[256]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]))[74] = SCM_WORD(scm__rc.d1562[260]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]))[85] = SCM_WORD(scm__rc.d1562[262]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]))[91] = SCM_WORD(scm__rc.d1562[260]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]))[100] = SCM_WORD(scm__rc.d1562[260]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]))[111] = SCM_WORD(scm__rc.d1562[262]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]))[115] = SCM_WORD(scm__rc.d1562[262]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]))[123] = SCM_WORD(scm__rc.d1562[262]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]))[135] = SCM_WORD(scm__rc.d1562[265]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]))[137] = SCM_WORD(scm__rc.d1562[262]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]))[142] = SCM_WORD(scm__rc.d1562[266]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]))[145] = SCM_WORD(scm__rc.d1562[267]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]))[148] = SCM_WORD(scm__rc.d1562[268]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[328]))[154] = SCM_WORD(scm__rc.d1562[269]);
  ScmObj G1583 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1567[11]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1562[255]) /* sqrt */, G1583,0);

  scm__rc.d1562[271] = Scm_StringToNumber(SCM_STRING(SCM_OBJ(&scm__sc.d1561[141])), 16, 0);
  scm__rc.d1562[272] = Scm_MakeIdentifier(scm__rc.d1562[109], SCM_MODULE(scm__rc.d1562[257]), SCM_NIL); /* gauche.internal#floor->exact */
  scm__rc.d1562[273] = Scm_MakeIdentifier(scm__rc.d1562[36], SCM_MODULE(scm__rc.d1562[257]), SCM_NIL); /* gauche.internal#finite? */
  scm__rc.d1562[275] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[142])),TRUE); /* integer-length */
  scm__rc.d1562[274] = Scm_MakeIdentifier(scm__rc.d1562[275], SCM_MODULE(scm__rc.d1562[257]), SCM_NIL); /* gauche.internal#integer-length */
  scm__rc.d1562[276] = Scm_MakeIdentifier(scm__rc.d1562[145], SCM_MODULE(scm__rc.d1562[257]), SCM_NIL); /* gauche.internal#quotient */
  scm__rc.d1562[278] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[143])),TRUE); /* ash */
  scm__rc.d1562[277] = Scm_MakeIdentifier(scm__rc.d1562[278], SCM_MODULE(scm__rc.d1562[257]), SCM_NIL); /* gauche.internal#ash */
  scm__rc.d1562[279] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[144])),TRUE); /* k */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[723]), scm__rc.d1562[279]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[726]), scm__rc.d1562[2]);
  scm__rc.d1562[280] = Scm_MakeExtendedPair(scm__rc.d1562[261], SCM_OBJ(&scm__rc.d1563[723]), SCM_OBJ(&scm__rc.d1563[727]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[728]), scm__rc.d1562[280]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1567[12]))->name = scm__rc.d1562[261];/* %exact-integer-sqrt */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[487]))[1] = SCM_WORD(scm__rc.d1562[271]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[487]))[10] = SCM_WORD(scm__rc.d1562[262]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[487]))[12] = SCM_WORD(scm__rc.d1562[272]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[487]))[25] = SCM_WORD(scm__rc.d1562[262]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[487]))[31] = SCM_WORD(scm__rc.d1562[273]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[487]))[40] = SCM_WORD(scm__rc.d1562[262]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[487]))[42] = SCM_WORD(scm__rc.d1562[272]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[487]))[54] = SCM_WORD(scm__rc.d1562[274]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[487]))[58] = SCM_WORD(scm__rc.d1562[276]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[487]))[60] = SCM_WORD(scm__rc.d1562[277]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[487]))[79] = SCM_WORD(scm__rc.d1562[276]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[487]))[107] = SCM_WORD(scm__rc.d1562[276]);
  ScmObj G1584 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1567[12]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())) /* gauche.internal */, SCM_SYMBOL(scm__rc.d1562[261]) /* %exact-integer-sqrt */, G1584,0);

  scm__rc.d1562[281] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[145])),TRUE); /* expt */
  scm__rc.d1562[283] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[146])),TRUE); /* %exact-expt */
  scm__rc.d1562[282] = Scm_MakeIdentifier(scm__rc.d1562[283], SCM_MODULE(Scm_GaucheInternalModule()), SCM_NIL); /* gauche.internal#%exact-expt */
  scm__rc.d1562[284] = Scm_MakeIdentifier(scm__rc.d1562[234], SCM_MODULE(scm__rc.d1562[257]), SCM_NIL); /* gauche.internal#%expt */
  scm__rc.d1562[285] = Scm_MakeIdentifier(scm__rc.d1562[238], SCM_MODULE(scm__rc.d1562[257]), SCM_NIL); /* gauche.internal#real-part */
  scm__rc.d1562[286] = Scm_MakeIdentifier(scm__rc.d1562[20], SCM_MODULE(scm__rc.d1562[257]), SCM_NIL); /* gauche.internal#positive? */
  scm__rc.d1562[287] = Scm_MakeComplex(0.0, 1.0);
  scm__rc.d1562[288] = Scm_MakeIdentifier(scm__rc.d1562[240], SCM_MODULE(scm__rc.d1562[257]), SCM_NIL); /* gauche.internal#imag-part */
  scm__rc.d1562[289] = Scm_MakeIdentifier(scm__rc.d1562[203], SCM_MODULE(scm__rc.d1562[257]), SCM_NIL); /* gauche.internal#%log */
  scm__rc.d1562[290] = Scm_MakeIdentifier(scm__rc.d1562[129], SCM_MODULE(scm__rc.d1562[257]), SCM_NIL); /* gauche.internal#exp */
  scm__rc.d1562[291] = Scm_MakeIdentifier(scm__rc.d1562[244], SCM_MODULE(scm__rc.d1562[257]), SCM_NIL); /* gauche.internal#log */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[731]), scm__rc.d1562[2]);
  scm__rc.d1562[292] = Scm_MakeExtendedPair(scm__rc.d1562[281], SCM_OBJ(&scm__rc.d1563[355]), SCM_OBJ(&scm__rc.d1563[732]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[733]), scm__rc.d1562[292]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1567[13]))->name = scm__rc.d1562[281];/* expt */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[600]))[4] = SCM_WORD(scm__rc.d1562[258]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[600]))[11] = SCM_WORD(scm__rc.d1562[258]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[600]))[17] = SCM_WORD(scm__rc.d1562[282]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[600]))[30] = SCM_WORD(scm__rc.d1562[284]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[600]))[40] = SCM_WORD(scm__rc.d1562[285]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[600]))[49] = SCM_WORD(scm__rc.d1562[286]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[600]))[56] = SCM_WORD(scm__rc.d1562[258]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[600]))[62] = SCM_WORD(scm__rc.d1562[186]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[600]))[68] = SCM_WORD(scm__rc.d1562[284]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[600]))[72] = SCM_WORD(scm__rc.d1562[287]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[600]))[77] = SCM_WORD(scm__rc.d1562[288]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[600]))[83] = SCM_WORD(scm__rc.d1562[289]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[600]))[86] = SCM_WORD(scm__rc.d1562[290]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[600]))[96] = SCM_WORD(scm__rc.d1562[269]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[600]))[107] = SCM_WORD(scm__rc.d1562[291]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[600]))[110] = SCM_WORD(scm__rc.d1562[290]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[600]))[116] = SCM_WORD(scm__rc.d1562[269]);
  ScmObj G1585 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1567[13]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1562[281]) /* expt */, G1585,0);

   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
  scm__rc.d1562[293] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[147])),TRUE); /* %exact-integer-expt */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[736]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[737]), scm__rc.d1562[293]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[738]), scm__rc.d1562[61]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[739]), scm__rc.d1562[3]);
  scm__rc.d1562[294] = Scm_MakeExtendedPair(scm__rc.d1562[293], SCM_OBJ(&scm__rc.d1563[355]), SCM_OBJ(&scm__rc.d1563[741]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%exact-integer-expt")), SCM_OBJ(&libnum_25exact_integer_expt__STUB), SCM_BINDING_INLINABLE);
  libnum_25exact_integer_expt__STUB.common.info = scm__rc.d1562[294];
  scm__rc.d1562[295] = Scm_MakeIdentifier(scm__rc.d1562[293], SCM_MODULE(scm__rc.d1562[257]), SCM_NIL); /* gauche.internal#%exact-integer-expt */
  scm__rc.d1562[296] = Scm_MakeIdentifier(scm__rc.d1562[283], SCM_MODULE(scm__rc.d1562[257]), SCM_NIL); /* gauche.internal#%exact-expt */
  scm__rc.d1562[297] = Scm_MakeIdentifier(scm__rc.d1562[141], SCM_MODULE(scm__rc.d1562[257]), SCM_NIL); /* gauche.internal#/ */
  scm__rc.d1562[298] = Scm_MakeIdentifier(scm__rc.d1562[116], SCM_MODULE(scm__rc.d1562[257]), SCM_NIL); /* gauche.internal#round->exact */
  scm__rc.d1562[299] = Scm_MakeIdentifier(scm__rc.d1562[71], SCM_MODULE(scm__rc.d1562[257]), SCM_NIL); /* gauche.internal#< */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[744]), scm__rc.d1562[2]);
  scm__rc.d1562[300] = Scm_MakeExtendedPair(scm__rc.d1562[283], SCM_OBJ(&scm__rc.d1563[355]), SCM_OBJ(&scm__rc.d1563[745]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[746]), scm__rc.d1562[300]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1567[14]))->name = scm__rc.d1562[283];/* %exact-expt */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]))[4] = SCM_WORD(scm__rc.d1562[259]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]))[10] = SCM_WORD(scm__rc.d1562[295]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]))[18] = SCM_WORD(scm__rc.d1562[284]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]))[29] = SCM_WORD(scm__rc.d1562[296]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]))[31] = SCM_WORD(scm__rc.d1562[297]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]))[37] = SCM_WORD(scm__rc.d1562[259]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]))[44] = SCM_WORD(scm__rc.d1562[263]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]))[49] = SCM_WORD(scm__rc.d1562[264]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]))[61] = SCM_WORD(scm__rc.d1562[291]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]))[66] = SCM_WORD(scm__rc.d1562[298]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]))[68] = SCM_WORD(scm__rc.d1562[277]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]))[75] = SCM_WORD(scm__rc.d1562[295]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]))[83] = SCM_WORD(scm__rc.d1562[295]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]))[94] = SCM_WORD(scm__rc.d1562[295]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]))[112] = SCM_WORD(scm__rc.d1562[276]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]))[124] = SCM_WORD(scm__rc.d1562[276]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]))[135] = SCM_WORD(scm__rc.d1562[295]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]))[143] = SCM_WORD(scm__rc.d1562[295]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]))[154] = SCM_WORD(scm__rc.d1562[299]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]))[168] = SCM_WORD(scm__rc.d1562[299]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]))[178] = SCM_WORD(scm__rc.d1562[284]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]))[192] = SCM_WORD(scm__rc.d1562[263]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]))[196] = SCM_WORD(scm__rc.d1562[296]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]))[205] = SCM_WORD(scm__rc.d1562[258]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]))[214] = SCM_WORD(scm__rc.d1562[264]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]))[218] = SCM_WORD(scm__rc.d1562[296]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]))[227] = SCM_WORD(scm__rc.d1562[258]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[721]))[239] = SCM_WORD(scm__rc.d1562[284]);
  ScmObj G1586 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1567[14]), NULL);

  Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1562[283]) /* %exact-expt */, G1586,0);

   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1562[301] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[148])),TRUE); /* cos */
  scm__rc.d1562[302] = Scm_MakeIdentifier(scm__rc.d1562[207], SCM_MODULE(scm__rc.d1562[90]), SCM_NIL); /* gauche#%cos */
  scm__rc.d1562[303] = Scm_MakeIdentifier(scm__rc.d1562[226], SCM_MODULE(scm__rc.d1562[90]), SCM_NIL); /* gauche#%cosh */
  scm__rc.d1562[304] = Scm_MakeIdentifier(scm__rc.d1562[205], SCM_MODULE(scm__rc.d1562[90]), SCM_NIL); /* gauche#%sin */
  scm__rc.d1562[305] = Scm_MakeIdentifier(scm__rc.d1562[224], SCM_MODULE(scm__rc.d1562[90]), SCM_NIL); /* gauche#%sinh */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[749]), scm__rc.d1562[2]);
  scm__rc.d1562[306] = Scm_MakeExtendedPair(scm__rc.d1562[301], SCM_OBJ(&scm__rc.d1563[706]), SCM_OBJ(&scm__rc.d1563[750]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[751]), scm__rc.d1562[306]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1567[15]))->name = scm__rc.d1562[301];/* cos */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[962]))[12] = SCM_WORD(scm__rc.d1562[302]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[962]))[22] = SCM_WORD(scm__rc.d1562[237]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[962]))[27] = SCM_WORD(scm__rc.d1562[239]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[962]))[33] = SCM_WORD(scm__rc.d1562[302]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[962]))[38] = SCM_WORD(scm__rc.d1562[303]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[962]))[44] = SCM_WORD(scm__rc.d1562[304]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[962]))[49] = SCM_WORD(scm__rc.d1562[305]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[962]))[53] = SCM_WORD(scm__rc.d1562[250]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[962]))[59] = SCM_WORD(scm__rc.d1562[154]);
  ScmObj G1587 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1567[15]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1562[301]) /* cos */, G1587,0);

  scm__rc.d1562[307] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[149])),TRUE); /* cosh */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[754]), scm__rc.d1562[2]);
  scm__rc.d1562[308] = Scm_MakeExtendedPair(scm__rc.d1562[307], SCM_OBJ(&scm__rc.d1563[706]), SCM_OBJ(&scm__rc.d1563[755]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[756]), scm__rc.d1562[308]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1567[16]))->name = scm__rc.d1562[307];/* cosh */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1023]))[12] = SCM_WORD(scm__rc.d1562[303]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1023]))[22] = SCM_WORD(scm__rc.d1562[237]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1023]))[27] = SCM_WORD(scm__rc.d1562[239]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1023]))[33] = SCM_WORD(scm__rc.d1562[303]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1023]))[38] = SCM_WORD(scm__rc.d1562[302]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1023]))[44] = SCM_WORD(scm__rc.d1562[305]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1023]))[49] = SCM_WORD(scm__rc.d1562[304]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1023]))[52] = SCM_WORD(scm__rc.d1562[250]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1023]))[58] = SCM_WORD(scm__rc.d1562[154]);
  ScmObj G1588 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1567[16]), NULL);

  Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1562[307]) /* cosh */, G1588,0);

  scm__rc.d1562[309] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[150])),TRUE); /* sin */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[759]), scm__rc.d1562[2]);
  scm__rc.d1562[310] = Scm_MakeExtendedPair(scm__rc.d1562[309], SCM_OBJ(&scm__rc.d1563[706]), SCM_OBJ(&scm__rc.d1563[760]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[761]), scm__rc.d1562[310]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1567[17]))->name = scm__rc.d1562[309];/* sin */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1083]))[12] = SCM_WORD(scm__rc.d1562[304]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1083]))[22] = SCM_WORD(scm__rc.d1562[237]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1083]))[27] = SCM_WORD(scm__rc.d1562[239]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1083]))[33] = SCM_WORD(scm__rc.d1562[304]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1083]))[38] = SCM_WORD(scm__rc.d1562[303]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1083]))[44] = SCM_WORD(scm__rc.d1562[302]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1083]))[49] = SCM_WORD(scm__rc.d1562[305]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1083]))[52] = SCM_WORD(scm__rc.d1562[250]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1083]))[58] = SCM_WORD(scm__rc.d1562[154]);
  ScmObj G1589 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1567[17]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1562[309]) /* sin */, G1589,0);

  scm__rc.d1562[311] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[151])),TRUE); /* sinh */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[764]), scm__rc.d1562[2]);
  scm__rc.d1562[312] = Scm_MakeExtendedPair(scm__rc.d1562[311], SCM_OBJ(&scm__rc.d1563[706]), SCM_OBJ(&scm__rc.d1563[765]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[766]), scm__rc.d1562[312]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1567[18]))->name = scm__rc.d1562[311];/* sinh */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1143]))[12] = SCM_WORD(scm__rc.d1562[305]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1143]))[22] = SCM_WORD(scm__rc.d1562[237]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1143]))[27] = SCM_WORD(scm__rc.d1562[239]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1143]))[33] = SCM_WORD(scm__rc.d1562[305]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1143]))[38] = SCM_WORD(scm__rc.d1562[302]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1143]))[44] = SCM_WORD(scm__rc.d1562[303]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1143]))[49] = SCM_WORD(scm__rc.d1562[304]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1143]))[52] = SCM_WORD(scm__rc.d1562[250]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1143]))[58] = SCM_WORD(scm__rc.d1562[154]);
  ScmObj G1590 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1567[18]), NULL);

  Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1562[311]) /* sinh */, G1590,0);

  scm__rc.d1562[313] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[152])),TRUE); /* tan */
  scm__rc.d1562[314] = Scm_MakeIdentifier(scm__rc.d1562[209], SCM_MODULE(scm__rc.d1562[90]), SCM_NIL); /* gauche#%tan */
  scm__rc.d1562[315] = Scm_MakeComplex(0.0, -1.0);
  scm__rc.d1562[316] = Scm_MakeIdentifier(scm__rc.d1562[129], SCM_MODULE(scm__rc.d1562[90]), SCM_NIL); /* gauche#exp */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[769]), scm__rc.d1562[2]);
  scm__rc.d1562[317] = Scm_MakeExtendedPair(scm__rc.d1562[313], SCM_OBJ(&scm__rc.d1563[706]), SCM_OBJ(&scm__rc.d1563[770]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[771]), scm__rc.d1562[317]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1567[19]))->name = scm__rc.d1562[313];/* tan */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1203]))[12] = SCM_WORD(scm__rc.d1562[314]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1203]))[19] = SCM_WORD(scm__rc.d1562[287]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1203]))[24] = SCM_WORD(scm__rc.d1562[315]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1203]))[29] = SCM_WORD(scm__rc.d1562[316]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1203]))[35] = SCM_WORD(scm__rc.d1562[316]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1203]))[41] = SCM_WORD(scm__rc.d1562[316]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1203]))[47] = SCM_WORD(scm__rc.d1562[316]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1203]))[56] = SCM_WORD(scm__rc.d1562[154]);
  ScmObj G1591 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1567[19]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1562[313]) /* tan */, G1591,0);

  scm__rc.d1562[318] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[153])),TRUE); /* tanh */
  scm__rc.d1562[319] = Scm_MakeIdentifier(scm__rc.d1562[228], SCM_MODULE(scm__rc.d1562[90]), SCM_NIL); /* gauche#%tanh */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[774]), scm__rc.d1562[2]);
  scm__rc.d1562[320] = Scm_MakeExtendedPair(scm__rc.d1562[318], SCM_OBJ(&scm__rc.d1563[706]), SCM_OBJ(&scm__rc.d1563[775]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[776]), scm__rc.d1562[320]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1567[20]))->name = scm__rc.d1562[318];/* tanh */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1261]))[12] = SCM_WORD(scm__rc.d1562[319]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1261]))[22] = SCM_WORD(scm__rc.d1562[316]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1261]))[28] = SCM_WORD(scm__rc.d1562[316]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1261]))[34] = SCM_WORD(scm__rc.d1562[316]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1261]))[40] = SCM_WORD(scm__rc.d1562[316]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1261]))[48] = SCM_WORD(scm__rc.d1562[154]);
  ScmObj G1592 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1567[20]), NULL);

  Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1562[318]) /* tanh */, G1592,0);

  scm__rc.d1562[321] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[154])),TRUE); /* asin */
  scm__rc.d1562[322] = Scm_MakeIdentifier(scm__rc.d1562[217], SCM_MODULE(scm__rc.d1562[90]), SCM_NIL); /* gauche#%asin */
  scm__rc.d1562[323] = Scm_MakeIdentifier(scm__rc.d1562[255], SCM_MODULE(scm__rc.d1562[90]), SCM_NIL); /* gauche#sqrt */
  scm__rc.d1562[324] = 
Scm_MakeFlonum(1.0e-8);
  scm__rc.d1562[325] = Scm_MakeComplex(SCM_DBL_NAN, SCM_DBL_NAN);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[779]), scm__rc.d1562[2]);
  scm__rc.d1562[326] = Scm_MakeExtendedPair(scm__rc.d1562[321], SCM_OBJ(&scm__rc.d1563[706]), SCM_OBJ(&scm__rc.d1563[780]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[781]), scm__rc.d1562[326]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1567[21]))->name = scm__rc.d1562[321];/* asin */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1311]))[12] = SCM_WORD(scm__rc.d1562[322]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1311]))[19] = SCM_WORD(scm__rc.d1562[287]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1311]))[29] = SCM_WORD(scm__rc.d1562[323]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1311]))[36] = SCM_WORD(scm__rc.d1562[246]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1311]))[41] = SCM_WORD(scm__rc.d1562[246]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1311]))[45] = SCM_WORD(scm__rc.d1562[324]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1311]))[49] = SCM_WORD(scm__rc.d1562[325]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1311]))[51] = SCM_WORD(scm__rc.d1562[315]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1311]))[56] = SCM_WORD(scm__rc.d1562[252]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1311]))[63] = SCM_WORD(scm__rc.d1562[154]);
  ScmObj G1593 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1567[21]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1562[321]) /* asin */, G1593,0);

  scm__rc.d1562[327] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[155])),TRUE); /* asinh */
  scm__rc.d1562[328] = Scm_MakeComplex(SCM_DBL_NAN, SCM_DBL_NAN);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[784]), scm__rc.d1562[2]);
  scm__rc.d1562[329] = Scm_MakeExtendedPair(scm__rc.d1562[327], SCM_OBJ(&scm__rc.d1563[706]), SCM_OBJ(&scm__rc.d1563[785]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[786]), scm__rc.d1562[329]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1567[22]))->name = scm__rc.d1562[327];/* asinh */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1376]))[13] = SCM_WORD(scm__rc.d1562[323]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1376]))[20] = SCM_WORD(scm__rc.d1562[246]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1376]))[25] = SCM_WORD(scm__rc.d1562[246]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1376]))[29] = SCM_WORD(scm__rc.d1562[324]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1376]))[33] = SCM_WORD(scm__rc.d1562[328]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1376]))[41] = SCM_WORD(scm__rc.d1562[323]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1376]))[44] = SCM_WORD(scm__rc.d1562[252]);
  ScmObj G1594 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1567[22]), NULL);

  Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1562[327]) /* asinh */, G1594,0);

  scm__rc.d1562[330] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[156])),TRUE); /* acos */
  scm__rc.d1562[331] = Scm_MakeIdentifier(scm__rc.d1562[219], SCM_MODULE(scm__rc.d1562[90]), SCM_NIL); /* gauche#%acos */
  scm__rc.d1562[332] = 
Scm_MakeFlonum(1.5707963267948966);
  scm__rc.d1562[333] = Scm_MakeIdentifier(scm__rc.d1562[321], SCM_MODULE(scm__rc.d1562[90]), SCM_NIL); /* gauche#asin */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[789]), scm__rc.d1562[2]);
  scm__rc.d1562[334] = Scm_MakeExtendedPair(scm__rc.d1562[330], SCM_OBJ(&scm__rc.d1563[706]), SCM_OBJ(&scm__rc.d1563[790]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[791]), scm__rc.d1562[334]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1567[23]))->name = scm__rc.d1562[330];/* acos */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1422]))[12] = SCM_WORD(scm__rc.d1562[331]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1422]))[19] = SCM_WORD(scm__rc.d1562[332]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1422]))[24] = SCM_WORD(scm__rc.d1562[333]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1422]))[31] = SCM_WORD(scm__rc.d1562[154]);
  ScmObj G1595 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1567[23]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1562[330]) /* acos */, G1595,0);

  scm__rc.d1562[335] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[157])),TRUE); /* acosh */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[794]), scm__rc.d1562[2]);
  scm__rc.d1562[336] = Scm_MakeExtendedPair(scm__rc.d1562[335], SCM_OBJ(&scm__rc.d1563[706]), SCM_OBJ(&scm__rc.d1563[795]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[796]), scm__rc.d1562[336]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1567[24]))->name = scm__rc.d1562[335];/* acosh */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1455]))[15] = SCM_WORD(scm__rc.d1562[323]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1455]))[22] = SCM_WORD(scm__rc.d1562[323]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1455]))[25] = SCM_WORD(scm__rc.d1562[252]);
  ScmObj G1596 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1567[24]), NULL);

  Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1562[335]) /* acosh */, G1596,0);

  scm__rc.d1562[337] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[158])),TRUE); /* atan */
  scm__rc.d1562[338] = Scm_MakeIdentifier(scm__rc.d1562[221], SCM_MODULE(scm__rc.d1562[90]), SCM_NIL); /* gauche#%atan */
  scm__rc.d1562[339] = Scm_MakeComplex(0.0, 2.0);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[797]), scm__rc.d1562[222]);
  SCM_SET_CDR(SCM_OBJ(&scm__rc.d1563[797]), scm__rc.d1562[29]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[800]), scm__rc.d1562[2]);
  scm__rc.d1562[340] = Scm_MakeExtendedPair(scm__rc.d1562[337], SCM_OBJ(&scm__rc.d1563[797]), SCM_OBJ(&scm__rc.d1563[801]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[802]), scm__rc.d1562[340]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1567[25]))->name = scm__rc.d1562[337];/* atan */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1483]))[15] = SCM_WORD(scm__rc.d1562[338]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1483]))[23] = SCM_WORD(scm__rc.d1562[287]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1483]))[30] = SCM_WORD(scm__rc.d1562[252]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1483]))[36] = SCM_WORD(scm__rc.d1562[252]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1483]))[40] = SCM_WORD(scm__rc.d1562[339]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1483]))[47] = SCM_WORD(scm__rc.d1562[154]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1483]))[52] = SCM_WORD(scm__rc.d1562[338]);
  ScmObj G1597 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1567[25]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1562[337]) /* atan */, G1597,0);

  scm__rc.d1562[341] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[159])),TRUE); /* atanh */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[805]), scm__rc.d1562[2]);
  scm__rc.d1562[342] = Scm_MakeExtendedPair(scm__rc.d1562[341], SCM_OBJ(&scm__rc.d1563[706]), SCM_OBJ(&scm__rc.d1563[806]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[807]), scm__rc.d1562[342]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1567[26]))->name = scm__rc.d1562[341];/* atanh */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1537]))[10] = SCM_WORD(scm__rc.d1562[252]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1566[1537]))[16] = SCM_WORD(scm__rc.d1562[252]);
  ScmObj G1598 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1567[26]), NULL);

  Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1562[341]) /* atanh */, G1598,0);

   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1562[343] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[160])),TRUE); /* cnt */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[808]), scm__rc.d1562[343]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[809]), scm__rc.d1562[110]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[812]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[813]), scm__rc.d1562[278]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[814]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[815]), scm__rc.d1562[3]);
  scm__rc.d1562[344] = Scm_MakeExtendedPair(scm__rc.d1562[278], SCM_OBJ(&scm__rc.d1563[809]), SCM_OBJ(&scm__rc.d1563[817]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("ash")), SCM_OBJ(&libnumash__STUB), SCM_BINDING_INLINABLE);
  libnumash__STUB.common.info = scm__rc.d1562[344];
  scm__rc.d1562[345] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[161])),TRUE); /* lognot */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[820]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[821]), scm__rc.d1562[345]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[822]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[823]), scm__rc.d1562[3]);
  scm__rc.d1562[346] = Scm_MakeExtendedPair(scm__rc.d1562[345], SCM_OBJ(&scm__rc.d1563[98]), SCM_OBJ(&scm__rc.d1563[825]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("lognot")), SCM_OBJ(&libnumlognot__STUB), SCM_BINDING_INLINABLE);
  libnumlognot__STUB.common.info = scm__rc.d1562[346];
  scm__rc.d1562[347] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[162])),TRUE); /* logand */
  scm__rc.d1562[348] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[163])),TRUE); /* arg2 */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[826]), scm__rc.d1562[348]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[827]), scm__rc.d1562[68]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[828]), scm__rc.d1562[67]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[829]), scm__rc.d1562[66]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[832]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[833]), scm__rc.d1562[347]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[834]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[835]), scm__rc.d1562[3]);
  scm__rc.d1562[349] = Scm_MakeExtendedPair(scm__rc.d1562[347], SCM_OBJ(&scm__rc.d1563[829]), SCM_OBJ(&scm__rc.d1563[837]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("logand")), SCM_OBJ(&libnumlogand__STUB), SCM_BINDING_INLINABLE);
  libnumlogand__STUB.common.info = scm__rc.d1562[349];
  scm__rc.d1562[350] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[164])),TRUE); /* logior */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[840]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[841]), scm__rc.d1562[350]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[842]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[843]), scm__rc.d1562[3]);
  scm__rc.d1562[351] = Scm_MakeExtendedPair(scm__rc.d1562[350], SCM_OBJ(&scm__rc.d1563[829]), SCM_OBJ(&scm__rc.d1563[845]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("logior")), SCM_OBJ(&libnumlogior__STUB), SCM_BINDING_INLINABLE);
  libnumlogior__STUB.common.info = scm__rc.d1562[351];
  scm__rc.d1562[352] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[165])),TRUE); /* logxor */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[848]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[849]), scm__rc.d1562[352]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[850]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[851]), scm__rc.d1562[3]);
  scm__rc.d1562[353] = Scm_MakeExtendedPair(scm__rc.d1562[352], SCM_OBJ(&scm__rc.d1563[829]), SCM_OBJ(&scm__rc.d1563[853]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("logxor")), SCM_OBJ(&libnumlogxor__STUB), SCM_BINDING_INLINABLE);
  libnumlogxor__STUB.common.info = scm__rc.d1562[353];
  scm__rc.d1562[354] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[166])),TRUE); /* logcount */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[856]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[857]), scm__rc.d1562[354]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[858]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[859]), scm__rc.d1562[3]);
  scm__rc.d1562[355] = Scm_MakeExtendedPair(scm__rc.d1562[354], SCM_OBJ(&scm__rc.d1563[511]), SCM_OBJ(&scm__rc.d1563[861]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("logcount")), SCM_OBJ(&libnumlogcount__STUB), SCM_BINDING_INLINABLE);
  libnumlogcount__STUB.common.info = scm__rc.d1562[355];
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[864]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[865]), scm__rc.d1562[275]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[866]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[867]), scm__rc.d1562[3]);
  scm__rc.d1562[356] = Scm_MakeExtendedPair(scm__rc.d1562[275], SCM_OBJ(&scm__rc.d1563[511]), SCM_OBJ(&scm__rc.d1563[869]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("integer-length")), SCM_OBJ(&libnuminteger_length__STUB), SCM_BINDING_INLINABLE);
  libnuminteger_length__STUB.common.info = scm__rc.d1562[356];
  scm__rc.d1562[357] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[167])),TRUE); /* twos-exponent-factor */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[872]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[873]), scm__rc.d1562[357]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[874]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[875]), scm__rc.d1562[3]);
  scm__rc.d1562[358] = Scm_MakeExtendedPair(scm__rc.d1562[357], SCM_OBJ(&scm__rc.d1563[511]), SCM_OBJ(&scm__rc.d1563[877]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("twos-exponent-factor")), SCM_OBJ(&libnumtwos_exponent_factor__STUB), SCM_BINDING_INLINABLE);
  libnumtwos_exponent_factor__STUB.common.info = scm__rc.d1562[358];
  scm__rc.d1562[359] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[168])),TRUE); /* twos-exponent */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[880]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[881]), scm__rc.d1562[359]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[882]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[883]), scm__rc.d1562[3]);
  scm__rc.d1562[360] = Scm_MakeExtendedPair(scm__rc.d1562[359], SCM_OBJ(&scm__rc.d1563[511]), SCM_OBJ(&scm__rc.d1563[885]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("twos-exponent")), SCM_OBJ(&libnumtwos_exponent__STUB), SCM_BINDING_INLINABLE);
  libnumtwos_exponent__STUB.common.info = scm__rc.d1562[360];
  scm__rc.d1562[361] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[169])),TRUE); /* inexact-/ */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[888]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[889]), scm__rc.d1562[361]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[890]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[891]), scm__rc.d1562[3]);
  scm__rc.d1562[362] = Scm_MakeExtendedPair(scm__rc.d1562[361], SCM_OBJ(&scm__rc.d1563[423]), SCM_OBJ(&scm__rc.d1563[893]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("inexact-/")), SCM_OBJ(&libnuminexact__2f__STUB), 0);
  libnuminexact__2f__STUB.common.info = scm__rc.d1562[362];
  scm__rc.d1562[363] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[170])),TRUE); /* +. */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[896]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[897]), scm__rc.d1562[363]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[898]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[899]), scm__rc.d1562[3]);
  scm__rc.d1562[364] = Scm_MakeExtendedPair(scm__rc.d1562[363], SCM_OBJ(&scm__rc.d1563[246]), SCM_OBJ(&scm__rc.d1563[901]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("+.")), SCM_OBJ(&libnum_2b_2e__STUB), SCM_BINDING_INLINABLE);
  libnum_2b_2e__STUB.common.info = scm__rc.d1562[364];
  scm__rc.d1562[365] = 
Scm_MakeFlonum(1.0);
  scm__rc.d1562[366] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[171])),TRUE); /* *. */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[904]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[905]), scm__rc.d1562[366]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[906]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[907]), scm__rc.d1562[3]);
  scm__rc.d1562[367] = Scm_MakeExtendedPair(scm__rc.d1562[366], SCM_OBJ(&scm__rc.d1563[246]), SCM_OBJ(&scm__rc.d1563[909]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("*.")), SCM_OBJ(&libnum_2a_2e__STUB), SCM_BINDING_INLINABLE);
  libnum_2a_2e__STUB.common.info = scm__rc.d1562[367];
  scm__rc.d1562[368] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[172])),TRUE); /* -. */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[912]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[913]), scm__rc.d1562[368]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[914]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[915]), scm__rc.d1562[3]);
  scm__rc.d1562[369] = Scm_MakeExtendedPair(scm__rc.d1562[368], SCM_OBJ(&scm__rc.d1563[423]), SCM_OBJ(&scm__rc.d1563[917]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("-.")), SCM_OBJ(&libnum__2e__STUB), SCM_BINDING_INLINABLE);
  libnum__2e__STUB.common.info = scm__rc.d1562[369];
  scm__rc.d1562[370] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[173])),TRUE); /* /. */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[920]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[921]), scm__rc.d1562[370]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[922]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[923]), scm__rc.d1562[3]);
  scm__rc.d1562[371] = Scm_MakeExtendedPair(scm__rc.d1562[370], SCM_OBJ(&scm__rc.d1563[423]), SCM_OBJ(&scm__rc.d1563[925]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("/.")), SCM_OBJ(&libnum_2f_2e__STUB), SCM_BINDING_INLINABLE);
  libnum_2f_2e__STUB.common.info = scm__rc.d1562[371];
  scm__rc.d1562[372] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[174])),TRUE); /* clamp */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[926]), scm__rc.d1562[81]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[927]), scm__rc.d1562[102]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[928]), scm__rc.d1562[29]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[931]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[932]), scm__rc.d1562[372]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[933]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[934]), scm__rc.d1562[3]);
  scm__rc.d1562[373] = Scm_MakeExtendedPair(scm__rc.d1562[372], SCM_OBJ(&scm__rc.d1563[928]), SCM_OBJ(&scm__rc.d1563[936]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("clamp")), SCM_OBJ(&libnumclamp__STUB), SCM_BINDING_INLINABLE);
  libnumclamp__STUB.common.info = scm__rc.d1562[373];
  scm__rc.d1562[374] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[175])),TRUE); /* quotient&remainder */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[939]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[940]), scm__rc.d1562[374]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[941]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[942]), scm__rc.d1562[3]);
  scm__rc.d1562[375] = Scm_MakeExtendedPair(scm__rc.d1562[374], SCM_OBJ(&scm__rc.d1563[449]), SCM_OBJ(&scm__rc.d1563[944]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("quotient&remainder")), SCM_OBJ(&libnumquotient_26remainder__STUB), 0);
  libnumquotient_26remainder__STUB.common.info = scm__rc.d1562[375];
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
  scm__rc.d1562[376] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[176])),TRUE); /* a */
  scm__rc.d1562[377] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[177])),TRUE); /* b */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[945]), scm__rc.d1562[377]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[946]), scm__rc.d1562[376]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[949]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[950]), scm__rc.d1562[251]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[951]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[952]), scm__rc.d1562[3]);
  scm__rc.d1562[378] = Scm_MakeExtendedPair(scm__rc.d1562[251], SCM_OBJ(&scm__rc.d1563[946]), SCM_OBJ(&scm__rc.d1563[954]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("make-rectangular")), SCM_OBJ(&libnummake_rectangular__STUB), SCM_BINDING_INLINABLE);
  libnummake_rectangular__STUB.common.info = scm__rc.d1562[378];
  scm__rc.d1562[379] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[178])),TRUE); /* r */
  scm__rc.d1562[380] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[179])),TRUE); /* t */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[955]), scm__rc.d1562[380]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[956]), scm__rc.d1562[379]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[959]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[960]), scm__rc.d1562[242]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[961]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[962]), scm__rc.d1562[3]);
  scm__rc.d1562[381] = Scm_MakeExtendedPair(scm__rc.d1562[242], SCM_OBJ(&scm__rc.d1563[956]), SCM_OBJ(&scm__rc.d1563[964]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("make-polar")), SCM_OBJ(&libnummake_polar__STUB), SCM_BINDING_INLINABLE);
  libnummake_polar__STUB.common.info = scm__rc.d1562[381];
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[967]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[968]), scm__rc.d1562[238]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[969]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[970]), scm__rc.d1562[3]);
  scm__rc.d1562[382] = Scm_MakeExtendedPair(scm__rc.d1562[238], SCM_OBJ(&scm__rc.d1563[706]), SCM_OBJ(&scm__rc.d1563[972]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("real-part")), SCM_OBJ(&libnumreal_part__STUB), SCM_BINDING_INLINABLE);
  libnumreal_part__STUB.common.info = scm__rc.d1562[382];
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[975]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[976]), scm__rc.d1562[240]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[977]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[978]), scm__rc.d1562[3]);
  scm__rc.d1562[383] = Scm_MakeExtendedPair(scm__rc.d1562[240], SCM_OBJ(&scm__rc.d1563[706]), SCM_OBJ(&scm__rc.d1563[980]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("imag-part")), SCM_OBJ(&libnumimag_part__STUB), SCM_BINDING_INLINABLE);
  libnumimag_part__STUB.common.info = scm__rc.d1562[383];
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[983]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[984]), scm__rc.d1562[247]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[985]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[986]), scm__rc.d1562[3]);
  scm__rc.d1562[384] = Scm_MakeExtendedPair(scm__rc.d1562[247], SCM_OBJ(&scm__rc.d1563[706]), SCM_OBJ(&scm__rc.d1563[988]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("magnitude")), SCM_OBJ(&libnummagnitude__STUB), SCM_BINDING_INLINABLE);
  libnummagnitude__STUB.common.info = scm__rc.d1562[384];
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[991]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[992]), scm__rc.d1562[249]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[993]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[994]), scm__rc.d1562[3]);
  scm__rc.d1562[385] = Scm_MakeExtendedPair(scm__rc.d1562[249], SCM_OBJ(&scm__rc.d1563[706]), SCM_OBJ(&scm__rc.d1563[996]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("angle")), SCM_OBJ(&libnumangle__STUB), SCM_BINDING_INLINABLE);
  libnumangle__STUB.common.info = scm__rc.d1562[385];
  scm__rc.d1562[386] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[180])),TRUE); /* high */
  scm__rc.d1562[387] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[181])),TRUE); /* low */
  scm__rc.d1562[388] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[182])),TRUE); /* both */
  Scm_VMExecuteToplevels(toplevels);
}
