/* 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/priv/bignumP.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 libnumratnumP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumratnumP__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumratnumP, 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 libnum_LT_3d_3a_LT(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnum_LT_3d_3a_LT__STUB, 3, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnum_LT_3d_3a_LT, NULL, NULL);

static ScmObj libnum_LT_3a_LT_3d(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnum_LT_3a_LT_3d__STUB, 3, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnum_LT_3a_LT_3d, 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 libnumradians_TOdegrees(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumradians_TOdegrees__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumradians_TOdegrees, NULL, NULL);

static ScmObj libnumdegrees_TOradians(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libnumdegrees_TOradians__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libnumdegrees_TOradians, 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 d1622[8];
#endif /*defined(HAVE_LGAMMA)*/
#if defined(HAVE_TGAMMA)
  ScmString d1619[8];
#endif /*defined(HAVE_TGAMMA)*/
  ScmString d1612[198];
} scm__sc SCM_UNUSED = {
#if defined(HAVE_LGAMMA)
  {   /* ScmString d1622 */
      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),
      SCM_STRING_CONST_INITIALIZER("<double>", 8, 8),
      SCM_STRING_CONST_INITIALIZER("->", 2, 2),
  },
#endif /*defined(HAVE_LGAMMA)*/
#if defined(HAVE_TGAMMA)
  {   /* ScmString d1619 */
      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),
      SCM_STRING_CONST_INITIALIZER("<double>", 8, 8),
      SCM_STRING_CONST_INITIALIZER("->", 2, 2),
  },
#endif /*defined(HAVE_TGAMMA)*/
  {   /* ScmString d1612 */
      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("<top>", 5, 5),
      SCM_STRING_CONST_INITIALIZER("->", 2, 2),
      SCM_STRING_CONST_INITIALIZER("<boolean>", 9, 9),
      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("<number>", 8, 8),
      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("ratnum\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("<int>", 5, 5),
      SCM_STRING_CONST_INITIALIZER("least-fixnum", 12, 12),
      SCM_STRING_CONST_INITIALIZER("<long>", 6, 6),
      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("<void>", 6, 6),
      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("<", 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("<=:<", 4, 4),
      SCM_STRING_CONST_INITIALIZER("y", 1, 1),
      SCM_STRING_CONST_INITIALIZER("z", 1, 1),
      SCM_STRING_CONST_INITIALIZER("<:<=", 4, 4),
      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("<string>", 8, 8),
      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("<double>", 8, 8),
      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("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("G1629", 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("G1630", 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("%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("radians->degrees", 16, 16),
      SCM_STRING_CONST_INITIALIZER("r", 1, 1),
      SCM_STRING_CONST_INITIALIZER("degrees->radians", 16, 16),
      SCM_STRING_CONST_INITIALIZER("cnt", 3, 3),
      SCM_STRING_CONST_INITIALIZER("<fixnum>", 8, 8),
      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("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 d1624[10] SCM_ALIGN_PAIR;
#endif /*defined(HAVE_LGAMMA)*/
#if defined(HAVE_LGAMMA)
  ScmObj d1623[15];
#endif /*defined(HAVE_LGAMMA)*/
#if defined(HAVE_TGAMMA)
  ScmPair d1621[10] SCM_ALIGN_PAIR;
#endif /*defined(HAVE_TGAMMA)*/
#if defined(HAVE_TGAMMA)
  ScmObj d1620[15];
#endif /*defined(HAVE_TGAMMA)*/
  ScmCompiledCode d1618[27];
  ScmWord d1617[1559];
  ScmPair d1614[1040] SCM_ALIGN_PAIR;
  ScmObj d1613[708];
} scm__rc SCM_UNUSED = {
#if defined(HAVE_LGAMMA)
  {   /* ScmPair d1624 */
       { SCM_NIL, SCM_NIL },
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(305U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1622[3]), SCM_OBJ(&scm__rc.d1624[2])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1624[3])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1624[5])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1624[6])},
       { SCM_OBJ(&scm__rc.d1624[7]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1624[4]), SCM_OBJ(&scm__rc.d1624[8])},
  },
#endif /*defined(HAVE_LGAMMA)*/
#if defined(HAVE_LGAMMA)
  {   /* ScmObj d1623 */
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
  },
#endif /*defined(HAVE_LGAMMA)*/
#if defined(HAVE_TGAMMA)
  {   /* ScmPair d1621 */
       { SCM_NIL, SCM_NIL },
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(302U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1619[3]), SCM_OBJ(&scm__rc.d1621[2])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1621[3])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1621[5])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1621[6])},
       { SCM_OBJ(&scm__rc.d1621[7]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1621[4]), SCM_OBJ(&scm__rc.d1621[8])},
  },
#endif /*defined(HAVE_TGAMMA)*/
#if defined(HAVE_TGAMMA)
  {   /* ScmObj d1620 */
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
  },
#endif /*defined(HAVE_TGAMMA)*/
  {   /* ScmCompiledCode d1618 */
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1617[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.d1617[5])), 5,
            0, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* (gcd G1629) */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1617[10])), 20,
            11, 1, 0, SCM_OBJ(&scm__rc.d1614[502]), SCM_NIL, SCM_OBJ(&scm__rc.d1614[510]),
            SCM_OBJ(&scm__rc.d1618[4]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* gcd */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1617[30])), 38,
            27, 0, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[516]),
            SCM_OBJ(&scm__rc.d1618[4]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1617[68])), 7,
            4, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* (lcm G1630) */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1617[75])), 20,
            11, 1, 0, SCM_OBJ(&scm__rc.d1614[518]), SCM_NIL, SCM_OBJ(&scm__rc.d1614[523]),
            SCM_OBJ(&scm__rc.d1618[7]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* lcm */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1617[95])), 58,
            35, 0, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[529]),
            SCM_OBJ(&scm__rc.d1618[7]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1617[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.d1617[160])), 83,
            12, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[561]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* exp */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1617[243])), 35,
            17, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[737]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* log */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1617[278])), 50,
            17, 1, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[743]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* sqrt */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1617[328])), 159,
            24, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[748]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %exact-integer-sqrt */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1617[487])), 113,
            29, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[754]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* expt */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1617[600])), 121,
            22, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[759]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %exact-expt */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1617[721])), 241,
            56, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[772]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* cos */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1617[962])), 61,
            17, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[777]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* cosh */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1617[1023])), 60,
            17, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[782]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* sin */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1617[1083])), 60,
            17, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[787]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* sinh */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1617[1143])), 60,
            17, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[792]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* tan */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1617[1203])), 58,
            17, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[797]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* tanh */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1617[1261])), 50,
            12, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[802]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* asin */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1617[1311])), 65,
            15, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[807]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* asinh */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1617[1376])), 46,
            15, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[812]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* acos */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1617[1422])), 33,
            11, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[817]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* acosh */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1617[1455])), 28,
            18, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[822]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* atan */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1617[1483])), 54,
            15, 1, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[828]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* atanh */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1617[1537])), 22,
            11, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[833]),
            SCM_FALSE, SCM_FALSE),
  },
  {   /* ScmWord d1617 */
    /* %toplevel */
    0x0000005d    /*   0 (GREF) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#inexact->exact.c5a98be0> */,
    0x00000015    /*   2 (DEFINE 0) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#exact.c5a98c60> */,
    0x00000014    /*   4 (RET) */,
    /* %toplevel */
    0x0000005d    /*   0 (GREF) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#exact->inexact.c5b004a0> */,
    0x00000015    /*   2 (DEFINE 0) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#inexact.c5b00520> */,
    0x00000014    /*   4 (RET) */,
    /* (gcd G1629) */
    0x0000100e    /*   0 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[10]) + 5),
    0x00000048    /*   2 (LREF0-PUSH) */,
    0x0000105f    /*   3 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#integer?.c59d9580> */,
    0x0000001e    /*   5 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[10]) + 9),
    0x00000013    /*   7 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[10]) + 16),
    0x0000200e    /*   9 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[10]) + 16),
    0x00000006    /*  11 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1612[103])) /* "integer required, but got" */,
    0x00000048    /*  13 (LREF0-PUSH) */,
    0x0000205f    /*  14 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.c59d9520> */,
    0x00000048    /*  16 (LREF0-PUSH) */,
    0x00001060    /*  17 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#abs.c59d9400> */,
    0x00000014    /*  19 (RET) */,
    /* gcd */
    0x0000200e    /*   0 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[30]) + 6),
    0x0000004c    /*   2 (LREF10-PUSH) */,
    0x00000048    /*   3 (LREF0-PUSH) */,
    0x0000205f    /*   4 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#map.c59d97a0> */,
    0x00001018    /*   6 (PUSH-LOCAL-ENV 1) */,
    0x0000003d    /*   7 (LREF0) */,
    0x00000022    /*   8 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[30]) + 12),
    0x00000002    /*  10 (CONSTI 0) */,
    0x00000014    /*  11 (RET) */,
    0x00000076    /*  12 (LREF0-CDR) */,
    0x00000022    /*  13 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[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.d1617[30]) + 25),
    0x00000054    /*  24 (LREF1-RET) */,
    0x0000200e    /*  25 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[30]) + 31),
    0x00000049    /*  27 (LREF1-PUSH) */,
    0x0000006a    /*  28 (LREF0-CAR) */,
    0x00002062    /*  29 (PUSH-GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%gcd.c59d98e0> */,
    0x0000000d    /*  31 (PUSH) */,
    0x00000076    /*  32 (LREF0-CDR) */,
    0x0000000d    /*  33 (PUSH) */,
    0x0000101b    /*  34 (LOCAL-ENV-JUMP 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[30]) + 21),
    0x00000014    /*  36 (RET) */,
    0x00000014    /*  37 (RET) */,
    /* %toplevel */
    0x00001019    /*   0 (LOCAL-ENV-CLOSURES 1) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1614[511])) /* (#<compiled-code (gcd #:G1629)@0x7f2cc5eaa960>) */,
    0x00000016    /*   2 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1618[3])) /* #<compiled-code gcd@0x7f2cc5eaa900> */,
    0x00000015    /*   4 (DEFINE 0) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier scheme#gcd.c59d40a0> */,
    0x00000014    /*   6 (RET) */,
    /* (lcm G1630) */
    0x0000100e    /*   0 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[75]) + 5),
    0x00000048    /*   2 (LREF0-PUSH) */,
    0x0000105f    /*   3 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#integer?.c81920e0> */,
    0x0000001e    /*   5 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[75]) + 9),
    0x00000013    /*   7 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[75]) + 16),
    0x0000200e    /*   9 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[75]) + 16),
    0x00000006    /*  11 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1612[103])) /* "integer required, but got" */,
    0x00000048    /*  13 (LREF0-PUSH) */,
    0x0000205f    /*  14 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.c8195f20> */,
    0x00000048    /*  16 (LREF0-PUSH) */,
    0x00001060    /*  17 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#abs.c8195e00> */,
    0x00000014    /*  19 (RET) */,
    /* lcm */
    0x0000200e    /*   0 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[95]) + 6),
    0x0000004c    /*   2 (LREF10-PUSH) */,
    0x00000048    /*   3 (LREF0-PUSH) */,
    0x0000205f    /*   4 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#map.c81922c0> */,
    0x00001018    /*   6 (PUSH-LOCAL-ENV 1) */,
    0x0000003d    /*   7 (LREF0) */,
    0x00000022    /*   8 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[95]) + 12),
    0x00001002    /*  10 (CONSTI 1) */,
    0x00000014    /*  11 (RET) */,
    0x00000076    /*  12 (LREF0-CDR) */,
    0x00000022    /*  13 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[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.d1617[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.d1617[95]) + 33),
    0x0000004d    /*  29 (LREF11-PUSH) */,
    0x00000048    /*  30 (LREF0-PUSH) */,
    0x0000205f    /*  31 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%gcd.c818f180> */,
    0x00001018    /*  33 (PUSH-LOCAL-ENV 1) */,
    0x00000045    /*  34 (LREF21) */,
    0x0000002d    /*  35 (BNUMNEI 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[95]) + 40),
    0x00000002    /*  37 (CONSTI 0) */,
    0x00000013    /*  38 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[95]) + 49),
    0x0000200e    /*  40 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[95]) + 46),
    0x00000050    /*  42 (LREF21-PUSH) */,
    0x00000048    /*  43 (LREF0-PUSH) */,
    0x0000205f    /*  44 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#quotient.c8192d80> */,
    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.d1617[95]) + 21),
    0x00000014    /*  56 (RET) */,
    0x00000014    /*  57 (RET) */,
    /* %toplevel */
    0x00001019    /*   0 (LOCAL-ENV-CLOSURES 1) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1614[524])) /* (#<compiled-code (lcm #:G1630)@0x7f2cc5eaa540>) */,
    0x00000016    /*   2 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1618[6])) /* #<compiled-code lcm@0x7f2cc5eaa420> */,
    0x00000015    /*   4 (DEFINE 0) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier scheme#lcm.c818bce0> */,
    0x00000014    /*   6 (RET) */,
    /* rationalize */
    0x00000002    /*   0 (CONSTI 0) */,
    0x00000029    /*   1 (LREF-VAL0-BNLT 0 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[160]) + 9),
    0x00000006    /*   3 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1612[117])) /* "rationalize needs nonnegative error bound, but got" */,
    0x00000048    /*   5 (LREF0-PUSH) */,
    0x00002060    /*   6 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.c5a3e780> */,
    0x00000014    /*   8 (RET) */,
    0x0000100e    /*   9 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[160]) + 14),
    0x00000049    /*  11 (LREF1-PUSH) */,
    0x0000105f    /*  12 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#nan?.c5a3e5e0> */,
    0x0000001e    /*  14 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[160]) + 18),
    0x0000000a    /*  16 (CONST-RET) */,
    SCM_WORD(SCM_UNDEFINED) /* +nan.0 */,
    0x0000100e    /*  18 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[160]) + 23),
    0x00000048    /*  20 (LREF0-PUSH) */,
    0x0000105f    /*  21 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#nan?.c5a3e4e0> */,
    0x0000001e    /*  23 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[160]) + 27),
    0x0000000a    /*  25 (CONST-RET) */,
    SCM_WORD(SCM_UNDEFINED) /* +nan.0 */,
    0x0000100e    /*  27 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[160]) + 32),
    0x00000048    /*  29 (LREF0-PUSH) */,
    0x0000105f    /*  30 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#infinite?.c5a3e440> */,
    0x0000001e    /*  32 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[160]) + 45),
    0x0000100e    /*  34 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[160]) + 39),
    0x00000049    /*  36 (LREF1-PUSH) */,
    0x0000105f    /*  37 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#infinite?.c5a3e3c0> */,
    0x0000001e    /*  39 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[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.d1617[160]) + 50),
    0x00000049    /*  47 (LREF1-PUSH) */,
    0x0000105f    /*  48 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#infinite?.c5a3e1e0> */,
    0x0000001e    /*  50 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[160]) + 53),
    0x00000054    /*  52 (LREF1-RET) */,
    0x0000100e    /*  53 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[160]) + 58),
    0x00000049    /*  55 (LREF1-PUSH) */,
    0x0000105f    /*  56 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#inexact?.c5a43f60> */,
    0x0000001e    /*  58 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[160]) + 70),
    0x0000300e    /*  60 (PRE-CALL 3) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[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.c5a43dc0> */,
    0x00001063    /*  67 (PUSH-GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#inexact.c5a43e80> */,
    0x00000014    /*  69 (RET) */,
    0x0000100e    /*  70 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[160]) + 75),
    0x00000048    /*  72 (LREF0-PUSH) */,
    0x0000105f    /*  73 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#inexact?.c5a43ee0> */,
    0x0000001f    /*  75 (BT) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[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.c5a43ce0> */,
    0x00000014    /*  82 (RET) */,
    /* exp */
    0x0000003d    /*   0 (LREF0) */,
    0x0000009f    /*   1 (REALP) */,
    0x0000001e    /*   2 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[243]) + 8),
    0x00000048    /*   4 (LREF0-PUSH) */,
    0x00001060    /*   5 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%exp.c54e36e0> */,
    0x00000014    /*   7 (RET) */,
    0x0000003d    /*   8 (LREF0) */,
    0x0000009e    /*   9 (NUMBERP) */,
    0x0000001e    /*  10 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[243]) + 29),
    0x0000100e    /*  12 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[243]) + 21),
    0x0000100e    /*  14 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[243]) + 19),
    0x00000048    /*  16 (LREF0-PUSH) */,
    0x0000105f    /*  17 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#real-part.c54e3520> */,
    0x00001062    /*  19 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%exp.c54e3560> */,
    0x0000100f    /*  21 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[243]) + 26),
    0x00000048    /*  23 (LREF0-PUSH) */,
    0x0000105f    /*  24 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#imag-part.c54e34c0> */,
    0x00002063    /*  26 (PUSH-GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#make-polar.c54e35a0> */,
    0x00000014    /*  28 (RET) */,
    0x00000006    /*  29 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1612[145])) /* "number required, but got" */,
    0x00000048    /*  31 (LREF0-PUSH) */,
    0x00002060    /*  32 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.c54e3420> */,
    0x00000014    /*  34 (RET) */,
    /* log */
    0x0000003d    /*   0 (LREF0) */,
    0x00000022    /*   1 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[278]) + 38),
    0x0000003e    /*   3 (LREF1) */,
    0x0000009f    /*   4 (REALP) */,
    0x0000001e    /*   5 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[278]) + 11),
    0x00000049    /*   7 (LREF1-PUSH) */,
    0x00001060    /*   8 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%log.c75a4400> */,
    0x00000014    /*  10 (RET) */,
    0x0000003e    /*  11 (LREF1) */,
    0x0000009e    /*  12 (NUMBERP) */,
    0x0000001e    /*  13 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[278]) + 32),
    0x0000100e    /*  15 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[278]) + 24),
    0x0000100e    /*  17 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[278]) + 22),
    0x00000049    /*  19 (LREF1-PUSH) */,
    0x0000105f    /*  20 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#magnitude.c75a4240> */,
    0x00001062    /*  22 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%log.c75a4280> */,
    0x0000100f    /*  24 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[278]) + 29),
    0x00000049    /*  26 (LREF1-PUSH) */,
    0x0000105f    /*  27 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#angle.c75a41c0> */,
    0x00002063    /*  29 (PUSH-GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#make-rectangular.c75a42e0> */,
    0x00000014    /*  31 (RET) */,
    0x00000006    /*  32 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1612[145])) /* "number required, but got" */,
    0x00000049    /*  34 (LREF1-PUSH) */,
    0x00002060    /*  35 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.c75a4020> */,
    0x00000014    /*  37 (RET) */,
    0x0000100e    /*  38 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[278]) + 43),
    0x00000049    /*  40 (LREF1-PUSH) */,
    0x0000105f    /*  41 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#log.c75a7f60> */,
    0x0000100f    /*  43 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[278]) + 48),
    0x0000006a    /*  45 (LREF0-CAR) */,
    0x00001062    /*  46 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#log.c75a7ee0> */,
    0x000000b5    /*  48 (NUMDIV2) */,
    0x00000014    /*  49 (RET) */,
    /* sqrt */
    0x0000100e    /*   0 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]) + 5),
    0x00000048    /*   2 (LREF0-PUSH) */,
    0x0000105f    /*   3 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sqrt-fast-path.c5d70380> */,
    0x00000031    /*   5 (RT) */,
    0x0000100e    /*   6 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]) + 11),
    0x00000048    /*   8 (LREF0-PUSH) */,
    0x0000105f    /*   9 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#exact?.c5d74f80> */,
    0x0000001e    /*  11 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]) + 117),
    0x00000002    /*  13 (CONSTI 0) */,
    0x0000002c    /*  14 (LREF-VAL0-BNGE 0 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]) + 117),
    0x0000100e    /*  16 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]) + 21),
    0x00000048    /*  18 (LREF0-PUSH) */,
    0x0000105f    /*  19 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#integer?.c5d74d80> */,
    0x0000001e    /*  21 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]) + 37),
    0x0000100e    /*  23 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]) + 28),
    0x00000048    /*  25 (LREF0-PUSH) */,
    0x0000105f    /*  26 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%exact-integer-sqrt.c5d74c80> */,
    0x00002036    /*  28 (TAIL-RECEIVE 2 0) */,
    0x0000003d    /*  29 (LREF0) */,
    0x0000002d    /*  30 (BNUMNEI 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]) + 33),
    0x00000054    /*  32 (LREF1-RET) */,
    0x0000004c    /*  33 (LREF10-PUSH) */,
    0x00001060    /*  34 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sqrt.c5d745a0> */,
    0x00000014    /*  36 (RET) */,
    0x0000100e    /*  37 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]) + 42),
    0x00000048    /*  39 (LREF0-PUSH) */,
    0x0000105f    /*  40 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#numerator.c5d74100> */,
    0x0000100f    /*  42 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]) + 47),
    0x00000048    /*  44 (LREF0-PUSH) */,
    0x0000105f    /*  45 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#denominator.c5d74080> */,
    0x00002018    /*  47 (PUSH-LOCAL-ENV 2) */,
    0x0000100e    /*  48 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]) + 53),
    0x00000049    /*  50 (LREF1-PUSH) */,
    0x0000105f    /*  51 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sqrt-fast-path.c5d7a9c0> */,
    0x00001018    /*  53 (PUSH-LOCAL-ENV 1) */,
    0x0000003d    /*  54 (LREF0) */,
    0x0000001e    /*  55 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]) + 87),
    0x0000100e    /*  57 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]) + 62),
    0x0000004c    /*  59 (LREF10-PUSH) */,
    0x0000105f    /*  60 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sqrt-fast-path.c5d7fbe0> */,
    0x00001018    /*  62 (PUSH-LOCAL-ENV 1) */,
    0x0000003d    /*  63 (LREF0) */,
    0x0000001e    /*  64 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[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.d1617[328]) + 75),
    0x0000004f    /*  72 (LREF20-PUSH) */,
    0x0000105f    /*  73 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%exact-integer-sqrt.c5d7f7e0> */,
    0x00002036    /*  75 (TAIL-RECEIVE 2 0) */,
    0x0000003d    /*  76 (LREF0) */,
    0x0000002d    /*  77 (BNUMNEI 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[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.c5d7f440> */,
    0x00000014    /*  86 (RET) */,
    0x0000100e    /*  87 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]) + 92),
    0x0000004d    /*  89 (LREF11-PUSH) */,
    0x0000105f    /*  90 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%exact-integer-sqrt.c5d7f380> */,
    0x00002036    /*  92 (TAIL-RECEIVE 2 0) */,
    0x0000003d    /*  93 (LREF0) */,
    0x0000002d    /*  94 (BNUMNEI 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]) + 113),
    0x0000100e    /*  96 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]) + 101),
    0x0000004f    /*  98 (LREF20-PUSH) */,
    0x0000105f    /*  99 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%exact-integer-sqrt.c5d7f180> */,
    0x00002036    /* 101 (TAIL-RECEIVE 2 0) */,
    0x0000003d    /* 102 (LREF0) */,
    0x0000002d    /* 103 (BNUMNEI 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[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.c5d84fa0> */,
    0x00000014    /* 112 (RET) */,
    0x00000051    /* 113 (LREF30-PUSH) */,
    0x00001060    /* 114 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sqrt.c5d84f00> */,
    0x00000014    /* 116 (RET) */,
    0x0000003d    /* 117 (LREF0) */,
    0x0000009f    /* 118 (REALP) */,
    0x0000001e    /* 119 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]) + 125),
    0x00000048    /* 121 (LREF0-PUSH) */,
    0x00001060    /* 122 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sqrt.c5d84e20> */,
    0x00000014    /* 124 (RET) */,
    0x0000003d    /* 125 (LREF0) */,
    0x0000009e    /* 126 (NUMBERP) */,
    0x0000001e    /* 127 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]) + 150),
    0x0000100e    /* 129 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]) + 138),
    0x0000100e    /* 131 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]) + 136),
    0x00000048    /* 133 (LREF0-PUSH) */,
    0x0000105f    /* 134 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#magnitude.c5d84b60> */,
    0x00001062    /* 136 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sqrt.c5d84c00> */,
    0x0000100f    /* 138 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]) + 143),
    0x00000048    /* 140 (LREF0-PUSH) */,
    0x0000105f    /* 141 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#angle.c5d84aa0> */,
    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.c5d84c40> */,
    0x00000014    /* 149 (RET) */,
    0x00000006    /* 150 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1612[145])) /* "number required, but got" */,
    0x00000048    /* 152 (LREF0-PUSH) */,
    0x00002060    /* 153 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.c5d847c0> */,
    0x00000014    /* 155 (RET) */,
    0x00000013    /* 156 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[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.d1617[487]) + 21),
    0x0000100e    /*   4 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[487]) + 13),
    0x0000100e    /*   6 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[487]) + 11),
    0x00000048    /*   8 (LREF0-PUSH) */,
    0x0000105f    /*   9 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sqrt.c5d5e060> */,
    0x00001062    /*  11 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#floor->exact.c5d5e0c0> */,
    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.d1617[487]) + 26),
    0x00000048    /*  23 (LREF0-PUSH) */,
    0x0000105f    /*  24 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sqrt.c5d7f0c0> */,
    0x00001018    /*  26 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /*  27 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[487]) + 32),
    0x00000048    /*  29 (LREF0-PUSH) */,
    0x0000105f    /*  30 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#finite?.c5d84e60> */,
    0x0000001e    /*  32 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[487]) + 45),
    0x0000100e    /*  34 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[487]) + 61),
    0x0000100e    /*  36 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[487]) + 41),
    0x0000004c    /*  38 (LREF10-PUSH) */,
    0x0000105f    /*  39 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sqrt.c5d84820> */,
    0x00001062    /*  41 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#floor->exact.c5d84ae0> */,
    0x00000013    /*  43 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[487]) + 61),
    0x0000200e    /*  45 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[487]) + 61),
    0x00001007    /*  47 (CONSTI-PUSH 1) */,
    0x0000200e    /*  48 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[487]) + 59),
    0x0000100e    /*  50 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[487]) + 55),
    0x0000004c    /*  52 (LREF10-PUSH) */,
    0x0000105f    /*  53 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#integer-length.c5d842e0> */,
    0x0000000d    /*  55 (PUSH) */,
    0x00002007    /*  56 (CONSTI-PUSH 2) */,
    0x0000205f    /*  57 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#quotient.c5d84320> */,
    0x00002062    /*  59 (PUSH-GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#ash.c5d84580> */,
    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.d1617[487]) + 84),
    0x0000200e    /*  70 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[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.c5d65fc0> */,
    0x0000000d    /*  80 (PUSH) */,
    0x0000201b    /*  81 (LOCAL-ENV-JUMP 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[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.d1617[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.d1617[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.c5d7f840> */,
    0x0000000d    /* 108 (PUSH) */,
    0x0000301b    /* 109 (LOCAL-ENV-JUMP 3) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[487]) + 63),
    0x00000014    /* 111 (RET) */,
    0x00000014    /* 112 (RET) */,
    /* expt */
    0x0000100e    /*   0 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[600]) + 5),
    0x00000049    /*   2 (LREF1-PUSH) */,
    0x0000105f    /*   3 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#exact?.c5d8c640> */,
    0x0000001e    /*   5 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[600]) + 19),
    0x0000100e    /*   7 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[600]) + 12),
    0x00000048    /*   9 (LREF0-PUSH) */,
    0x0000105f    /*  10 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#exact?.c5d8c520> */,
    0x0000001e    /*  12 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[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.c5d8c300> */,
    0x00000014    /*  18 (RET) */,
    0x0000003e    /*  19 (LREF1) */,
    0x0000009f    /*  20 (REALP) */,
    0x0000001e    /*  21 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[600]) + 98),
    0x0000003d    /*  23 (LREF0) */,
    0x0000009f    /*  24 (REALP) */,
    0x0000001e    /*  25 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[600]) + 32),
    0x00000049    /*  27 (LREF1-PUSH) */,
    0x00000048    /*  28 (LREF0-PUSH) */,
    0x00002060    /*  29 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%expt.c5d8c060> */,
    0x00000014    /*  31 (RET) */,
    0x0000003d    /*  32 (LREF0) */,
    0x0000009e    /*  33 (NUMBERP) */,
    0x0000001e    /*  34 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[600]) + 92),
    0x0000100e    /*  36 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[600]) + 41),
    0x00000048    /*  38 (LREF0-PUSH) */,
    0x0000105f    /*  39 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#real-part.c5e40ac0> */,
    0x00001018    /*  41 (PUSH-LOCAL-ENV 1) */,
    0x00000042    /*  42 (LREF11) */,
    0x0000002d    /*  43 (BNUMNEI 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[600]) + 63),
    0x0000100e    /*  45 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[600]) + 50),
    0x00000048    /*  47 (LREF0-PUSH) */,
    0x0000105f    /*  48 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#positive?.c5e40920> */,
    0x0000001e    /*  50 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[600]) + 63),
    0x0000100e    /*  52 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[600]) + 57),
    0x0000004d    /*  54 (LREF11-PUSH) */,
    0x0000105f    /*  55 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#exact?.c5e40800> */,
    0x0000001e    /*  57 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[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.d1617[600]) + 69),
    0x0000004d    /*  65 (LREF11-PUSH) */,
    0x00000048    /*  66 (LREF0-PUSH) */,
    0x0000205f    /*  67 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%expt.c5e40600> */,
    0x0000100f    /*  69 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[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.d1617[600]) + 78),
    0x0000004c    /*  75 (LREF10-PUSH) */,
    0x0000105f    /*  76 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#imag-part.c5e40480> */,
    0x000000b4    /*  78 (NUMMUL2) */,
    0x0000100f    /*  79 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[600]) + 84),
    0x0000004d    /*  81 (LREF11-PUSH) */,
    0x0000105f    /*  82 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%log.c5e40420> */,
    0x000000b4    /*  84 (NUMMUL2) */,
    0x00001062    /*  85 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#exp.c5e40500> */,
    0x000000b4    /*  87 (NUMMUL2) */,
    0x00000014    /*  88 (RET) */,
    0x00000013    /*  89 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[600]) + 63),
    0x00000014    /*  91 (RET) */,
    0x00000006    /*  92 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1612[145])) /* "number required, but got" */,
    0x00000048    /*  94 (LREF0-PUSH) */,
    0x00002060    /*  95 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.c5e40380> */,
    0x00000014    /*  97 (RET) */,
    0x0000003e    /*  98 (LREF1) */,
    0x0000009e    /*  99 (NUMBERP) */,
    0x0000001e    /* 100 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[600]) + 112),
    0x00000048    /* 102 (LREF0-PUSH) */,
    0x0000100e    /* 103 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[600]) + 108),
    0x00000049    /* 105 (LREF1-PUSH) */,
    0x0000105f    /* 106 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#log.c5e40160> */,
    0x000000b4    /* 108 (NUMMUL2) */,
    0x00001063    /* 109 (PUSH-GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#exp.c5e40220> */,
    0x00000014    /* 111 (RET) */,
    0x00000006    /* 112 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1612[145])) /* "number required, but got" */,
    0x00000049    /* 114 (LREF1-PUSH) */,
    0x00002060    /* 115 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.c5e40020> */,
    0x00000014    /* 117 (RET) */,
    0x00000013    /* 118 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[600]) + 19),
    0x00000014    /* 120 (RET) */,
    /* %exact-expt */
    0x0000100e    /*   0 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]) + 5),
    0x00000048    /*   2 (LREF0-PUSH) */,
    0x0000105f    /*   3 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#integer?.c5d0aa40> */,
    0x0000001e    /*   5 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[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.c5d0a9e0> */,
    0x00000014    /*  11 (RET) */,
    0x00000002    /*  12 (CONSTI 0) */,
    0x00400029    /*  13 (LREF-VAL0-BNLT 0 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]) + 20),
    0x00000049    /*  15 (LREF1-PUSH) */,
    0x00000048    /*  16 (LREF0-PUSH) */,
    0x00002060    /*  17 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%expt.c5d0a7e0> */,
    0x00000014    /*  19 (RET) */,
    0x00000002    /*  20 (CONSTI 0) */,
    0x00000029    /*  21 (LREF-VAL0-BNLT 0 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]) + 33),
    0x0000200e    /*  23 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[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.c5d0ce20> */,
    0x00001063    /*  30 (PUSH-GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#/.c5d0a040> */,
    0x00000014    /*  32 (RET) */,
    0x0000100e    /*  33 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]) + 38),
    0x00000049    /*  35 (LREF1-PUSH) */,
    0x0000105f    /*  36 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#integer?.c5d0cd20> */,
    0x0000001e    /*  38 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]) + 186),
    0x0000100e    /*  40 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]) + 45),
    0x00000048    /*  42 (LREF0-PUSH) */,
    0x0000105f    /*  43 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#numerator.c5d0cb20> */,
    0x0000100f    /*  45 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]) + 50),
    0x00000048    /*  47 (LREF0-PUSH) */,
    0x0000105f    /*  48 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#denominator.c5d0c880> */,
    0x00002018    /*  50 (PUSH-LOCAL-ENV 2) */,
    0x0000200e    /*  51 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]) + 69),
    0x00001007    /*  53 (CONSTI-PUSH 1) */,
    0x0000100e    /*  54 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]) + 67),
    0x0000200e    /*  56 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]) + 62),
    0x0000004d    /*  58 (LREF11-PUSH) */,
    0x00002007    /*  59 (CONSTI-PUSH 2) */,
    0x0000205f    /*  60 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#log.c5d0dee0> */,
    0x0000000d    /*  62 (PUSH) */,
    0x0000003d    /*  63 (LREF0) */,
    0x000000b5    /*  64 (NUMDIV2) */,
    0x00001062    /*  65 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#round->exact.c5d0df40> */,
    0x00002062    /*  67 (PUSH-GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#ash.c5d0c420> */,
    0x00001018    /*  69 (PUSH-LOCAL-ENV 1) */,
    0x0000200e    /*  70 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]) + 76),
    0x00000048    /*  72 (LREF0-PUSH) */,
    0x0000004c    /*  73 (LREF10-PUSH) */,
    0x0000205f    /*  74 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%exact-integer-expt.c5d0ddc0> */,
    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.d1617[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.c5d0d0c0> */,
    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.d1617[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.c5d10d20> */,
    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.d1617[721]) + 115),
    0x0000200e    /* 104 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[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.c5d10980> */,
    0x00000013    /* 113 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]) + 125),
    0x0000200e    /* 115 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[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.c5d10700> */,
    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.d1617[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.c5d10580> */,
    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.d1617[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.c5d10260> */,
    0x00000014    /* 144 (RET) */,
    0x00000044    /* 145 (LREF20) */,
    0x0000102d    /* 146 (BNUMNEI 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]) + 159),
    0x0000300e    /* 148 (PRE-CALL 3) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[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#<.c5d10060> */,
    0x0000001e    /* 155 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]) + 159),
    0x00000013    /* 157 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]) + 173),
    0x00000044    /* 159 (LREF20) */,
    -0x00000fd3   /* 160 (BNUMNEI -1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]) + 173),
    0x0000300e    /* 162 (PRE-CALL 3) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[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#<.c5d11da0> */,
    0x00000013    /* 169 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]) + 173),
    0x00000013    /* 171 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]) + 159),
    0x0000001e    /* 173 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[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.c5d11c00> */,
    0x00000014    /* 179 (RET) */,
    0x0000004c    /* 180 (LREF10-PUSH) */,
    0x00000048    /* 181 (LREF0-PUSH) */,
    0x0000601b    /* 182 (LOCAL-ENV-JUMP 6) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]) + 88),
    0x00000014    /* 184 (RET) */,
    0x00000014    /* 185 (RET) */,
    0x0000200e    /* 186 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]) + 197),
    0x0000100e    /* 188 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]) + 193),
    0x00000049    /* 190 (LREF1-PUSH) */,
    0x0000105f    /* 191 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#numerator.c5d11320> */,
    0x0000000d    /* 193 (PUSH) */,
    0x00000048    /* 194 (LREF0-PUSH) */,
    0x0000205f    /* 195 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%exact-expt.c5d11360> */,
    0x00001018    /* 197 (PUSH-LOCAL-ENV 1) */,
    0x0000003d    /* 198 (LREF0) */,
    0x0000001e    /* 199 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]) + 234),
    0x0000100e    /* 201 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]) + 206),
    0x00000048    /* 203 (LREF0-PUSH) */,
    0x0000105f    /* 204 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#exact?.c5d11140> */,
    0x0000001e    /* 206 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]) + 234),
    0x0000200e    /* 208 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]) + 219),
    0x0000100e    /* 210 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]) + 215),
    0x0000004d    /* 212 (LREF11-PUSH) */,
    0x0000105f    /* 213 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#denominator.c5d12b60> */,
    0x0000000d    /* 215 (PUSH) */,
    0x0000004c    /* 216 (LREF10-PUSH) */,
    0x0000205f    /* 217 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%exact-expt.c5d11060> */,
    0x00001018    /* 219 (PUSH-LOCAL-ENV 1) */,
    0x0000003d    /* 220 (LREF0) */,
    0x0000001e    /* 221 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]) + 233),
    0x0000100e    /* 223 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]) + 228),
    0x00000048    /* 225 (LREF0-PUSH) */,
    0x0000105f    /* 226 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#exact?.c5d12ac0> */,
    0x0000001e    /* 228 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[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.c5d12980> */,
    0x00000014    /* 240 (RET) */,
    /* cos */
    0x0000003d    /*   0 (LREF0) */,
    0x0000009f    /*   1 (REALP) */,
    0x0000001e    /*   2 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[962]) + 14),
    0x0000003d    /*   4 (LREF0) */,
    0x0000002f    /*   5 (BNEQVC) */,
    SCM_WORD(SCM_MAKE_INT(0)) /* 0 */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[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.c64585a0> */,
    0x00000014    /*  13 (RET) */,
    0x0000003d    /*  14 (LREF0) */,
    0x0000009e    /*  15 (NUMBERP) */,
    0x0000001e    /*  16 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[962]) + 55),
    0x0000100e    /*  18 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[962]) + 23),
    0x00000048    /*  20 (LREF0-PUSH) */,
    0x0000105f    /*  21 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#real-part.c64582e0> */,
    0x0000100f    /*  23 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[962]) + 28),
    0x00000048    /*  25 (LREF0-PUSH) */,
    0x0000105f    /*  26 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#imag-part.c6458280> */,
    0x00002018    /*  28 (PUSH-LOCAL-ENV 2) */,
    0x0000100e    /*  29 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[962]) + 34),
    0x00000049    /*  31 (LREF1-PUSH) */,
    0x0000105f    /*  32 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%cos.c6458120> */,
    0x0000100f    /*  34 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[962]) + 39),
    0x00000048    /*  36 (LREF0-PUSH) */,
    0x0000105f    /*  37 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%cosh.c64580c0> */,
    0x000000b4    /*  39 (NUMMUL2) */,
    0x0000100f    /*  40 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[962]) + 45),
    0x00000049    /*  42 (LREF1-PUSH) */,
    0x0000105f    /*  43 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sin.c645efc0> */,
    0x0000100f    /*  45 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[962]) + 50),
    0x00000048    /*  47 (LREF0-PUSH) */,
    0x0000105f    /*  48 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sinh.c645ef40> */,
    0x000000b4    /*  50 (NUMMUL2) */,
    0x000000b7    /*  51 (NEGATE) */,
    0x00002063    /*  52 (PUSH-GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#make-rectangular.c6458180> */,
    0x00000014    /*  54 (RET) */,
    0x00000006    /*  55 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1612[145])) /* "number required, but got" */,
    0x00000048    /*  57 (LREF0-PUSH) */,
    0x00002060    /*  58 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.c645eb20> */,
    0x00000014    /*  60 (RET) */,
    /* cosh */
    0x0000003d    /*   0 (LREF0) */,
    0x0000009f    /*   1 (REALP) */,
    0x0000001e    /*   2 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1023]) + 14),
    0x0000003d    /*   4 (LREF0) */,
    0x0000002f    /*   5 (BNEQVC) */,
    SCM_WORD(SCM_MAKE_INT(0)) /* 0 */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[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.c589c7c0> */,
    0x00000014    /*  13 (RET) */,
    0x0000003d    /*  14 (LREF0) */,
    0x0000009e    /*  15 (NUMBERP) */,
    0x0000001e    /*  16 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1023]) + 54),
    0x0000100e    /*  18 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1023]) + 23),
    0x00000048    /*  20 (LREF0-PUSH) */,
    0x0000105f    /*  21 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#real-part.c589c520> */,
    0x0000100f    /*  23 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1023]) + 28),
    0x00000048    /*  25 (LREF0-PUSH) */,
    0x0000105f    /*  26 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#imag-part.c589c4c0> */,
    0x00002018    /*  28 (PUSH-LOCAL-ENV 2) */,
    0x0000100e    /*  29 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1023]) + 34),
    0x00000049    /*  31 (LREF1-PUSH) */,
    0x0000105f    /*  32 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%cosh.c589c280> */,
    0x0000100f    /*  34 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1023]) + 39),
    0x00000048    /*  36 (LREF0-PUSH) */,
    0x0000105f    /*  37 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%cos.c589c200> */,
    0x000000b4    /*  39 (NUMMUL2) */,
    0x0000100f    /*  40 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1023]) + 45),
    0x00000049    /*  42 (LREF1-PUSH) */,
    0x0000105f    /*  43 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sinh.c589c160> */,
    0x0000100f    /*  45 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1023]) + 50),
    0x00000048    /*  47 (LREF0-PUSH) */,
    0x0000105f    /*  48 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sin.c589c0e0> */,
    0x000000b4    /*  50 (NUMMUL2) */,
    0x00002063    /*  51 (PUSH-GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#make-rectangular.c589c400> */,
    0x00000014    /*  53 (RET) */,
    0x00000006    /*  54 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1612[145])) /* "number required, but got" */,
    0x00000048    /*  56 (LREF0-PUSH) */,
    0x00002060    /*  57 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.c589ffc0> */,
    0x00000014    /*  59 (RET) */,
    /* sin */
    0x0000003d    /*   0 (LREF0) */,
    0x0000009f    /*   1 (REALP) */,
    0x0000001e    /*   2 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1083]) + 14),
    0x0000003d    /*   4 (LREF0) */,
    0x0000002f    /*   5 (BNEQVC) */,
    SCM_WORD(SCM_MAKE_INT(0)) /* 0 */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[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.c64e4d40> */,
    0x00000014    /*  13 (RET) */,
    0x0000003d    /*  14 (LREF0) */,
    0x0000009e    /*  15 (NUMBERP) */,
    0x0000001e    /*  16 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1083]) + 54),
    0x0000100e    /*  18 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1083]) + 23),
    0x00000048    /*  20 (LREF0-PUSH) */,
    0x0000105f    /*  21 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#real-part.c64e4120> */,
    0x0000100f    /*  23 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1083]) + 28),
    0x00000048    /*  25 (LREF0-PUSH) */,
    0x0000105f    /*  26 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#imag-part.c64ebfe0> */,
    0x00002018    /*  28 (PUSH-LOCAL-ENV 2) */,
    0x0000100e    /*  29 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1083]) + 34),
    0x00000049    /*  31 (LREF1-PUSH) */,
    0x0000105f    /*  32 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sin.c64eb5c0> */,
    0x0000100f    /*  34 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1083]) + 39),
    0x00000048    /*  36 (LREF0-PUSH) */,
    0x0000105f    /*  37 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%cosh.c64eb560> */,
    0x000000b4    /*  39 (NUMMUL2) */,
    0x0000100f    /*  40 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1083]) + 45),
    0x00000049    /*  42 (LREF1-PUSH) */,
    0x0000105f    /*  43 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%cos.c64eb4a0> */,
    0x0000100f    /*  45 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1083]) + 50),
    0x00000048    /*  47 (LREF0-PUSH) */,
    0x0000105f    /*  48 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sinh.c64eb440> */,
    0x000000b4    /*  50 (NUMMUL2) */,
    0x00002063    /*  51 (PUSH-GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#make-rectangular.c64eb660> */,
    0x00000014    /*  53 (RET) */,
    0x00000006    /*  54 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1612[145])) /* "number required, but got" */,
    0x00000048    /*  56 (LREF0-PUSH) */,
    0x00002060    /*  57 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.c64eb340> */,
    0x00000014    /*  59 (RET) */,
    /* sinh */
    0x0000003d    /*   0 (LREF0) */,
    0x0000009f    /*   1 (REALP) */,
    0x0000001e    /*   2 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1143]) + 14),
    0x0000003d    /*   4 (LREF0) */,
    0x0000002f    /*   5 (BNEQVC) */,
    SCM_WORD(SCM_MAKE_INT(0)) /* 0 */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[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.c59acf00> */,
    0x00000014    /*  13 (RET) */,
    0x0000003d    /*  14 (LREF0) */,
    0x0000009e    /*  15 (NUMBERP) */,
    0x0000001e    /*  16 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1143]) + 54),
    0x0000100e    /*  18 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1143]) + 23),
    0x00000048    /*  20 (LREF0-PUSH) */,
    0x0000105f    /*  21 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#real-part.c59acce0> */,
    0x0000100f    /*  23 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1143]) + 28),
    0x00000048    /*  25 (LREF0-PUSH) */,
    0x0000105f    /*  26 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#imag-part.c59acc80> */,
    0x00002018    /*  28 (PUSH-LOCAL-ENV 2) */,
    0x0000100e    /*  29 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1143]) + 34),
    0x00000049    /*  31 (LREF1-PUSH) */,
    0x0000105f    /*  32 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sinh.c59acb80> */,
    0x0000100f    /*  34 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1143]) + 39),
    0x00000048    /*  36 (LREF0-PUSH) */,
    0x0000105f    /*  37 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%cos.c59acb20> */,
    0x000000b4    /*  39 (NUMMUL2) */,
    0x0000100f    /*  40 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1143]) + 45),
    0x00000049    /*  42 (LREF1-PUSH) */,
    0x0000105f    /*  43 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%cosh.c59acaa0> */,
    0x0000100f    /*  45 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1143]) + 50),
    0x00000048    /*  47 (LREF0-PUSH) */,
    0x0000105f    /*  48 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%sin.c59aca40> */,
    0x000000b4    /*  50 (NUMMUL2) */,
    0x00002063    /*  51 (PUSH-GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#make-rectangular.c59acbe0> */,
    0x00000014    /*  53 (RET) */,
    0x00000006    /*  54 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1612[145])) /* "number required, but got" */,
    0x00000048    /*  56 (LREF0-PUSH) */,
    0x00002060    /*  57 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.c59ac620> */,
    0x00000014    /*  59 (RET) */,
    /* tan */
    0x0000003d    /*   0 (LREF0) */,
    0x0000009f    /*   1 (REALP) */,
    0x0000001e    /*   2 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1203]) + 14),
    0x0000003d    /*   4 (LREF0) */,
    0x0000002f    /*   5 (BNEQVC) */,
    SCM_WORD(SCM_MAKE_INT(0)) /* 0 */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[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.c7571660> */,
    0x00000014    /*  13 (RET) */,
    0x0000003d    /*  14 (LREF0) */,
    0x0000009e    /*  15 (NUMBERP) */,
    0x0000001e    /*  16 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[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.d1617[1203]) + 30),
    0x00000048    /*  27 (LREF0-PUSH) */,
    0x0000105f    /*  28 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#exp.c7571180> */,
    0x0000100f    /*  30 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1203]) + 36),
    0x0000003d    /*  32 (LREF0) */,
    0x000000b7    /*  33 (NEGATE) */,
    0x00001062    /*  34 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#exp.c75710a0> */,
    0x000000b3    /*  36 (NUMSUB2) */,
    0x0000100f    /*  37 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1203]) + 42),
    0x00000048    /*  39 (LREF0-PUSH) */,
    0x0000105f    /*  40 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#exp.c7572d00> */,
    0x0000100f    /*  42 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1203]) + 48),
    0x0000003d    /*  44 (LREF0) */,
    0x000000b7    /*  45 (NEGATE) */,
    0x00001062    /*  46 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#exp.c7572ca0> */,
    0x000000b2    /*  48 (NUMADD2) */,
    0x000000b5    /*  49 (NUMDIV2) */,
    0x000000b4    /*  50 (NUMMUL2) */,
    0x00000014    /*  51 (RET) */,
    0x00000006    /*  52 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1612[145])) /* "number required, but got" */,
    0x00000048    /*  54 (LREF0-PUSH) */,
    0x00002060    /*  55 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.c7572be0> */,
    0x00000014    /*  57 (RET) */,
    /* tanh */
    0x0000003d    /*   0 (LREF0) */,
    0x0000009f    /*   1 (REALP) */,
    0x0000001e    /*   2 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1261]) + 14),
    0x0000003d    /*   4 (LREF0) */,
    0x0000002f    /*   5 (BNEQVC) */,
    SCM_WORD(SCM_MAKE_INT(0)) /* 0 */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[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.c5eeaae0> */,
    0x00000014    /*  13 (RET) */,
    0x0000003d    /*  14 (LREF0) */,
    0x0000009e    /*  15 (NUMBERP) */,
    0x0000001e    /*  16 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1261]) + 44),
    0x0000100e    /*  18 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1261]) + 23),
    0x00000048    /*  20 (LREF0-PUSH) */,
    0x0000105f    /*  21 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#exp.c5eea460> */,
    0x0000100f    /*  23 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1261]) + 29),
    0x0000003d    /*  25 (LREF0) */,
    0x000000b7    /*  26 (NEGATE) */,
    0x00001062    /*  27 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#exp.c5eea3a0> */,
    0x000000b3    /*  29 (NUMSUB2) */,
    0x0000100f    /*  30 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1261]) + 35),
    0x00000048    /*  32 (LREF0-PUSH) */,
    0x0000105f    /*  33 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#exp.c5eea2e0> */,
    0x0000100f    /*  35 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1261]) + 41),
    0x0000003d    /*  37 (LREF0) */,
    0x000000b7    /*  38 (NEGATE) */,
    0x00001062    /*  39 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#exp.c5eea260> */,
    0x000000b2    /*  41 (NUMADD2) */,
    0x000000b5    /*  42 (NUMDIV2) */,
    0x00000014    /*  43 (RET) */,
    0x00000006    /*  44 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1612[145])) /* "number required, but got" */,
    0x00000048    /*  46 (LREF0-PUSH) */,
    0x00002060    /*  47 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.c5eea180> */,
    0x00000014    /*  49 (RET) */,
    /* asin */
    0x0000003d    /*   0 (LREF0) */,
    0x0000009f    /*   1 (REALP) */,
    0x0000001e    /*   2 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1311]) + 14),
    0x0000003d    /*   4 (LREF0) */,
    0x0000002f    /*   5 (BNEQVC) */,
    SCM_WORD(SCM_MAKE_INT(0)) /* 0 */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[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.c7538d40> */,
    0x00000014    /*  13 (RET) */,
    0x0000003d    /*  14 (LREF0) */,
    0x0000009e    /*  15 (NUMBERP) */,
    0x0000001e    /*  16 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[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.d1617[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.c75382a0> */,
    0x000000b2    /*  30 (NUMADD2) */,
    0x00001018    /*  31 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /*  32 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1311]) + 37),
    0x00000048    /*  34 (LREF0-PUSH) */,
    0x0000105f    /*  35 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#magnitude.c753ef80> */,
    0x0000100f    /*  37 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1311]) + 42),
    0x0000004c    /*  39 (LREF10-PUSH) */,
    0x0000105f    /*  40 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#magnitude.c753eee0> */,
    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.d1617[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.d1617[1311]) + 57),
    0x00000048    /*  54 (LREF0-PUSH) */,
    0x0000105f    /*  55 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#log.c753ea60> */,
    0x000000b4    /*  57 (NUMMUL2) */,
    0x00000014    /*  58 (RET) */,
    0x00000006    /*  59 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1612[145])) /* "number required, but got" */,
    0x00000048    /*  61 (LREF0-PUSH) */,
    0x00002060    /*  62 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.c753e860> */,
    0x00000014    /*  64 (RET) */,
    /* asinh */
    0x0000003d    /*   0 (LREF0) */,
    0x0000002f    /*   1 (BNEQVC) */,
    SCM_WORD(SCM_MAKE_INT(0)) /* 0 */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1376]) + 6)  /*      6 */,
    0x00000002    /*   4 (CONSTI 0) */,
    0x00000014    /*   5 (RET) */,
    0x0000100e    /*   6 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[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.c58412c0> */,
    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.d1617[1376]) + 21),
    0x00000048    /*  18 (LREF0-PUSH) */,
    0x0000105f    /*  19 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#magnitude.c58410a0> */,
    0x0000100f    /*  21 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1376]) + 26),
    0x0000004c    /*  23 (LREF10-PUSH) */,
    0x0000105f    /*  24 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#magnitude.c5841020> */,
    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.d1617[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.d1617[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.c5845dc0> */,
    0x000010b6    /*  42 (LREF-VAL0-NUMADD2 1 0) */,
    0x00001063    /*  43 (PUSH-GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#log.c5845e40> */,
    0x00000014    /*  45 (RET) */,
    /* acos */
    0x0000003d    /*   0 (LREF0) */,
    0x0000009f    /*   1 (REALP) */,
    0x0000001e    /*   2 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1422]) + 14),
    0x0000003d    /*   4 (LREF0) */,
    0x0000002f    /*   5 (BNEQVC) */,
    SCM_WORD(SCM_MAKE_INT(1U)) /* 1 */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[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.c5ba9060> */,
    0x00000014    /*  13 (RET) */,
    0x0000003d    /*  14 (LREF0) */,
    0x0000009e    /*  15 (NUMBERP) */,
    0x0000001e    /*  16 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1422]) + 27),
    0x00000006    /*  18 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* 1.5707963267948966 */,
    0x0000100e    /*  20 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1422]) + 25),
    0x00000048    /*  22 (LREF0-PUSH) */,
    0x0000105f    /*  23 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#asin.c5bafee0> */,
    0x000000b3    /*  25 (NUMSUB2) */,
    0x00000014    /*  26 (RET) */,
    0x00000006    /*  27 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1612[145])) /* "number required, but got" */,
    0x00000048    /*  29 (LREF0-PUSH) */,
    0x00002060    /*  30 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.c5bafe40> */,
    0x00000014    /*  32 (RET) */,
    /* acosh */
    0x0000003d    /*   0 (LREF0) */,
    0x0000002f    /*   1 (BNEQVC) */,
    SCM_WORD(SCM_MAKE_INT(1U)) /* 1 */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[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.d1617[1455]) + 26),
    0x0000100e    /*   9 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[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.c6443fa0> */,
    0x0000100f    /*  16 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[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.c6443e40> */,
    0x000000b2    /*  23 (NUMADD2) */,
    0x00001062    /*  24 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#log.c643d0a0> */,
    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.d1617[1483]) + 6)  /*      6 */,
    0x00000002    /*   4 (CONSTI 0) */,
    0x00000014    /*   5 (RET) */,
    0x0000003d    /*   6 (LREF0) */,
    0x00000022    /*   7 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1483]) + 49),
    0x0000003e    /*   9 (LREF1) */,
    0x0000009f    /*  10 (REALP) */,
    0x0000001e    /*  11 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1483]) + 17),
    0x00000049    /*  13 (LREF1-PUSH) */,
    0x00001060    /*  14 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%atan.c5d29700> */,
    0x00000014    /*  16 (RET) */,
    0x0000003e    /*  17 (LREF1) */,
    0x0000009e    /*  18 (NUMBERP) */,
    0x0000001e    /*  19 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[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.d1617[1483]) + 31),
    0x000010c7    /*  28 (LREF0-NUMADDI-PUSH 1) */,
    0x0000105f    /*  29 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#log.c5d29400> */,
    0x0000100f    /*  31 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1483]) + 37),
    0x0000003d    /*  33 (LREF0) */,
    0x000010d1    /*  34 (NUMSUBI 1) */,
    0x00001062    /*  35 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#log.c5d29340> */,
    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.d1612[145])) /* "number required, but got" */,
    0x00000049    /*  45 (LREF1-PUSH) */,
    0x00002060    /*  46 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.c5d2abc0> */,
    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.c5d2ab40> */,
    0x00000014    /*  53 (RET) */,
    /* atanh */
    0x0000003d    /*   0 (LREF0) */,
    0x0000002e    /*   1 (BNEQC) */,
    SCM_WORD(SCM_MAKE_INT(0)) /* 0 */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1537]) + 6)  /*      6 */,
    0x00000002    /*   4 (CONSTI 0) */,
    0x00000014    /*   5 (RET) */,
    0x0000100e    /*   6 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1537]) + 11),
    0x000010c7    /*   8 (LREF0-NUMADDI-PUSH 1) */,
    0x0000105f    /*   9 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#log.c5b00f20> */,
    0x0000100f    /*  11 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1617[1537]) + 17),
    0x0000003d    /*  13 (LREF0) */,
    0x000010d1    /*  14 (NUMSUBI 1) */,
    0x00001062    /*  15 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#log.c5b00e20> */,
    0x000000b3    /*  17 (NUMSUB2) */,
    0x0000000d    /*  18 (PUSH) */,
    0x00002002    /*  19 (CONSTI 2) */,
    0x000000b5    /*  20 (NUMDIV2) */,
    0x00000014    /*  21 (RET) */,
  },
  {   /* ScmPair d1614 */
       { SCM_NIL, SCM_NIL },
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(50U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[2])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[3])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[5])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[6])},
       { SCM_OBJ(&scm__rc.d1614[7]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[4]), SCM_OBJ(&scm__rc.d1614[8])},
       { SCM_MAKE_INT(52U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[10])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[11])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[13])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[14])},
       { SCM_OBJ(&scm__rc.d1614[15]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[12]), SCM_OBJ(&scm__rc.d1614[16])},
       { SCM_MAKE_INT(54U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[18])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[19])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[21])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[22])},
       { SCM_OBJ(&scm__rc.d1614[23]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[20]), SCM_OBJ(&scm__rc.d1614[24])},
       { SCM_MAKE_INT(56U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[26])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[27])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[29])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[30])},
       { SCM_OBJ(&scm__rc.d1614[31]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[28]), SCM_OBJ(&scm__rc.d1614[32])},
       { SCM_MAKE_INT(58U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[34])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[35])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[37])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[38])},
       { SCM_OBJ(&scm__rc.d1614[39]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[36]), SCM_OBJ(&scm__rc.d1614[40])},
       { SCM_MAKE_INT(61U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[42])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[43])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[45])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[46])},
       { SCM_OBJ(&scm__rc.d1614[47]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[44]), SCM_OBJ(&scm__rc.d1614[48])},
       { SCM_MAKE_INT(62U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[50])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[51])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[53])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[54])},
       { SCM_OBJ(&scm__rc.d1614[55]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[52]), SCM_OBJ(&scm__rc.d1614[56])},
       { SCM_MAKE_INT(64U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[58])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[59])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[61])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[62])},
       { SCM_OBJ(&scm__rc.d1614[63]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[60]), SCM_OBJ(&scm__rc.d1614[64])},
       { SCM_MAKE_INT(67U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[66])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[67])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[69])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[70])},
       { SCM_OBJ(&scm__rc.d1614[71]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[68]), SCM_OBJ(&scm__rc.d1614[72])},
       { SCM_MAKE_INT(69U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[74])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[75])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[77])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[78])},
       { SCM_OBJ(&scm__rc.d1614[79]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[76]), SCM_OBJ(&scm__rc.d1614[80])},
       { SCM_MAKE_INT(71U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[82])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[83])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[85])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[86])},
       { SCM_OBJ(&scm__rc.d1614[87]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[84]), SCM_OBJ(&scm__rc.d1614[88])},
       { SCM_MAKE_INT(72U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[90])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[91])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[93])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[94])},
       { SCM_OBJ(&scm__rc.d1614[95]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[92]), SCM_OBJ(&scm__rc.d1614[96])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(77U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[99])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[100])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[102])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[103])},
       { SCM_OBJ(&scm__rc.d1614[104]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[101]), SCM_OBJ(&scm__rc.d1614[105])},
       { SCM_MAKE_INT(78U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[107])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[108])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[110])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[111])},
       { SCM_OBJ(&scm__rc.d1614[112]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[109]), SCM_OBJ(&scm__rc.d1614[113])},
       { SCM_MAKE_INT(79U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[115])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[116])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[118])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[119])},
       { SCM_OBJ(&scm__rc.d1614[120]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[117]), SCM_OBJ(&scm__rc.d1614[121])},
       { SCM_MAKE_INT(80U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[123])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[124])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[126])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[127])},
       { SCM_OBJ(&scm__rc.d1614[128]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[125]), SCM_OBJ(&scm__rc.d1614[129])},
       { SCM_MAKE_INT(82U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[131])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[132])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[134])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[135])},
       { SCM_OBJ(&scm__rc.d1614[136]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[133]), SCM_OBJ(&scm__rc.d1614[137])},
       { SCM_MAKE_INT(83U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[139])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[140])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[142])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[143])},
       { SCM_OBJ(&scm__rc.d1614[144]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[141]), SCM_OBJ(&scm__rc.d1614[145])},
       { SCM_MAKE_INT(84U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[147])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[148])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[150])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[151])},
       { SCM_OBJ(&scm__rc.d1614[152]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[149]), SCM_OBJ(&scm__rc.d1614[153])},
       { SCM_MAKE_INT(85U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[155])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[156])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[158])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[159])},
       { SCM_OBJ(&scm__rc.d1614[160]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[157]), SCM_OBJ(&scm__rc.d1614[161])},
       { SCM_MAKE_INT(90U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[163])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[164])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[166])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[167])},
       { SCM_OBJ(&scm__rc.d1614[168]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[165]), SCM_OBJ(&scm__rc.d1614[169])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[171])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[172])},
       { SCM_OBJ(&scm__rc.d1614[173]), SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[175])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[176])},
       { SCM_OBJ(&scm__rc.d1614[177]), SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[179])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[180])},
       { SCM_OBJ(&scm__rc.d1614[181]), SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[183])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[184])},
       { SCM_OBJ(&scm__rc.d1614[185]), SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[187])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[188])},
       { SCM_OBJ(&scm__rc.d1614[189]), SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[191])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[192])},
       { SCM_OBJ(&scm__rc.d1614[193]), SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[195])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[196])},
       { SCM_OBJ(&scm__rc.d1614[197]), SCM_NIL},
       { SCM_MAKE_INT(132U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[199])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[200])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[202])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[203])},
       { SCM_OBJ(&scm__rc.d1614[204]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[201]), SCM_OBJ(&scm__rc.d1614[205])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[207])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[208])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[209])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[210])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[211])},
       { SCM_MAKE_INT(176U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[213])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[214])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[216])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[217])},
       { SCM_OBJ(&scm__rc.d1614[218]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[215]), SCM_OBJ(&scm__rc.d1614[219])},
       { SCM_MAKE_INT(178U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[221])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[222])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[224])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[225])},
       { SCM_OBJ(&scm__rc.d1614[226]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[223]), SCM_OBJ(&scm__rc.d1614[227])},
       { SCM_MAKE_INT(180U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[229])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[230])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[232])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[233])},
       { SCM_OBJ(&scm__rc.d1614[234]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[231]), SCM_OBJ(&scm__rc.d1614[235])},
       { SCM_MAKE_INT(182U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[237])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[238])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[240])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[241])},
       { SCM_OBJ(&scm__rc.d1614[242]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[239]), SCM_OBJ(&scm__rc.d1614[243])},
       { SCM_MAKE_INT(184U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[245])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[246])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[248])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[249])},
       { SCM_OBJ(&scm__rc.d1614[250]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[247]), SCM_OBJ(&scm__rc.d1614[251])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[253])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[254])},
       { SCM_MAKE_INT(187U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[256])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[257])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[259])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[260])},
       { SCM_OBJ(&scm__rc.d1614[261]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[258]), SCM_OBJ(&scm__rc.d1614[262])},
       { SCM_MAKE_INT(189U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[264])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[265])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[267])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[268])},
       { SCM_OBJ(&scm__rc.d1614[269]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[266]), SCM_OBJ(&scm__rc.d1614[270])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[272])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[273])},
       { SCM_MAKE_INT(193U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[275])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[276])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[278])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[279])},
       { SCM_OBJ(&scm__rc.d1614[280]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[277]), SCM_OBJ(&scm__rc.d1614[281])},
       { SCM_MAKE_INT(195U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[283])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[284])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[286])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[287])},
       { SCM_OBJ(&scm__rc.d1614[288]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[285]), SCM_OBJ(&scm__rc.d1614[289])},
       { SCM_MAKE_INT(197U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[291])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[292])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[294])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[295])},
       { SCM_OBJ(&scm__rc.d1614[296]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[293]), SCM_OBJ(&scm__rc.d1614[297])},
       { SCM_MAKE_INT(205U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[299])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[300])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[302])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[303])},
       { SCM_OBJ(&scm__rc.d1614[304]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[301]), SCM_OBJ(&scm__rc.d1614[305])},
       { SCM_MAKE_INT(206U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[307])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[308])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[310])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[311])},
       { SCM_OBJ(&scm__rc.d1614[312]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[309]), SCM_OBJ(&scm__rc.d1614[313])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[315])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[316])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[317])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[318])},
       { SCM_MAKE_INT(213U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[320])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[321])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[323])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[324])},
       { SCM_OBJ(&scm__rc.d1614[325]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[322]), SCM_OBJ(&scm__rc.d1614[326])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[328])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[329])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[330])},
       { SCM_MAKE_INT(245U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[332])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[333])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[335])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[336])},
       { SCM_OBJ(&scm__rc.d1614[337]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[334]), SCM_OBJ(&scm__rc.d1614[338])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(259U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[341])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[342])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[344])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[345])},
       { SCM_OBJ(&scm__rc.d1614[346]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[343]), SCM_OBJ(&scm__rc.d1614[347])},
       { SCM_MAKE_INT(261U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[349])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[350])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[352])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[353])},
       { SCM_OBJ(&scm__rc.d1614[354]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[351]), SCM_OBJ(&scm__rc.d1614[355])},
       { SCM_MAKE_INT(263U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[357])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[358])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[360])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[361])},
       { SCM_OBJ(&scm__rc.d1614[362]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[359]), SCM_OBJ(&scm__rc.d1614[363])},
       { SCM_MAKE_INT(265U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[365])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[366])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[368])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_OBJ(&scm__rc.d1614[370]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[367]), SCM_OBJ(&scm__rc.d1614[371])},
       { SCM_MAKE_INT(268U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[373])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[374])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[376])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[377])},
       { SCM_OBJ(&scm__rc.d1614[378]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[375]), SCM_OBJ(&scm__rc.d1614[379])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[381])},
       { SCM_MAKE_INT(285U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[383])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[384])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[386])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[387])},
       { SCM_OBJ(&scm__rc.d1614[388]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[385]), SCM_OBJ(&scm__rc.d1614[389])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(287U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[392])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[393])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[395])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[396])},
       { SCM_OBJ(&scm__rc.d1614[397]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[394]), SCM_OBJ(&scm__rc.d1614[398])},
       { SCM_MAKE_INT(290U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[400])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[401])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[403])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[404])},
       { SCM_OBJ(&scm__rc.d1614[405]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[402]), SCM_OBJ(&scm__rc.d1614[406])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[408])},
       { SCM_MAKE_INT(293U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[410])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[411])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[413])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[414])},
       { SCM_OBJ(&scm__rc.d1614[415]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[412]), SCM_OBJ(&scm__rc.d1614[416])},
       { SCM_MAKE_INT(295U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[418])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[419])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[421])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[422])},
       { SCM_OBJ(&scm__rc.d1614[423]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[420]), SCM_OBJ(&scm__rc.d1614[424])},
       { SCM_MAKE_INT(309U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[426])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[427])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[429])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[430])},
       { SCM_OBJ(&scm__rc.d1614[431]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[428]), SCM_OBJ(&scm__rc.d1614[432])},
       { SCM_MAKE_INT(316U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[434])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[435])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[437])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[438])},
       { SCM_OBJ(&scm__rc.d1614[439]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[436]), SCM_OBJ(&scm__rc.d1614[440])},
       { SCM_MAKE_INT(322U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[442])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[443])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[445])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[446])},
       { SCM_OBJ(&scm__rc.d1614[447]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[444]), SCM_OBJ(&scm__rc.d1614[448])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[254])},
       { SCM_MAKE_INT(328U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[451])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[452])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[454])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[455])},
       { SCM_OBJ(&scm__rc.d1614[456]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[453]), SCM_OBJ(&scm__rc.d1614[457])},
       { SCM_MAKE_INT(334U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[459])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[460])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[462])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[463])},
       { SCM_OBJ(&scm__rc.d1614[464]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[461]), SCM_OBJ(&scm__rc.d1614[465])},
       { SCM_MAKE_INT(340U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[467])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[468])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[470])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[471])},
       { SCM_OBJ(&scm__rc.d1614[472]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[469]), SCM_OBJ(&scm__rc.d1614[473])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[475])},
       { SCM_MAKE_INT(342U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[477])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[478])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[480])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[481])},
       { SCM_OBJ(&scm__rc.d1614[482]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[479]), SCM_OBJ(&scm__rc.d1614[483])},
       { SCM_MAKE_INT(344U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[485])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[486])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[488])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[489])},
       { SCM_OBJ(&scm__rc.d1614[490]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[487]), SCM_OBJ(&scm__rc.d1614[491])},
       { SCM_MAKE_INT(346U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[493])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[494])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[496])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[497])},
       { SCM_OBJ(&scm__rc.d1614[498]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[495]), SCM_OBJ(&scm__rc.d1614[499])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[501])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(357U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[504])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[505])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[507]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[506]), SCM_OBJ(&scm__rc.d1614[508])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_OBJ(&scm__rc.d1618[2]), SCM_NIL},
       { SCM_MAKE_INT(352U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[512])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[513])},
       { SCM_OBJ(&scm__rc.d1614[514]), SCM_OBJ(&scm__rc.d1614[508])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[517])},
       { SCM_MAKE_INT(373U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[519])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[520])},
       { SCM_OBJ(&scm__rc.d1614[521]), SCM_OBJ(&scm__rc.d1614[508])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_OBJ(&scm__rc.d1618[5]), SCM_NIL},
       { SCM_MAKE_INT(365U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[525])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[526])},
       { SCM_OBJ(&scm__rc.d1614[527]), SCM_OBJ(&scm__rc.d1614[508])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(382U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[530])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[531])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[533])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[534])},
       { SCM_OBJ(&scm__rc.d1614[535]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[532]), SCM_OBJ(&scm__rc.d1614[536])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(385U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[539])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[540])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[542])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[543])},
       { SCM_OBJ(&scm__rc.d1614[544]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[541]), SCM_OBJ(&scm__rc.d1614[545])},
       { SCM_MAKE_INT(386U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[547])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[548])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[550])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[551])},
       { SCM_OBJ(&scm__rc.d1614[552]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[549]), SCM_OBJ(&scm__rc.d1614[553])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[555])},
       { SCM_MAKE_INT(389U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[557])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[558])},
       { SCM_OBJ(&scm__rc.d1614[559]), SCM_OBJ(&scm__rc.d1614[508])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(400U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[563])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[564])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[566])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[567])},
       { SCM_OBJ(&scm__rc.d1614[568]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[565]), SCM_OBJ(&scm__rc.d1614[569])},
       { SCM_MAKE_INT(402U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[571])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[572])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[574])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[575])},
       { SCM_OBJ(&scm__rc.d1614[576]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[573]), SCM_OBJ(&scm__rc.d1614[577])},
       { SCM_MAKE_INT(404U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[579])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[580])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[582])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[583])},
       { SCM_OBJ(&scm__rc.d1614[584]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[581]), SCM_OBJ(&scm__rc.d1614[585])},
       { SCM_MAKE_INT(406U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[587])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[588])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[590])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[591])},
       { SCM_OBJ(&scm__rc.d1614[592]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[589]), SCM_OBJ(&scm__rc.d1614[593])},
       { SCM_MAKE_INT(412U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[595])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[596])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[598])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[599])},
       { SCM_OBJ(&scm__rc.d1614[600]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[597]), SCM_OBJ(&scm__rc.d1614[601])},
       { SCM_MAKE_INT(414U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[603])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[604])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[606])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[607])},
       { SCM_OBJ(&scm__rc.d1614[608]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[605]), SCM_OBJ(&scm__rc.d1614[609])},
       { SCM_MAKE_INT(434U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[611])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[612])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[614])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[615])},
       { SCM_OBJ(&scm__rc.d1614[616]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[613]), SCM_OBJ(&scm__rc.d1614[617])},
       { SCM_MAKE_INT(435U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[619])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[620])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[622])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[623])},
       { SCM_OBJ(&scm__rc.d1614[624]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[621]), SCM_OBJ(&scm__rc.d1614[625])},
       { SCM_MAKE_INT(436U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[627])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[628])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[630])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[631])},
       { SCM_OBJ(&scm__rc.d1614[632]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[629]), SCM_OBJ(&scm__rc.d1614[633])},
       { SCM_MAKE_INT(438U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[635])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[636])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[638])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[639])},
       { SCM_OBJ(&scm__rc.d1614[640]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[637]), SCM_OBJ(&scm__rc.d1614[641])},
       { SCM_MAKE_INT(439U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[643])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[644])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[646])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[647])},
       { SCM_OBJ(&scm__rc.d1614[648]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[645]), SCM_OBJ(&scm__rc.d1614[649])},
       { SCM_MAKE_INT(440U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[651])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[652])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[654])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[655])},
       { SCM_OBJ(&scm__rc.d1614[656]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[653]), SCM_OBJ(&scm__rc.d1614[657])},
       { SCM_MAKE_INT(442U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[659])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[660])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[662])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[663])},
       { SCM_OBJ(&scm__rc.d1614[664]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[661]), SCM_OBJ(&scm__rc.d1614[665])},
       { SCM_MAKE_INT(451U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[667])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[668])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[670])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[671])},
       { SCM_OBJ(&scm__rc.d1614[672]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[669]), SCM_OBJ(&scm__rc.d1614[673])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[98])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[675])},
       { SCM_MAKE_INT(458U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[677])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[678])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[680])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[681])},
       { SCM_OBJ(&scm__rc.d1614[682]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[679]), SCM_OBJ(&scm__rc.d1614[683])},
       { SCM_MAKE_INT(463U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[685])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[686])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[688])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[689])},
       { SCM_OBJ(&scm__rc.d1614[690]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[687]), SCM_OBJ(&scm__rc.d1614[691])},
       { SCM_MAKE_INT(464U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[693])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[694])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[696])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[697])},
       { SCM_OBJ(&scm__rc.d1614[698]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[695]), SCM_OBJ(&scm__rc.d1614[699])},
       { SCM_MAKE_INT(465U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[701])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[702])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[704])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[705])},
       { SCM_OBJ(&scm__rc.d1614[706]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[703]), SCM_OBJ(&scm__rc.d1614[707])},
       { SCM_MAKE_INT(468U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[709])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[710])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[712])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[713])},
       { SCM_OBJ(&scm__rc.d1614[714]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[711]), SCM_OBJ(&scm__rc.d1614[715])},
       { SCM_MAKE_INT(478U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[717])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[718])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[720])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[721])},
       { SCM_OBJ(&scm__rc.d1614[722]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[719]), SCM_OBJ(&scm__rc.d1614[723])},
       { SCM_MAKE_INT(495U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[725])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[726])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[728])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[729])},
       { SCM_OBJ(&scm__rc.d1614[730]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[727]), SCM_OBJ(&scm__rc.d1614[731])},
       { SCM_MAKE_INT(499U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[733])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[734])},
       { SCM_OBJ(&scm__rc.d1614[735]), SCM_OBJ(&scm__rc.d1614[508])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_UNDEFINED},
       { SCM_MAKE_INT(504U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[739])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[740])},
       { SCM_OBJ(&scm__rc.d1614[741]), SCM_OBJ(&scm__rc.d1614[508])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(512U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[744])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[745])},
       { SCM_OBJ(&scm__rc.d1614[746]), SCM_OBJ(&scm__rc.d1614[508])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(540U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[750])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[751])},
       { SCM_OBJ(&scm__rc.d1614[752]), SCM_OBJ(&scm__rc.d1614[508])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(561U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[755])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[756])},
       { SCM_OBJ(&scm__rc.d1614[757]), SCM_OBJ(&scm__rc.d1614[508])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(577U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[760])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[761])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[763])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[764])},
       { SCM_OBJ(&scm__rc.d1614[765]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[762]), SCM_OBJ(&scm__rc.d1614[766])},
       { SCM_MAKE_INT(578U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[768])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[769])},
       { SCM_OBJ(&scm__rc.d1614[770]), SCM_OBJ(&scm__rc.d1614[508])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(630U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[773])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[774])},
       { SCM_OBJ(&scm__rc.d1614[775]), SCM_OBJ(&scm__rc.d1614[508])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(639U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[778])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[779])},
       { SCM_OBJ(&scm__rc.d1614[780]), SCM_OBJ(&scm__rc.d1614[508])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(648U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[783])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[784])},
       { SCM_OBJ(&scm__rc.d1614[785]), SCM_OBJ(&scm__rc.d1614[508])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(657U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[788])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[789])},
       { SCM_OBJ(&scm__rc.d1614[790]), SCM_OBJ(&scm__rc.d1614[508])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(666U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[793])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[794])},
       { SCM_OBJ(&scm__rc.d1614[795]), SCM_OBJ(&scm__rc.d1614[508])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(675U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[798])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[799])},
       { SCM_OBJ(&scm__rc.d1614[800]), SCM_OBJ(&scm__rc.d1614[508])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(682U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[803])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[804])},
       { SCM_OBJ(&scm__rc.d1614[805]), SCM_OBJ(&scm__rc.d1614[508])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(699U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[808])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[809])},
       { SCM_OBJ(&scm__rc.d1614[810]), SCM_OBJ(&scm__rc.d1614[508])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(707U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[813])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[814])},
       { SCM_OBJ(&scm__rc.d1614[815]), SCM_OBJ(&scm__rc.d1614[508])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(718U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[818])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[819])},
       { SCM_OBJ(&scm__rc.d1614[820]), SCM_OBJ(&scm__rc.d1614[508])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_UNDEFINED},
       { SCM_MAKE_INT(725U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[824])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[825])},
       { SCM_OBJ(&scm__rc.d1614[826]), SCM_OBJ(&scm__rc.d1614[508])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(738U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[829])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[830])},
       { SCM_OBJ(&scm__rc.d1614[831]), SCM_OBJ(&scm__rc.d1614[508])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(744U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[835])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[836])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[838])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[839])},
       { SCM_OBJ(&scm__rc.d1614[840]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[837]), SCM_OBJ(&scm__rc.d1614[841])},
       { SCM_MAKE_INT(746U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[843])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[844])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[846])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[847])},
       { SCM_OBJ(&scm__rc.d1614[848]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[845]), SCM_OBJ(&scm__rc.d1614[849])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[851])},
       { SCM_MAKE_INT(751U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[853])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[854])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[856])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[857])},
       { SCM_OBJ(&scm__rc.d1614[858]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[855]), SCM_OBJ(&scm__rc.d1614[859])},
       { SCM_MAKE_INT(753U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[861])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[862])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[864])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[865])},
       { SCM_OBJ(&scm__rc.d1614[866]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[863]), SCM_OBJ(&scm__rc.d1614[867])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[869])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[870])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[871])},
       { SCM_MAKE_INT(769U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[873])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[874])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[876])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[877])},
       { SCM_OBJ(&scm__rc.d1614[878]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[875]), SCM_OBJ(&scm__rc.d1614[879])},
       { SCM_MAKE_INT(771U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[881])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[882])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[884])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[885])},
       { SCM_OBJ(&scm__rc.d1614[886]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[883]), SCM_OBJ(&scm__rc.d1614[887])},
       { SCM_MAKE_INT(773U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[889])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[890])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[892])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[893])},
       { SCM_OBJ(&scm__rc.d1614[894]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[891]), SCM_OBJ(&scm__rc.d1614[895])},
       { SCM_MAKE_INT(776U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[897])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[898])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[900])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[901])},
       { SCM_OBJ(&scm__rc.d1614[902]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[899]), SCM_OBJ(&scm__rc.d1614[903])},
       { SCM_MAKE_INT(786U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[905])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[906])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[908])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[909])},
       { SCM_OBJ(&scm__rc.d1614[910]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[907]), SCM_OBJ(&scm__rc.d1614[911])},
       { SCM_MAKE_INT(808U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[913])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[914])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[916])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[917])},
       { SCM_OBJ(&scm__rc.d1614[918]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[915]), SCM_OBJ(&scm__rc.d1614[919])},
       { SCM_MAKE_INT(819U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[921])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[922])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[924])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[925])},
       { SCM_OBJ(&scm__rc.d1614[926]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[923]), SCM_OBJ(&scm__rc.d1614[927])},
       { SCM_MAKE_INT(834U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[929])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[930])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[932])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[933])},
       { SCM_OBJ(&scm__rc.d1614[934]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[931]), SCM_OBJ(&scm__rc.d1614[935])},
       { SCM_MAKE_INT(842U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[937])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[938])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[940])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[941])},
       { SCM_OBJ(&scm__rc.d1614[942]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[939]), SCM_OBJ(&scm__rc.d1614[943])},
       { SCM_MAKE_INT(846U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[945])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[946])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[948])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[949])},
       { SCM_OBJ(&scm__rc.d1614[950]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[947]), SCM_OBJ(&scm__rc.d1614[951])},
       { SCM_MAKE_INT(850U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[953])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[954])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[956])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[957])},
       { SCM_OBJ(&scm__rc.d1614[958]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[955]), SCM_OBJ(&scm__rc.d1614[959])},
       { SCM_MAKE_INT(855U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[961])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[962])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[964])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[965])},
       { SCM_OBJ(&scm__rc.d1614[966]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[963]), SCM_OBJ(&scm__rc.d1614[967])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[259])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[969])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[970])},
       { SCM_MAKE_INT(861U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[972])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[973])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[975])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[976])},
       { SCM_OBJ(&scm__rc.d1614[977]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[974]), SCM_OBJ(&scm__rc.d1614[978])},
       { SCM_MAKE_INT(878U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[980])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[981])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[983])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[984])},
       { SCM_OBJ(&scm__rc.d1614[985]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[982]), SCM_OBJ(&scm__rc.d1614[986])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[988])},
       { SCM_MAKE_INT(886U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[990])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[991])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[993])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[994])},
       { SCM_OBJ(&scm__rc.d1614[995]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[992]), SCM_OBJ(&scm__rc.d1614[996])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[998])},
       { SCM_MAKE_INT(888U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[1000])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1001])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1003])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1004])},
       { SCM_OBJ(&scm__rc.d1614[1005]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[1002]), SCM_OBJ(&scm__rc.d1614[1006])},
       { SCM_MAKE_INT(893U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[1008])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1009])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1011])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1012])},
       { SCM_OBJ(&scm__rc.d1614[1013]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[1010]), SCM_OBJ(&scm__rc.d1614[1014])},
       { SCM_MAKE_INT(898U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[1016])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1017])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1019])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1020])},
       { SCM_OBJ(&scm__rc.d1614[1021]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[1018]), SCM_OBJ(&scm__rc.d1614[1022])},
       { SCM_MAKE_INT(903U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[1024])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1025])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1027])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1028])},
       { SCM_OBJ(&scm__rc.d1614[1029]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[1026]), SCM_OBJ(&scm__rc.d1614[1030])},
       { SCM_MAKE_INT(904U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[1032])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1033])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1035])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1036])},
       { SCM_OBJ(&scm__rc.d1614[1037]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[1034]), SCM_OBJ(&scm__rc.d1614[1038])},
  },
  {   /* ScmObj d1613 */
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(4, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(4, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(4, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(7, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(6, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(7, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(7, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(6, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(6, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(6, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(6, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(6, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(6, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(6, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(6, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(6, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(6, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(6, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(6, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(7, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(6, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    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];
  if (!(obj_scm)) Scm_Error("scheme object required, but got %S", obj_scm);
  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];
  if (!(obj_scm)) Scm_Error("scheme object required, but got %S", obj_scm);
  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];
  if (!(obj_scm)) Scm_Error("scheme object required, but got %S", obj_scm);
  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];
  if (!(obj_scm)) Scm_Error("scheme object required, but got %S", obj_scm);
  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];
  if (!(obj_scm)) Scm_Error("scheme object required, but got %S", obj_scm);
  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];
  if (!(obj_scm)) Scm_Error("scheme object required, but got %S", obj_scm);
  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];
  if (!(obj_scm)) Scm_Error("scheme object required, but got %S", obj_scm);
  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];
  if (!(obj_scm)) Scm_Error("scheme object required, but got %S", obj_scm);
  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];
  if (!(obj_scm)) Scm_Error("scheme object required, but got %S", obj_scm);
  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];
  if (!(obj_scm)) Scm_Error("scheme object required, but got %S", obj_scm);
  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];
  if (!(obj_scm)) Scm_Error("scheme object required, but got %S", obj_scm);
  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];
  if (!(x_scm)) Scm_Error("scheme object required, but got %S", x_scm);
  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];
  if (!(x_scm)) Scm_Error("scheme object required, but got %S", x_scm);
  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];
  if (!(x_scm)) Scm_Error("scheme object required, but got %S", x_scm);
  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 libnumratnumP(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("ratnum?");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  x_scm = SCM_SUBRARGS[0];
  if (!(x_scm)) Scm_Error("scheme object required, but got %S", x_scm);
  x = (x_scm);
  {
{
int SCM_RESULT;
{SCM_RESULT=(SCM_RATNUMP(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 86 "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];
  if (!(obj_scm)) Scm_Error("scheme object required, but got %S", obj_scm);
  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 99 "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 100 "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 101 "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 113 "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 118 "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 123 "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];
  if (!(obj_scm)) Scm_Error("scheme object required, but got %S", obj_scm);
  obj = (obj_scm);
  {

#line 133 "libnum.scm"
if (SCM_BIGNUMP(obj)){{
Scm_BignumDump(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];
  if (!(arg0_scm)) Scm_Error("scheme object required, but got %S", arg0_scm);
  arg0 = (arg0_scm);
  arg1_scm = SCM_SUBRARGS[1];
  if (!(arg1_scm)) Scm_Error("scheme object required, but got %S", arg1_scm);
  arg1 = (arg1_scm);
  oarg = &SCM_SUBRARGS[2];
  optcnt = SCM_ARGCNT-1-2;
  args_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  if (!(args_scm)) Scm_Error("scheme object required, but got %S", args_scm);
  args = (args_scm);
  {
{
int SCM_RESULT;

#line 177 "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];
  if (!(arg0_scm)) Scm_Error("scheme object required, but got %S", arg0_scm);
  arg0 = (arg0_scm);
  arg1_scm = SCM_SUBRARGS[1];
  if (!(arg1_scm)) Scm_Error("scheme object required, but got %S", arg1_scm);
  arg1 = (arg1_scm);
  oarg = &SCM_SUBRARGS[2];
  optcnt = SCM_ARGCNT-1-2;
  args_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  if (!(args_scm)) Scm_Error("scheme object required, but got %S", args_scm);
  args = (args_scm);
  {
{
int SCM_RESULT;

#line 179 "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];
  if (!(arg0_scm)) Scm_Error("scheme object required, but got %S", arg0_scm);
  arg0 = (arg0_scm);
  arg1_scm = SCM_SUBRARGS[1];
  if (!(arg1_scm)) Scm_Error("scheme object required, but got %S", arg1_scm);
  arg1 = (arg1_scm);
  oarg = &SCM_SUBRARGS[2];
  optcnt = SCM_ARGCNT-1-2;
  args_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  if (!(args_scm)) Scm_Error("scheme object required, but got %S", args_scm);
  args = (args_scm);
  {
{
int SCM_RESULT;

#line 181 "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];
  if (!(arg0_scm)) Scm_Error("scheme object required, but got %S", arg0_scm);
  arg0 = (arg0_scm);
  arg1_scm = SCM_SUBRARGS[1];
  if (!(arg1_scm)) Scm_Error("scheme object required, but got %S", arg1_scm);
  arg1 = (arg1_scm);
  oarg = &SCM_SUBRARGS[2];
  optcnt = SCM_ARGCNT-1-2;
  args_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  if (!(args_scm)) Scm_Error("scheme object required, but got %S", args_scm);
  args = (args_scm);
  {
{
int SCM_RESULT;

#line 183 "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];
  if (!(arg0_scm)) Scm_Error("scheme object required, but got %S", arg0_scm);
  arg0 = (arg0_scm);
  arg1_scm = SCM_SUBRARGS[1];
  if (!(arg1_scm)) Scm_Error("scheme object required, but got %S", arg1_scm);
  arg1 = (arg1_scm);
  oarg = &SCM_SUBRARGS[2];
  optcnt = SCM_ARGCNT-1-2;
  args_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  if (!(args_scm)) Scm_Error("scheme object required, but got %S", args_scm);
  args = (args_scm);
  {
{
int SCM_RESULT;

#line 185 "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];
  if (!(arg0_scm)) Scm_Error("scheme object required, but got %S", arg0_scm);
  arg0 = (arg0_scm);
  args_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  if (!(args_scm)) Scm_Error("scheme object required, but got %S", args_scm);
  args = (args_scm);
  {
{
ScmObj SCM_RESULT;

#line 188 "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];
  if (!(arg0_scm)) Scm_Error("scheme object required, but got %S", arg0_scm);
  arg0 = (arg0_scm);
  args_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  if (!(args_scm)) Scm_Error("scheme object required, but got %S", args_scm);
  args = (args_scm);
  {
{
ScmObj SCM_RESULT;

#line 190 "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 libnum_LT_3d_3a_LT(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 z_scm;
  ScmObj z;
  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);
  }
  x_scm = SCM_SUBRARGS[0];
  if (!(x_scm)) Scm_Error("scheme object required, but got %S", x_scm);
  x = (x_scm);
  y_scm = SCM_SUBRARGS[1];
  if (!(y_scm)) Scm_Error("scheme object required, but got %S", y_scm);
  y = (y_scm);
  z_scm = SCM_SUBRARGS[2];
  if (!(z_scm)) Scm_Error("scheme object required, but got %S", z_scm);
  z = (z_scm);
  {
{
int SCM_RESULT;

#line 194 "libnum.scm"
{SCM_RESULT=((Scm_NumLE(x,y))&&(Scm_NumLT(y,z)));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}


static ScmObj libnum_LT_3a_LT_3d(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 z_scm;
  ScmObj z;
  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);
  }
  x_scm = SCM_SUBRARGS[0];
  if (!(x_scm)) Scm_Error("scheme object required, but got %S", x_scm);
  x = (x_scm);
  y_scm = SCM_SUBRARGS[1];
  if (!(y_scm)) Scm_Error("scheme object required, but got %S", y_scm);
  y = (y_scm);
  z_scm = SCM_SUBRARGS[2];
  if (!(z_scm)) Scm_Error("scheme object required, but got %S", z_scm);
  z = (z_scm);
  {
{
int SCM_RESULT;

#line 196 "libnum.scm"
{SCM_RESULT=((Scm_NumLT(x,y))&&(Scm_NumLE(y,z)));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(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];
  if (!(arg0_scm)) Scm_Error("scheme object required, but got %S", arg0_scm);
  arg0 = (arg0_scm);
  args_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  if (!(args_scm)) Scm_Error("scheme object required, but got %S", args_scm);
  args = (args_scm);
  {
ScmObj SCM_RESULT0;
ScmObj SCM_RESULT1;
{

#line 198 "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];
  if (!(obj_scm)) Scm_Error("scheme object required, but got %S", obj_scm);
  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];
  if (!(obj_scm)) Scm_Error("scheme object required, but got %S", obj_scm);
  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];
  if (!(obj_scm)) Scm_Error("scheme object required, but got %S", obj_scm);
  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("ScmSmallInt 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;
  }
  if (!(flags_scm)) Scm_Error("scheme object required, but got %S", flags_scm);
  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("ScmSmallInt required, but got %S", precision_scm);
  precision = SCM_INT_VALUE(precision_scm);
  {
{
ScmObj SCM_RESULT;

#line 217 "libnum.scm"
{u_long f=0;ScmNumberFormat fmt;ScmPort* o=
#line 219 "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 223 "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.d1613[208],flags)))){{
(f)|=(SCM_NUMBER_FORMAT_USE_UPPER);}}
if (!(SCM_FALSEP(Scm_Memq(scm__rc.d1613[209],flags)))){{
(f)|=(SCM_NUMBER_FORMAT_SHOW_PLUS);}}
if (!(SCM_FALSEP(Scm_Memq(scm__rc.d1613[210],flags)))){{
(f)|=(SCM_NUMBER_FORMAT_ALT_RADIX);}}
if (!(SCM_FALSEP(Scm_Memq(scm__rc.d1613[211],flags)))){{
(f)|=(SCM_NUMBER_FORMAT_ROUND_NOTATIONAL);}}} else {
#line 235 "libnum.scm"
Scm_Error("flags argument must be a list of symbols (uppercase, plus, radix, notational) or a boolean, but got: %S",flags);}
#line 238 "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("ScmSmallInt 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;
  }
  if (!(default_exactness_scm)) Scm_Error("scheme object required, but got %S", default_exactness_scm);
  default_exactness = (default_exactness_scm);
  {
{
ScmObj SCM_RESULT;

#line 248 "libnum.scm"
{u_long flags=0;
if (
SCM_EQ(default_exactness,scm__rc.d1613[203])){
flags=(SCM_NUMBER_FORMAT_EXACT);}else if(
SCM_EQ(default_exactness,scm__rc.d1613[207])){
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];
  if (!(num_scm)) Scm_Error("scheme object required, but got %S", num_scm);
  num = (num_scm);
  {
{
ScmObj SCM_RESULT;

#line 260 "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];
  if (!(num_scm)) Scm_Error("scheme object required, but got %S", num_scm);
  num = (num_scm);
  {
{
ScmObj SCM_RESULT;

#line 262 "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];
  if (!(num_scm)) Scm_Error("scheme object required, but got %S", num_scm);
  num = (num_scm);
  {
{
ScmObj SCM_RESULT;

#line 264 "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];
  if (!(num_scm)) Scm_Error("scheme object required, but got %S", num_scm);
  num = (num_scm);
  {
{
ScmObj SCM_RESULT;

#line 266 "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];
  if (!(num_scm)) Scm_Error("scheme object required, but got %S", num_scm);
  num = (num_scm);
  {
{
ScmObj SCM_RESULT;

#line 269 "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("double required, but got %S", x_scm);
  x = Scm_GetDouble(x_scm);
  y_scm = SCM_SUBRARGS[1];
  if (!SCM_REALP(y_scm)) Scm_Error("double 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("double required, but got %S", d_scm);
  d = Scm_GetDouble(d_scm);
  {
double SCM_RESULT0;
int SCM_RESULT1;
{

#line 288 "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("double required, but got %S", x_scm);
  x = Scm_GetDouble(x_scm);
  {
double SCM_RESULT0;
double SCM_RESULT1;
{

#line 291 "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("double required, but got %S", x_scm);
  x = Scm_GetDouble(x_scm);
  exp_scm = SCM_SUBRARGS[1];
  if (!SCM_INTEGERP(exp_scm)) Scm_Error("int 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("double 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("double 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("double 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("double 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];
  if (!(args_scm)) Scm_Error("scheme object required, but got %S", args_scm);
  args = (args_scm);
  {
{
ScmObj SCM_RESULT;
ScmObj cise__1625;
#line 317 "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__1625,SCM_CDR(args)) {{ScmObj v=SCM_CAR(cise__1625);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];
  if (!(args_scm)) Scm_Error("scheme object required, but got %S", args_scm);
  args = (args_scm);
  {
{
ScmObj SCM_RESULT;
ScmObj cise__1626;
#line 323 "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__1626,SCM_CDR(args)) {{ScmObj v=SCM_CAR(cise__1626);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];
  if (!(arg1_scm)) Scm_Error("scheme object required, but got %S", arg1_scm);
  arg1 = (arg1_scm);
  args_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  if (!(args_scm)) Scm_Error("scheme object required, but got %S", args_scm);
  args = (args_scm);
  {
{
ScmObj SCM_RESULT;
ScmObj cise__1627;
#line 329 "libnum.scm"
if (SCM_NULLP(args)){
{SCM_RESULT=(Scm_VMNegate(arg1));goto SCM_STUB_RETURN;}} else {
{SCM_FOR_EACH(cise__1627,args) {{ScmObj v=SCM_CAR(cise__1627);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];
  if (!(arg1_scm)) Scm_Error("scheme object required, but got %S", arg1_scm);
  arg1 = (arg1_scm);
  args_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  if (!(args_scm)) Scm_Error("scheme object required, but got %S", args_scm);
  args = (args_scm);
  {
{
ScmObj SCM_RESULT;
ScmObj cise__1628;
#line 335 "libnum.scm"
if (SCM_NULLP(args)){
{SCM_RESULT=(Scm_VMReciprocal(arg1));goto SCM_STUB_RETURN;}} else {
{SCM_FOR_EACH(cise__1628,args) {{ScmObj v=SCM_CAR(cise__1628);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];
  if (!(obj_scm)) Scm_Error("scheme object required, but got %S", obj_scm);
  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];
  if (!(n1_scm)) Scm_Error("scheme object required, but got %S", n1_scm);
  n1 = (n1_scm);
  n2_scm = SCM_SUBRARGS[1];
  if (!(n2_scm)) Scm_Error("scheme object required, but got %S", n2_scm);
  n2 = (n2_scm);
  {
{
ScmObj SCM_RESULT;

#line 343 "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];
  if (!(n1_scm)) Scm_Error("scheme object required, but got %S", n1_scm);
  n1 = (n1_scm);
  n2_scm = SCM_SUBRARGS[1];
  if (!(n2_scm)) Scm_Error("scheme object required, but got %S", n2_scm);
  n2 = (n2_scm);
  {
{
ScmObj SCM_RESULT;

#line 345 "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];
  if (!(n1_scm)) Scm_Error("scheme object required, but got %S", n1_scm);
  n1 = (n1_scm);
  n2_scm = SCM_SUBRARGS[1];
  if (!(n2_scm)) Scm_Error("scheme object required, but got %S", n2_scm);
  n2 = (n2_scm);
  {
{
ScmObj SCM_RESULT;

#line 347 "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];
  if (!(n1_scm)) Scm_Error("scheme object required, but got %S", n1_scm);
  n1 = (n1_scm);
  n2_scm = SCM_SUBRARGS[1];
  if (!(n2_scm)) Scm_Error("scheme object required, but got %S", n2_scm);
  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];
  if (!(n_scm)) Scm_Error("scheme object required, but got %S", n_scm);
  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];
  if (!(n_scm)) Scm_Error("scheme object required, but got %S", n_scm);
  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];
  if (!(v_scm)) Scm_Error("scheme object required, but got %S", v_scm);
  v = (v_scm);
  {
{
ScmObj SCM_RESULT;

#line 401 "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];
  if (!(v_scm)) Scm_Error("scheme object required, but got %S", v_scm);
  v = (v_scm);
  {
{
ScmObj SCM_RESULT;

#line 403 "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];
  if (!(v_scm)) Scm_Error("scheme object required, but got %S", v_scm);
  v = (v_scm);
  {
{
ScmObj SCM_RESULT;

#line 405 "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];
  if (!(v_scm)) Scm_Error("scheme object required, but got %S", v_scm);
  v = (v_scm);
  {
{
ScmObj SCM_RESULT;

#line 407 "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("double 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];
  if (!(x_scm)) Scm_Error("scheme object required, but got %S", x_scm);
  x = (x_scm);
  {
{
ScmObj SCM_RESULT;

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

#line 416 "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 420 "libnum.scm"
{double d=Scm_GetDouble(x);double shift=0.0;
#line 422 "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("double 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("double 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("double 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("double 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("double 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("double 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("double required, but got %S", x_scm);
  x = Scm_GetDouble(x_scm);
  {
{
ScmObj SCM_RESULT;

#line 443 "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("double required, but got %S", x_scm);
  x = Scm_GetDouble(x_scm);
  {
{
ScmObj SCM_RESULT;

#line 452 "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("double 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;
  }
  if (!(x_scm)) Scm_Error("scheme object required, but got %S", x_scm);
  x = (x_scm);
  {
{
double SCM_RESULT;

#line 459 "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("double 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("double 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("double 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("double required, but got %S", x_scm);
  x = Scm_GetDouble(x_scm);
  {
{
ScmObj SCM_RESULT;

#line 469 "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];
  if (!(x_scm)) Scm_Error("scheme object required, but got %S", x_scm);
  x = (x_scm);
  {
{
ScmObj SCM_RESULT;

#line 479 "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 489 "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];
  if (!(x_scm)) Scm_Error("scheme object required, but got %S", x_scm);
  x = (x_scm);
  y_scm = SCM_SUBRARGS[1];
  if (!(y_scm)) Scm_Error("scheme object required, but got %S", y_scm);
  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];
  if (!(x_scm)) Scm_Error("scheme object required, but got %S", x_scm);
  x = (x_scm);
  y_scm = SCM_SUBRARGS[1];
  if (!(y_scm)) Scm_Error("scheme object required, but got %S", y_scm);
  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 libnumradians_TOdegrees(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj r_scm;
  double r;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("radians->degrees");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  r_scm = SCM_SUBRARGS[0];
  if (!SCM_REALP(r_scm)) Scm_Error("double required, but got %S", r_scm);
  r = Scm_GetDouble(r_scm);
  {
{
double SCM_RESULT;

#line 745 "libnum.scm"
{SCM_RESULT=((r)*((180)/(M_PI)));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(Scm_VMReturnFlonum(SCM_RESULT));
}
  }
}


static ScmObj libnumdegrees_TOradians(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("degrees->radians");
  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("double required, but got %S", d_scm);
  d = Scm_GetDouble(d_scm);
  {
{
double SCM_RESULT;

#line 747 "libnum.scm"
{SCM_RESULT=((d)*((M_PI)/(180)));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(Scm_VMReturnFlonum(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];
  if (!(num_scm)) Scm_Error("scheme object required, but got %S", num_scm);
  num = (num_scm);
  cnt_scm = SCM_SUBRARGS[1];
  if (!SCM_INTP(cnt_scm)) Scm_Error("ScmSmallInt 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];
  if (!(x_scm)) Scm_Error("scheme object required, but got %S", x_scm);
  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];
  if (!(args_scm)) Scm_Error("scheme object required, but got %S", args_scm);
  args = (args_scm);
  {
{
ScmObj SCM_RESULT;
ScmObj cise__1652;
#line 770 "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__1652,args) {{ScmObj v=SCM_CAR(cise__1652);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];
  if (!(args_scm)) Scm_Error("scheme object required, but got %S", args_scm);
  args = (args_scm);
  {
{
ScmObj SCM_RESULT;
ScmObj cise__1653;
#line 772 "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__1653,args) {{ScmObj v=SCM_CAR(cise__1653);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];
  if (!(args_scm)) Scm_Error("scheme object required, but got %S", args_scm);
  args = (args_scm);
  {
{
ScmObj SCM_RESULT;
ScmObj cise__1654;
#line 774 "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__1654,args) {{ScmObj v=SCM_CAR(cise__1654);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];
  if (!(n_scm)) Scm_Error("scheme object required, but got %S", n_scm);
  n = (n_scm);
  {
{
int SCM_RESULT;

#line 777 "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];
  if (!(n_scm)) Scm_Error("scheme object required, but got %S", n_scm);
  n = (n_scm);
  {
{
int SCM_RESULT;

#line 787 "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 794 "libnum.scm"
if ((SCM_BIGNUM_SIGN(n))<(0)){{
n=(Scm_Add(n,SCM_MAKE_INT(1)));}}
#line 797 "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 802 "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];
  if (!(n_scm)) Scm_Error("scheme object required, but got %S", n_scm);
  n = (n_scm);
  {
{
int SCM_RESULT;

#line 809 "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];
  if (!(n_scm)) Scm_Error("scheme object required, but got %S", n_scm);
  n = (n_scm);
  {
{
ScmObj SCM_RESULT;

#line 820 "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];
  if (!(arg1_scm)) Scm_Error("scheme object required, but got %S", arg1_scm);
  arg1 = (arg1_scm);
  args_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  if (!(args_scm)) Scm_Error("scheme object required, but got %S", args_scm);
  args = (args_scm);
  {
{
ScmObj SCM_RESULT;
ScmObj cise__1655;
#line 835 "libnum.scm"
if (SCM_NULLP(args)){{SCM_RESULT=(Scm_ReciprocalInexact(arg1));goto SCM_STUB_RETURN;}} else {
SCM_FOR_EACH(cise__1655,args) {{ScmObj x=SCM_CAR(cise__1655);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];
  if (!(args_scm)) Scm_Error("scheme object required, but got %S", args_scm);
  args = (args_scm);
  {
{
ScmObj SCM_RESULT;
ScmObj cise__1656;
#line 843 "libnum.scm"
{ScmObj a=scm__rc.d1613[389];
SCM_FOR_EACH(cise__1656,args) {{ScmObj x=SCM_CAR(cise__1656);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];
  if (!(args_scm)) Scm_Error("scheme object required, but got %S", args_scm);
  args = (args_scm);
  {
{
ScmObj SCM_RESULT;
ScmObj cise__1657;
#line 847 "libnum.scm"
{ScmObj a=scm__rc.d1613[654];
SCM_FOR_EACH(cise__1657,args) {{ScmObj x=SCM_CAR(cise__1657);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];
  if (!(arg1_scm)) Scm_Error("scheme object required, but got %S", arg1_scm);
  arg1 = (arg1_scm);
  args_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  if (!(args_scm)) Scm_Error("scheme object required, but got %S", args_scm);
  args = (args_scm);
  {
{
ScmObj SCM_RESULT;
ScmObj cise__1658;
#line 851 "libnum.scm"
if (
SCM_NULLP(args)){{SCM_RESULT=(Scm_Negate(Scm_Inexact(arg1)));goto SCM_STUB_RETURN;}} else {
SCM_FOR_EACH(cise__1658,args) {{ScmObj x=SCM_CAR(cise__1658);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];
  if (!(arg1_scm)) Scm_Error("scheme object required, but got %S", arg1_scm);
  arg1 = (arg1_scm);
  args_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  if (!(args_scm)) Scm_Error("scheme object required, but got %S", args_scm);
  args = (args_scm);
  {
{
ScmObj SCM_RESULT;
ScmObj cise__1659;
#line 856 "libnum.scm"
if (
SCM_NULLP(args)){{SCM_RESULT=(Scm_Reciprocal(Scm_Inexact(arg1)));goto SCM_STUB_RETURN;}} else {
SCM_FOR_EACH(cise__1659,args) {{ScmObj x=SCM_CAR(cise__1659);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];
  if (!(x_scm)) Scm_Error("scheme object required, but got %S", x_scm);
  x = (x_scm);
  if (SCM_ARGCNT > 1+1) {
    min_scm = SCM_SUBRARGS[1];
  } else {
    min_scm = SCM_FALSE;
  }
  if (!(min_scm)) Scm_Error("scheme object required, but got %S", min_scm);
  min = (min_scm);
  if (SCM_ARGCNT > 2+1) {
    max_scm = SCM_SUBRARGS[2];
  } else {
    max_scm = SCM_FALSE;
  }
  if (!(max_scm)) Scm_Error("scheme object required, but got %S", max_scm);
  max = (max_scm);
  {
{
ScmObj SCM_RESULT;

#line 862 "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];
  if (!(n1_scm)) Scm_Error("scheme object required, but got %S", n1_scm);
  n1 = (n1_scm);
  n2_scm = SCM_SUBRARGS[1];
  if (!(n2_scm)) Scm_Error("scheme object required, but got %S", n2_scm);
  n2 = (n2_scm);
  {
ScmObj SCM_RESULT0;
ScmObj SCM_RESULT1;
{

#line 879 "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("double required, but got %S", a_scm);
  a = Scm_GetDouble(a_scm);
  b_scm = SCM_SUBRARGS[1];
  if (!SCM_REALP(b_scm)) Scm_Error("double 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("double required, but got %S", r_scm);
  r = Scm_GetDouble(r_scm);
  t_scm = SCM_SUBRARGS[1];
  if (!SCM_REALP(t_scm)) Scm_Error("double 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 894 "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 899 "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];
  if (!(z_scm)) Scm_Error("scheme object required, but got %S", z_scm);
  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];
  if (!(z_scm)) Scm_Error("scheme object required, but got %S", z_scm);
  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 912 "libnum.scm"
if (SCM_EQ(clamp,scm__rc.d1613[707])){return (SCM_CLAMP_BOTH);}else if(
SCM_EQ(clamp,scm__rc.d1613[706])){return (SCM_CLAMP_LO);}else if(
SCM_EQ(clamp,scm__rc.d1613[705])){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 918 "libnum.scm"
return (SCM_CLAMP_ERROR);}}
static ScmCompiledCode *toplevels[] = {
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1618[0])),
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1618[1])),
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1618[4])),
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1618[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.d1613[0] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[0])),TRUE); /* number? */
  scm__rc.d1613[1] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[1])),TRUE); /* obj */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1]), scm__rc.d1613[1]);
  scm__rc.d1613[2] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[2])),TRUE); /* source-info */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[4]), scm__rc.d1613[2]);
  scm__rc.d1613[3] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[4])),TRUE); /* bind-info */
  scm__rc.d1613[4] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[5])),TRUE); /* scheme */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[5]), scm__rc.d1613[0]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[6]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[7]), scm__rc.d1613[3]);
  scm__rc.d1613[5] = Scm_MakeExtendedPair(scm__rc.d1613[0], SCM_OBJ(&scm__rc.d1614[1]), SCM_OBJ(&scm__rc.d1614[9]));
  scm__rc.d1613[6] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[6])),TRUE); /* <top> */
  scm__rc.d1613[7] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[7])),TRUE); /* -> */
  scm__rc.d1613[8] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[8])),TRUE); /* <boolean> */
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[9]))[3] = scm__rc.d1613[4];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[9]))[4] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[9]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[9]))[6] = scm__rc.d1613[8];
  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.d1613[5];
  libnumnumberP__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[9]);
  scm__rc.d1613[16] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[9])),TRUE); /* complex? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[12]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[13]), scm__rc.d1613[16]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[14]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[15]), scm__rc.d1613[3]);
  scm__rc.d1613[17] = Scm_MakeExtendedPair(scm__rc.d1613[16], SCM_OBJ(&scm__rc.d1614[1]), SCM_OBJ(&scm__rc.d1614[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.d1613[17];
  libnumcomplexP__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[9]);
  scm__rc.d1613[18] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[10])),TRUE); /* real? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[20]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[21]), scm__rc.d1613[18]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[22]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[23]), scm__rc.d1613[3]);
  scm__rc.d1613[19] = Scm_MakeExtendedPair(scm__rc.d1613[18], SCM_OBJ(&scm__rc.d1614[1]), SCM_OBJ(&scm__rc.d1614[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.d1613[19];
  libnumrealP__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[9]);
  scm__rc.d1613[20] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[11])),TRUE); /* rational? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[28]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[29]), scm__rc.d1613[20]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[30]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[31]), scm__rc.d1613[3]);
  scm__rc.d1613[21] = Scm_MakeExtendedPair(scm__rc.d1613[20], SCM_OBJ(&scm__rc.d1614[1]), SCM_OBJ(&scm__rc.d1614[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.d1613[21];
  libnumrationalP__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[9]);
  scm__rc.d1613[22] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[12])),TRUE); /* integer? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[36]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[37]), scm__rc.d1613[22]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[38]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[39]), scm__rc.d1613[3]);
  scm__rc.d1613[23] = Scm_MakeExtendedPair(scm__rc.d1613[22], SCM_OBJ(&scm__rc.d1614[1]), SCM_OBJ(&scm__rc.d1614[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.d1613[23];
  libnumintegerP__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[9]);
  scm__rc.d1613[24] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[13])),TRUE); /* exact? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[44]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[45]), scm__rc.d1613[24]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[46]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[47]), scm__rc.d1613[3]);
  scm__rc.d1613[25] = Scm_MakeExtendedPair(scm__rc.d1613[24], SCM_OBJ(&scm__rc.d1614[1]), SCM_OBJ(&scm__rc.d1614[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.d1613[25];
  libnumexactP__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[9]);
  scm__rc.d1613[26] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[14])),TRUE); /* inexact? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[52]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[53]), scm__rc.d1613[26]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[54]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[55]), scm__rc.d1613[3]);
  scm__rc.d1613[27] = Scm_MakeExtendedPair(scm__rc.d1613[26], SCM_OBJ(&scm__rc.d1614[1]), SCM_OBJ(&scm__rc.d1614[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.d1613[27];
  libnuminexactP__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[9]);
  scm__rc.d1613[28] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[15])),TRUE); /* zero? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[60]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[61]), scm__rc.d1613[28]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[62]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[63]), scm__rc.d1613[3]);
  scm__rc.d1613[29] = Scm_MakeExtendedPair(scm__rc.d1613[28], SCM_OBJ(&scm__rc.d1614[1]), SCM_OBJ(&scm__rc.d1614[65]));
  scm__rc.d1613[30] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[16])),TRUE); /* <number> */
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[31]))[3] = scm__rc.d1613[4];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[31]))[4] = scm__rc.d1613[30];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[31]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[31]))[6] = scm__rc.d1613[8];
  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.d1613[29];
  libnumzeroP__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[31]);
  scm__rc.d1613[38] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[17])),TRUE); /* positive? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[68]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[69]), scm__rc.d1613[38]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[70]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[71]), scm__rc.d1613[3]);
  scm__rc.d1613[39] = Scm_MakeExtendedPair(scm__rc.d1613[38], SCM_OBJ(&scm__rc.d1614[1]), SCM_OBJ(&scm__rc.d1614[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.d1613[39];
  libnumpositiveP__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[9]);
  scm__rc.d1613[40] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[18])),TRUE); /* negative? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[76]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[77]), scm__rc.d1613[40]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[78]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[79]), scm__rc.d1613[3]);
  scm__rc.d1613[41] = Scm_MakeExtendedPair(scm__rc.d1613[40], SCM_OBJ(&scm__rc.d1614[1]), SCM_OBJ(&scm__rc.d1614[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.d1613[41];
  libnumnegativeP__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[9]);
  scm__rc.d1613[42] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[19])),TRUE); /* odd? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[84]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[85]), scm__rc.d1613[42]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[86]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[87]), scm__rc.d1613[3]);
  scm__rc.d1613[43] = Scm_MakeExtendedPair(scm__rc.d1613[42], SCM_OBJ(&scm__rc.d1614[1]), SCM_OBJ(&scm__rc.d1614[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.d1613[43];
  libnumoddP__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[9]);
  scm__rc.d1613[44] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[20])),TRUE); /* even? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[92]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[93]), scm__rc.d1613[44]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[94]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[95]), scm__rc.d1613[3]);
  scm__rc.d1613[45] = Scm_MakeExtendedPair(scm__rc.d1613[44], SCM_OBJ(&scm__rc.d1614[1]), SCM_OBJ(&scm__rc.d1614[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.d1613[45];
  libnumevenP__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[9]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1613[46] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[21])),TRUE); /* fixnum? */
  scm__rc.d1613[47] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[22])),TRUE); /* x */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[98]), scm__rc.d1613[47]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[101]), scm__rc.d1613[2]);
  scm__rc.d1613[48] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[23])),TRUE); /* gauche */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[102]), scm__rc.d1613[46]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[103]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[104]), scm__rc.d1613[3]);
  scm__rc.d1613[49] = Scm_MakeExtendedPair(scm__rc.d1613[46], SCM_OBJ(&scm__rc.d1614[98]), SCM_OBJ(&scm__rc.d1614[106]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[50]))[3] = scm__rc.d1613[48];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[50]))[4] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[50]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[50]))[6] = scm__rc.d1613[8];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("fixnum?")), SCM_OBJ(&libnumfixnumP__STUB), 0);
  libnumfixnumP__STUB.common.info = scm__rc.d1613[49];
  libnumfixnumP__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[50]);
  scm__rc.d1613[57] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[24])),TRUE); /* bignum? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[109]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[110]), scm__rc.d1613[57]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[111]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[112]), scm__rc.d1613[3]);
  scm__rc.d1613[58] = Scm_MakeExtendedPair(scm__rc.d1613[57], SCM_OBJ(&scm__rc.d1614[98]), SCM_OBJ(&scm__rc.d1614[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.d1613[58];
  libnumbignumP__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[50]);
  scm__rc.d1613[59] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[25])),TRUE); /* flonum? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[117]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[118]), scm__rc.d1613[59]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[119]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[120]), scm__rc.d1613[3]);
  scm__rc.d1613[60] = Scm_MakeExtendedPair(scm__rc.d1613[59], SCM_OBJ(&scm__rc.d1614[98]), SCM_OBJ(&scm__rc.d1614[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.d1613[60];
  libnumflonumP__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[50]);
  scm__rc.d1613[61] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[26])),TRUE); /* ratnum? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[125]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[126]), scm__rc.d1613[61]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[127]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[128]), scm__rc.d1613[3]);
  scm__rc.d1613[62] = Scm_MakeExtendedPair(scm__rc.d1613[61], SCM_OBJ(&scm__rc.d1614[98]), SCM_OBJ(&scm__rc.d1614[130]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("ratnum?")), SCM_OBJ(&libnumratnumP__STUB), SCM_BINDING_INLINABLE);
  libnumratnumP__STUB.common.info = scm__rc.d1613[62];
  libnumratnumP__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[50]);
  scm__rc.d1613[63] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[27])),TRUE); /* finite? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[133]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[134]), scm__rc.d1613[63]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[135]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[136]), scm__rc.d1613[3]);
  scm__rc.d1613[64] = Scm_MakeExtendedPair(scm__rc.d1613[63], SCM_OBJ(&scm__rc.d1614[98]), SCM_OBJ(&scm__rc.d1614[138]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[65]))[3] = scm__rc.d1613[48];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[65]))[4] = scm__rc.d1613[30];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[65]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[65]))[6] = scm__rc.d1613[8];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("finite?")), SCM_OBJ(&libnumfiniteP__STUB), 0);
  libnumfiniteP__STUB.common.info = scm__rc.d1613[64];
  libnumfiniteP__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[65]);
  scm__rc.d1613[72] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[28])),TRUE); /* infinite? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[141]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[142]), scm__rc.d1613[72]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[143]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[144]), scm__rc.d1613[3]);
  scm__rc.d1613[73] = Scm_MakeExtendedPair(scm__rc.d1613[72], SCM_OBJ(&scm__rc.d1614[98]), SCM_OBJ(&scm__rc.d1614[146]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("infinite?")), SCM_OBJ(&libnuminfiniteP__STUB), 0);
  libnuminfiniteP__STUB.common.info = scm__rc.d1613[73];
  libnuminfiniteP__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[65]);
  scm__rc.d1613[74] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[29])),TRUE); /* nan? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[149]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[150]), scm__rc.d1613[74]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[151]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[152]), scm__rc.d1613[3]);
  scm__rc.d1613[75] = Scm_MakeExtendedPair(scm__rc.d1613[74], SCM_OBJ(&scm__rc.d1614[98]), SCM_OBJ(&scm__rc.d1614[154]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("nan?")), SCM_OBJ(&libnumnanP__STUB), 0);
  libnumnanP__STUB.common.info = scm__rc.d1613[75];
  libnumnanP__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[65]);
  scm__rc.d1613[76] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[30])),TRUE); /* -zero? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[157]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[158]), scm__rc.d1613[76]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[159]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[160]), scm__rc.d1613[3]);
  scm__rc.d1613[77] = Scm_MakeExtendedPair(scm__rc.d1613[76], SCM_OBJ(&scm__rc.d1614[98]), SCM_OBJ(&scm__rc.d1614[162]));
  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.d1613[77];
  libnum_zeroP__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[65]);
  scm__rc.d1613[78] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[31])),TRUE); /* exact-integer? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[165]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[166]), scm__rc.d1613[78]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[167]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[168]), scm__rc.d1613[3]);
  scm__rc.d1613[79] = Scm_MakeExtendedPair(scm__rc.d1613[78], SCM_OBJ(&scm__rc.d1614[1]), SCM_OBJ(&scm__rc.d1614[170]));
  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.d1613[79];
  libnumexact_integerP__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[50]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1613[80] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[32])),TRUE); /* fixnum-width */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[171]), scm__rc.d1613[80]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[172]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[173]), scm__rc.d1613[3]);
  scm__rc.d1613[81] = Scm_MakeExtendedPair(scm__rc.d1613[80], SCM_NIL, SCM_OBJ(&scm__rc.d1614[174]));
  scm__rc.d1613[82] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[33])),TRUE); /* <int> */
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[83]))[3] = scm__rc.d1613[48];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[83]))[4] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[83]))[5] = scm__rc.d1613[82];
  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.d1613[81];
  libnumfixnum_width__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[83]);
  scm__rc.d1613[89] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[34])),TRUE); /* least-fixnum */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[175]), scm__rc.d1613[89]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[176]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[177]), scm__rc.d1613[3]);
  scm__rc.d1613[90] = Scm_MakeExtendedPair(scm__rc.d1613[89], SCM_NIL, SCM_OBJ(&scm__rc.d1614[178]));
  scm__rc.d1613[91] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[35])),TRUE); /* <long> */
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[92]))[3] = scm__rc.d1613[48];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[92]))[4] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[92]))[5] = scm__rc.d1613[91];
  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.d1613[90];
  libnumleast_fixnum__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[92]);
  scm__rc.d1613[98] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[36])),TRUE); /* greatest-fixnum */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[179]), scm__rc.d1613[98]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[180]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[181]), scm__rc.d1613[3]);
  scm__rc.d1613[99] = Scm_MakeExtendedPair(scm__rc.d1613[98], SCM_NIL, SCM_OBJ(&scm__rc.d1614[182]));
  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.d1613[99];
  libnumgreatest_fixnum__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[92]);

#line 107 "libnum.scm"
Scm_DefaultEndian();
  scm__rc.d1613[100] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[37])),TRUE); /* native-endian */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[183]), scm__rc.d1613[100]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[184]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[185]), scm__rc.d1613[3]);
  scm__rc.d1613[101] = Scm_MakeExtendedPair(scm__rc.d1613[100], SCM_NIL, SCM_OBJ(&scm__rc.d1614[186]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[102]))[3] = scm__rc.d1613[48];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[102]))[4] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[102]))[5] = scm__rc.d1613[6];
  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.d1613[101];
  libnumnative_endian__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[102]);
  scm__rc.d1613[108] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[38])),TRUE); /* flonum-epsilon */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[187]), scm__rc.d1613[108]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[188]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[189]), scm__rc.d1613[3]);
  scm__rc.d1613[109] = Scm_MakeExtendedPair(scm__rc.d1613[108], SCM_NIL, SCM_OBJ(&scm__rc.d1614[190]));
  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.d1613[109];
  libnumflonum_epsilon__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[102]);
  scm__rc.d1613[110] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[39])),TRUE); /* flonum-min-normalized */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[191]), scm__rc.d1613[110]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[192]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[193]), scm__rc.d1613[3]);
  scm__rc.d1613[111] = Scm_MakeExtendedPair(scm__rc.d1613[110], SCM_NIL, SCM_OBJ(&scm__rc.d1614[194]));
  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.d1613[111];
  libnumflonum_min_normalized__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[102]);
  scm__rc.d1613[112] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[40])),TRUE); /* flonum-min-denormalized */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[195]), scm__rc.d1613[112]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[196]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[197]), scm__rc.d1613[3]);
  scm__rc.d1613[113] = Scm_MakeExtendedPair(scm__rc.d1613[112], SCM_NIL, SCM_OBJ(&scm__rc.d1614[198]));
  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.d1613[113];
  libnumflonum_min_denormalized__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[102]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
  scm__rc.d1613[114] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[41])),TRUE); /* %bignum-dump */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[201]), scm__rc.d1613[2]);
  scm__rc.d1613[115] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[42])),TRUE); /* gauche.internal */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[202]), scm__rc.d1613[114]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[203]), scm__rc.d1613[115]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[204]), scm__rc.d1613[3]);
  scm__rc.d1613[116] = Scm_MakeExtendedPair(scm__rc.d1613[114], SCM_OBJ(&scm__rc.d1614[1]), SCM_OBJ(&scm__rc.d1614[206]));
  scm__rc.d1613[117] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[43])),TRUE); /* <void> */
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[118]))[3] = scm__rc.d1613[115];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[118]))[4] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[118]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[118]))[6] = scm__rc.d1613[117];
  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.d1613[116];
  libnum_25bignum_dump__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[118]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
  scm__rc.d1613[125] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[44])),TRUE); /* = */
  scm__rc.d1613[126] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[45])),TRUE); /* arg0 */
  scm__rc.d1613[127] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[46])),TRUE); /* arg1 */
  scm__rc.d1613[128] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1612[47]))); /* :rest */
  scm__rc.d1613[129] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[48])),TRUE); /* args */
  scm__rc.d1613[130] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1612[49]))); /* :optarray */
  scm__rc.d1613[131] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[50])),TRUE); /* oarg */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[207]), scm__rc.d1613[131]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[208]), scm__rc.d1613[130]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[209]), scm__rc.d1613[129]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[210]), scm__rc.d1613[128]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[211]), scm__rc.d1613[127]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[212]), scm__rc.d1613[126]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[215]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[216]), scm__rc.d1613[125]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[217]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[218]), scm__rc.d1613[3]);
  scm__rc.d1613[132] = Scm_MakeExtendedPair(scm__rc.d1613[125], SCM_OBJ(&scm__rc.d1614[212]), SCM_OBJ(&scm__rc.d1614[220]));
  scm__rc.d1613[133] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[51])),TRUE); /* * */
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[134]))[3] = scm__rc.d1613[4];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[134]))[4] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[134]))[5] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[134]))[6] = scm__rc.d1613[133];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[134]))[7] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[134]))[8] = scm__rc.d1613[8];
  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.d1613[132];
  libnum_3d__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[134]);
  scm__rc.d1613[143] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[52])),TRUE); /* < */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[223]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[224]), scm__rc.d1613[143]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[225]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[226]), scm__rc.d1613[3]);
  scm__rc.d1613[144] = Scm_MakeExtendedPair(scm__rc.d1613[143], SCM_OBJ(&scm__rc.d1614[212]), SCM_OBJ(&scm__rc.d1614[228]));
  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.d1613[144];
  libnum_LT__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[134]);
  scm__rc.d1613[145] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[53])),TRUE); /* <= */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[231]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[232]), scm__rc.d1613[145]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[233]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[234]), scm__rc.d1613[3]);
  scm__rc.d1613[146] = Scm_MakeExtendedPair(scm__rc.d1613[145], SCM_OBJ(&scm__rc.d1614[212]), SCM_OBJ(&scm__rc.d1614[236]));
  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.d1613[146];
  libnum_LT_3d__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[134]);
  scm__rc.d1613[147] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[54])),TRUE); /* > */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[239]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[240]), scm__rc.d1613[147]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[241]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[242]), scm__rc.d1613[3]);
  scm__rc.d1613[148] = Scm_MakeExtendedPair(scm__rc.d1613[147], SCM_OBJ(&scm__rc.d1614[212]), SCM_OBJ(&scm__rc.d1614[244]));
  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.d1613[148];
  libnum_GT__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[134]);
  scm__rc.d1613[149] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[55])),TRUE); /* >= */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[247]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[248]), scm__rc.d1613[149]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[249]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[250]), scm__rc.d1613[3]);
  scm__rc.d1613[150] = Scm_MakeExtendedPair(scm__rc.d1613[149], SCM_OBJ(&scm__rc.d1614[212]), SCM_OBJ(&scm__rc.d1614[252]));
  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.d1613[150];
  libnum_GT_3d__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[134]);
  scm__rc.d1613[151] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[56])),TRUE); /* max */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[253]), scm__rc.d1613[129]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[254]), scm__rc.d1613[128]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[255]), scm__rc.d1613[126]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[258]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[259]), scm__rc.d1613[151]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[260]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[261]), scm__rc.d1613[3]);
  scm__rc.d1613[152] = Scm_MakeExtendedPair(scm__rc.d1613[151], SCM_OBJ(&scm__rc.d1614[255]), SCM_OBJ(&scm__rc.d1614[263]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[153]))[3] = scm__rc.d1613[4];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[153]))[4] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[153]))[5] = scm__rc.d1613[133];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[153]))[6] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[153]))[7] = scm__rc.d1613[30];
  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.d1613[152];
  libnummax__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[153]);
  scm__rc.d1613[161] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[57])),TRUE); /* min */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[266]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[267]), scm__rc.d1613[161]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[268]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[269]), scm__rc.d1613[3]);
  scm__rc.d1613[162] = Scm_MakeExtendedPair(scm__rc.d1613[161], SCM_OBJ(&scm__rc.d1614[255]), SCM_OBJ(&scm__rc.d1614[271]));
  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.d1613[162];
  libnummin__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[153]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1613[163] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[58])),TRUE); /* <=:< */
  scm__rc.d1613[164] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[59])),TRUE); /* y */
  scm__rc.d1613[165] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[60])),TRUE); /* z */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[272]), scm__rc.d1613[165]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[273]), scm__rc.d1613[164]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[274]), scm__rc.d1613[47]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[277]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[278]), scm__rc.d1613[163]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[279]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[280]), scm__rc.d1613[3]);
  scm__rc.d1613[166] = Scm_MakeExtendedPair(scm__rc.d1613[163], SCM_OBJ(&scm__rc.d1614[274]), SCM_OBJ(&scm__rc.d1614[282]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[167]))[3] = scm__rc.d1613[48];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[167]))[4] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[167]))[5] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[167]))[6] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[167]))[7] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[167]))[8] = scm__rc.d1613[8];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("<=:<")), SCM_OBJ(&libnum_LT_3d_3a_LT__STUB), SCM_BINDING_INLINABLE);
  libnum_LT_3d_3a_LT__STUB.common.info = scm__rc.d1613[166];
  libnum_LT_3d_3a_LT__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[167]);
  scm__rc.d1613[176] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[61])),TRUE); /* <:<= */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[285]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[286]), scm__rc.d1613[176]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[287]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[288]), scm__rc.d1613[3]);
  scm__rc.d1613[177] = Scm_MakeExtendedPair(scm__rc.d1613[176], SCM_OBJ(&scm__rc.d1614[274]), SCM_OBJ(&scm__rc.d1614[290]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("<:<=")), SCM_OBJ(&libnum_LT_3a_LT_3d__STUB), SCM_BINDING_INLINABLE);
  libnum_LT_3a_LT_3d__STUB.common.info = scm__rc.d1613[177];
  libnum_LT_3a_LT_3d__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[167]);
  scm__rc.d1613[178] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[62])),TRUE); /* min&max */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[293]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[294]), scm__rc.d1613[178]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[295]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[296]), scm__rc.d1613[3]);
  scm__rc.d1613[179] = Scm_MakeExtendedPair(scm__rc.d1613[178], SCM_OBJ(&scm__rc.d1614[255]), SCM_OBJ(&scm__rc.d1614[298]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[180]))[3] = scm__rc.d1613[48];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[180]))[4] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[180]))[5] = scm__rc.d1613[133];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[180]))[6] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[180]))[7] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[180]))[8] = scm__rc.d1613[6];
  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.d1613[179];
  libnummin_26max__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[180]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
  scm__rc.d1613[189] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[63])),TRUE); /* exact->inexact */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[301]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[302]), scm__rc.d1613[189]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[303]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[304]), scm__rc.d1613[3]);
  scm__rc.d1613[190] = Scm_MakeExtendedPair(scm__rc.d1613[189], SCM_OBJ(&scm__rc.d1614[1]), SCM_OBJ(&scm__rc.d1614[306]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[191]))[3] = scm__rc.d1613[4];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[191]))[4] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[191]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[191]))[6] = scm__rc.d1613[6];
  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.d1613[190];
  libnumexact_TOinexact__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[191]);
  scm__rc.d1613[198] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[64])),TRUE); /* inexact->exact */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[309]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[310]), scm__rc.d1613[198]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[311]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[312]), scm__rc.d1613[3]);
  scm__rc.d1613[199] = Scm_MakeExtendedPair(scm__rc.d1613[198], SCM_OBJ(&scm__rc.d1614[1]), SCM_OBJ(&scm__rc.d1614[314]));
  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.d1613[199];
  libnuminexact_TOexact__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[191]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1613[201] = SCM_OBJ(Scm_FindModule(SCM_SYMBOL(scm__rc.d1613[48]), SCM_FIND_MODULE_CREATE|SCM_FIND_MODULE_PLACEHOLDING)); /* module gauche */
  scm__rc.d1613[200] = Scm_MakeIdentifier(scm__rc.d1613[198], SCM_MODULE(scm__rc.d1613[201]), SCM_NIL); /* gauche#inexact->exact */
  scm__rc.d1613[203] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[65])),TRUE); /* exact */
  scm__rc.d1613[202] = Scm_MakeIdentifier(scm__rc.d1613[203], SCM_MODULE(scm__rc.d1613[201]), SCM_NIL); /* gauche#exact */
  scm__rc.d1613[204] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[66])),TRUE); /* %toplevel */
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1618[0]))->name = scm__rc.d1613[204];/* %toplevel */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[0]))[1] = SCM_WORD(scm__rc.d1613[200]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[0]))[3] = SCM_WORD(scm__rc.d1613[202]);
  scm__rc.d1613[205] = Scm_MakeIdentifier(scm__rc.d1613[189], SCM_MODULE(scm__rc.d1613[201]), SCM_NIL); /* gauche#exact->inexact */
  scm__rc.d1613[207] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[67])),TRUE); /* inexact */
  scm__rc.d1613[206] = Scm_MakeIdentifier(scm__rc.d1613[207], SCM_MODULE(scm__rc.d1613[201]), SCM_NIL); /* gauche#inexact */
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1618[1]))->name = scm__rc.d1613[204];/* %toplevel */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[5]))[1] = SCM_WORD(scm__rc.d1613[205]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[5]))[3] = SCM_WORD(scm__rc.d1613[206]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
  scm__rc.d1613[208] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[69])),TRUE); /* uppercase */
  scm__rc.d1613[209] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[70])),TRUE); /* plus */
  scm__rc.d1613[210] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[71])),TRUE); /* radix */
  scm__rc.d1613[211] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[72])),TRUE); /* notational */
  scm__rc.d1613[212] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[68])),TRUE); /* number->string */
  scm__rc.d1613[213] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1612[73]))); /* :optional */
  scm__rc.d1613[214] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[74])),TRUE); /* flags */
  scm__rc.d1613[215] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[75])),TRUE); /* precision */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[315]), scm__rc.d1613[215]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[316]), scm__rc.d1613[214]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[317]), scm__rc.d1613[210]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[318]), scm__rc.d1613[213]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[319]), scm__rc.d1613[1]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[322]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[323]), scm__rc.d1613[212]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[324]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[325]), scm__rc.d1613[3]);
  scm__rc.d1613[216] = Scm_MakeExtendedPair(scm__rc.d1613[212], SCM_OBJ(&scm__rc.d1614[319]), SCM_OBJ(&scm__rc.d1614[327]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[217]))[3] = scm__rc.d1613[4];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[217]))[4] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[217]))[5] = scm__rc.d1613[133];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[217]))[6] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[217]))[7] = scm__rc.d1613[6];
  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.d1613[216];
  libnumnumber_TOstring__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[217]);
  scm__rc.d1613[225] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[76])),TRUE); /* string->number */
  scm__rc.d1613[226] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[77])),TRUE); /* default-exactness */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[328]), scm__rc.d1613[226]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[329]), scm__rc.d1613[210]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[330]), scm__rc.d1613[213]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[331]), scm__rc.d1613[1]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[334]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[335]), scm__rc.d1613[225]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[336]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[337]), scm__rc.d1613[3]);
  scm__rc.d1613[227] = Scm_MakeExtendedPair(scm__rc.d1613[225], SCM_OBJ(&scm__rc.d1614[331]), SCM_OBJ(&scm__rc.d1614[339]));
  scm__rc.d1613[228] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[78])),TRUE); /* <string> */
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[229]))[3] = scm__rc.d1613[4];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[229]))[4] = scm__rc.d1613[228];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[229]))[5] = scm__rc.d1613[133];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[229]))[6] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[229]))[7] = scm__rc.d1613[6];
  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.d1613[227];
  libnumstring_TOnumber__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[229]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1613[237] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[79])),TRUE); /* floor->exact */
  scm__rc.d1613[238] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[80])),TRUE); /* num */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[340]), scm__rc.d1613[238]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[343]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[344]), scm__rc.d1613[237]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[345]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[346]), scm__rc.d1613[3]);
  scm__rc.d1613[239] = Scm_MakeExtendedPair(scm__rc.d1613[237], SCM_OBJ(&scm__rc.d1614[340]), SCM_OBJ(&scm__rc.d1614[348]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[240]))[3] = scm__rc.d1613[48];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[240]))[4] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[240]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[240]))[6] = scm__rc.d1613[6];
  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.d1613[239];
  libnumfloor_TOexact__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[240]);
  scm__rc.d1613[247] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[81])),TRUE); /* ceiling->exact */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[351]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[352]), scm__rc.d1613[247]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[353]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[354]), scm__rc.d1613[3]);
  scm__rc.d1613[248] = Scm_MakeExtendedPair(scm__rc.d1613[247], SCM_OBJ(&scm__rc.d1614[340]), SCM_OBJ(&scm__rc.d1614[356]));
  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.d1613[248];
  libnumceiling_TOexact__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[240]);
  scm__rc.d1613[249] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[82])),TRUE); /* truncate->exact */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[359]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[360]), scm__rc.d1613[249]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[361]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[362]), scm__rc.d1613[3]);
  scm__rc.d1613[250] = Scm_MakeExtendedPair(scm__rc.d1613[249], SCM_OBJ(&scm__rc.d1614[340]), SCM_OBJ(&scm__rc.d1614[364]));
  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.d1613[250];
  libnumtruncate_TOexact__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[240]);
  scm__rc.d1613[251] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[83])),TRUE); /* round->exact */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[367]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[368]), scm__rc.d1613[251]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[369]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[370]), scm__rc.d1613[3]);
  scm__rc.d1613[252] = Scm_MakeExtendedPair(scm__rc.d1613[251], SCM_OBJ(&scm__rc.d1614[340]), SCM_OBJ(&scm__rc.d1614[372]));
  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.d1613[252];
  libnumround_TOexact__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[240]);
  scm__rc.d1613[253] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[84])),TRUE); /* decode-float */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[375]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[376]), scm__rc.d1613[253]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[377]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[378]), scm__rc.d1613[3]);
  scm__rc.d1613[254] = Scm_MakeExtendedPair(scm__rc.d1613[253], SCM_OBJ(&scm__rc.d1614[340]), SCM_OBJ(&scm__rc.d1614[380]));
  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.d1613[254];
  libnumdecode_float__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[240]);
  scm__rc.d1613[255] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[85])),TRUE); /* fmod */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[381]), scm__rc.d1613[164]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[382]), scm__rc.d1613[47]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[385]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[386]), scm__rc.d1613[255]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[387]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[388]), scm__rc.d1613[3]);
  scm__rc.d1613[256] = Scm_MakeExtendedPair(scm__rc.d1613[255], SCM_OBJ(&scm__rc.d1614[382]), SCM_OBJ(&scm__rc.d1614[390]));
  scm__rc.d1613[257] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[86])),TRUE); /* <double> */
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[258]))[3] = scm__rc.d1613[48];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[258]))[4] = scm__rc.d1613[257];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[258]))[5] = scm__rc.d1613[257];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[258]))[6] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[258]))[7] = scm__rc.d1613[257];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("fmod")), SCM_OBJ(&libnumfmod__STUB), 0);
  libnumfmod__STUB.common.info = scm__rc.d1613[256];
  libnumfmod__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[258]);
  scm__rc.d1613[266] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[87])),TRUE); /* frexp */
  scm__rc.d1613[267] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[88])),TRUE); /* d */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[391]), scm__rc.d1613[267]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[394]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[395]), scm__rc.d1613[266]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[396]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[397]), scm__rc.d1613[3]);
  scm__rc.d1613[268] = Scm_MakeExtendedPair(scm__rc.d1613[266], SCM_OBJ(&scm__rc.d1614[391]), SCM_OBJ(&scm__rc.d1614[399]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[269]))[3] = scm__rc.d1613[48];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[269]))[4] = scm__rc.d1613[257];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[269]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[269]))[6] = scm__rc.d1613[257];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[269]))[7] = scm__rc.d1613[82];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("frexp")), SCM_OBJ(&libnumfrexp__STUB), 0);
  libnumfrexp__STUB.common.info = scm__rc.d1613[268];
  libnumfrexp__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[269]);
  scm__rc.d1613[277] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[89])),TRUE); /* modf */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[402]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[403]), scm__rc.d1613[277]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[404]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[405]), scm__rc.d1613[3]);
  scm__rc.d1613[278] = Scm_MakeExtendedPair(scm__rc.d1613[277], SCM_OBJ(&scm__rc.d1614[98]), SCM_OBJ(&scm__rc.d1614[407]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[279]))[3] = scm__rc.d1613[48];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[279]))[4] = scm__rc.d1613[257];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[279]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[279]))[6] = scm__rc.d1613[257];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[279]))[7] = scm__rc.d1613[257];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("modf")), SCM_OBJ(&libnummodf__STUB), 0);
  libnummodf__STUB.common.info = scm__rc.d1613[278];
  libnummodf__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[279]);
  scm__rc.d1613[287] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[90])),TRUE); /* ldexp */
  scm__rc.d1613[288] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[91])),TRUE); /* exp */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[408]), scm__rc.d1613[288]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[409]), scm__rc.d1613[47]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[412]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[413]), scm__rc.d1613[287]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[414]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[415]), scm__rc.d1613[3]);
  scm__rc.d1613[289] = Scm_MakeExtendedPair(scm__rc.d1613[287], SCM_OBJ(&scm__rc.d1614[409]), SCM_OBJ(&scm__rc.d1614[417]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[290]))[3] = scm__rc.d1613[48];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[290]))[4] = scm__rc.d1613[257];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[290]))[5] = scm__rc.d1613[82];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[290]))[6] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[290]))[7] = scm__rc.d1613[257];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("ldexp")), SCM_OBJ(&libnumldexp__STUB), 0);
  libnumldexp__STUB.common.info = scm__rc.d1613[289];
  libnumldexp__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[290]);
  scm__rc.d1613[298] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[92])),TRUE); /* log10 */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[420]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[421]), scm__rc.d1613[298]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[422]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[423]), scm__rc.d1613[3]);
  scm__rc.d1613[299] = Scm_MakeExtendedPair(scm__rc.d1613[298], SCM_OBJ(&scm__rc.d1614[98]), SCM_OBJ(&scm__rc.d1614[425]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[300]))[3] = scm__rc.d1613[48];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[300]))[4] = scm__rc.d1613[257];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[300]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[300]))[6] = scm__rc.d1613[257];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("log10")), SCM_OBJ(&libnumlog10__STUB), 0);
  libnumlog10__STUB.common.info = scm__rc.d1613[299];
  libnumlog10__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[300]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
#if defined(HAVE_TGAMMA)
  scm__rc.d1620[0] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1619[0])),TRUE); /* %gamma */
#endif /* defined(HAVE_TGAMMA) */
#if defined(HAVE_TGAMMA)
  scm__rc.d1620[1] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1619[1])),TRUE); /* x */
#endif /* defined(HAVE_TGAMMA) */
#if defined(HAVE_TGAMMA)
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1621[1]), scm__rc.d1620[1]);
#endif /* defined(HAVE_TGAMMA) */
#if defined(HAVE_TGAMMA)
  scm__rc.d1620[2] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1619[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.d1621[4]), scm__rc.d1620[2]);
#endif /* defined(HAVE_TGAMMA) */
#if defined(HAVE_TGAMMA)
  scm__rc.d1620[3] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1619[4])),TRUE); /* bind-info */
#endif /* defined(HAVE_TGAMMA) */
#if defined(HAVE_TGAMMA)
  scm__rc.d1620[4] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1619[5])),TRUE); /* gauche.internal */
#endif /* defined(HAVE_TGAMMA) */
#if defined(HAVE_TGAMMA)
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1621[5]), scm__rc.d1620[0]);
#endif /* defined(HAVE_TGAMMA) */
#if defined(HAVE_TGAMMA)
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1621[6]), scm__rc.d1620[4]);
#endif /* defined(HAVE_TGAMMA) */
#if defined(HAVE_TGAMMA)
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1621[7]), scm__rc.d1620[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.d1620[5] = Scm_MakeExtendedPair(scm__rc.d1620[0], SCM_OBJ(&scm__rc.d1621[1]), SCM_OBJ(&scm__rc.d1621[9]));
#endif /* defined(HAVE_TGAMMA) */
#if defined(HAVE_TGAMMA)
  scm__rc.d1620[6] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1619[6])),TRUE); /* <double> */
#endif /* defined(HAVE_TGAMMA) */
#if defined(HAVE_TGAMMA)
  scm__rc.d1620[7] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1619[7])),TRUE); /* -> */
#endif /* defined(HAVE_TGAMMA) */
#if defined(HAVE_TGAMMA)
  ((ScmObj*)SCM_OBJ(&scm__rc.d1620[8]))[3] = scm__rc.d1620[4];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1620[8]))[4] = scm__rc.d1620[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1620[8]))[5] = scm__rc.d1620[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1620[8]))[6] = scm__rc.d1620[6];
#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.d1620[5];
  libnum_25gamma__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1620[8]);
#endif /* defined(HAVE_TGAMMA) */
#if defined(HAVE_LGAMMA)
  scm__rc.d1623[0] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1622[0])),TRUE); /* %lgamma */
#endif /* defined(HAVE_LGAMMA) */
#if defined(HAVE_LGAMMA)
  scm__rc.d1623[1] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1622[1])),TRUE); /* x */
#endif /* defined(HAVE_LGAMMA) */
#if defined(HAVE_LGAMMA)
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1624[1]), scm__rc.d1623[1]);
#endif /* defined(HAVE_LGAMMA) */
#if defined(HAVE_LGAMMA)
  scm__rc.d1623[2] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1622[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.d1624[4]), scm__rc.d1623[2]);
#endif /* defined(HAVE_LGAMMA) */
#if defined(HAVE_LGAMMA)
  scm__rc.d1623[3] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1622[4])),TRUE); /* bind-info */
#endif /* defined(HAVE_LGAMMA) */
#if defined(HAVE_LGAMMA)
  scm__rc.d1623[4] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1622[5])),TRUE); /* gauche.internal */
#endif /* defined(HAVE_LGAMMA) */
#if defined(HAVE_LGAMMA)
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1624[5]), scm__rc.d1623[0]);
#endif /* defined(HAVE_LGAMMA) */
#if defined(HAVE_LGAMMA)
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1624[6]), scm__rc.d1623[4]);
#endif /* defined(HAVE_LGAMMA) */
#if defined(HAVE_LGAMMA)
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1624[7]), scm__rc.d1623[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.d1623[5] = Scm_MakeExtendedPair(scm__rc.d1623[0], SCM_OBJ(&scm__rc.d1624[1]), SCM_OBJ(&scm__rc.d1624[9]));
#endif /* defined(HAVE_LGAMMA) */
#if defined(HAVE_LGAMMA)
  scm__rc.d1623[6] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1622[6])),TRUE); /* <double> */
#endif /* defined(HAVE_LGAMMA) */
#if defined(HAVE_LGAMMA)
  scm__rc.d1623[7] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1622[7])),TRUE); /* -> */
#endif /* defined(HAVE_LGAMMA) */
#if defined(HAVE_LGAMMA)
  ((ScmObj*)SCM_OBJ(&scm__rc.d1623[8]))[3] = scm__rc.d1623[4];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1623[8]))[4] = scm__rc.d1623[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1623[8]))[5] = scm__rc.d1623[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1623[8]))[6] = scm__rc.d1623[6];
#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.d1623[5];
  libnum_25lgamma__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1623[8]);
#endif /* defined(HAVE_LGAMMA) */
  scm__rc.d1613[307] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[93])),TRUE); /* flonum->f16bits */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[428]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[429]), scm__rc.d1613[307]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[430]), scm__rc.d1613[115]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[431]), scm__rc.d1613[3]);
  scm__rc.d1613[308] = Scm_MakeExtendedPair(scm__rc.d1613[307], SCM_OBJ(&scm__rc.d1614[98]), SCM_OBJ(&scm__rc.d1614[433]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[309]))[3] = scm__rc.d1613[115];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[309]))[4] = scm__rc.d1613[257];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[309]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[309]))[6] = scm__rc.d1613[82];
  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.d1613[308];
  libnumflonum_TOf16bits__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[309]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[436]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[437]), scm__rc.d1613[133]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[438]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[439]), scm__rc.d1613[3]);
  scm__rc.d1613[316] = Scm_MakeExtendedPair(scm__rc.d1613[133], SCM_OBJ(&scm__rc.d1614[254]), SCM_OBJ(&scm__rc.d1614[441]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[317]))[3] = scm__rc.d1613[4];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[317]))[4] = scm__rc.d1613[133];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[317]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[317]))[6] = scm__rc.d1613[30];
  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.d1613[316];
  libnum_2a__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[317]);
  scm__rc.d1613[324] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[94])),TRUE); /* + */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[444]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[445]), scm__rc.d1613[324]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[446]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[447]), scm__rc.d1613[3]);
  scm__rc.d1613[325] = Scm_MakeExtendedPair(scm__rc.d1613[324], SCM_OBJ(&scm__rc.d1614[254]), SCM_OBJ(&scm__rc.d1614[449]));
  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.d1613[325];
  libnum_2b__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[317]);
  scm__rc.d1613[326] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[95])),TRUE); /* - */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[450]), scm__rc.d1613[127]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[453]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[454]), scm__rc.d1613[326]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[455]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[456]), scm__rc.d1613[3]);
  scm__rc.d1613[327] = Scm_MakeExtendedPair(scm__rc.d1613[326], SCM_OBJ(&scm__rc.d1614[450]), SCM_OBJ(&scm__rc.d1614[458]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("-")), SCM_OBJ(&libnum___STUB), 0);
  libnum___STUB.common.info = scm__rc.d1613[327];
  libnum___STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[153]);
  scm__rc.d1613[328] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[96])),TRUE); /* / */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[461]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[462]), scm__rc.d1613[328]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[463]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[464]), scm__rc.d1613[3]);
  scm__rc.d1613[329] = Scm_MakeExtendedPair(scm__rc.d1613[328], SCM_OBJ(&scm__rc.d1614[450]), SCM_OBJ(&scm__rc.d1614[466]));
  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.d1613[329];
  libnum_2f__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[153]);
  scm__rc.d1613[330] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[97])),TRUE); /* abs */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[469]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[470]), scm__rc.d1613[330]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[471]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[472]), scm__rc.d1613[3]);
  scm__rc.d1613[331] = Scm_MakeExtendedPair(scm__rc.d1613[330], SCM_OBJ(&scm__rc.d1614[1]), SCM_OBJ(&scm__rc.d1614[474]));
  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.d1613[331];
  libnumabs__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[191]);
  scm__rc.d1613[332] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[98])),TRUE); /* quotient */
  scm__rc.d1613[333] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[99])),TRUE); /* n1 */
  scm__rc.d1613[334] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[100])),TRUE); /* n2 */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[475]), scm__rc.d1613[334]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[476]), scm__rc.d1613[333]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[479]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[480]), scm__rc.d1613[332]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[481]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[482]), scm__rc.d1613[3]);
  scm__rc.d1613[335] = Scm_MakeExtendedPair(scm__rc.d1613[332], SCM_OBJ(&scm__rc.d1614[476]), SCM_OBJ(&scm__rc.d1614[484]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[336]))[3] = scm__rc.d1613[4];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[336]))[4] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[336]))[5] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[336]))[6] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[336]))[7] = scm__rc.d1613[6];
  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.d1613[335];
  libnumquotient__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[336]);
  scm__rc.d1613[344] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[101])),TRUE); /* remainder */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[487]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[488]), scm__rc.d1613[344]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[489]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[490]), scm__rc.d1613[3]);
  scm__rc.d1613[345] = Scm_MakeExtendedPair(scm__rc.d1613[344], SCM_OBJ(&scm__rc.d1614[476]), SCM_OBJ(&scm__rc.d1614[492]));
  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.d1613[345];
  libnumremainder__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[336]);
  scm__rc.d1613[346] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[102])),TRUE); /* modulo */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[495]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[496]), scm__rc.d1613[346]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[497]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[498]), scm__rc.d1613[3]);
  scm__rc.d1613[347] = Scm_MakeExtendedPair(scm__rc.d1613[346], SCM_OBJ(&scm__rc.d1614[476]), SCM_OBJ(&scm__rc.d1614[500]));
  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.d1613[347];
  libnummodulo__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[336]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1613[348] = Scm_MakeIdentifier(scm__rc.d1613[22], SCM_MODULE(scm__rc.d1613[201]), SCM_NIL); /* gauche#integer? */
  scm__rc.d1613[350] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[104])),TRUE); /* error */
  scm__rc.d1613[349] = Scm_MakeIdentifier(scm__rc.d1613[350], SCM_MODULE(scm__rc.d1613[201]), SCM_NIL); /* gauche#error */
  scm__rc.d1613[351] = Scm_MakeIdentifier(scm__rc.d1613[330], SCM_MODULE(scm__rc.d1613[201]), SCM_NIL); /* gauche#abs */
  scm__rc.d1613[352] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[105])),TRUE); /* gcd */
  scm__rc.d1613[353] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[106])),FALSE); /* G1629 */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[501]), scm__rc.d1613[353]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[502]), scm__rc.d1613[352]);
  scm__rc.d1613[354] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[107])),TRUE); /* arg */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[503]), scm__rc.d1613[354]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[506]), scm__rc.d1613[2]);
  scm__rc.d1613[355] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[108])),TRUE); /* unused-args */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[507]), scm__rc.d1613[355]);
  scm__rc.d1613[356] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1614[502]), SCM_OBJ(&scm__rc.d1614[503]), SCM_OBJ(&scm__rc.d1614[509]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[510]), scm__rc.d1613[356]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[10]))[4] = SCM_WORD(scm__rc.d1613[348]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[10]))[15] = SCM_WORD(scm__rc.d1613[349]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[10]))[18] = SCM_WORD(scm__rc.d1613[351]);
  scm__rc.d1613[358] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[109])),TRUE); /* map */
  scm__rc.d1613[357] = Scm_MakeIdentifier(scm__rc.d1613[358], SCM_MODULE(scm__rc.d1613[201]), SCM_NIL); /* gauche#map */
  scm__rc.d1613[360] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[110])),TRUE); /* %gcd */
  scm__rc.d1613[359] = Scm_MakeIdentifier(scm__rc.d1613[360], SCM_MODULE(Scm_GaucheInternalModule()), SCM_NIL); /* gauche.internal#%gcd */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[514]), scm__rc.d1613[2]);
  scm__rc.d1613[361] = Scm_MakeExtendedPair(scm__rc.d1613[352], scm__rc.d1613[129], SCM_OBJ(&scm__rc.d1614[515]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[516]), scm__rc.d1613[361]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1618[3]))->name = scm__rc.d1613[352];/* gcd */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[30]))[5] = SCM_WORD(scm__rc.d1613[357]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[30]))[30] = SCM_WORD(scm__rc.d1613[359]);
  scm__rc.d1613[362] = Scm_MakeIdentifier(scm__rc.d1613[352], SCM_MODULE(Scm_SchemeModule()), SCM_NIL); /* scheme#gcd */
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1618[4]))->name = scm__rc.d1613[204];/* %toplevel */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[68]))[5] = SCM_WORD(scm__rc.d1613[362]);
  scm__rc.d1613[363] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[111])),TRUE); /* lcm */
  scm__rc.d1613[364] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[112])),FALSE); /* G1630 */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[517]), scm__rc.d1613[364]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[518]), scm__rc.d1613[363]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[521]), scm__rc.d1613[2]);
  scm__rc.d1613[365] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1614[518]), SCM_OBJ(&scm__rc.d1614[503]), SCM_OBJ(&scm__rc.d1614[522]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[523]), scm__rc.d1613[365]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[75]))[4] = SCM_WORD(scm__rc.d1613[348]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[75]))[15] = SCM_WORD(scm__rc.d1613[349]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[75]))[18] = SCM_WORD(scm__rc.d1613[351]);
  scm__rc.d1613[366] = Scm_MakeIdentifier(scm__rc.d1613[332], SCM_MODULE(scm__rc.d1613[201]), SCM_NIL); /* gauche#quotient */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[527]), scm__rc.d1613[2]);
  scm__rc.d1613[367] = Scm_MakeExtendedPair(scm__rc.d1613[363], scm__rc.d1613[129], SCM_OBJ(&scm__rc.d1614[528]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[529]), scm__rc.d1613[367]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1618[6]))->name = scm__rc.d1613[363];/* lcm */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[95]))[5] = SCM_WORD(scm__rc.d1613[357]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[95]))[32] = SCM_WORD(scm__rc.d1613[359]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[95]))[45] = SCM_WORD(scm__rc.d1613[366]);
  scm__rc.d1613[368] = Scm_MakeIdentifier(scm__rc.d1613[363], SCM_MODULE(Scm_SchemeModule()), SCM_NIL); /* scheme#lcm */
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1618[7]))->name = scm__rc.d1613[204];/* %toplevel */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[153]))[5] = SCM_WORD(scm__rc.d1613[368]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[532]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[533]), scm__rc.d1613[360]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[534]), scm__rc.d1613[115]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[535]), scm__rc.d1613[3]);
  scm__rc.d1613[369] = Scm_MakeExtendedPair(scm__rc.d1613[360], SCM_OBJ(&scm__rc.d1614[476]), SCM_OBJ(&scm__rc.d1614[537]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[370]))[3] = scm__rc.d1613[115];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[370]))[4] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[370]))[5] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[370]))[6] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[370]))[7] = scm__rc.d1613[6];
  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.d1613[369];
  libnum_25gcd__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[370]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
  scm__rc.d1613[378] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[113])),TRUE); /* numerator */
  scm__rc.d1613[379] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[114])),TRUE); /* n */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[538]), scm__rc.d1613[379]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[541]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[542]), scm__rc.d1613[378]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[543]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[544]), scm__rc.d1613[3]);
  scm__rc.d1613[380] = Scm_MakeExtendedPair(scm__rc.d1613[378], SCM_OBJ(&scm__rc.d1614[538]), SCM_OBJ(&scm__rc.d1614[546]));
  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.d1613[380];
  libnumnumerator__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[191]);
  scm__rc.d1613[381] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[115])),TRUE); /* denominator */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[549]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[550]), scm__rc.d1613[381]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[551]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[552]), scm__rc.d1613[3]);
  scm__rc.d1613[382] = Scm_MakeExtendedPair(scm__rc.d1613[381], SCM_OBJ(&scm__rc.d1614[538]), SCM_OBJ(&scm__rc.d1614[554]));
  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.d1613[382];
  libnumdenominator__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[191]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1613[383] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[116])),TRUE); /* rationalize */
  scm__rc.d1613[384] = Scm_MakeIdentifier(scm__rc.d1613[74], SCM_MODULE(scm__rc.d1613[201]), SCM_NIL); /* gauche#nan? */
  scm__rc.d1613[385] = 
SCM_NAN;
  scm__rc.d1613[386] = 
SCM_NAN;
  scm__rc.d1613[387] = Scm_MakeIdentifier(scm__rc.d1613[72], SCM_MODULE(scm__rc.d1613[201]), SCM_NIL); /* gauche#infinite? */
  scm__rc.d1613[388] = 
SCM_NAN;
  scm__rc.d1613[389] = 
Scm_MakeFlonum(0.0);
  scm__rc.d1613[390] = Scm_MakeIdentifier(scm__rc.d1613[26], SCM_MODULE(scm__rc.d1613[201]), SCM_NIL); /* gauche#inexact? */
  scm__rc.d1613[392] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[118])),TRUE); /* real->rational */
  scm__rc.d1613[391] = Scm_MakeIdentifier(scm__rc.d1613[392], SCM_MODULE(scm__rc.d1613[201]), SCM_NIL); /* gauche#real->rational */
  scm__rc.d1613[393] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[119])),TRUE); /* e */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[555]), scm__rc.d1613[393]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[556]), scm__rc.d1613[47]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[559]), scm__rc.d1613[2]);
  scm__rc.d1613[394] = Scm_MakeExtendedPair(scm__rc.d1613[383], SCM_OBJ(&scm__rc.d1614[556]), SCM_OBJ(&scm__rc.d1614[560]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[561]), scm__rc.d1613[394]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1618[8]))->name = scm__rc.d1613[383];/* rationalize */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[160]))[7] = SCM_WORD(scm__rc.d1613[349]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[160]))[13] = SCM_WORD(scm__rc.d1613[384]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[160]))[17] = SCM_WORD(scm__rc.d1613[385]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[160]))[22] = SCM_WORD(scm__rc.d1613[384]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[160]))[26] = SCM_WORD(scm__rc.d1613[386]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[160]))[31] = SCM_WORD(scm__rc.d1613[387]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[160]))[38] = SCM_WORD(scm__rc.d1613[387]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[160]))[42] = SCM_WORD(scm__rc.d1613[388]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[160]))[44] = SCM_WORD(scm__rc.d1613[389]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[160]))[49] = SCM_WORD(scm__rc.d1613[387]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[160]))[57] = SCM_WORD(scm__rc.d1613[390]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[160]))[66] = SCM_WORD(scm__rc.d1613[391]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[160]))[68] = SCM_WORD(scm__rc.d1613[206]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[160]))[74] = SCM_WORD(scm__rc.d1613[390]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[160]))[81] = SCM_WORD(scm__rc.d1613[391]);
  ScmObj G1631 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1618[8]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1613[383]) /* rationalize */, G1631,0);

   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
  scm__rc.d1613[395] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[120])),TRUE); /* floor */
  scm__rc.d1613[396] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[121])),TRUE); /* v */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[562]), scm__rc.d1613[396]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[565]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[566]), scm__rc.d1613[395]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[567]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[568]), scm__rc.d1613[3]);
  scm__rc.d1613[397] = Scm_MakeExtendedPair(scm__rc.d1613[395], SCM_OBJ(&scm__rc.d1614[562]), SCM_OBJ(&scm__rc.d1614[570]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[398]))[3] = scm__rc.d1613[4];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[398]))[4] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[398]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[398]))[6] = scm__rc.d1613[30];
  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.d1613[397];
  libnumfloor__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[398]);
  scm__rc.d1613[405] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[122])),TRUE); /* ceiling */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[573]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[574]), scm__rc.d1613[405]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[575]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[576]), scm__rc.d1613[3]);
  scm__rc.d1613[406] = Scm_MakeExtendedPair(scm__rc.d1613[405], SCM_OBJ(&scm__rc.d1614[562]), SCM_OBJ(&scm__rc.d1614[578]));
  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.d1613[406];
  libnumceiling__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[398]);
  scm__rc.d1613[407] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[123])),TRUE); /* truncate */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[581]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[582]), scm__rc.d1613[407]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[583]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[584]), scm__rc.d1613[3]);
  scm__rc.d1613[408] = Scm_MakeExtendedPair(scm__rc.d1613[407], SCM_OBJ(&scm__rc.d1614[562]), SCM_OBJ(&scm__rc.d1614[586]));
  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.d1613[408];
  libnumtruncate__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[398]);
  scm__rc.d1613[409] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[124])),TRUE); /* round */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[589]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[590]), scm__rc.d1613[409]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[591]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[592]), scm__rc.d1613[3]);
  scm__rc.d1613[410] = Scm_MakeExtendedPair(scm__rc.d1613[409], SCM_OBJ(&scm__rc.d1614[562]), SCM_OBJ(&scm__rc.d1614[594]));
  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.d1613[410];
  libnumround__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[398]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1613[411] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[125])),TRUE); /* %exp */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[597]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[598]), scm__rc.d1613[411]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[599]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[600]), scm__rc.d1613[3]);
  scm__rc.d1613[412] = Scm_MakeExtendedPair(scm__rc.d1613[411], SCM_OBJ(&scm__rc.d1614[98]), SCM_OBJ(&scm__rc.d1614[602]));
  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.d1613[412];
  libnum_25exp__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[300]);
  scm__rc.d1613[413] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[126])),TRUE); /* %log */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[605]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[606]), scm__rc.d1613[413]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[607]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[608]), scm__rc.d1613[3]);
  scm__rc.d1613[414] = Scm_MakeExtendedPair(scm__rc.d1613[413], SCM_OBJ(&scm__rc.d1614[98]), SCM_OBJ(&scm__rc.d1614[610]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[415]))[3] = scm__rc.d1613[48];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[415]))[4] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[415]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[415]))[6] = scm__rc.d1613[30];
  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.d1613[414];
  libnum_25log__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[415]);
  scm__rc.d1613[422] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[127])),TRUE); /* %sin */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[613]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[614]), scm__rc.d1613[422]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[615]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[616]), scm__rc.d1613[3]);
  scm__rc.d1613[423] = Scm_MakeExtendedPair(scm__rc.d1613[422], SCM_OBJ(&scm__rc.d1614[98]), SCM_OBJ(&scm__rc.d1614[618]));
  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.d1613[423];
  libnum_25sin__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[300]);
  scm__rc.d1613[424] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[128])),TRUE); /* %cos */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[621]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[622]), scm__rc.d1613[424]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[623]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[624]), scm__rc.d1613[3]);
  scm__rc.d1613[425] = Scm_MakeExtendedPair(scm__rc.d1613[424], SCM_OBJ(&scm__rc.d1614[98]), SCM_OBJ(&scm__rc.d1614[626]));
  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.d1613[425];
  libnum_25cos__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[300]);
  scm__rc.d1613[426] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[129])),TRUE); /* %tan */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[629]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[630]), scm__rc.d1613[426]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[631]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[632]), scm__rc.d1613[3]);
  scm__rc.d1613[427] = Scm_MakeExtendedPair(scm__rc.d1613[426], SCM_OBJ(&scm__rc.d1614[98]), SCM_OBJ(&scm__rc.d1614[634]));
  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.d1613[427];
  libnum_25tan__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[300]);
  scm__rc.d1613[428] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[130])),TRUE); /* %sinpi */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[637]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[638]), scm__rc.d1613[428]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[639]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[640]), scm__rc.d1613[3]);
  scm__rc.d1613[429] = Scm_MakeExtendedPair(scm__rc.d1613[428], SCM_OBJ(&scm__rc.d1614[98]), SCM_OBJ(&scm__rc.d1614[642]));
  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.d1613[429];
  libnum_25sinpi__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[300]);
  scm__rc.d1613[430] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[131])),TRUE); /* %cospi */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[645]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[646]), scm__rc.d1613[430]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[647]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[648]), scm__rc.d1613[3]);
  scm__rc.d1613[431] = Scm_MakeExtendedPair(scm__rc.d1613[430], SCM_OBJ(&scm__rc.d1614[98]), SCM_OBJ(&scm__rc.d1614[650]));
  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.d1613[431];
  libnum_25cospi__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[300]);
  scm__rc.d1613[432] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[132])),TRUE); /* %tanpi */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[653]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[654]), scm__rc.d1613[432]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[655]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[656]), scm__rc.d1613[3]);
  scm__rc.d1613[433] = Scm_MakeExtendedPair(scm__rc.d1613[432], SCM_OBJ(&scm__rc.d1614[98]), SCM_OBJ(&scm__rc.d1614[658]));
  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.d1613[433];
  libnum_25tanpi__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[300]);
  scm__rc.d1613[434] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[133])),TRUE); /* %asin */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[661]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[662]), scm__rc.d1613[434]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[663]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[664]), scm__rc.d1613[3]);
  scm__rc.d1613[435] = Scm_MakeExtendedPair(scm__rc.d1613[434], SCM_OBJ(&scm__rc.d1614[98]), SCM_OBJ(&scm__rc.d1614[666]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[436]))[3] = scm__rc.d1613[48];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[436]))[4] = scm__rc.d1613[257];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[436]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[436]))[6] = scm__rc.d1613[30];
  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.d1613[435];
  libnum_25asin__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[436]);
  scm__rc.d1613[443] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[134])),TRUE); /* %acos */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[669]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[670]), scm__rc.d1613[443]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[671]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[672]), scm__rc.d1613[3]);
  scm__rc.d1613[444] = Scm_MakeExtendedPair(scm__rc.d1613[443], SCM_OBJ(&scm__rc.d1614[98]), SCM_OBJ(&scm__rc.d1614[674]));
  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.d1613[444];
  libnum_25acos__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[436]);
  scm__rc.d1613[445] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[135])),TRUE); /* %atan */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[675]), scm__rc.d1613[213]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[676]), scm__rc.d1613[165]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[679]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[680]), scm__rc.d1613[445]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[681]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[682]), scm__rc.d1613[3]);
  scm__rc.d1613[446] = Scm_MakeExtendedPair(scm__rc.d1613[445], SCM_OBJ(&scm__rc.d1614[676]), SCM_OBJ(&scm__rc.d1614[684]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[447]))[3] = scm__rc.d1613[48];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[447]))[4] = scm__rc.d1613[257];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[447]))[5] = scm__rc.d1613[133];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[447]))[6] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[447]))[7] = scm__rc.d1613[257];
  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.d1613[446];
  libnum_25atan__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[447]);
  scm__rc.d1613[455] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[136])),TRUE); /* %sinh */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[687]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[688]), scm__rc.d1613[455]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[689]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[690]), scm__rc.d1613[3]);
  scm__rc.d1613[456] = Scm_MakeExtendedPair(scm__rc.d1613[455], SCM_OBJ(&scm__rc.d1614[98]), SCM_OBJ(&scm__rc.d1614[692]));
  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.d1613[456];
  libnum_25sinh__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[300]);
  scm__rc.d1613[457] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[137])),TRUE); /* %cosh */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[695]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[696]), scm__rc.d1613[457]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[697]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[698]), scm__rc.d1613[3]);
  scm__rc.d1613[458] = Scm_MakeExtendedPair(scm__rc.d1613[457], SCM_OBJ(&scm__rc.d1614[98]), SCM_OBJ(&scm__rc.d1614[700]));
  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.d1613[458];
  libnum_25cosh__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[300]);
  scm__rc.d1613[459] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[138])),TRUE); /* %tanh */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[703]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[704]), scm__rc.d1613[459]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[705]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[706]), scm__rc.d1613[3]);
  scm__rc.d1613[460] = Scm_MakeExtendedPair(scm__rc.d1613[459], SCM_OBJ(&scm__rc.d1614[98]), SCM_OBJ(&scm__rc.d1614[708]));
  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.d1613[460];
  libnum_25tanh__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[300]);
  scm__rc.d1613[461] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[139])),TRUE); /* %sqrt */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[711]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[712]), scm__rc.d1613[461]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[713]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[714]), scm__rc.d1613[3]);
  scm__rc.d1613[462] = Scm_MakeExtendedPair(scm__rc.d1613[461], SCM_OBJ(&scm__rc.d1614[98]), SCM_OBJ(&scm__rc.d1614[716]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[463]))[3] = scm__rc.d1613[48];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[463]))[4] = scm__rc.d1613[257];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[463]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[463]))[6] = scm__rc.d1613[6];
  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.d1613[462];
  libnum_25sqrt__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[463]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
  scm__rc.d1613[470] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[140])),TRUE); /* %sqrt-fast-path */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[719]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[720]), scm__rc.d1613[470]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[721]), scm__rc.d1613[115]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[722]), scm__rc.d1613[3]);
  scm__rc.d1613[471] = Scm_MakeExtendedPair(scm__rc.d1613[470], SCM_OBJ(&scm__rc.d1614[98]), SCM_OBJ(&scm__rc.d1614[724]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[472]))[3] = scm__rc.d1613[115];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[472]))[4] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[472]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[472]))[6] = scm__rc.d1613[6];
  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.d1613[471];
  libnum_25sqrt_fast_path__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[472]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1613[479] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[141])),TRUE); /* %expt */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[727]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[728]), scm__rc.d1613[479]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[729]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[730]), scm__rc.d1613[3]);
  scm__rc.d1613[480] = Scm_MakeExtendedPair(scm__rc.d1613[479], SCM_OBJ(&scm__rc.d1614[382]), SCM_OBJ(&scm__rc.d1614[732]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[481]))[3] = scm__rc.d1613[48];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[481]))[4] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[481]))[5] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[481]))[6] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[481]))[7] = scm__rc.d1613[6];
  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.d1613[480];
  libnum_25expt__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[481]);
  scm__rc.d1613[489] = Scm_MakeIdentifier(scm__rc.d1613[411], SCM_MODULE(scm__rc.d1613[201]), SCM_NIL); /* gauche#%exp */
  scm__rc.d1613[491] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[142])),TRUE); /* real-part */
  scm__rc.d1613[490] = Scm_MakeIdentifier(scm__rc.d1613[491], SCM_MODULE(scm__rc.d1613[201]), SCM_NIL); /* gauche#real-part */
  scm__rc.d1613[493] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[143])),TRUE); /* imag-part */
  scm__rc.d1613[492] = Scm_MakeIdentifier(scm__rc.d1613[493], SCM_MODULE(scm__rc.d1613[201]), SCM_NIL); /* gauche#imag-part */
  scm__rc.d1613[495] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[144])),TRUE); /* make-polar */
  scm__rc.d1613[494] = Scm_MakeIdentifier(scm__rc.d1613[495], SCM_MODULE(scm__rc.d1613[201]), SCM_NIL); /* gauche#make-polar */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[735]), scm__rc.d1613[2]);
  scm__rc.d1613[496] = Scm_MakeExtendedPair(scm__rc.d1613[288], SCM_OBJ(&scm__rc.d1614[272]), SCM_OBJ(&scm__rc.d1614[736]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[737]), scm__rc.d1613[496]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1618[9]))->name = scm__rc.d1613[288];/* exp */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[243]))[6] = SCM_WORD(scm__rc.d1613[489]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[243]))[18] = SCM_WORD(scm__rc.d1613[490]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[243]))[20] = SCM_WORD(scm__rc.d1613[489]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[243]))[25] = SCM_WORD(scm__rc.d1613[492]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[243]))[27] = SCM_WORD(scm__rc.d1613[494]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[243]))[33] = SCM_WORD(scm__rc.d1613[349]);
  ScmObj G1632 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1618[9]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1613[288]) /* exp */, G1632,0);

  scm__rc.d1613[497] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[146])),TRUE); /* log */
  scm__rc.d1613[498] = Scm_MakeIdentifier(scm__rc.d1613[413], SCM_MODULE(scm__rc.d1613[201]), SCM_NIL); /* gauche#%log */
  scm__rc.d1613[500] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[147])),TRUE); /* magnitude */
  scm__rc.d1613[499] = Scm_MakeIdentifier(scm__rc.d1613[500], SCM_MODULE(scm__rc.d1613[201]), SCM_NIL); /* gauche#magnitude */
  scm__rc.d1613[502] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[148])),TRUE); /* angle */
  scm__rc.d1613[501] = Scm_MakeIdentifier(scm__rc.d1613[502], SCM_MODULE(scm__rc.d1613[201]), SCM_NIL); /* gauche#angle */
  scm__rc.d1613[504] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[149])),TRUE); /* make-rectangular */
  scm__rc.d1613[503] = Scm_MakeIdentifier(scm__rc.d1613[504], SCM_MODULE(scm__rc.d1613[201]), SCM_NIL); /* gauche#make-rectangular */
  scm__rc.d1613[505] = Scm_MakeIdentifier(scm__rc.d1613[497], SCM_MODULE(scm__rc.d1613[201]), SCM_NIL); /* gauche#log */
  scm__rc.d1613[506] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[150])),TRUE); /* base */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[738]), scm__rc.d1613[165]);
  SCM_SET_CDR(SCM_OBJ(&scm__rc.d1614[738]), scm__rc.d1613[506]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[741]), scm__rc.d1613[2]);
  scm__rc.d1613[507] = Scm_MakeExtendedPair(scm__rc.d1613[497], SCM_OBJ(&scm__rc.d1614[738]), SCM_OBJ(&scm__rc.d1614[742]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[743]), scm__rc.d1613[507]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1618[10]))->name = scm__rc.d1613[497];/* log */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[278]))[9] = SCM_WORD(scm__rc.d1613[498]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[278]))[21] = SCM_WORD(scm__rc.d1613[499]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[278]))[23] = SCM_WORD(scm__rc.d1613[498]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[278]))[28] = SCM_WORD(scm__rc.d1613[501]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[278]))[30] = SCM_WORD(scm__rc.d1613[503]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[278]))[36] = SCM_WORD(scm__rc.d1613[349]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[278]))[42] = SCM_WORD(scm__rc.d1613[505]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[278]))[47] = SCM_WORD(scm__rc.d1613[505]);
  ScmObj G1633 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1618[10]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1613[497]) /* log */, G1633,0);

   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
  scm__rc.d1613[508] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[151])),TRUE); /* sqrt */
  scm__rc.d1613[510] = SCM_OBJ(Scm_FindModule(SCM_SYMBOL(scm__rc.d1613[115]), SCM_FIND_MODULE_CREATE|SCM_FIND_MODULE_PLACEHOLDING)); /* module gauche.internal */
  scm__rc.d1613[509] = Scm_MakeIdentifier(scm__rc.d1613[470], SCM_MODULE(scm__rc.d1613[510]), SCM_NIL); /* gauche.internal#%sqrt-fast-path */
  scm__rc.d1613[511] = Scm_MakeIdentifier(scm__rc.d1613[24], SCM_MODULE(scm__rc.d1613[510]), SCM_NIL); /* gauche.internal#exact? */
  scm__rc.d1613[512] = Scm_MakeIdentifier(scm__rc.d1613[22], SCM_MODULE(scm__rc.d1613[510]), SCM_NIL); /* gauche.internal#integer? */
  scm__rc.d1613[514] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[152])),TRUE); /* %exact-integer-sqrt */
  scm__rc.d1613[513] = Scm_MakeIdentifier(scm__rc.d1613[514], SCM_MODULE(scm__rc.d1613[510]), SCM_NIL); /* gauche.internal#%exact-integer-sqrt */
  scm__rc.d1613[515] = Scm_MakeIdentifier(scm__rc.d1613[461], SCM_MODULE(scm__rc.d1613[510]), SCM_NIL); /* gauche.internal#%sqrt */
  scm__rc.d1613[516] = Scm_MakeIdentifier(scm__rc.d1613[378], SCM_MODULE(scm__rc.d1613[510]), SCM_NIL); /* gauche.internal#numerator */
  scm__rc.d1613[517] = Scm_MakeIdentifier(scm__rc.d1613[381], SCM_MODULE(scm__rc.d1613[510]), SCM_NIL); /* gauche.internal#denominator */
  scm__rc.d1613[518] = Scm_MakeIdentifier(scm__rc.d1613[500], SCM_MODULE(scm__rc.d1613[510]), SCM_NIL); /* gauche.internal#magnitude */
  scm__rc.d1613[519] = Scm_MakeIdentifier(scm__rc.d1613[502], SCM_MODULE(scm__rc.d1613[510]), SCM_NIL); /* gauche.internal#angle */
  scm__rc.d1613[520] = 
Scm_MakeFlonum(2.0);
  scm__rc.d1613[521] = Scm_MakeIdentifier(scm__rc.d1613[495], SCM_MODULE(scm__rc.d1613[510]), SCM_NIL); /* gauche.internal#make-polar */
  scm__rc.d1613[522] = Scm_MakeIdentifier(scm__rc.d1613[350], SCM_MODULE(scm__rc.d1613[510]), SCM_NIL); /* gauche.internal#error */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[746]), scm__rc.d1613[2]);
  scm__rc.d1613[523] = Scm_MakeExtendedPair(scm__rc.d1613[508], SCM_OBJ(&scm__rc.d1614[272]), SCM_OBJ(&scm__rc.d1614[747]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[748]), scm__rc.d1613[523]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1618[11]))->name = scm__rc.d1613[508];/* sqrt */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]))[4] = SCM_WORD(scm__rc.d1613[509]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]))[10] = SCM_WORD(scm__rc.d1613[511]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]))[20] = SCM_WORD(scm__rc.d1613[512]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]))[27] = SCM_WORD(scm__rc.d1613[513]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]))[35] = SCM_WORD(scm__rc.d1613[515]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]))[41] = SCM_WORD(scm__rc.d1613[516]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]))[46] = SCM_WORD(scm__rc.d1613[517]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]))[52] = SCM_WORD(scm__rc.d1613[509]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]))[61] = SCM_WORD(scm__rc.d1613[509]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]))[74] = SCM_WORD(scm__rc.d1613[513]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]))[85] = SCM_WORD(scm__rc.d1613[515]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]))[91] = SCM_WORD(scm__rc.d1613[513]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]))[100] = SCM_WORD(scm__rc.d1613[513]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]))[111] = SCM_WORD(scm__rc.d1613[515]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]))[115] = SCM_WORD(scm__rc.d1613[515]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]))[123] = SCM_WORD(scm__rc.d1613[515]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]))[135] = SCM_WORD(scm__rc.d1613[518]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]))[137] = SCM_WORD(scm__rc.d1613[515]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]))[142] = SCM_WORD(scm__rc.d1613[519]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]))[145] = SCM_WORD(scm__rc.d1613[520]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]))[148] = SCM_WORD(scm__rc.d1613[521]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[328]))[154] = SCM_WORD(scm__rc.d1613[522]);
  ScmObj G1634 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1618[11]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1613[508]) /* sqrt */, G1634,0);

  scm__rc.d1613[524] = Scm_StringToNumber(SCM_STRING(SCM_OBJ(&scm__sc.d1612[153])), 16, 0);
  scm__rc.d1613[525] = Scm_MakeIdentifier(scm__rc.d1613[237], SCM_MODULE(scm__rc.d1613[510]), SCM_NIL); /* gauche.internal#floor->exact */
  scm__rc.d1613[526] = Scm_MakeIdentifier(scm__rc.d1613[63], SCM_MODULE(scm__rc.d1613[510]), SCM_NIL); /* gauche.internal#finite? */
  scm__rc.d1613[528] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[154])),TRUE); /* integer-length */
  scm__rc.d1613[527] = Scm_MakeIdentifier(scm__rc.d1613[528], SCM_MODULE(scm__rc.d1613[510]), SCM_NIL); /* gauche.internal#integer-length */
  scm__rc.d1613[529] = Scm_MakeIdentifier(scm__rc.d1613[332], SCM_MODULE(scm__rc.d1613[510]), SCM_NIL); /* gauche.internal#quotient */
  scm__rc.d1613[531] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[155])),TRUE); /* ash */
  scm__rc.d1613[530] = Scm_MakeIdentifier(scm__rc.d1613[531], SCM_MODULE(scm__rc.d1613[510]), SCM_NIL); /* gauche.internal#ash */
  scm__rc.d1613[532] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[156])),TRUE); /* k */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[749]), scm__rc.d1613[532]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[752]), scm__rc.d1613[2]);
  scm__rc.d1613[533] = Scm_MakeExtendedPair(scm__rc.d1613[514], SCM_OBJ(&scm__rc.d1614[749]), SCM_OBJ(&scm__rc.d1614[753]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[754]), scm__rc.d1613[533]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1618[12]))->name = scm__rc.d1613[514];/* %exact-integer-sqrt */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[487]))[1] = SCM_WORD(scm__rc.d1613[524]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[487]))[10] = SCM_WORD(scm__rc.d1613[515]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[487]))[12] = SCM_WORD(scm__rc.d1613[525]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[487]))[25] = SCM_WORD(scm__rc.d1613[515]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[487]))[31] = SCM_WORD(scm__rc.d1613[526]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[487]))[40] = SCM_WORD(scm__rc.d1613[515]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[487]))[42] = SCM_WORD(scm__rc.d1613[525]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[487]))[54] = SCM_WORD(scm__rc.d1613[527]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[487]))[58] = SCM_WORD(scm__rc.d1613[529]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[487]))[60] = SCM_WORD(scm__rc.d1613[530]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[487]))[79] = SCM_WORD(scm__rc.d1613[529]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[487]))[107] = SCM_WORD(scm__rc.d1613[529]);
  ScmObj G1635 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1618[12]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())) /* gauche.internal */, SCM_SYMBOL(scm__rc.d1613[514]) /* %exact-integer-sqrt */, G1635,0);

  scm__rc.d1613[534] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[157])),TRUE); /* expt */
  scm__rc.d1613[536] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[158])),TRUE); /* %exact-expt */
  scm__rc.d1613[535] = Scm_MakeIdentifier(scm__rc.d1613[536], SCM_MODULE(Scm_GaucheInternalModule()), SCM_NIL); /* gauche.internal#%exact-expt */
  scm__rc.d1613[537] = Scm_MakeIdentifier(scm__rc.d1613[479], SCM_MODULE(scm__rc.d1613[510]), SCM_NIL); /* gauche.internal#%expt */
  scm__rc.d1613[538] = Scm_MakeIdentifier(scm__rc.d1613[491], SCM_MODULE(scm__rc.d1613[510]), SCM_NIL); /* gauche.internal#real-part */
  scm__rc.d1613[539] = Scm_MakeIdentifier(scm__rc.d1613[38], SCM_MODULE(scm__rc.d1613[510]), SCM_NIL); /* gauche.internal#positive? */
  scm__rc.d1613[540] = Scm_MakeComplex(0.0, 1.0);
  scm__rc.d1613[541] = Scm_MakeIdentifier(scm__rc.d1613[493], SCM_MODULE(scm__rc.d1613[510]), SCM_NIL); /* gauche.internal#imag-part */
  scm__rc.d1613[542] = Scm_MakeIdentifier(scm__rc.d1613[413], SCM_MODULE(scm__rc.d1613[510]), SCM_NIL); /* gauche.internal#%log */
  scm__rc.d1613[543] = Scm_MakeIdentifier(scm__rc.d1613[288], SCM_MODULE(scm__rc.d1613[510]), SCM_NIL); /* gauche.internal#exp */
  scm__rc.d1613[544] = Scm_MakeIdentifier(scm__rc.d1613[497], SCM_MODULE(scm__rc.d1613[510]), SCM_NIL); /* gauche.internal#log */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[757]), scm__rc.d1613[2]);
  scm__rc.d1613[545] = Scm_MakeExtendedPair(scm__rc.d1613[534], SCM_OBJ(&scm__rc.d1614[382]), SCM_OBJ(&scm__rc.d1614[758]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[759]), scm__rc.d1613[545]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1618[13]))->name = scm__rc.d1613[534];/* expt */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[600]))[4] = SCM_WORD(scm__rc.d1613[511]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[600]))[11] = SCM_WORD(scm__rc.d1613[511]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[600]))[17] = SCM_WORD(scm__rc.d1613[535]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[600]))[30] = SCM_WORD(scm__rc.d1613[537]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[600]))[40] = SCM_WORD(scm__rc.d1613[538]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[600]))[49] = SCM_WORD(scm__rc.d1613[539]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[600]))[56] = SCM_WORD(scm__rc.d1613[511]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[600]))[62] = SCM_WORD(scm__rc.d1613[389]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[600]))[68] = SCM_WORD(scm__rc.d1613[537]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[600]))[72] = SCM_WORD(scm__rc.d1613[540]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[600]))[77] = SCM_WORD(scm__rc.d1613[541]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[600]))[83] = SCM_WORD(scm__rc.d1613[542]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[600]))[86] = SCM_WORD(scm__rc.d1613[543]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[600]))[96] = SCM_WORD(scm__rc.d1613[522]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[600]))[107] = SCM_WORD(scm__rc.d1613[544]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[600]))[110] = SCM_WORD(scm__rc.d1613[543]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[600]))[116] = SCM_WORD(scm__rc.d1613[522]);
  ScmObj G1636 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1618[13]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1613[534]) /* expt */, G1636,0);

   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
  scm__rc.d1613[546] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[159])),TRUE); /* %exact-integer-expt */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[762]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[763]), scm__rc.d1613[546]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[764]), scm__rc.d1613[115]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[765]), scm__rc.d1613[3]);
  scm__rc.d1613[547] = Scm_MakeExtendedPair(scm__rc.d1613[546], SCM_OBJ(&scm__rc.d1614[382]), SCM_OBJ(&scm__rc.d1614[767]));
  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.d1613[547];
  libnum_25exact_integer_expt__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[370]);
  scm__rc.d1613[548] = Scm_MakeIdentifier(scm__rc.d1613[546], SCM_MODULE(scm__rc.d1613[510]), SCM_NIL); /* gauche.internal#%exact-integer-expt */
  scm__rc.d1613[549] = Scm_MakeIdentifier(scm__rc.d1613[536], SCM_MODULE(scm__rc.d1613[510]), SCM_NIL); /* gauche.internal#%exact-expt */
  scm__rc.d1613[550] = Scm_MakeIdentifier(scm__rc.d1613[328], SCM_MODULE(scm__rc.d1613[510]), SCM_NIL); /* gauche.internal#/ */
  scm__rc.d1613[551] = Scm_MakeIdentifier(scm__rc.d1613[251], SCM_MODULE(scm__rc.d1613[510]), SCM_NIL); /* gauche.internal#round->exact */
  scm__rc.d1613[552] = Scm_MakeIdentifier(scm__rc.d1613[143], SCM_MODULE(scm__rc.d1613[510]), SCM_NIL); /* gauche.internal#< */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[770]), scm__rc.d1613[2]);
  scm__rc.d1613[553] = Scm_MakeExtendedPair(scm__rc.d1613[536], SCM_OBJ(&scm__rc.d1614[382]), SCM_OBJ(&scm__rc.d1614[771]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[772]), scm__rc.d1613[553]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1618[14]))->name = scm__rc.d1613[536];/* %exact-expt */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]))[4] = SCM_WORD(scm__rc.d1613[512]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]))[10] = SCM_WORD(scm__rc.d1613[548]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]))[18] = SCM_WORD(scm__rc.d1613[537]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]))[29] = SCM_WORD(scm__rc.d1613[549]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]))[31] = SCM_WORD(scm__rc.d1613[550]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]))[37] = SCM_WORD(scm__rc.d1613[512]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]))[44] = SCM_WORD(scm__rc.d1613[516]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]))[49] = SCM_WORD(scm__rc.d1613[517]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]))[61] = SCM_WORD(scm__rc.d1613[544]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]))[66] = SCM_WORD(scm__rc.d1613[551]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]))[68] = SCM_WORD(scm__rc.d1613[530]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]))[75] = SCM_WORD(scm__rc.d1613[548]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]))[83] = SCM_WORD(scm__rc.d1613[548]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]))[94] = SCM_WORD(scm__rc.d1613[548]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]))[112] = SCM_WORD(scm__rc.d1613[529]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]))[124] = SCM_WORD(scm__rc.d1613[529]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]))[135] = SCM_WORD(scm__rc.d1613[548]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]))[143] = SCM_WORD(scm__rc.d1613[548]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]))[154] = SCM_WORD(scm__rc.d1613[552]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]))[168] = SCM_WORD(scm__rc.d1613[552]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]))[178] = SCM_WORD(scm__rc.d1613[537]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]))[192] = SCM_WORD(scm__rc.d1613[516]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]))[196] = SCM_WORD(scm__rc.d1613[549]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]))[205] = SCM_WORD(scm__rc.d1613[511]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]))[214] = SCM_WORD(scm__rc.d1613[517]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]))[218] = SCM_WORD(scm__rc.d1613[549]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]))[227] = SCM_WORD(scm__rc.d1613[511]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[721]))[239] = SCM_WORD(scm__rc.d1613[537]);
  ScmObj G1637 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1618[14]), NULL);

  Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1613[536]) /* %exact-expt */, G1637,0);

   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1613[554] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[160])),TRUE); /* cos */
  scm__rc.d1613[555] = Scm_MakeIdentifier(scm__rc.d1613[424], SCM_MODULE(scm__rc.d1613[201]), SCM_NIL); /* gauche#%cos */
  scm__rc.d1613[556] = Scm_MakeIdentifier(scm__rc.d1613[457], SCM_MODULE(scm__rc.d1613[201]), SCM_NIL); /* gauche#%cosh */
  scm__rc.d1613[557] = Scm_MakeIdentifier(scm__rc.d1613[422], SCM_MODULE(scm__rc.d1613[201]), SCM_NIL); /* gauche#%sin */
  scm__rc.d1613[558] = Scm_MakeIdentifier(scm__rc.d1613[455], SCM_MODULE(scm__rc.d1613[201]), SCM_NIL); /* gauche#%sinh */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[775]), scm__rc.d1613[2]);
  scm__rc.d1613[559] = Scm_MakeExtendedPair(scm__rc.d1613[554], SCM_OBJ(&scm__rc.d1614[272]), SCM_OBJ(&scm__rc.d1614[776]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[777]), scm__rc.d1613[559]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1618[15]))->name = scm__rc.d1613[554];/* cos */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[962]))[12] = SCM_WORD(scm__rc.d1613[555]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[962]))[22] = SCM_WORD(scm__rc.d1613[490]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[962]))[27] = SCM_WORD(scm__rc.d1613[492]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[962]))[33] = SCM_WORD(scm__rc.d1613[555]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[962]))[38] = SCM_WORD(scm__rc.d1613[556]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[962]))[44] = SCM_WORD(scm__rc.d1613[557]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[962]))[49] = SCM_WORD(scm__rc.d1613[558]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[962]))[53] = SCM_WORD(scm__rc.d1613[503]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[962]))[59] = SCM_WORD(scm__rc.d1613[349]);
  ScmObj G1638 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1618[15]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1613[554]) /* cos */, G1638,0);

  scm__rc.d1613[560] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[161])),TRUE); /* cosh */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[780]), scm__rc.d1613[2]);
  scm__rc.d1613[561] = Scm_MakeExtendedPair(scm__rc.d1613[560], SCM_OBJ(&scm__rc.d1614[272]), SCM_OBJ(&scm__rc.d1614[781]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[782]), scm__rc.d1613[561]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1618[16]))->name = scm__rc.d1613[560];/* cosh */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1023]))[12] = SCM_WORD(scm__rc.d1613[556]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1023]))[22] = SCM_WORD(scm__rc.d1613[490]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1023]))[27] = SCM_WORD(scm__rc.d1613[492]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1023]))[33] = SCM_WORD(scm__rc.d1613[556]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1023]))[38] = SCM_WORD(scm__rc.d1613[555]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1023]))[44] = SCM_WORD(scm__rc.d1613[558]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1023]))[49] = SCM_WORD(scm__rc.d1613[557]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1023]))[52] = SCM_WORD(scm__rc.d1613[503]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1023]))[58] = SCM_WORD(scm__rc.d1613[349]);
  ScmObj G1639 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1618[16]), NULL);

  Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1613[560]) /* cosh */, G1639,0);

  scm__rc.d1613[562] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[162])),TRUE); /* sin */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[785]), scm__rc.d1613[2]);
  scm__rc.d1613[563] = Scm_MakeExtendedPair(scm__rc.d1613[562], SCM_OBJ(&scm__rc.d1614[272]), SCM_OBJ(&scm__rc.d1614[786]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[787]), scm__rc.d1613[563]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1618[17]))->name = scm__rc.d1613[562];/* sin */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1083]))[12] = SCM_WORD(scm__rc.d1613[557]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1083]))[22] = SCM_WORD(scm__rc.d1613[490]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1083]))[27] = SCM_WORD(scm__rc.d1613[492]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1083]))[33] = SCM_WORD(scm__rc.d1613[557]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1083]))[38] = SCM_WORD(scm__rc.d1613[556]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1083]))[44] = SCM_WORD(scm__rc.d1613[555]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1083]))[49] = SCM_WORD(scm__rc.d1613[558]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1083]))[52] = SCM_WORD(scm__rc.d1613[503]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1083]))[58] = SCM_WORD(scm__rc.d1613[349]);
  ScmObj G1640 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1618[17]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1613[562]) /* sin */, G1640,0);

  scm__rc.d1613[564] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[163])),TRUE); /* sinh */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[790]), scm__rc.d1613[2]);
  scm__rc.d1613[565] = Scm_MakeExtendedPair(scm__rc.d1613[564], SCM_OBJ(&scm__rc.d1614[272]), SCM_OBJ(&scm__rc.d1614[791]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[792]), scm__rc.d1613[565]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1618[18]))->name = scm__rc.d1613[564];/* sinh */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1143]))[12] = SCM_WORD(scm__rc.d1613[558]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1143]))[22] = SCM_WORD(scm__rc.d1613[490]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1143]))[27] = SCM_WORD(scm__rc.d1613[492]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1143]))[33] = SCM_WORD(scm__rc.d1613[558]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1143]))[38] = SCM_WORD(scm__rc.d1613[555]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1143]))[44] = SCM_WORD(scm__rc.d1613[556]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1143]))[49] = SCM_WORD(scm__rc.d1613[557]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1143]))[52] = SCM_WORD(scm__rc.d1613[503]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1143]))[58] = SCM_WORD(scm__rc.d1613[349]);
  ScmObj G1641 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1618[18]), NULL);

  Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1613[564]) /* sinh */, G1641,0);

  scm__rc.d1613[566] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[164])),TRUE); /* tan */
  scm__rc.d1613[567] = Scm_MakeIdentifier(scm__rc.d1613[426], SCM_MODULE(scm__rc.d1613[201]), SCM_NIL); /* gauche#%tan */
  scm__rc.d1613[568] = Scm_MakeComplex(0.0, -1.0);
  scm__rc.d1613[569] = Scm_MakeIdentifier(scm__rc.d1613[288], SCM_MODULE(scm__rc.d1613[201]), SCM_NIL); /* gauche#exp */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[795]), scm__rc.d1613[2]);
  scm__rc.d1613[570] = Scm_MakeExtendedPair(scm__rc.d1613[566], SCM_OBJ(&scm__rc.d1614[272]), SCM_OBJ(&scm__rc.d1614[796]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[797]), scm__rc.d1613[570]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1618[19]))->name = scm__rc.d1613[566];/* tan */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1203]))[12] = SCM_WORD(scm__rc.d1613[567]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1203]))[19] = SCM_WORD(scm__rc.d1613[540]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1203]))[24] = SCM_WORD(scm__rc.d1613[568]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1203]))[29] = SCM_WORD(scm__rc.d1613[569]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1203]))[35] = SCM_WORD(scm__rc.d1613[569]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1203]))[41] = SCM_WORD(scm__rc.d1613[569]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1203]))[47] = SCM_WORD(scm__rc.d1613[569]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1203]))[56] = SCM_WORD(scm__rc.d1613[349]);
  ScmObj G1642 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1618[19]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1613[566]) /* tan */, G1642,0);

  scm__rc.d1613[571] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[165])),TRUE); /* tanh */
  scm__rc.d1613[572] = Scm_MakeIdentifier(scm__rc.d1613[459], SCM_MODULE(scm__rc.d1613[201]), SCM_NIL); /* gauche#%tanh */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[800]), scm__rc.d1613[2]);
  scm__rc.d1613[573] = Scm_MakeExtendedPair(scm__rc.d1613[571], SCM_OBJ(&scm__rc.d1614[272]), SCM_OBJ(&scm__rc.d1614[801]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[802]), scm__rc.d1613[573]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1618[20]))->name = scm__rc.d1613[571];/* tanh */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1261]))[12] = SCM_WORD(scm__rc.d1613[572]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1261]))[22] = SCM_WORD(scm__rc.d1613[569]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1261]))[28] = SCM_WORD(scm__rc.d1613[569]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1261]))[34] = SCM_WORD(scm__rc.d1613[569]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1261]))[40] = SCM_WORD(scm__rc.d1613[569]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1261]))[48] = SCM_WORD(scm__rc.d1613[349]);
  ScmObj G1643 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1618[20]), NULL);

  Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1613[571]) /* tanh */, G1643,0);

  scm__rc.d1613[574] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[166])),TRUE); /* asin */
  scm__rc.d1613[575] = Scm_MakeIdentifier(scm__rc.d1613[434], SCM_MODULE(scm__rc.d1613[201]), SCM_NIL); /* gauche#%asin */
  scm__rc.d1613[576] = Scm_MakeIdentifier(scm__rc.d1613[508], SCM_MODULE(scm__rc.d1613[201]), SCM_NIL); /* gauche#sqrt */
  scm__rc.d1613[577] = 
Scm_MakeFlonum(1.0e-8);
  scm__rc.d1613[578] = Scm_MakeComplex(SCM_DBL_NAN, SCM_DBL_NAN);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[805]), scm__rc.d1613[2]);
  scm__rc.d1613[579] = Scm_MakeExtendedPair(scm__rc.d1613[574], SCM_OBJ(&scm__rc.d1614[272]), SCM_OBJ(&scm__rc.d1614[806]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[807]), scm__rc.d1613[579]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1618[21]))->name = scm__rc.d1613[574];/* asin */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1311]))[12] = SCM_WORD(scm__rc.d1613[575]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1311]))[19] = SCM_WORD(scm__rc.d1613[540]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1311]))[29] = SCM_WORD(scm__rc.d1613[576]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1311]))[36] = SCM_WORD(scm__rc.d1613[499]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1311]))[41] = SCM_WORD(scm__rc.d1613[499]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1311]))[45] = SCM_WORD(scm__rc.d1613[577]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1311]))[49] = SCM_WORD(scm__rc.d1613[578]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1311]))[51] = SCM_WORD(scm__rc.d1613[568]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1311]))[56] = SCM_WORD(scm__rc.d1613[505]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1311]))[63] = SCM_WORD(scm__rc.d1613[349]);
  ScmObj G1644 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1618[21]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1613[574]) /* asin */, G1644,0);

  scm__rc.d1613[580] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[167])),TRUE); /* asinh */
  scm__rc.d1613[581] = Scm_MakeComplex(SCM_DBL_NAN, SCM_DBL_NAN);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[810]), scm__rc.d1613[2]);
  scm__rc.d1613[582] = Scm_MakeExtendedPair(scm__rc.d1613[580], SCM_OBJ(&scm__rc.d1614[272]), SCM_OBJ(&scm__rc.d1614[811]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[812]), scm__rc.d1613[582]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1618[22]))->name = scm__rc.d1613[580];/* asinh */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1376]))[13] = SCM_WORD(scm__rc.d1613[576]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1376]))[20] = SCM_WORD(scm__rc.d1613[499]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1376]))[25] = SCM_WORD(scm__rc.d1613[499]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1376]))[29] = SCM_WORD(scm__rc.d1613[577]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1376]))[33] = SCM_WORD(scm__rc.d1613[581]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1376]))[41] = SCM_WORD(scm__rc.d1613[576]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1376]))[44] = SCM_WORD(scm__rc.d1613[505]);
  ScmObj G1645 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1618[22]), NULL);

  Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1613[580]) /* asinh */, G1645,0);

  scm__rc.d1613[583] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[168])),TRUE); /* acos */
  scm__rc.d1613[584] = Scm_MakeIdentifier(scm__rc.d1613[443], SCM_MODULE(scm__rc.d1613[201]), SCM_NIL); /* gauche#%acos */
  scm__rc.d1613[585] = 
Scm_MakeFlonum(1.5707963267948966);
  scm__rc.d1613[586] = Scm_MakeIdentifier(scm__rc.d1613[574], SCM_MODULE(scm__rc.d1613[201]), SCM_NIL); /* gauche#asin */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[815]), scm__rc.d1613[2]);
  scm__rc.d1613[587] = Scm_MakeExtendedPair(scm__rc.d1613[583], SCM_OBJ(&scm__rc.d1614[272]), SCM_OBJ(&scm__rc.d1614[816]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[817]), scm__rc.d1613[587]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1618[23]))->name = scm__rc.d1613[583];/* acos */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1422]))[12] = SCM_WORD(scm__rc.d1613[584]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1422]))[19] = SCM_WORD(scm__rc.d1613[585]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1422]))[24] = SCM_WORD(scm__rc.d1613[586]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1422]))[31] = SCM_WORD(scm__rc.d1613[349]);
  ScmObj G1646 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1618[23]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1613[583]) /* acos */, G1646,0);

  scm__rc.d1613[588] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[169])),TRUE); /* acosh */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[820]), scm__rc.d1613[2]);
  scm__rc.d1613[589] = Scm_MakeExtendedPair(scm__rc.d1613[588], SCM_OBJ(&scm__rc.d1614[272]), SCM_OBJ(&scm__rc.d1614[821]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[822]), scm__rc.d1613[589]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1618[24]))->name = scm__rc.d1613[588];/* acosh */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1455]))[15] = SCM_WORD(scm__rc.d1613[576]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1455]))[22] = SCM_WORD(scm__rc.d1613[576]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1455]))[25] = SCM_WORD(scm__rc.d1613[505]);
  ScmObj G1647 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1618[24]), NULL);

  Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1613[588]) /* acosh */, G1647,0);

  scm__rc.d1613[590] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[170])),TRUE); /* atan */
  scm__rc.d1613[591] = Scm_MakeIdentifier(scm__rc.d1613[445], SCM_MODULE(scm__rc.d1613[201]), SCM_NIL); /* gauche#%atan */
  scm__rc.d1613[592] = Scm_MakeComplex(0.0, 2.0);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[823]), scm__rc.d1613[165]);
  SCM_SET_CDR(SCM_OBJ(&scm__rc.d1614[823]), scm__rc.d1613[47]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[826]), scm__rc.d1613[2]);
  scm__rc.d1613[593] = Scm_MakeExtendedPair(scm__rc.d1613[590], SCM_OBJ(&scm__rc.d1614[823]), SCM_OBJ(&scm__rc.d1614[827]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[828]), scm__rc.d1613[593]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1618[25]))->name = scm__rc.d1613[590];/* atan */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1483]))[15] = SCM_WORD(scm__rc.d1613[591]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1483]))[23] = SCM_WORD(scm__rc.d1613[540]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1483]))[30] = SCM_WORD(scm__rc.d1613[505]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1483]))[36] = SCM_WORD(scm__rc.d1613[505]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1483]))[40] = SCM_WORD(scm__rc.d1613[592]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1483]))[47] = SCM_WORD(scm__rc.d1613[349]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1483]))[52] = SCM_WORD(scm__rc.d1613[591]);
  ScmObj G1648 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1618[25]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1613[590]) /* atan */, G1648,0);

  scm__rc.d1613[594] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[171])),TRUE); /* atanh */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[831]), scm__rc.d1613[2]);
  scm__rc.d1613[595] = Scm_MakeExtendedPair(scm__rc.d1613[594], SCM_OBJ(&scm__rc.d1614[272]), SCM_OBJ(&scm__rc.d1614[832]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[833]), scm__rc.d1613[595]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1618[26]))->name = scm__rc.d1613[594];/* atanh */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1537]))[10] = SCM_WORD(scm__rc.d1613[505]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1617[1537]))[16] = SCM_WORD(scm__rc.d1613[505]);
  ScmObj G1649 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1618[26]), NULL);

  Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1613[594]) /* atanh */, G1649,0);

   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1613[596] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[172])),TRUE); /* radians->degrees */
  scm__rc.d1613[597] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[173])),TRUE); /* r */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[834]), scm__rc.d1613[597]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[837]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[838]), scm__rc.d1613[596]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[839]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[840]), scm__rc.d1613[3]);
  scm__rc.d1613[598] = Scm_MakeExtendedPair(scm__rc.d1613[596], SCM_OBJ(&scm__rc.d1614[834]), SCM_OBJ(&scm__rc.d1614[842]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("radians->degrees")), SCM_OBJ(&libnumradians_TOdegrees__STUB), SCM_BINDING_INLINABLE);
  libnumradians_TOdegrees__STUB.common.info = scm__rc.d1613[598];
  libnumradians_TOdegrees__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[300]);
  scm__rc.d1613[599] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[174])),TRUE); /* degrees->radians */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[845]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[846]), scm__rc.d1613[599]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[847]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[848]), scm__rc.d1613[3]);
  scm__rc.d1613[600] = Scm_MakeExtendedPair(scm__rc.d1613[599], SCM_OBJ(&scm__rc.d1614[391]), SCM_OBJ(&scm__rc.d1614[850]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("degrees->radians")), SCM_OBJ(&libnumdegrees_TOradians__STUB), SCM_BINDING_INLINABLE);
  libnumdegrees_TOradians__STUB.common.info = scm__rc.d1613[600];
  libnumdegrees_TOradians__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[300]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1613[601] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[175])),TRUE); /* cnt */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[851]), scm__rc.d1613[601]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[852]), scm__rc.d1613[238]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[855]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[856]), scm__rc.d1613[531]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[857]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[858]), scm__rc.d1613[3]);
  scm__rc.d1613[602] = Scm_MakeExtendedPair(scm__rc.d1613[531], SCM_OBJ(&scm__rc.d1614[852]), SCM_OBJ(&scm__rc.d1614[860]));
  scm__rc.d1613[603] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[176])),TRUE); /* <fixnum> */
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[604]))[3] = scm__rc.d1613[48];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[604]))[4] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[604]))[5] = scm__rc.d1613[603];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[604]))[6] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[604]))[7] = scm__rc.d1613[6];
  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.d1613[602];
  libnumash__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[604]);
  scm__rc.d1613[612] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[177])),TRUE); /* lognot */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[863]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[864]), scm__rc.d1613[612]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[865]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[866]), scm__rc.d1613[3]);
  scm__rc.d1613[613] = Scm_MakeExtendedPair(scm__rc.d1613[612], SCM_OBJ(&scm__rc.d1614[98]), SCM_OBJ(&scm__rc.d1614[868]));
  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.d1613[613];
  libnumlognot__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[240]);
  scm__rc.d1613[614] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[178])),TRUE); /* logand */
  scm__rc.d1613[615] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[179])),TRUE); /* arg2 */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[869]), scm__rc.d1613[615]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[870]), scm__rc.d1613[130]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[871]), scm__rc.d1613[129]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[872]), scm__rc.d1613[128]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[875]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[876]), scm__rc.d1613[614]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[877]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[878]), scm__rc.d1613[3]);
  scm__rc.d1613[616] = Scm_MakeExtendedPair(scm__rc.d1613[614], SCM_OBJ(&scm__rc.d1614[872]), SCM_OBJ(&scm__rc.d1614[880]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[617]))[3] = scm__rc.d1613[48];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[617]))[4] = scm__rc.d1613[133];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[617]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[617]))[6] = scm__rc.d1613[6];
  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.d1613[616];
  libnumlogand__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[617]);
  scm__rc.d1613[624] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[180])),TRUE); /* logior */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[883]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[884]), scm__rc.d1613[624]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[885]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[886]), scm__rc.d1613[3]);
  scm__rc.d1613[625] = Scm_MakeExtendedPair(scm__rc.d1613[624], SCM_OBJ(&scm__rc.d1614[872]), SCM_OBJ(&scm__rc.d1614[888]));
  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.d1613[625];
  libnumlogior__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[617]);
  scm__rc.d1613[626] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[181])),TRUE); /* logxor */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[891]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[892]), scm__rc.d1613[626]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[893]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[894]), scm__rc.d1613[3]);
  scm__rc.d1613[627] = Scm_MakeExtendedPair(scm__rc.d1613[626], SCM_OBJ(&scm__rc.d1614[872]), SCM_OBJ(&scm__rc.d1614[896]));
  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.d1613[627];
  libnumlogxor__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[617]);
  scm__rc.d1613[628] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[182])),TRUE); /* logcount */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[899]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[900]), scm__rc.d1613[628]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[901]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[902]), scm__rc.d1613[3]);
  scm__rc.d1613[629] = Scm_MakeExtendedPair(scm__rc.d1613[628], SCM_OBJ(&scm__rc.d1614[538]), SCM_OBJ(&scm__rc.d1614[904]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[630]))[3] = scm__rc.d1613[48];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[630]))[4] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[630]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[630]))[6] = scm__rc.d1613[82];
  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.d1613[629];
  libnumlogcount__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[630]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[907]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[908]), scm__rc.d1613[528]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[909]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[910]), scm__rc.d1613[3]);
  scm__rc.d1613[637] = Scm_MakeExtendedPair(scm__rc.d1613[528], SCM_OBJ(&scm__rc.d1614[538]), SCM_OBJ(&scm__rc.d1614[912]));
  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.d1613[637];
  libnuminteger_length__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[630]);
  scm__rc.d1613[638] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[183])),TRUE); /* twos-exponent-factor */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[915]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[916]), scm__rc.d1613[638]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[917]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[918]), scm__rc.d1613[3]);
  scm__rc.d1613[639] = Scm_MakeExtendedPair(scm__rc.d1613[638], SCM_OBJ(&scm__rc.d1614[538]), SCM_OBJ(&scm__rc.d1614[920]));
  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.d1613[639];
  libnumtwos_exponent_factor__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[630]);
  scm__rc.d1613[640] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[184])),TRUE); /* twos-exponent */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[923]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[924]), scm__rc.d1613[640]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[925]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[926]), scm__rc.d1613[3]);
  scm__rc.d1613[641] = Scm_MakeExtendedPair(scm__rc.d1613[640], SCM_OBJ(&scm__rc.d1614[538]), SCM_OBJ(&scm__rc.d1614[928]));
  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.d1613[641];
  libnumtwos_exponent__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[240]);
  scm__rc.d1613[642] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[185])),TRUE); /* inexact-/ */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[931]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[932]), scm__rc.d1613[642]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[933]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[934]), scm__rc.d1613[3]);
  scm__rc.d1613[643] = Scm_MakeExtendedPair(scm__rc.d1613[642], SCM_OBJ(&scm__rc.d1614[450]), SCM_OBJ(&scm__rc.d1614[936]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[644]))[3] = scm__rc.d1613[48];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[644]))[4] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[644]))[5] = scm__rc.d1613[133];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[644]))[6] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[644]))[7] = scm__rc.d1613[6];
  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.d1613[643];
  libnuminexact__2f__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[644]);
  scm__rc.d1613[652] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[186])),TRUE); /* +. */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[939]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[940]), scm__rc.d1613[652]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[941]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[942]), scm__rc.d1613[3]);
  scm__rc.d1613[653] = Scm_MakeExtendedPair(scm__rc.d1613[652], SCM_OBJ(&scm__rc.d1614[254]), SCM_OBJ(&scm__rc.d1614[944]));
  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.d1613[653];
  libnum_2b_2e__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[617]);
  scm__rc.d1613[654] = 
Scm_MakeFlonum(1.0);
  scm__rc.d1613[655] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[187])),TRUE); /* *. */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[947]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[948]), scm__rc.d1613[655]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[949]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[950]), scm__rc.d1613[3]);
  scm__rc.d1613[656] = Scm_MakeExtendedPair(scm__rc.d1613[655], SCM_OBJ(&scm__rc.d1614[254]), SCM_OBJ(&scm__rc.d1614[952]));
  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.d1613[656];
  libnum_2a_2e__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[617]);
  scm__rc.d1613[657] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[188])),TRUE); /* -. */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[955]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[956]), scm__rc.d1613[657]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[957]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[958]), scm__rc.d1613[3]);
  scm__rc.d1613[658] = Scm_MakeExtendedPair(scm__rc.d1613[657], SCM_OBJ(&scm__rc.d1614[450]), SCM_OBJ(&scm__rc.d1614[960]));
  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.d1613[658];
  libnum__2e__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[644]);
  scm__rc.d1613[659] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[189])),TRUE); /* /. */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[963]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[964]), scm__rc.d1613[659]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[965]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[966]), scm__rc.d1613[3]);
  scm__rc.d1613[660] = Scm_MakeExtendedPair(scm__rc.d1613[659], SCM_OBJ(&scm__rc.d1614[450]), SCM_OBJ(&scm__rc.d1614[968]));
  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.d1613[660];
  libnum_2f_2e__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[644]);
  scm__rc.d1613[661] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[190])),TRUE); /* clamp */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[969]), scm__rc.d1613[161]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[970]), scm__rc.d1613[213]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[971]), scm__rc.d1613[47]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[974]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[975]), scm__rc.d1613[661]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[976]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[977]), scm__rc.d1613[3]);
  scm__rc.d1613[662] = Scm_MakeExtendedPair(scm__rc.d1613[661], SCM_OBJ(&scm__rc.d1614[971]), SCM_OBJ(&scm__rc.d1614[979]));
  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.d1613[662];
  libnumclamp__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[644]);
  scm__rc.d1613[663] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[191])),TRUE); /* quotient&remainder */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[982]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[983]), scm__rc.d1613[663]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[984]), scm__rc.d1613[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[985]), scm__rc.d1613[3]);
  scm__rc.d1613[664] = Scm_MakeExtendedPair(scm__rc.d1613[663], SCM_OBJ(&scm__rc.d1614[476]), SCM_OBJ(&scm__rc.d1614[987]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[665]))[3] = scm__rc.d1613[48];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[665]))[4] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[665]))[5] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[665]))[6] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[665]))[7] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[665]))[8] = scm__rc.d1613[6];
  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.d1613[664];
  libnumquotient_26remainder__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[665]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
  scm__rc.d1613[674] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[192])),TRUE); /* a */
  scm__rc.d1613[675] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[193])),TRUE); /* b */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[988]), scm__rc.d1613[675]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[989]), scm__rc.d1613[674]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[992]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[993]), scm__rc.d1613[504]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[994]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[995]), scm__rc.d1613[3]);
  scm__rc.d1613[676] = Scm_MakeExtendedPair(scm__rc.d1613[504], SCM_OBJ(&scm__rc.d1614[989]), SCM_OBJ(&scm__rc.d1614[997]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[677]))[3] = scm__rc.d1613[4];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[677]))[4] = scm__rc.d1613[257];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[677]))[5] = scm__rc.d1613[257];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[677]))[6] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[677]))[7] = scm__rc.d1613[6];
  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.d1613[676];
  libnummake_rectangular__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[677]);
  scm__rc.d1613[685] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[194])),TRUE); /* t */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[998]), scm__rc.d1613[685]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[999]), scm__rc.d1613[597]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1002]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1003]), scm__rc.d1613[495]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1004]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1005]), scm__rc.d1613[3]);
  scm__rc.d1613[686] = Scm_MakeExtendedPair(scm__rc.d1613[495], SCM_OBJ(&scm__rc.d1614[999]), SCM_OBJ(&scm__rc.d1614[1007]));
  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.d1613[686];
  libnummake_polar__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[677]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1010]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1011]), scm__rc.d1613[491]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1012]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1013]), scm__rc.d1613[3]);
  scm__rc.d1613[687] = Scm_MakeExtendedPair(scm__rc.d1613[491], SCM_OBJ(&scm__rc.d1614[272]), SCM_OBJ(&scm__rc.d1614[1015]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[688]))[3] = scm__rc.d1613[4];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[688]))[4] = scm__rc.d1613[30];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[688]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[688]))[6] = scm__rc.d1613[6];
  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.d1613[687];
  libnumreal_part__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[688]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1018]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1019]), scm__rc.d1613[493]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1020]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1021]), scm__rc.d1613[3]);
  scm__rc.d1613[695] = Scm_MakeExtendedPair(scm__rc.d1613[493], SCM_OBJ(&scm__rc.d1614[272]), SCM_OBJ(&scm__rc.d1614[1023]));
  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.d1613[695];
  libnumimag_part__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[688]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1026]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1027]), scm__rc.d1613[500]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1028]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1029]), scm__rc.d1613[3]);
  scm__rc.d1613[696] = Scm_MakeExtendedPair(scm__rc.d1613[500], SCM_OBJ(&scm__rc.d1614[272]), SCM_OBJ(&scm__rc.d1614[1031]));
  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.d1613[696];
  libnummagnitude__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[191]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1034]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1035]), scm__rc.d1613[502]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1036]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1037]), scm__rc.d1613[3]);
  scm__rc.d1613[697] = Scm_MakeExtendedPair(scm__rc.d1613[502], SCM_OBJ(&scm__rc.d1614[272]), SCM_OBJ(&scm__rc.d1614[1039]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[698]))[3] = scm__rc.d1613[4];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[698]))[4] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[698]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[698]))[6] = scm__rc.d1613[257];
  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.d1613[697];
  libnumangle__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[698]);
  scm__rc.d1613[705] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[195])),TRUE); /* high */
  scm__rc.d1613[706] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[196])),TRUE); /* low */
  scm__rc.d1613[707] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[197])),TRUE); /* both */
  Scm_VMExecuteToplevels(toplevels);
}
