__121 __121_123 __123 __125 __125_123 __75halt __85 __87 __91 __95 __halt _apply _assq _assv _boolean_127 _bytevector _bytevector_127 _bytevector_91append _bytevector_91length _bytevector_91u8_91ref _bytevector_91u8_91set_67 _caaaar _caaadr _caaar _caadar _caaddr _caadr _caar _cadaar _cadadr _cadar _caddar _cadddr _caddr _cadr _call_95cc _car _cdaaar _cdaadr _cdaar _cdadar _cdaddr _cdadr _cdar _cddaar _cddadr _cddar _cdddar _cddddr _cdddr _cddr _cdr _cell _cell_91get _char_127 _char_91_125integer _close_91input_91port _close_91output_91port _close_91port _command_91line_91arguments _cons _Cyc_91bytevector_91copy _Cyc_91compilation_91environment _Cyc_91current_91exception_91handler _Cyc_91cvar_127 _Cyc_91default_91exception_91handler _Cyc_91end_91thread_67 _Cyc_91flush_91output_91port _Cyc_91get_91cvar _Cyc_91global_91vars _Cyc_91has_91cycle_127 _Cyc_91installation_91dir _Cyc_91macro_127 _Cyc_91opaque_127 _Cyc_91read_91line _Cyc_91set_91cvar_67 _Cyc_91spawn_91thread_67 _Cyc_91string_91_125utf8 _Cyc_91utf8_91_125string _Cyc_91write _Cyc_91write_91char _cyc_argc _cyc_argv _cyc_exit _cyc_string_91ref _cyc_string_91set_67 _cyc_substring _cyc_system _delete_91file _display _eof_91object_127 _eq_127 _equal_127 _eqv_127 _file_91exists_127 _integer_127 _integer_91_125char _length _list_91_125string _list_91_125vector _macro_127 _make_91bytevector _make_91vector _memq _memv _null_127 _number_127 _number_91_125string _open_91input_91file _open_91output_91file _pair_127 _peek_91char _port_127 _procedure_127 _read_91char _read_character _read_error _read_is_complex_number _read_is_hex_digit _read_is_numeric _read_line_comment _read_literal_identifier _read_multiline_comment _read_next_char _read_number _read_return_atom _read_return_character _read_return_complex_number _read_return_number _read_string _read_whitespace _real_127 _return_closcall1 _return_closcall2 _set_91car_67 _set_91cdr_67 _set_91cell_67 _set_91global_67 _strdup _string_127 _string_91_125number _string_91_125symbol _string_91append _string_91cmp _string_91length _symbol_127 _symbol_91_125string _vector_127 _vector_91length _vector_91ref _vector_91set_67 a12 a13n a21 a23n add_global add_mutation add_symbol add_symbol_by_name apply apply_va assoc assoc_cdr assq binstr2int boolean_f boolean_t cell_get clear_mutations closcall1 closcall2 copy2heap Cyc_apply Cyc_apply_from_buf Cyc_bignum_cmp Cyc_bignum_normalize Cyc_bignum_remainder Cyc_bit_set Cyc_bit_unset Cyc_bytevector Cyc_bytevector_append Cyc_bytevector_append_va_list Cyc_bytevector_copy Cyc_bytevector_length Cyc_bytevector_u8_ref Cyc_bytevector_u8_set Cyc_bytevector_va_list Cyc_char2integer Cyc_check_bounds Cyc_check_obj Cyc_command_line_arguments Cyc_compilation_environment Cyc_current_exception_handler Cyc_default_exception_handler Cyc_display Cyc_display_va Cyc_display_va_list Cyc_div Cyc_div_op Cyc_end_thread Cyc_EOF Cyc_exit_thread Cyc_expt Cyc_expt_double Cyc_fast_div Cyc_fast_mul Cyc_fast_sub Cyc_fast_sum Cyc_get_cvar Cyc_get_global_variables Cyc_glo_call_cc Cyc_glo_eval_from_c Cyc_global_set Cyc_global_variables Cyc_halt Cyc_has_cycle Cyc_has_vector_cycle Cyc_heap_alloc_port Cyc_import_shared_object Cyc_init_thread Cyc_installation_dir Cyc_int2bignum Cyc_integer2char Cyc_invalid_type_error Cyc_io_close_input_port Cyc_io_close_output_port Cyc_io_close_port Cyc_io_delete_file Cyc_io_file_exists Cyc_io_flush_output_port Cyc_io_open_input_file Cyc_io_open_output_file Cyc_io_peek_char Cyc_io_peek_u8 Cyc_io_read_char Cyc_io_read_line Cyc_io_read_token Cyc_io_read_u8 Cyc_is_complex Cyc_is_integer Cyc_is_number Cyc_is_procedure Cyc_is_real Cyc_length Cyc_list Cyc_list2string Cyc_list2vector Cyc_make_bytevector Cyc_make_rectangular Cyc_make_vector Cyc_num2double Cyc_num_cmp_va_list Cyc_num_op_va_list Cyc_number2string2 Cyc_remainder Cyc_rt_raise Cyc_rt_raise2 Cyc_rt_raise_msg Cyc_set_car Cyc_set_cdr Cyc_set_cell Cyc_set_cvar Cyc_set_globals_changed Cyc_spawn_thread Cyc_st_add Cyc_st_print Cyc_start_trampoline Cyc_stderr Cyc_stdin Cyc_stdout Cyc_string2number2_ Cyc_string2number_ Cyc_string2symbol Cyc_string2utf8 Cyc_string_append Cyc_string_append_va_list Cyc_string_byte_length Cyc_string_cmp Cyc_string_length Cyc_string_ref Cyc_string_set Cyc_substring Cyc_symbol2string Cyc_system Cyc_thread_sleep Cyc_trigger_minor_gc Cyc_utf82string Cyc_utf8_count_code_points Cyc_utf8_count_code_points_and_bytes Cyc_utf8_decode Cyc_utf8_encode Cyc_utf8_validate Cyc_utf8_validate_stream Cyc_vector_length Cyc_vector_ref Cyc_vector_set Cyc_write Cyc_write_char Cyc_write_u8 Cyc_write_va Cyc_write_va_list debug_dump_globals declare_char_comp declare_char_comp declare_char_comp declare_char_comp declare_char_comp declare_char_comp declare_num_cmp declare_num_cmp declare_num_cmp declare_num_cmp declare_num_cmp declare_num_cmp declare_num_op declare_num_op declare_num_op declare_num_op dispatch dispatch_apply_va dispatch_bytevector dispatch_bytevector_91append dispatch_display_va dispatch_div dispatch_string_91append dispatch_va dispatch_write_va do_apply_va double2buffer env_variables equal equalp find_or_add_symbol find_symbol_by_name GC gc_alloc_pair gc_fixup_moved_obj gc_init_heap gc_move gc_move2heap gc_request_mark_globals get_env_variables global_table int_to_binary is_library_loaded m1 m2 malloc_make_pair mcvar memberp memqp mp_get_double MRG32k3a norm octstr2int pack_env_variables PRECISION primitive__121 primitive__121_123 primitive__123 primitive__125 primitive__125_123 primitive__75halt primitive__85 primitive__87 primitive__91 primitive__95 primitive_apply primitive_assq primitive_assv primitive_boolean_127 primitive_bytevector primitive_bytevector_127 primitive_bytevector_91append primitive_bytevector_91length primitive_bytevector_91u8_91ref primitive_bytevector_91u8_91set_67 primitive_caaaar primitive_caaadr primitive_caaar primitive_caadar primitive_caaddr primitive_caadr primitive_caar primitive_cadaar primitive_cadadr primitive_cadar primitive_caddar primitive_cadddr primitive_caddr primitive_cadr primitive_call_95cc primitive_car primitive_cdaaar primitive_cdaadr primitive_cdaar primitive_cdadar primitive_cdaddr primitive_cdadr primitive_cdar primitive_cddaar primitive_cddadr primitive_cddar primitive_cdddar primitive_cddddr primitive_cdddr primitive_cddr primitive_cdr primitive_cell primitive_cell_91get primitive_char_127 primitive_char_91_125integer primitive_close_91input_91port primitive_close_91output_91port primitive_close_91port primitive_command_91line_91arguments primitive_cons primitive_Cyc_91bytevector_91copy primitive_Cyc_91compilation_91environment primitive_Cyc_91current_91exception_91handler primitive_Cyc_91cvar_127 primitive_Cyc_91default_91exception_91handler primitive_Cyc_91display primitive_Cyc_91end_91thread_67 primitive_Cyc_91flush_91output_91port primitive_Cyc_91get_91cvar primitive_Cyc_91global_91vars primitive_Cyc_91has_91cycle_127 primitive_Cyc_91installation_91dir primitive_Cyc_91macro_127 primitive_Cyc_91opaque_127 primitive_Cyc_91read_91line primitive_Cyc_91set_91cvar_67 primitive_Cyc_91spawn_91thread_67 primitive_Cyc_91string_91_125utf8 primitive_Cyc_91utf8_91_125string primitive_Cyc_91write primitive_Cyc_91write_91char primitive_delete_91file primitive_eof_91object_127 primitive_eq_127 primitive_equal_127 primitive_eqv_127 primitive_exit primitive_file_91exists_127 primitive_integer_127 primitive_integer_91_125char primitive_length primitive_list_91_125string primitive_list_91_125vector primitive_macro_127 primitive_make_91bytevector primitive_make_91vector primitive_memq primitive_memv primitive_null_127 primitive_number_127 primitive_number_91_125string primitive_open_91input_91file primitive_open_91output_91file primitive_pair_127 primitive_peek_91char primitive_port_127 primitive_procedure_127 primitive_read_91char primitive_real_127 primitive_set_91car_67 primitive_set_91cdr_67 primitive_set_91cell_67 primitive_set_91global_67 primitive_string_127 primitive_string_91_125number primitive_string_91_125symbol primitive_string_91append primitive_string_91cmp primitive_string_91length primitive_string_91ref primitive_string_91set_67 primitive_substring primitive_symbol_127 primitive_symbol_91_125string primitive_system primitive_vector_127 primitive_vector_91length primitive_vector_91ref primitive_vector_91set_67 quote_void read_from_port register_library return_closcall1 return_closcall2 set_env_variables str2int str2int_errno str_is_bignum tag_names vpbuffer_add vpbuffer_free vpbuffer_realloc

double mp_get_double ( mp_int *  a )