kl1cmp_macro:
	module		kl1cmp_macro
	entry		test,0,test_0_0
	entry		generate_macro_expander,6,generate_macro_expander_6_0
	module_entry		kl1cmp_macro
	predicate		test,0
test_0_0:
	b_merge		1,2
	b_merge		5,3
	put_vector		8,3
	write_element_variable		8,0,6
	write_element_variable		8,1,7
	write_element_variable		8,2,4
	get_vector_value		5,8
	create_goal		4
	set_variable		1,8
	set_nil		2
	set_value		3,4
	set_nil		4
	enqueue_goal		4,compiler_4_0
	create_goal		6
	set_variable		1,5
	set_nil		2
	set_value		3,7
	set_nil		4
	set_value		5,1
	set_value		6,8
	enqueue_goal		6,generate_macro_expander_6_0
	create_goal		3
	set_variable		1,4
	put_func		1,2,getl
	write_element_void		1,1
	put_list		7
	write_car_value		7,1
	write_cdr_nil		7
	set_value		2,7
	set_value		3,3
	enqueue_goal		3,out_to_dlist_3_0
	create_goal		5
	set_variable		1,1
	set_nil		2
	set_value		3,6
	set_nil		4
	set_value		5,5
	enqueue_goal_external		kl1cmp_reader,create_reader,5
	create_goal		3
	set_value		1,1
	put_structured_constant		1,'$SCNST_0'
	set_value		2,1
	set_atom		3,r
	enqueue_goal_external		mpimos_file,create,3
	create_goal		2
	set_value		1,4
	put_structured_constant		1,'$SCNST_1'
	set_value		2,1
	enqueue_goal_external		window,create,2
	put_value		1,2
	execute_external		kl1cmp_macro_arg,init_macro_table,1
test_0_1:
	suspend		test_0_0
	module_entry		kl1cmp_macro
	predicate		compiler,4
compiler_4_0:
	put_func		5,3,read_predicate
	write_element_variable		5,1,7
	write_element_variable		5,2,6
	get_list_val_var		1,8,5,5
	put_value		1,5
	put_value		5,7
	execute		6,compiler__6_0
compiler_4_1:
	suspend		compiler_4_0
	module_entry		kl1cmp_macro
	predicate		compiler_,6
compiler__6_0:
	try_me_else		compiler__6_1
	atom		6
	branch_on_atom		6,2,compiler__6_1
	bucket_entry_a		[],compiler__6_3
	bucket_entry_a		end_of_file,compiler__6_4
compiler__6_3:
	collect_value		5
	get_value		3,4
	get_value		1,2
	proceed
compiler__6_4:
	collect_value		5
	get_value		3,4
	get_value		1,2
	proceed
compiler__6_1:
	otherwise		compiler__6_0
	put_func		7,2,flush
	write_element_void		7,1
	put_list_val_var		8,7,9
	put_list		7
	write_car_atom		7,nl
	write_cdr_value		7,8
	put_func		8,2,putt
	write_element_value		8,1,6
	put_list_val_val		6,8,7
	put_list		7
	write_car_atom		7,nl
	write_cdr_value		7,6
	put_func		6,2,putt
	write_element_value		6,1,5
	put_list_val_val		5,6,7
	get_list_value		3,5
	put_func		3,3,read_predicate
	write_element_variable		3,1,5
	write_element_variable		3,2,6
	get_list_val_var		1,7,3,3
	put_value		1,3
	put_value		3,9
	execute		6,compiler__6_0
compiler__6_7:
	suspend		compiler__6_0
	module_entry		kl1cmp_macro
	predicate		generate_macro_expander,6
generate_macro_expander_6_0:
	put_value		8,6
	put_func		6,3,read_predicate
	write_element_variable		6,1,7
	write_element_variable		6,2,9
	get_list_val_var		1,10,6,6
	put_value		1,6
	put_value		6,9
	execute		8,dispatch_case_on_pred_8_0
generate_macro_expander_6_1:
	suspend		generate_macro_expander_6_0
	module_entry		kl1cmp_macro
	predicate		dispatch_case_on_pred,8
dispatch_case_on_pred_8_0:
	try_me_else		dispatch_case_on_pred_8_1
	wait_atom		6,directive
	wait_list_var_var		8,11,9
	wait_vector		11,3
	read_element		11,0,10
	wait_atom		10,read_predicate
	read_element		11,1,10
	read_element		11,2,6
	get_atom		6,directive
	put_reused_func		6,11,read_predicate
	write_element_variable		6,1,12
	write_element_variable		6,2,11
	get_reused_list_val_var		1,8,8,6,6
	create_goal		12
	set_value		1,6
	set_value		2,2
	set_variable		3,2
	set_value		4,4
	set_variable		5,4
	set_nil		6
	set_void		7
	set_variable		8,6
	set_nil		9
	set_values_dec		10,12,2
	set_value		12,9
	enqueue_goal		12,macro_expander_12_0
	put_value		1,3
	put_value		3,5
	put_values_inc		5,6,2
	put_value		7,10
	execute_external		kl1cmp_mtbl,generate_macro_table_process,7
dispatch_case_on_pred_8_1:
	otherwise		dispatch_case_on_pred_8_0
	create_goal		12
	set_values_inc		1,1,2
	set_variable		3,2
	set_value		4,4
	set_variable		5,4
	set_nil		6
	set_void		7
	set_variable		8,9
	set_nil		9
	set_values_dec		10,7,2
	set_value		12,8
	enqueue_goal		12,macro_expander_12_0
	put_value		1,3
	put_value		3,5
	put_value		5,9
	put_nil		6
	put_void		7
	execute_external		kl1cmp_mtbl,generate_macro_table_process,7
dispatch_case_on_pred_8_6:
	suspend		dispatch_case_on_pred_8_0
	module_entry		kl1cmp_macro
	predicate		macro_expander,12
macro_expander_12_0:
	try_me_else		macro_expander_12_1
	atom		11
	branch_on_atom		11,2,macro_expander_12_1
	bucket_entry_a		directive,macro_expander_12_3
	bucket_entry_a		end_of_file,macro_expander_12_4
macro_expander_12_3:
	wait_list_var_var		12,15,13
	wait_vector		15,3
	read_element		15,0,14
	wait_atom		14,read_predicate
	read_element		15,1,11
	read_element		15,2,14
	get_atom		14,directive
	put_reused_func		14,15,read_predicate
	write_element_variable		14,1,16
	write_element_variable		14,2,15
	get_reused_list_val_var		1,17,12,14,12
	create_goal		12
	set_value		1,12
	set_value		2,2
	set_variable		3,2
	set_value		4,4
	set_variable		5,4
	set_values_inc		6,6,2
	set_variable		8,6
	set_value		9,9
	set_values_dec		10,16,2
	set_value		12,13
	enqueue_goal		12,macro_expander_12_0
	put_value		1,3
	put_value		3,5
	put_value		5,8
	put_values_inc		7,10,2
	execute		8,check_directives_8_0
macro_expander_12_4:
	collect_value		10
	get_nil		5
	get_value		8,9
	put_marked_value		6,6
	get_value		6,7
	get_value		3,4
	get_value		1,2
	put_value		1,12
	put_value		2,6
	execute		2,after_eof_2_0
macro_expander_12_1:
	try_me_else		macro_expander_12_5
	wait_list_var_var		12,18,13
	wait_vector		18,3
	read_element		18,0,14
	wait_atom		14,read_predicate
	read_elements_inc		18,1,14,2
	put_atom		16,end_of_file
	g_diff		11,16
	put_atom		16,directive
	g_diff		11,16
	put_value		20,11
	put_vector		11,2
	write_element_variable		11,0,17
	write_element_variable		11,1,16
	get_vector_value		5,11
	put_marked_value		20,20
	get_value		20,15
	put_reused_func		5,18,read_predicate
	write_element_variable		5,1,19
	write_element_variable		5,2,18
	put_reused_list_val_var		11,12,5,5
	create_goal		12
	set_value		1,5
	set_value		2,2
	set_variable		3,5
	set_value		4,4
	set_value		5,17
	set_variable		6,15
	set_value		7,7
	set_variable		8,12
	set_value		9,9
	set_values_dec		10,19,2
	set_value		12,13
	enqueue_goal		12,macro_expander_12_0
	put_value		2,11
	put_value		4,5
	put_value		5,16
	put_value		7,15
	put_value		9,12
	put_value		11,14
	put_value		12,20
	execute		12,expand_clauses_12_0
macro_expander_12_5:
	suspend		macro_expander_12_0
	module_entry		kl1cmp_macro
	predicate		after_eof,2
after_eof_2_0:
	try_me_else		after_eof_2_1
	jump_on_non_list		1,after_eof_2_3
	read_car		1,3
	wait_vector		3,3
	read_element		3,0,4
	wait_atom		4,read_predicate
	read_elements_inc		3,1,5,2
	read_cdr		1,7
	jump_on_non_list		2,after_eof_2_7
	read_car		2,8
	vector		8
	jump_on_arity		8,4,after_eof_2_1
	table_entry		after_eof_2_1
	table_entry		after_eof_2_1
	table_entry		after_eof_2_9
	table_entry		after_eof_2_10
after_eof_2_9:
	read_cdr		2,9
	read_element		8,0,13
	read_element		8,1,10
	wait_vector		13,3
	read_element		13,0,11
	wait_atom		11,:
	read_element		13,1,11
	read_element		13,2,14
	wait_vector		14,3
	read_element		14,0,12
	wait_atom		12,/
	read_element		14,1,4
	read_element		14,2,12
	collect_list		1
	collect_list		2
	collect_vector		8
	collect_vector		13
	collect_vector		14
	put_reused_func		1,3,/
	write_element_marked_value		1,1,10
	write_element_marked_value		1,2,12
	get_vector_value		6,1
	create_goal		2
	set_value		1,7
	set_value		2,9
	enqueue_goal		2,after_eof_2_0
	put_values_inc		1,10,2
	put_value		3,4
	put_value		4,12
	execute		5,new_external_clause_5_0
after_eof_2_10:
	read_cdr		2,9
	read_element		8,0,14
	read_elements_inc		8,1,10,2
	wait_vector		14,3
	read_element		14,0,12
	wait_atom		12,@
	read_element		14,1,15
	read_element		14,2,12
	wait_vector		15,3
	read_element		15,0,13
	wait_atom		13,/
	read_element		15,1,4
	read_element		15,2,13
	collect_list		1
	collect_list		2
	collect_value		11
	collect_vector		8
	collect_vector		14
	collect_vector		15
	put_value		8,5
	put_reused_func		1,3,/
	write_element_marked_value		1,1,10
	write_element_variable		1,2,5
	get_vector_value		6,1
	create_goal		2
	set_value		1,7
	set_value		2,9
	enqueue_goal		2,after_eof_2_0
	put_value		1,10
	put_value		2,12
	put_value		3,4
	put_value		4,13
	put_value		6,8
	execute		6,new_pragma_clause_6_0
after_eof_2_7:
	check_nil		2,after_eof_2_1
	collect_list		1
	collect_vector		3
	get_atom		5,end_of_file
	get_atom		6,end_of_file
	put_value		1,7
	put_nil		2
	execute		2,after_eof_2_0
after_eof_2_3:
	check_nil		1,after_eof_2_1
	collect_value		2
	proceed
after_eof_2_1:
	suspend		after_eof_2_0
	module_entry		kl1cmp_macro
	predicate		new_external_clause,5
new_external_clause_5_0:
	try_me_else		new_external_clause_5_1
	integer		4
	test_integer		4,0,new_external_clause_5_3
	put_func		4,3,:
	write_elements_inc		4,1,2,2
	put_func		2,3,'|'
	write_element_atom		2,1,true
	write_element_value		2,2,4
	put_func		3,3,:-
	write_elements_inc		3,1,1,2
	put_list		1
	write_car_value		1,3
	write_cdr_nil		1
	put_list		2
	write_car_value		2,1
	write_cdr_nil		2
	get_list_value		5,2
	proceed
new_external_clause_5_3:
	put_integer		6,0
	g_less_than		6,4
	b_increment		4,4
	put_marked_value		6,4
	b_new_vector		6,6
	put_integer		7,0
	b_set_vector_element		6,7,1,1,6
	b_new_vector		1,4
	put_integer		7,0
	b_set_vector_element		1,7,1,3,7
	put_func		1,3,:
	write_element_value		1,1,2
	write_element_variable		1,2,8
	put_func		2,3,'|'
	write_element_atom		2,1,true
	write_element_value		2,2,1
	put_func		1,3,:-
	write_element_variable		1,1,9
	write_element_value		1,2,2
	put_list		2
	write_car_value		2,1
	write_cdr_nil		2
	put_list		1
	write_car_value		1,2
	write_cdr_nil		1
	get_list_value		5,1
	put_integer		1,1
	put_value		2,4
	put_value		3,6
	put_value		4,9
	put_values_inc		5,7,2
	execute		6,new_clause_args_6_0
new_external_clause_5_1:
	suspend		new_external_clause_5_0
	module_entry		kl1cmp_macro
	predicate		new_pragma_clause,6
new_pragma_clause_6_0:
	try_me_else		new_pragma_clause_6_1
	vector		2
	integer		4
	test_integer		4,0,new_pragma_clause_6_4
	put_value		7,2
	g_vector		7,2
	b_decrement		2,2
	get_value		5,2
	put_func		2,3,@
	write_element_value		2,1,3
	write_element_marked_value		2,2,7
	put_func		3,3,'|'
	write_element_atom		3,1,true
	write_element_value		3,2,2
	put_func		2,3,:-
	write_element_variable		2,1,4
	write_element_value		2,2,3
	put_list		3
	write_car_value		3,2
	write_cdr_nil		3
	put_list		2
	write_car_value		2,3
	write_cdr_nil		2
	get_list_value		6,2
	put_integer		2,0
	put_value		3,7
	execute		4,add_pragma_args_4_0
new_pragma_clause_6_4:
	put_integer		7,0
	g_less_than		7,4
	g_vector		2,7
	put_marked_value		8,4
	b_increment		8,8
	put_marked_value		9,8
	b_new_vector		9,9
	put_integer		10,0
	b_set_vector_element		9,10,1,1,9
	b_new_vector		1,8
	put_integer		10,0
	b_set_vector_element		1,10,1,3,10
	b_add		4,7,1
	b_decrement		1,1
	get_value		5,1
	put_func		1,3,@
	write_element_variable		1,1,7
	write_element_marked_value		1,2,2
	put_func		3,3,'|'
	write_element_atom		3,1,true
	write_element_value		3,2,1
	put_func		1,3,:-
	write_element_variable		1,1,11
	write_element_value		1,2,3
	put_list		3
	write_car_value		3,1
	write_cdr_nil		3
	put_list		1
	write_car_value		1,3
	write_cdr_nil		1
	get_list_value		6,1
	create_goal		4
	set_variable		1,5
	set_value		2,4
	set_value		3,2
	set_value		4,11
	enqueue_goal		4,add_pragma_args_4_0
	put_integer		1,1
	put_values_inc		2,8,2
	put_value		4,5
	put_value		5,10
	put_value		6,7
	execute		6,new_clause_args_6_0
new_pragma_clause_6_1:
	suspend		new_pragma_clause_6_0
	module_entry		kl1cmp_macro
	predicate		new_clause_args,6
new_clause_args_6_0:
	try_me_else		new_clause_args_6_1
	integer		1
	integer		2
	g_less_than		1,2
	put_marked_value		7,1
	b_decrement		7,7
	put_structured_constant		8,'$SCNST_2'
	put_variable		9,10
	b_append_string		8,9,8
	put_func		9,3,'$VAR'
	write_element_marked_value		9,1,7
	write_element_value		9,2,8
	put_marked_value		8,9
	b_set_vector_element		3,1,3,8,8
	b_set_vector_element		5,1,3,9,5
	b_increment		1,1
	create_goal		6
	set_values_inc		1,1,2
	set_value		3,8
	set_values_inc		4,4,3
	enqueue_goal		6,new_clause_args_6_0
	put_value		1,7
	put_value		2,10
	execute_external		kl1cmp_reader,convert_integer_to_string,2
new_clause_args_6_1:
	try_me_else		new_clause_args_6_3
	wait_value		1,2
	collect_value		1
	collect_value		2
	get_value		4,3
	get_value		6,5
	proceed
new_clause_args_6_3:
	suspend		new_clause_args_6_0
	module_entry		kl1cmp_macro
	predicate		new_clause_head,4
new_clause_head_4_0:
	try_me_else		new_clause_head_4_1
	integer		1
	integer		2
	g_less_than		1,2
	put_marked_value		5,1
	b_decrement		5,5
	put_structured_constant		6,'$SCNST_3'
	put_variable		7,8
	b_append_string		6,7,6
	put_func		7,3,'$VAR'
	write_element_marked_value		7,1,5
	write_element_value		7,2,6
	b_set_vector_element		3,1,3,7,6
	b_increment		1,1
	create_goal		4
	set_values_inc		1,1,2
	set_value		3,6
	set_value		4,4
	enqueue_goal		4,new_clause_head_4_0
	put_value		1,5
	put_value		2,8
	execute_external		kl1cmp_reader,convert_integer_to_string,2
new_clause_head_4_1:
	try_me_else		new_clause_head_4_3
	wait_value		1,2
	collect_value		1
	collect_value		2
	get_value		4,3
	proceed
new_clause_head_4_3:
	suspend		new_clause_head_4_0
	module_entry		kl1cmp_macro
	predicate		check_directives,8
check_directives_8_0:
	try_me_else		check_directives_8_1
	list		7
	read_car		7,9
	wait_vector		9,2
	read_element		9,0,10
	wait_atom		10,:-
	read_element		9,1,11
	jump_on_non_atom		11,check_directives_8_6
	test_atom		11,local_implicit,check_directives_8_1
	read_cdr		7,12
	collect_vector		9
	put_structured_constant		9,'$SCNST_4'
	get_reused_list_val_var		5,10,7,9,7
	put_value		5,7
	put_value		7,12
	execute		8,check_directives_8_0
check_directives_8_6:
	check_vector		11,2,check_directives_8_1
	read_element		11,0,12
	atom		12
	branch_on_atom		12,2,check_directives_8_1
	bucket_entry_a		local_implicit,check_directives_8_8
	bucket_entry_a		with_macro,check_directives_8_9
check_directives_8_8:
	read_cdr		7,13
	read_element		11,1,10
	collect_vector		11
	put_reused_func		9,9,replace_local
	write_element_variable		9,1,11
	get_reused_list_val_var		5,12,7,9,7
	create_goal		8
	set_variable		1,5
	set_values_inc		2,2,3
	set_values_dec		5,7,2
	set_value		7,13
	set_value		8,8
	enqueue_goal		8,check_directives_8_0
	put_value		2,5
	put_value		3,11
	put_nil		4
	put_value		5,10
	execute_external		kl1cmp_mtbl,make_table,5
check_directives_8_9:
	read_cdr		7,13
	read_element		11,1,10
	collect_list		7
	collect_vector		9
	collect_vector		11
	create_goal		8
	set_variable		1,9
	set_value		2,2
	set_variable		3,7
	set_values_inc		4,4,3
	set_value		7,13
	set_value		8,8
	enqueue_goal		8,check_directives_8_0
	put_value		2,9
	put_value		4,7
	put_value		5,10
	execute_external		kl1cmp_macro_arg,read_macro_file,5
check_directives_8_1:
	otherwise		check_directives_8_0
	try_me_else		check_directives_8_24
	jump_on_non_list_var_var		7,check_directives_8_26,9,10
	get_reused_list_val_var		8,7,7,9,9
	put_values_dec		7,10,2
	execute		8,check_directives_8_0
check_directives_8_26:
	check_nil		7,check_directives_8_24
	get_value		5,6
	get_value		3,4
	get_value		1,2
	get_nil		8
	proceed
check_directives_8_24:
	suspend		check_directives_8_0
	module_entry		kl1cmp_macro
	predicate		expand_clauses,12
expand_clauses_12_0:
	try_me_else		expand_clauses_12_1
	jump_on_non_list_var_var		10,expand_clauses_12_3,13,14
	put_vector		17,2
	write_element_variable		17,0,16
	write_element_variable		17,1,15
	get_vector_value		5,17
	put_reused_list		5,10
	write_car_variable		5,17
	write_cdr_variable		5,19
	get_list_value		11,5
	create_goal		12
	set_variable		1,18
	set_value		2,2
	set_variable		3,5
	set_value		4,4
	set_value		5,16
	set_variable		6,11
	set_value		7,7
	set_variable		8,10
	set_value		9,9
	set_value		10,14
	set_value		11,19
	set_marked_value		12,12
	enqueue_goal		12,expand_clauses_12_0
	put_value		2,18
	put_value		4,5
	put_value		5,15
	put_value		7,11
	put_value		9,10
	put_value		10,13
	put_value		11,17
	execute		12,expand_clauses_12_0
expand_clauses_12_3:
	check_nil		10,expand_clauses_12_1
	collect_value		12
	get_nil		5
	get_value		8,9
	get_value		6,7
	get_value		3,4
	get_value		1,2
	get_nil		11
	proceed
expand_clauses_12_1:
	otherwise		expand_clauses_12_0
	execute		12,expand_one_clause_12_0
expand_clauses_12_8:
	suspend		expand_clauses_12_0
	module_entry		kl1cmp_macro
	predicate		expand_one_clause,12
expand_one_clause_12_0:
	try_me_else		expand_one_clause_12_1
	jump_on_non_atom		10,expand_one_clause_12_3
	branch_on_atom		10,3,expand_one_clause_12_1
	bucket_entry_a		alternatively,expand_one_clause_12_4
	bucket_entry_a		end_of_file,expand_one_clause_12_5
	bucket_entry_a		otherwise,expand_one_clause_12_6
expand_one_clause_12_4:
	collect_value		12
	get_nil		5
	get_value		8,9
	get_value		6,7
	get_value		3,4
	get_value		1,2
	get_atom		11,alternatively
	proceed
expand_one_clause_12_5:
	collect_value		12
	get_nil		5
	get_value		8,9
	get_value		6,7
	get_value		3,4
	get_value		1,2
	get_atom		11,end_of_file
	proceed
expand_one_clause_12_6:
	collect_value		12
	get_nil		5
	get_value		8,9
	get_value		6,7
	get_value		3,4
	get_value		1,2
	get_atom		11,otherwise
	proceed
expand_one_clause_12_3:
	check_vector		10,3,expand_one_clause_12_1
	read_element		10,0,13
	atom		13
	branch_on_atom		13,2,expand_one_clause_12_1
	bucket_entry_a		-->,expand_one_clause_12_8
	bucket_entry_a		:-,expand_one_clause_12_9
expand_one_clause_12_8:
	read_element		10,1,14
	read_element		10,2,22
	wait_vector		22,3
	read_element		22,0,15
	wait_atom		15,'|'
	read_elements_inc		22,1,15,2
	wait_vector		12,3
	read_element		12,0,17
	wait_atom		17,/
	read_elements_inc		12,1,17,2
	collect_value		17
	put_vector		13,2
	write_element_variable		13,0,19
	write_element_variable		13,1,17
	get_vector_value		5,13
	get_value		1,2
	b_merge		1,2
	put_func		5,2,init_tables
	write_element_variable		5,1,21
	put_list_val_var		13,5,20
	put_func		5,2,new_var_stream
	write_element_value		5,1,1
	put_list_val_val		1,5,13
	get_list_value		8,1
	put_reused_func		1,10,'|'
	write_element_variable		1,1,8
	write_element_variable		1,2,13
	put_reused_func		5,22,:-
	write_element_variable		5,1,23
	write_element_value		5,2,1
	get_vector_value		11,5
	put_func		1,2,terminate
	write_element_variable		1,1,11
	put_list_val_val		5,1,9
	create_goal		4
	set_variable		1,1
	set_variable		2,22
	set_variable		3,10
	set_value		4,8
	enqueue_goal		4,split_head_and_new_goal_4_0
	create_goal		16
	set_variable		1,9
	set_value		2,4
	set_value		3,19
	set_variable		4,8
	set_value		5,7
	set_variable		6,4
	set_value		7,5
	set_atom		8,expand
	set_variable		9,7
	set_variable		10,5
	set_value		11,23
	set_marked_value		12,15
	set_value		13,22
	set_marked_value		14,16
	set_value		15,13
	set_value		16,11
	enqueue_goal		16,convert_term_16_0
	create_goal		2
	set_marked_value		1,14
	set_value		2,7
	enqueue_goal		2,arity_in_origin_2_0
	create_goal		4
	set_value		1,21
	set_value		2,18
	set_value		3,10
	set_value		4,5
	enqueue_goal		4,copy_implicit_args_head_4_0
	create_goal		13
	set_value		1,3
	set_value		2,9
	set_value		3,17
	set_value		4,6
	set_value		5,8
	set_value		6,20
	set_value		7,4
	set_atom		8,non_expand
	set_integer		9,0
	set_atom		10,head
	set_value		11,1
	set_nil		12
	set_value		13,14
	enqueue_goal		13,convert_one_goal_13_0
	create_goal		3
	set_variable		1,3
	set_void		2
	set_value		3,2
	enqueue_goal_external		kl1cmp_normalize,variable_generator,3
	put_reused_func		1,12,+
	write_elements_inc		1,1,14,2
	put_func		2,3,+
	write_element_value		2,1,1
	write_element_value		2,2,16
	put_value		1,2
	put_integer		2,0
	execute_external		kl1cmp_reader,count_variables,3
expand_one_clause_12_9:
	read_element		10,1,14
	read_element		10,2,19
	wait_vector		19,3
	read_element		19,0,15
	wait_atom		15,'|'
	read_elements_inc		19,1,15,2
	collect_value		12
	put_vector		17,2
	write_element_variable		17,0,13
	write_element_variable		17,1,12
	get_vector_value		5,17
	get_value		1,2
	b_merge		1,2
	put_func		5,2,new_var_stream
	write_element_value		5,1,1
	get_list_val_var		8,1,5,5
	put_reused_func		1,10,'|'
	write_element_variable		1,1,17
	write_element_variable		1,2,18
	put_reused_func		8,19,:-
	write_element_variable		8,1,19
	write_element_value		8,2,1
	get_vector_value		11,8
	create_goal		16
	set_variable		1,10
	set_value		2,4
	set_value		3,13
	set_variable		4,8
	set_value		5,7
	set_variable		6,4
	set_value		7,9
	set_atom		8,non_expand
	set_variable		9,7
	set_variable		10,9
	set_value		11,19
	set_marked_value		12,15
	set_variable		13,11
	set_marked_value		14,16
	set_value		15,18
	set_nil		16
	enqueue_goal		16,convert_term_16_0
	create_goal		4
	set_variable		1,1
	set_value		2,11
	set_value		3,9
	set_value		4,17
	enqueue_goal		4,split_head_and_new_goal_4_0
	create_goal		2
	set_marked_value		1,14
	set_value		2,7
	enqueue_goal		2,arity_in_origin_2_0
	create_goal		13
	set_value		1,3
	set_value		2,10
	set_value		3,12
	set_value		4,6
	set_value		5,8
	set_values_dec		6,5,2
	set_atom		8,non_expand
	set_integer		9,0
	set_atom		10,head
	set_value		11,1
	set_nil		12
	set_value		13,14
	enqueue_goal		13,convert_one_goal_13_0
	create_goal		3
	set_variable		1,3
	set_void		2
	set_value		3,2
	enqueue_goal_external		kl1cmp_normalize,variable_generator,3
	put_func		1,3,+
	write_elements_inc		1,1,14,2
	put_func		2,3,+
	write_element_value		2,1,1
	write_element_value		2,2,16
	put_value		1,2
	put_integer		2,0
	execute_external		kl1cmp_reader,count_variables,3
expand_one_clause_12_1:
	suspend		expand_one_clause_12_0
	module_entry		kl1cmp_macro
	predicate		split_head_and_new_goal,4
split_head_and_new_goal_4_0:
	try_me_else		split_head_and_new_goal_4_1
	wait_list_var_var		1,5,6
	try_me_else		split_head_and_new_goal_4_3
	wait_nil		6
	collect_list		1
	get_value		4,2
	get_value		3,5
	proceed
split_head_and_new_goal_4_3:
	try_me_else		split_head_and_new_goal_4_1
	put_nil		7
	g_diff		6,7
	collect_value		7
	put_value		7,2
	create_goal		3
	put_reused_list_val_val		1,1,5,6
	set_value		1,1
	set_value		2,3
	set_variable		3,2
	enqueue_goal		3,split_head_and_new_goal1_3_0
	create_goal		2
	set_variable		1,1
	set_value		2,4
	enqueue_goal		2,convert_list_to_COMMA_2_0
	put_value		3,7
	execute		3,convert_COMMA_to_list_3_0
split_head_and_new_goal_4_1:
	suspend		split_head_and_new_goal_4_0
	module_entry		kl1cmp_macro
	predicate		split_head_and_new_goal1,3
split_head_and_new_goal1_3_0:
	try_me_else		split_head_and_new_goal1_3_1
	wait_list_var_var		1,4,5
	try_me_else		split_head_and_new_goal1_3_3
	wait_nil		5
	collect_list		1
	get_nil		3
	get_value		2,4
	proceed
split_head_and_new_goal1_3_3:
	try_me_else		split_head_and_new_goal1_3_1
	put_nil		6
	g_diff		5,6
	collect_value		6
	get_reused_list_val_var		3,1,1,4,4
	put_value		1,5
	put_value		3,4
	execute		3,split_head_and_new_goal1_3_0
split_head_and_new_goal1_3_1:
	suspend		split_head_and_new_goal1_3_0
	module_entry		kl1cmp_macro
	predicate		arity_in_origin,2
arity_in_origin_2_0:
	try_me_else		arity_in_origin_2_1
	jump_on_non_atom		1,arity_in_origin_2_3
	get_integer		2,1
	proceed
arity_in_origin_2_3:
	is_vector		1,arity_in_origin_2_1
	g_vector		1,3
	collect_value		1
	get_value		2,3
	proceed
arity_in_origin_2_1:
	suspend		arity_in_origin_2_0
	module_entry		kl1cmp_macro
	predicate		copy_implicit_args_head,4
copy_implicit_args_head_4_0:
	try_me_else		copy_implicit_args_head_4_1
	jump_on_non_atom		3,copy_implicit_args_head_4_3
	collect_value		2
	put_value		5,4
	put_variable		2,6
	b_new_vector		2,2
	put_integer		4,0
	b_set_vector_element		2,4,2,3,4
	put_integer		2,1
	put_value		3,6
	execute		5,copy_implicit_args_5_0
copy_implicit_args_head_4_3:
	is_vector		3,copy_implicit_args_head_4_1
	g_vector		3,5
	b_increment		2,2
	b_new_vector		2,2
	put_integer		6,0
	put_nil		7
	b_set_vector_element		3,6,3,7,6
	put_integer		7,0
	b_set_vector_element		2,7,2,3,7
	create_goal		6
	set_variable		1,3
	set_integer		2,1
	set_values_inc		3,5,2
	set_variable		5,5
	set_value		6,4
	enqueue_goal		6,copy_original_args_6_0
	put_integer		2,1
	put_value		4,7
	execute		5,copy_implicit_args_5_0
copy_implicit_args_head_4_1:
	suspend		copy_implicit_args_head_4_0
	module_entry		kl1cmp_macro
	predicate		convert_term,16
convert_term_16_0:
	try_me_else		convert_term_16_1
	jump_on_non_atom		10,convert_term_16_3
	collect_value		9
	put_vector		18,2
	write_element_variable		18,0,17
	write_element_variable		18,1,9
	get_vector_value		3,18
	get_value		10,11
	create_goal		13
	set_variable		1,3
	set_value		2,2
	set_value		3,17
	set_variable		4,11
	set_value		5,5
	set_variable		6,10
	set_value		7,7
	set_marked_value		8,8
	set_integer		9,0
	set_atom		10,body
	set_value		11,14
	set_values_dec		12,16,2
	enqueue_goal		13,convert_goals_13_0
	put_value		2,3
	put_value		3,9
	put_value		5,11
	put_value		7,10
	put_integer		9,0
	put_atom		10,guard
	put_value		11,12
	put_nil		12
	execute		13,convert_goals_13_0
convert_term_16_3:
	is_vector		10,convert_term_16_1
	g_vector		10,17
	put_vector		21,3
	write_element_variable		21,0,20
	write_element_variable		21,1,19
	write_element_variable		21,2,18
	get_vector_value		3,21
	put_marked_value		3,17
	b_subtract		3,9,3
	create_goal		13
	set_variable		1,21
	set_value		2,2
	set_value		3,20
	set_variable		4,9
	set_value		5,5
	set_variable		6,2
	set_value		7,7
	set_marked_value		8,8
	set_marked_value		9,3
	set_atom		10,body
	set_value		11,14
	set_values_dec		12,16,2
	enqueue_goal		13,convert_goals_13_0
	create_goal		13
	set_value		1,1
	set_value		2,21
	set_value		3,19
	set_value		4,4
	set_value		5,9
	set_value		6,6
	set_value		7,2
	set_value		8,8
	set_value		9,3
	set_atom		10,guard
	set_value		11,12
	set_nil		12
	set_value		13,13
	enqueue_goal		13,convert_goals_13_0
	put_value		1,18
	put_integer		2,1
	put_value		3,17
	put_values_inc		4,10,2
	execute		5,convert_head_macro_5_0
convert_term_16_1:
	suspend		convert_term_16_0
	module_entry		kl1cmp_macro
	predicate		convert_head_macro,5
convert_head_macro_5_0:
	try_me_else		convert_head_macro_5_1
	integer		2
	integer		3
	g_less_than		2,3
	put_vector		8,2
	write_element_variable		8,0,7
	write_element_variable		8,1,6
	get_vector_value		1,8
	put_marked_value		1,2
	put_variable		9,8
	b_set_vector_element		4,1,4,9,1
	b_increment		2,2
	create_goal		5
	set_value		1,7
	set_values_inc		2,2,2
	set_value		4,1
	set_value		5,5
	enqueue_goal		5,convert_head_macro_5_0
	put_value		1,6
	put_value		2,4
	put_value		3,8
	execute		3,convert_head_macro_arg_3_0
convert_head_macro_5_1:
	try_me_else		convert_head_macro_5_3
	wait_value		2,3
	collect_value		2
	collect_value		3
	get_nil		1
	get_value		4,5
	proceed
convert_head_macro_5_3:
	suspend		convert_head_macro_5_0
	module_entry		kl1cmp_macro
	predicate		convert_head_macro_arg,3
convert_head_macro_arg_3_0:
	try_me_else		convert_head_macro_arg_3_1
	wait		2
	switch_on_type		2,convert_head_macro_arg_3_2,convert_head_macro_arg_3_3,convert_head_macro_arg_3_4,convert_head_macro_arg_3_5,convert_head_macro_arg_3_6,convert_head_macro_arg_3_7
convert_head_macro_arg_3_4:
	read_car		2,4
	read_cdr		2,5
	put_vector		8,2
	write_element_variable		8,0,7
	write_element_variable		8,1,6
	get_vector_value		1,8
	put_reused_list		2,2
	write_car_variable		2,8
	write_cdr_variable		2,1
	get_list_value		3,2
	create_goal		3
	set_value		1,7
	set_value		2,5
	set_value		3,1
	enqueue_goal		3,convert_head_macro_arg_3_0
	put_value		1,6
	put_value		2,4
	put_value		3,8
	execute		3,convert_head_macro_arg_3_0
convert_head_macro_arg_3_2:
	get_nil		1
	get_value		3,2
	proceed
convert_head_macro_arg_3_3:
	get_nil		1
	get_value		3,2
	proceed
convert_head_macro_arg_3_5:
	test_arity		2,3,convert_head_macro_arg_3_8
	try_me_else		convert_head_macro_arg_3_8
	read_element		2,0,4
	wait_atom		4,'$VAR'
	read_elements_inc		2,1,4,2
	integer		4
	string		5
	g_string		5,6,7
	wait_integer		7,8
	get_nil		1
	put_reused_func		1,2,'$VAR'
	write_elements_inc		1,1,4,2
	get_vector_value		3,1
	proceed
convert_head_macro_arg_3_8:
	try_me_else		convert_head_macro_arg_3_9
	g_vector		2,4
	wait_integer		4,3
	put_integer		4,0
	g_vector_element		2,4,4
	wait_atom		4,#
	put_integer		6,1
	g_vector_element		2,6,4
	put_integer		7,2
	g_vector_element		2,7,5
	mark_element		2,6
	mark_element		2,7
	collect_value		2
	put_nil		6
	put_func		2,4,get_macro_arg
	write_elements_inc		2,1,4,2
	write_element_value		2,3,3
	put_list_val_val		3,2,6
	get_list_value		1,3
	proceed
convert_head_macro_arg_3_9:
	try_me_else		convert_head_macro_arg_3_1
	g_vector		2,4
	wait_integer		4,2
	put_integer		4,0
	g_vector_element		2,4,4
	wait_atom		4,#
	put_integer		5,1
	g_vector_element		2,5,4
	mark_element		2,5
	collect_value		2
	put_nil		5
	put_func		2,4,get_macro_arg
	write_element_atom		2,1,none
	write_elements_dec		2,2,4,2
	put_list_val_val		3,2,5
	get_list_value		1,3
	proceed
convert_head_macro_arg_3_6:
	get_nil		1
	get_value		3,2
	proceed
convert_head_macro_arg_3_7:
	is_float		2,convert_head_macro_arg_3_1
	get_nil		1
	get_value		3,2
	proceed
convert_head_macro_arg_3_1:
	otherwise		convert_head_macro_arg_3_0
	try_me_else		convert_head_macro_arg_3_13
	vector		2
	put_value		6,2
	g_vector		6,4
	put_value		5,3
	put_integer		2,0
	put_value		3,4
	put_value		4,6
	execute		5,convert_head_macro_5_0
convert_head_macro_arg_3_13:
	suspend		convert_head_macro_arg_3_0
	module_entry		kl1cmp_macro
	predicate		convert_goals,13
convert_goals_13_0:
	create_goal		2
	set_variable		1,14
	set_value		2,13
	enqueue_goal		2,convert_list_to_COMMA_2_0
	create_goal		13
	set_values_inc		1,1,10
	set_value		11,14
	set_value		12,12
	set_variable		13,1
	enqueue_goal		13,convert_macros_13_0
	put_nil		2
	put_value		3,11
	execute		3,convert_COMMA_to_list_3_0
convert_goals_13_1:
	suspend		convert_goals_13_0
	module_entry		kl1cmp_macro
	predicate		convert_COMMA_to_list,3
convert_COMMA_to_list_3_0:
	try_me_else		convert_COMMA_to_list_3_1
	wait_vector		3,3
	read_element		3,0,4
	wait_atom		4,','
	read_elements_inc		3,1,4,2
	collect_vector		3
	create_goal		3
	set_variable		1,3
	set_value		2,2
	set_value		3,5
	enqueue_goal		3,convert_COMMA_to_list_3_0
	put_values_inc		2,3,2
	execute		3,convert_COMMA_to_list_3_0
convert_COMMA_to_list_3_1:
	otherwise		convert_COMMA_to_list_3_0
	put_list_val_val		4,3,2
	get_list_value		1,4
	proceed
convert_COMMA_to_list_3_6:
	suspend		convert_COMMA_to_list_3_0
	module_entry		kl1cmp_macro
	predicate		convert_list_to_COMMA,2
convert_list_to_COMMA_2_0:
	try_me_else		convert_list_to_COMMA_2_1
	wait_list_var_var		1,3,4
	try_me_else		convert_list_to_COMMA_2_3
	wait_nil		4
	collect_list		1
	get_value		2,3
	proceed
convert_list_to_COMMA_2_3:
	try_me_else		convert_list_to_COMMA_2_1
	put_nil		5
	g_diff		4,5
	collect_list		1
	collect_value		5
	put_func		1,3,','
	write_element_value		1,1,3
	write_element_variable		1,2,3
	get_vector_value		2,1
	put_values_dec		1,4,2
	execute		2,convert_list_to_COMMA_2_0
convert_list_to_COMMA_2_1:
	suspend		convert_list_to_COMMA_2_0
	module_entry		kl1cmp_macro
	predicate		convert_macros,13
convert_macros_13_0:
	try_me_else		convert_macros_13_1
	jump_on_non_list_var_var		13,convert_macros_13_3,14,15
	collect_list		13
	put_vector		17,2
	write_element_variable		17,0,16
	write_element_variable		17,1,13
	get_vector_value		3,17
	create_goal		13
	set_variable		1,3
	set_value		2,2
	set_value		3,16
	set_variable		4,18
	set_value		5,5
	set_variable		6,17
	set_value		7,7
	set_marked_value		8,8
	set_marked_value		9,9
	set_marked_value		10,10
	set_variable		11,16
	set_value		12,12
	set_value		13,15
	enqueue_goal		13,convert_macros_13_0
	put_value		2,3
	put_value		3,13
	put_value		5,18
	put_value		7,17
	put_value		12,16
	put_value		13,14
	execute		13,convert_one_goal_13_0
convert_macros_13_3:
	check_nil		13,convert_macros_13_1
	collect_value		10
	collect_value		9
	collect_value		8
	get_nil		3
	get_value		11,12
	get_value		6,7
	get_value		4,5
	get_value		1,2
	proceed
convert_macros_13_1:
	suspend		convert_macros_13_0
	module_entry		kl1cmp_macro
	predicate		convert_one_goal,13
convert_one_goal_13_0:
	try_me_else		convert_one_goal_13_1
	wait_vector		13,1
	read_element		13,0,15
	vector		15
	g_vector		15,14
	collect_vector		13
	put_integer		13,0
	execute		15,convert_reduced_macros_15_0
convert_one_goal_13_1:
	otherwise		convert_one_goal_13_0
	put_value		14,13
	put_atom		13,outside
	execute		14,convert_one_goal_14_0
convert_one_goal_13_6:
	suspend		convert_one_goal_13_0
	module_entry		kl1cmp_macro
	predicate		convert_reduced_macros,15
convert_reduced_macros_15_0:
	try_me_else		convert_reduced_macros_15_1
	integer		13
	integer		14
	g_less_than		13,14
	put_vector		18,2
	write_element_variable		18,0,17
	write_element_variable		18,1,16
	get_vector_value		3,18
	put_marked_value		3,13
	put_nil		18
	b_set_vector_element		15,3,15,18,3
	b_increment		13,13
	create_goal		15
	set_variable		1,20
	set_value		2,2
	set_value		3,17
	set_variable		4,19
	set_value		5,5
	set_variable		6,18
	set_value		7,7
	set_marked_value		8,8
	set_marked_value		9,9
	set_marked_value		10,10
	set_variable		11,17
	set_values_inc		12,12,3
	set_value		15,3
	enqueue_goal		15,convert_reduced_macros_15_0
	put_value		2,20
	put_value		3,16
	put_value		5,19
	put_value		7,18
	put_value		12,17
	put_atom		13,inside
	put_value		14,15
	execute		14,convert_one_goal_14_0
convert_reduced_macros_15_1:
	try_me_else		convert_reduced_macros_15_3
	wait_value		13,14
	collect_value		15
	collect_value		13
	collect_value		10
	collect_value		9
	collect_value		8
	collect_value		14
	get_nil		3
	get_value		11,12
	get_value		6,7
	get_value		4,5
	get_value		1,2
	proceed
convert_reduced_macros_15_3:
	suspend		convert_reduced_macros_15_0
	module_entry		kl1cmp_macro
	predicate		convert_one_goal,14
convert_one_goal_14_0:
	try_me_else		convert_one_goal_14_1
	wait_vector		14,3
	read_element		14,0,15
	atom		15
	branch_on_atom		15,2,convert_one_goal_14_1
	bucket_entry_a		:,convert_one_goal_14_4
	bucket_entry_a		@,convert_one_goal_14_5
convert_one_goal_14_4:
	read_element		14,1,16
	read_element		14,2,19
	wait_vector		19,3
	read_element		19,0,17
	wait_atom		17,@
	read_elements_inc		19,1,17,2
	collect_vector		19
	put_vector		20,2
	write_element_variable		20,0,19
	write_element_variable		20,1,15
	get_vector_value		3,20
	create_goal		14
	set_variable		1,3
	set_value		2,2
	set_value		3,19
	set_variable		4,2
	set_value		5,5
	set_variable		6,5
	set_value		7,7
	set_marked_value		8,8
	set_marked_value		9,9
	set_marked_value		10,10
	set_variable		11,19
	set_value		12,12
	set_atom		13,inside
	put_reused_func		12,14,@
	write_element_variable		12,1,7
	write_element_value		12,2,18
	set_value		14,12
	enqueue_goal		14,convert_one_goal_14_0
	create_goal		5
	set_value		1,16
	set_variable		2,14
	set_value		3,7
	set_value		4,4
	set_value		5,2
	enqueue_goal		5,make_external_goal_5_0
	put_value		2,3
	put_value		3,15
	put_value		4,6
	put_values_inc		6,8,4
	put_value		10,19
	put_value		11,13
	put_value		12,17
	put_value		13,14
	execute		13,convert_one_goal__13_0
convert_one_goal_14_5:
	read_element		14,1,16
	read_element		14,2,22
	wait_vector		22,3
	read_element		22,0,17
	wait_atom		17,@
	read_elements_inc		22,1,17,2
	put_reused_vector		14,14
	write_element_variable		14,0,20
	write_element_variable		14,1,19
	write_element_variable		14,2,15
	get_vector_value		3,14
	b_vector		18,3,14
	create_goal		14
	set_variable		1,21
	set_value		2,2
	set_value		3,20
	set_variable		4,2
	set_value		5,5
	set_variable		6,20
	set_value		7,7
	set_marked_value		8,8
	set_marked_value		9,9
	set_marked_value		10,10
	set_variable		11,18
	set_value		12,12
	set_atom		13,inside
	put_reused_func		7,22,@
	write_element_variable		7,1,5
	write_element_value		7,2,17
	set_value		14,7
	enqueue_goal		14,convert_one_goal_14_0
	create_goal		6
	set_variable		1,7
	set_variable		2,17
	set_value		3,5
	set_integer		4,0
	set_value		5,4
	set_value		6,2
	enqueue_goal		6,make_pragma_goal_6_0
	create_goal		15
	set_variable		1,2
	set_value		2,21
	set_value		3,19
	set_variable		4,5
	set_value		5,20
	set_values_inc		6,8,3
	set_variable		9,12
	set_value		10,18
	set_marked_value		11,13
	set_value		12,3
	set_void		13
	set_value		14,14
	set_value		15,7
	enqueue_goal		15,expand_explicit_args_15_0
	put_value		3,15
	put_value		4,6
	put_values_inc		6,8,6
	put_values_inc		12,16,2
	execute		13,convert_one_goal__13_0
convert_one_goal_14_1:
	otherwise		convert_one_goal_14_0
	try_me_else		convert_one_goal_14_11
	wait_vector		14,3
	read_element		14,0,15
	atom		15
	branch_on_atom		15,2,convert_one_goal_14_11
	bucket_entry_a		:,convert_one_goal_14_14
	bucket_entry_a		@,convert_one_goal_14_15
convert_one_goal_14_14:
	read_elements_inc		14,1,16,2
	get_value		4,5
	put_reused_func		4,14,:
	write_element_value		4,1,16
	write_element_variable		4,2,15
	put_list_val_val		14,4,12
	put_values_inc		4,6,6
	put_values_dec		10,14,2
	put_value		12,17
	put_value		13,15
	execute		13,convert_one_goal__13_0
convert_one_goal_14_15:
	read_elements_inc		14,1,16,2
	put_vector		19,2
	write_element_variable		19,0,18
	write_element_variable		19,1,15
	get_vector_value		3,19
	get_value		4,5
	b_vector		17,3,4
	put_reused_func		5,14,@
	write_element_variable		5,1,17
	write_element_variable		5,2,20
	put_list_val_val		14,5,12
	create_goal		15
	set_variable		1,19
	set_value		2,2
	set_value		3,18
	set_variable		4,5
	set_value		5,7
	set_marked_value		6,8
	set_marked_value		7,9
	set_marked_value		8,10
	set_variable		9,12
	set_value		10,14
	set_marked_value		11,13
	set_value		12,3
	set_void		13
	set_value		14,4
	set_value		15,20
	enqueue_goal		15,expand_explicit_args_15_0
	put_value		2,19
	put_value		3,15
	put_value		4,6
	put_values_inc		6,8,6
	put_values_inc		12,16,2
	execute		13,convert_one_goal__13_0
convert_one_goal_14_11:
	otherwise		convert_one_goal_14_0
	get_value		4,5
	put_list		15
	write_car_variable		15,16
	write_cdr_value		15,12
	put_values_inc		4,6,6
	put_value		10,15
	put_values_inc		11,13,2
	put_value		13,16
	execute		13,convert_one_goal__13_0
convert_one_goal_14_21:
	suspend		convert_one_goal_14_0
	module_entry		kl1cmp_macro
	predicate		make_external_goal,5
make_external_goal_5_0:
	try_me_else		make_external_goal_5_1
	jump_on_non_atom		2,make_external_goal_5_3
	wait_nil		4
	put_marked_value		4,1
	b_atom_name		4,4
	put_marked_value		6,2
	b_atom_name		6,6
	put_variable		7,8
	b_intern_atom		7,7
	get_value		3,2
	put_func		3,3,/
	write_element_value		3,1,2
	write_element_integer		3,2,0
	put_func		2,3,:
	write_element_value		2,1,1
	write_element_value		2,2,3
	put_vector		1,2
	write_element_value		1,0,2
	write_element_value		1,1,7
	put_list		2
	write_car_value		2,1
	write_cdr_nil		2
	get_list_value		5,2
	put_structured_constant		1,'$SCNST_5'
	put_list_val_val		2,6,1
	put_structured_constant		1,'$SCNST_6'
	put_list_val_val		3,1,2
	put_list_val_val		1,4,3
	put_structured_constant		2,'$SCNST_7'
	put_list_val_val		3,2,1
	put_value		1,3
	put_value		2,8
	execute		2,append_list_2_0
make_external_goal_5_3:
	is_vector		2,make_external_goal_5_1
	jump_on_non_list_var_var		4,make_external_goal_5_5,11,6
	wait_vector		11,2
	read_element		11,0,12
	read_element		11,1,7
	wait_vector		12,3
	read_element		12,0,8
	wait_atom		8,:
	read_element		12,1,13
	wait_value		13,1
	read_element		12,2,14
	wait_vector		14,3
	read_element		14,0,8
	wait_atom		8,/
	read_elements_inc		14,1,8,2
	g_vector		2,10
	put_integer		15,0
	g_vector_element		2,15,16
	wait_value		8,16
	g_decrement		10,10
	wait_value		10,9
	mark_element		2,15
	mark_element		2,15
	collect_value		13
	collect_value		10
	put_reused_func		10,12,/
	write_element_marked_value		10,1,8
	write_element_value		10,2,9
	put_reused_func		8,14,:
	write_element_value		8,1,1
	write_element_value		8,2,10
	put_reused_vector		1,11
	write_element_value		1,0,8
	write_element_marked_value		1,1,7
	put_reused_list_val_val		4,4,1,6
	get_list_value		5,4
	put_integer		1,0
	b_set_vector_element		2,1,1,7,2
	get_value		2,3
	proceed
make_external_goal_5_5:
	check_nil		4,make_external_goal_5_1
	g_vector		2,4
	put_marked_value		6,1
	b_atom_name		6,6
	put_marked_variable		7,9
	b_atom_name		7,7
	b_decrement		4,4
	put_variable		8,10
	b_intern_atom		8,8
	put_integer		11,0
	put_marked_value		12,8
	b_set_vector_element		2,11,2,12,11
	get_value		2,9
	get_value		11,3
	put_func		2,3,/
	write_element_value		2,1,9
	write_element_marked_value		2,2,4
	put_func		3,3,:
	write_elements_inc		3,1,1,2
	put_vector		1,2
	write_element_value		1,0,3
	write_element_value		1,1,8
	put_list		2
	write_car_value		2,1
	write_cdr_nil		2
	get_list_value		5,2
	create_goal		2
	put_list		1
	write_car_variable		1,5
	write_cdr_nil		1
	put_structured_constant		2,'$SCNST_8'
	put_list_val_val		3,2,1
	put_list_val_val		1,7,3
	put_structured_constant		2,'$SCNST_9'
	put_list_val_val		3,2,1
	put_list_val_val		1,6,3
	put_structured_constant		2,'$SCNST_10'
	put_list_val_val		3,2,1
	set_value		1,3
	set_value		2,10
	enqueue_goal		2,append_list_2_0
	put_values_inc		1,4,2
	execute_external		kl1cmp_reader,convert_integer_to_string,2
make_external_goal_5_1:
	try_me_else		make_external_goal_5_6
	wait_list_var_var		4,8,6
	wait_vector		8,2
	read_element		8,0,9
	read_element		8,1,7
	wait_vector		9,3
	read_element		9,0,10
	wait_atom		10,:
	read_element		9,1,10
	wait_value		10,1
	read_element		9,2,11
	wait_vector		11,3
	read_element		11,0,12
	wait_atom		12,/
	read_element		11,1,12
	wait_value		12,2
	read_element		11,2,13
	wait_integer		13,0
	collect_value		10
	collect_value		12
	put_marked_value		2,2
	get_value		2,3
	put_reused_func		3,9,/
	write_element_value		3,1,2
	write_element_integer		3,2,0
	put_reused_func		2,11,:
	write_element_value		2,1,1
	write_element_value		2,2,3
	put_reused_vector		1,8
	write_element_value		1,0,2
	write_element_value		1,1,7
	put_reused_list_val_val		2,4,1,6
	get_list_value		5,2
	proceed
make_external_goal_5_6:
	otherwise		make_external_goal_5_0
	try_me_else		make_external_goal_5_15
	wait_list_var_var		4,6,7
	get_reused_list_val_var		5,4,4,6,6
	put_values_dec		4,7,2
	execute		5,make_external_goal_5_0
make_external_goal_5_15:
	suspend		make_external_goal_5_0
	module_entry		kl1cmp_macro
	predicate		make_pragma_goal,6
make_pragma_goal_6_0:
	try_me_else		make_pragma_goal_6_1
	vector		1
	jump_on_non_atom		2,make_pragma_goal_6_4
	wait_nil		5
	put_integer		7,0
	g_vector_element		1,7,5
	mark_element		1,7
	put_marked_value		5,5
	b_atom_name		5,5
	put_marked_value		7,2
	b_atom_name		7,7
	put_variable		8,10
	b_intern_atom		8,8
	put_func		9,3,/
	write_element_value		9,1,2
	write_element_integer		9,2,0
	put_func		2,3,@
	write_element_value		2,1,9
	write_element_marked_value		2,2,1
	put_vector		9,3
	write_element_value		9,0,2
	write_element_marked_value		9,1,8
	write_element_marked_value		9,2,4
	put_list		2
	write_car_value		2,9
	write_cdr_nil		2
	get_list_value		6,2
	create_goal		4
	set_value		1,8
	set_integer		2,0
	set_value		3,1
	set_value		4,3
	enqueue_goal		4,add_pragma_args_4_0
	create_goal		2
	put_list		1
	write_car_variable		1,6
	write_cdr_nil		1
	put_list_val_val		2,5,1
	put_structured_constant		1,'$SCNST_11'
	put_list_val_val		3,1,2
	put_list_val_val		1,7,3
	put_structured_constant		2,'$SCNST_12'
	put_list_val_val		3,2,1
	set_value		1,3
	set_value		2,10
	enqueue_goal		2,append_list_2_0
	put_value		1,4
	put_value		2,6
	execute_external		kl1cmp_reader,convert_integer_to_string,2
make_pragma_goal_6_4:
	is_vector		2,make_pragma_goal_6_1
	wait_nil		5
	g_vector		2,7
	put_integer		8,0
	g_vector_element		1,8,5
	mark_element		1,8
	put_marked_value		5,5
	b_atom_name		5,5
	put_marked_variable		8,11
	b_atom_name		8,8
	b_decrement		7,7
	put_variable		9,12
	b_intern_atom		9,9
	put_integer		10,0
	put_marked_value		13,9
	b_set_vector_element		2,10,10,13,2
	get_value		10,11
	put_func		10,3,/
	write_element_value		10,1,11
	write_element_marked_value		10,2,7
	put_func		11,3,@
	write_element_value		11,1,10
	write_element_marked_value		11,2,1
	put_vector		10,3
	write_element_value		10,0,11
	write_element_value		10,1,9
	write_element_marked_value		10,2,4
	put_list		9
	write_car_value		9,10
	write_cdr_nil		9
	get_list_value		6,9
	create_goal		4
	set_value		1,2
	set_value		2,7
	set_value		3,1
	set_value		4,3
	enqueue_goal		4,add_pragma_args_4_0
	create_goal		2
	put_list		1
	write_car_variable		1,6
	write_cdr_nil		1
	put_list_val_val		2,5,1
	put_structured_constant		1,'$SCNST_13'
	put_list_val_val		3,1,2
	put_list		1
	write_car_variable		1,5
	write_cdr_value		1,3
	put_structured_constant		2,'$SCNST_14'
	put_list_val_val		3,2,1
	put_list_val_val		1,8,3
	put_structured_constant		2,'$SCNST_15'
	put_list_val_val		3,2,1
	set_value		1,3
	set_value		2,12
	enqueue_goal		2,append_list_2_0
	create_goal		2
	set_value		1,4
	set_value		2,6
	enqueue_goal_external		kl1cmp_reader,convert_integer_to_string,2
	put_value		1,7
	put_value		2,5
	execute_external		kl1cmp_reader,convert_integer_to_string,2
make_pragma_goal_6_1:
	try_me_else		make_pragma_goal_6_6
	jump_on_non_atom		2,make_pragma_goal_6_8
	wait_list_var_var		5,10,7
	wait_vector		10,3
	read_element		10,0,11
	read_elements_inc		10,1,8,2
	wait_vector		11,3
	read_element		11,0,12
	wait_atom		12,@
	read_elements_inc		11,1,12,2
	wait_value		13,1
	wait_vector		12,3
	read_element		12,0,14
	wait_atom		14,/
	read_element		12,1,14
	wait_value		14,2
	read_element		12,2,14
	wait_integer		14,0
	collect_value		4
	collect_value		13
	put_value		13,1
	put_value		4,3
	put_reused_func		1,10,/
	write_element_value		1,1,2
	write_element_integer		1,2,0
	put_reused_func		2,11,@
	write_element_value		2,1,1
	write_element_marked_value		2,2,13
	put_reused_vector		1,12
	write_element_value		1,0,2
	write_element_marked_value		1,1,8
	write_element_value		1,2,9
	put_reused_list_val_val		2,5,1,7
	get_list_value		6,2
	put_value		1,8
	put_integer		2,0
	put_value		3,13
	execute		4,add_pragma_args_4_0
make_pragma_goal_6_8:
	is_vector		2,make_pragma_goal_6_6
	wait_list_var_var		5,13,7
	wait_vector		13,3
	read_element		13,0,14
	read_elements_inc		13,1,8,2
	wait_vector		14,3
	read_element		14,0,10
	wait_atom		10,@
	read_elements_inc		14,1,15,2
	wait_value		16,1
	wait_vector		15,3
	read_element		15,0,10
	wait_atom		10,/
	read_elements_inc		15,1,10,2
	g_vector		2,12
	put_integer		17,0
	g_vector_element		2,17,18
	wait_value		10,18
	g_decrement		12,12
	wait_value		12,11
	mark_element		2,17
	mark_element		2,17
	collect_value		4
	collect_value		16
	collect_value		12
	put_value		12,1
	put_value		4,3
	put_reused_func		1,13,/
	write_element_marked_value		1,1,10
	write_element_marked_value		1,2,11
	put_reused_func		3,14,@
	write_element_value		3,1,1
	write_element_marked_value		3,2,12
	put_reused_vector		1,15
	write_element_value		1,0,3
	write_element_marked_value		1,1,8
	write_element_value		1,2,9
	put_reused_list_val_val		3,5,1,7
	get_list_value		6,3
	put_integer		1,0
	b_set_vector_element		2,1,1,8,2
	put_value		1,2
	put_values_inc		2,11,2
	execute		4,add_pragma_args_4_0
make_pragma_goal_6_6:
	otherwise		make_pragma_goal_6_0
	try_me_else		make_pragma_goal_6_19
	wait_list_var_var		5,11,7
	wait_vector		11,3
	read_elements_inc		11,0,8,3
	collect_value		4
	put_reused_vector		4,11
	write_elements_inc		4,0,8,2
	write_element_marked_value		4,2,10
	get_reused_list_val_var		6,5,5,4,8
	b_increment		10,4
	put_values_inc		5,7,2
	execute		6,make_pragma_goal_6_0
make_pragma_goal_6_19:
	otherwise		make_pragma_goal_6_0
	try_me_else		make_pragma_goal_6_23
	wait_list_var_var		5,7,8
	get_reused_list_val_var		6,5,5,7,7
	put_values_dec		5,8,2
	execute		6,make_pragma_goal_6_0
make_pragma_goal_6_23:
	suspend		make_pragma_goal_6_0
	module_entry		kl1cmp_macro
	predicate		add_pragma_args,4
add_pragma_args_4_0:
	try_me_else		add_pragma_args_4_1
	integer		2
	test_integer		2,0,add_pragma_args_4_3
	try_me_else		add_pragma_args_4_3
	vector		3
	g_vector		3,2
	put_value		6,4
	put_marked_value		4,2
	b_decrement		4,4
	b_new_vector		2,2
	put_integer		5,0
	b_set_vector_element		2,5,1,1,5
	put_integer		1,1
	put_value		2,4
	put_integer		4,1
	execute		6,add_pragma_args_1_6_0
add_pragma_args_4_3:
	try_me_else		add_pragma_args_4_1
	put_integer		5,0
	g_less_than		5,2
	vector		3
	g_vector		3,5
	put_marked_value		6,5
	b_decrement		6,6
	put_marked_value		7,2
	b_add		7,5,5
	b_new_vector		5,5
	put_integer		7,0
	put_nil		8
	b_set_vector_element		1,7,1,8,7
	put_integer		8,0
	b_set_vector_element		5,8,1,1,5
	b_increment		2,1
	create_goal		6
	set_integer		1,1
	set_value		2,6
	set_value		3,3
	set_value		4,1
	set_variable		5,6
	set_value		6,4
	enqueue_goal		6,add_pragma_args_1_6_0
	put_integer		1,1
	put_value		3,7
	put_integer		4,1
	execute		6,add_pragma_args_1_6_0
add_pragma_args_4_1:
	suspend		add_pragma_args_4_0
	module_entry		kl1cmp_macro
	predicate		add_pragma_args_1,6
add_pragma_args_1_6_0:
	try_me_else		add_pragma_args_1_6_1
	integer		1
	integer		2
	try_me_else		add_pragma_args_1_6_4
	g_not_less_than		2,1
	put_marked_value		7,1
	put_nil		8
	b_set_vector_element		3,7,3,8,7
	put_marked_value		8,4
	b_set_vector_element		5,8,3,3,5
	b_increment		1,1
	b_increment		4,4
	put_value		3,7
	execute		6,add_pragma_args_1_6_0
add_pragma_args_1_6_4:
	collect_value		4
	collect_value		3
	get_value		6,5
	proceed
add_pragma_args_1_6_1:
	suspend		add_pragma_args_1_6_0
	module_entry		kl1cmp_macro
	predicate		append_list,2
append_list_2_0:
	try_me_else		append_list_2_1
	wait_list_var_var		1,3,4
	collect_list		1
	put_value		5,2
	put_values_inc		1,3,3
	execute		3,append_list_3_0
append_list_2_1:
	suspend		append_list_2_0
	module_entry		kl1cmp_macro
	predicate		append_list,3
append_list_3_0:
	try_me_else		append_list_3_1
	jump_on_non_list_var_var		2,append_list_3_3,4,5
	collect_list		2
	b_append_string		1,4,1
	put_value		2,5
	execute		3,append_list_3_0
append_list_3_3:
	check_nil		2,append_list_3_1
	get_value		3,1
	proceed
append_list_3_1:
	suspend		append_list_3_0
	module_entry		kl1cmp_macro
	predicate		convert_one_goal_,13
convert_one_goal__13_0:
	try_me_else		convert_one_goal__13_1
	wait_atom		6,expand
	wait_atom		8,body
	wait_vector		12,3
	read_element		12,0,14
	atom		14
	branch_on_atom		14,3,convert_one_goal__13_1
	bucket_entry_a		$<=,convert_one_goal__13_6
	bucket_entry_a		<<=,convert_one_goal__13_7
	bucket_entry_a		<=,convert_one_goal__13_8
convert_one_goal__13_6:
	read_elements_inc		12,1,15,2
	collect_vector		12
	put_value		14,13
	put_atom		6,expand
	put_atom		8,body
	put_values_inc		12,15,2
	execute		14,convert_float_single_op_14_0
convert_one_goal__13_7:
	read_elements_inc		12,1,15,2
	collect_vector		12
	put_value		14,13
	put_atom		6,expand
	put_atom		8,body
	put_values_inc		12,15,2
	execute		14,convert_double_op_14_0
convert_one_goal__13_8:
	read_elements_inc		12,1,15,2
	collect_vector		12
	put_value		14,13
	put_atom		6,expand
	put_atom		8,body
	put_values_inc		12,15,2
	execute		14,convert_single_op_14_0
convert_one_goal__13_1:
	try_me_else		convert_one_goal__13_9
	atom		8
	branch_on_atom		8,2,convert_one_goal__13_9
	bucket_entry_a		body,convert_one_goal__13_11
	bucket_entry_a		guard,convert_one_goal__13_12
convert_one_goal__13_11:
	vector		12
	jump_on_arity		12,5,convert_one_goal__13_9
	table_entry		convert_one_goal__13_9
	table_entry		convert_one_goal__13_9
	table_entry		convert_one_goal__13_9
	table_entry		convert_one_goal__13_14
	table_entry		convert_one_goal__13_15
convert_one_goal__13_14:
	read_element		12,0,14
	atom		14
	branch_on_atom		14,3,convert_one_goal__13_9
	bucket_entry_a		$:=,convert_one_goal__13_17
	bucket_entry_a		:=,convert_one_goal__13_18
	bucket_entry_a		=,convert_one_goal__13_19
convert_one_goal__13_17:
	read_elements_inc		12,1,15,2
	collect_vector		12
	put_value		14,13
	put_atom		8,body
	put_values_inc		12,15,2
	execute		14,convert_float_becomes_14_0
convert_one_goal__13_18:
	read_elements_inc		12,1,15,2
	collect_vector		12
	put_value		14,13
	put_atom		8,body
	put_values_inc		12,15,2
	execute		14,convert_becomes_14_0
convert_one_goal__13_19:
	read_elements_inc		12,1,15,2
	collect_vector		12
	put_value		14,13
	put_atom		8,body
	put_values_inc		12,15,2
	execute		14,convert_unify_14_0
convert_one_goal__13_15:
	read_element		12,0,14
	atom		14
	branch_on_atom		14,2,convert_one_goal__13_9
	bucket_entry_a		merge,convert_one_goal__13_21
	bucket_entry_a		merge_in,convert_one_goal__13_22
convert_one_goal__13_21:
	read_element		12,1,8
	read_elements_inc		12,2,15,2
	collect_vector		12
	put_vector		12,2
	write_element_value		12,0,8
	write_element_value		12,1,15
	put_func		14,3,merge
	write_element_value		14,1,12
	write_element_value		14,2,16
	put_atom		8,body
	put_value		12,14
	execute		13,convert_one_goal__13_0
convert_one_goal__13_22:
	read_element		12,1,8
	read_elements_inc		12,2,15,2
	collect_vector		12
	put_vector		12,2
	write_element_value		12,0,8
	write_element_value		12,1,15
	put_func		14,3,=
	write_element_value		14,1,16
	write_element_value		14,2,12
	put_atom		8,body
	put_value		12,14
	execute		13,convert_one_goal__13_0
convert_one_goal__13_12:
	wait_vector		12,2
	read_element		12,0,14
	wait_atom		14,floating_point
	read_element		12,1,8
	put_reused_func		12,12,float
	write_element_value		12,1,8
	put_atom		8,guard
	execute		13,convert_one_goal__13_0
convert_one_goal__13_9:
	try_me_else		convert_one_goal__13_23
	jump_on_non_atom		12,convert_one_goal__13_25
	test_atom		12,true,convert_one_goal__13_23
	collect_value		11
	collect_value		8
	collect_value		7
	collect_value		6
	get_nil		3
	get_value		9,10
	get_value		4,5
	get_value		1,2
	get_atom		13,true
	proceed
convert_one_goal__13_25:
	is_vector		12,convert_one_goal__13_23
	g_vector		12,14
	wait_integer		14,3
	put_integer		14,0
	g_vector_element		12,14,14
	wait_atom		14,#
	put_integer		16,1
	g_vector_element		12,16,14
	atom		14
	put_integer		17,2
	g_vector_element		12,17,15
	mark_element		12,16
	mark_element		12,17
	collect_value		12
	collect_value		11
	collect_value		8
	collect_value		7
	collect_value		6
	put_nil		6
	get_value		9,10
	get_value		4,5
	put_func		4,4,get_macro_arg
	write_elements_inc		4,1,14,2
	write_element_variable		4,3,5
	put_list_val_val		7,4,6
	get_list_value		3,7
	put_value		3,5
	put_value		4,13
	execute		4,check_define_macro_4_0
convert_one_goal__13_23:
	otherwise		convert_one_goal__13_0
	try_me_else		convert_one_goal__13_44
	wait_atom		8,body
	create_goal		14
	set_values_inc		1,1,7
	set_atom		8,body
	set_values_inc		9,9,3
	set_variable		12,5
	set_marked_value		13,12
	set_value		14,13
	enqueue_goal		14,convert_one_body_goal_14_0
	put_value		1,12
	put_void		2
	put_void		3
	put_void		4
	execute_external		kl1cmp_blttbl,active_builtin,5
convert_one_goal__13_44:
	otherwise		convert_one_goal__13_0
	try_me_else		convert_one_goal__13_49
	jump_on_non_atom		12,convert_one_goal__13_51
	collect_value		11
	collect_value		8
	collect_value		7
	collect_value		6
	get_nil		3
	get_value		9,10
	get_value		4,5
	get_value		1,2
	get_value		13,12
	proceed
convert_one_goal__13_51:
	is_vector		12,convert_one_goal__13_49
	put_value		14,12
	g_vector		14,12
	put_value		15,13
	put_void		13
	execute		15,expand_explicit_args_15_0
convert_one_goal__13_49:
	suspend		convert_one_goal__13_0
	module_entry		kl1cmp_macro
	predicate		convert_one_body_goal,14
convert_one_body_goal_14_0:
	try_me_else		convert_one_body_goal_14_1
	wait_atom		6,expand
	wait_vector		13,2
	read_element		13,0,15
	wait_atom		15,&
	read_element		13,1,16
	wait_vector		16,2
	read_element		16,0,17
	atom		17
	branch_on_atom		17,2,convert_one_body_goal_14_1
	bucket_entry_a		++,convert_one_body_goal_14_7
	bucket_entry_a		--,convert_one_body_goal_14_8
convert_one_body_goal_14_7:
	read_element		16,1,18
	atom		18
	collect_value		12
	put_reused_func		12,13,&
	write_element_marked_value		12,1,18
	put_reused_func		6,16,&
	write_element_value		6,1,18
	put_func		13,3,+
	write_element_value		13,1,6
	write_element_integer		13,2,1
	put_atom		6,expand
	execute		14,convert_single_op_14_0
convert_one_body_goal_14_8:
	read_element		16,1,18
	atom		18
	collect_value		12
	put_reused_func		12,13,&
	write_element_marked_value		12,1,18
	put_reused_func		6,16,&
	write_element_value		6,1,18
	put_func		13,3,-
	write_element_value		13,1,6
	write_element_integer		13,2,1
	put_atom		6,expand
	execute		14,convert_single_op_14_0
convert_one_body_goal_14_1:
	otherwise		convert_one_body_goal_14_0
	try_me_else		convert_one_body_goal_14_22
	wait_atom		11,outside
	wait_atom		12,none
	jump_on_non_atom		13,convert_one_body_goal_14_26
	put_integer		15,0
	g_diff		7,15
	put_value		16,14
	put_marked_value		11,7
	b_increment		11,11
	b_new_vector		15,11
	put_func		11,2,get_all_args
	write_element_variable		11,1,12
	get_list_val_var		4,14,11,11
	put_vector		14,1
	write_element_value		14,0,13
	put_value		4,11
	put_atom		11,outside
	put_integer		13,1
	execute		16,copy_implicit_args_16_0
convert_one_body_goal_14_26:
	is_vector		13,convert_one_body_goal_14_22
	put_value		16,13
	put_integer		15,0
	g_diff		7,15
	g_vector		16,12
	put_vector		11,2
	write_element_variable		11,0,18
	write_element_variable		11,1,17
	get_vector_value		3,11
	put_marked_variable		3,19
	put_marked_value		11,7
	b_add		3,11,3
	b_new_vector		3,3
	put_marked_variable		11,15
	put_integer		13,0
	put_void		20
	b_set_vector_element		11,13,11,20,13
	put_func		11,2,get_all_args
	write_element_variable		11,1,21
	put_list_val_var		13,11,11
	create_goal		16
	set_variable		1,20
	set_value		2,2
	set_value		3,18
	set_value		4,11
	set_value		5,5
	set_marked_value		6,6
	set_value		7,7
	set_marked_value		8,8
	set_variable		9,11
	set_value		10,10
	set_atom		11,outside
	set_value		12,21
	set_value		13,19
	set_value		14,15
	set_value		15,3
	set_value		16,14
	enqueue_goal		16,copy_implicit_args_16_0
	put_value		2,20
	put_value		3,17
	put_value		5,13
	put_value		10,11
	put_atom		11,outside
	put_value		13,19
	put_value		14,16
	execute		15,expand_explicit_args_15_0
convert_one_body_goal_14_22:
	otherwise		convert_one_body_goal_14_0
	try_me_else		convert_one_body_goal_14_34
	jump_on_non_atom		13,convert_one_body_goal_14_36
	collect_value		12
	collect_value		11
	collect_value		8
	collect_value		7
	collect_value		6
	get_nil		3
	get_value		9,10
	get_value		4,5
	get_value		1,2
	get_value		13,14
	proceed
convert_one_body_goal_14_36:
	is_vector		13,convert_one_body_goal_14_34
	put_value		16,13
	g_vector		16,13
	collect_value		12
	put_value		15,14
	put_value		12,13
	put_void		13
	put_value		14,16
	execute		15,expand_explicit_args_15_0
convert_one_body_goal_14_34:
	suspend		convert_one_body_goal_14_0
	module_entry		kl1cmp_macro
	predicate		copy_implicit_args,16
copy_implicit_args_16_0:
	collect_value		11
	collect_value		8
	collect_value		7
	collect_value		6
	get_nil		3
	get_value		9,10
	get_value		4,5
	get_value		1,2
	put_integer		1,0
	put_nil		2
	b_set_vector_element		14,1,1,2,2
	put_integer		3,0
	b_set_vector_element		15,3,1,1,4
	create_goal		6
	set_variable		1,3
	set_integer		2,1
	set_value		3,13
	set_value		4,2
	set_variable		5,5
	set_value		6,16
	enqueue_goal		6,copy_original_args_6_0
	put_value		1,12
	put_integer		2,1
	execute		5,copy_implicit_args_5_0
copy_implicit_args_16_1:
	suspend		copy_implicit_args_16_0
	module_entry		kl1cmp_macro
	predicate		copy_implicit_args,5
copy_implicit_args_5_0:
	try_me_else		copy_implicit_args_5_1
	wait_list_var_var		1,6,7
	collect_list		1
	put_marked_value		1,2
	b_set_vector_element		4,1,1,6,4
	b_increment		2,1
	put_value		2,1
	put_value		1,7
	execute		5,copy_implicit_args_5_0
copy_implicit_args_5_1:
	otherwise		copy_implicit_args_5_0
	try_me_else		copy_implicit_args_5_5
	wait_nil		1
	get_value		2,3
	get_value		4,5
	proceed
copy_implicit_args_5_5:
	suspend		copy_implicit_args_5_0
	module_entry		kl1cmp_macro
	predicate		copy_original_args,6
copy_original_args_6_0:
	try_me_else		copy_original_args_6_1
	integer		2
	integer		3
	g_less_than		2,3
	put_marked_value		7,2
	put_nil		8
	b_set_vector_element		4,7,4,8,7
	put_marked_value		8,1
	b_set_vector_element		5,8,4,4,5
	b_increment		1,1
	b_increment		2,2
	put_value		4,7
	execute		6,copy_original_args_6_0
copy_original_args_6_1:
	try_me_else		copy_original_args_6_3
	wait_value		2,3
	collect_value		4
	collect_value		2
	collect_value		1
	collect_value		3
	get_value		5,6
	proceed
copy_original_args_6_3:
	suspend		copy_original_args_6_0
	module_entry		kl1cmp_macro
	predicate		convert_unify,14
convert_unify_14_0:
	put_vector		17,2
	write_element_variable		17,0,16
	write_element_variable		17,1,15
	get_vector_value		3,17
	put_func		3,3,=
	write_element_variable		3,1,17
	write_element_variable		3,2,18
	get_vector_value		14,3
	create_goal		13
	set_variable		1,3
	set_value		2,2
	set_value		3,16
	set_variable		4,16
	set_value		5,5
	set_marked_value		6,6
	set_marked_value		7,7
	set_marked_value		8,8
	set_variable		9,14
	set_value		10,10
	set_marked_value		11,11
	set_value		12,13
	set_value		13,18
	enqueue_goal		13,convert_arg_ref_13_0
	put_value		2,3
	put_value		3,15
	put_value		5,16
	put_value		10,14
	put_value		13,17
	execute		13,convert_arg_ref_13_0
convert_unify_14_1:
	suspend		convert_unify_14_0
	module_entry		kl1cmp_macro
	predicate		convert_becomes,14
convert_becomes_14_0:
	try_me_else		convert_becomes_14_1
	jump_on_non_integer		13,convert_becomes_14_3
	execute		14,convert_unify_14_0
convert_becomes_14_3:
	check_vector		13,3,convert_becomes_14_1
	read_element		13,0,15
	wait_atom		15,'$VAR'
	read_elements_inc		13,1,15,2
	integer		15
	string		16
	g_string		16,17,18
	wait_integer		18,8
	put_reused_func		13,13,'$VAR'
	write_elements_inc		13,1,15,2
	execute		14,convert_unify_14_0
convert_becomes_14_1:
	otherwise		convert_becomes_14_0
	put_vector		18,3
	write_element_variable		18,0,17
	write_element_variable		18,1,16
	write_element_variable		18,2,15
	get_vector_value		3,18
	create_goal		14
	set_variable		1,19
	set_value		2,2
	set_value		3,17
	set_variable		4,3
	set_value		5,5
	set_marked_value		6,6
	set_marked_value		7,7
	set_marked_value		8,8
	set_variable		9,18
	set_value		10,10
	set_marked_value		11,11
	set_variable		12,17
	set_variable		13,2
	set_value		14,14
	enqueue_goal		14,convert_math_macro_14_0
	create_goal		13
	set_variable		1,10
	set_value		2,19
	set_value		3,16
	set_variable		4,5
	set_value		5,3
	set_values_inc		6,6,3
	set_variable		9,3
	set_value		10,18
	set_values_inc		11,11,2
	set_value		13,17
	enqueue_goal		13,convert_arg_set_13_0
	create_goal		13
	set_value		1,1
	set_value		2,10
	set_value		3,15
	set_values_inc		4,4,6
	set_value		10,3
	set_value		11,11
	set_variable		12,4
	set_value		13,2
	enqueue_goal		13,convert_arg_ref_13_0
	put_integer		1,1
	put_void		2
	put_value		3,13
	execute_external		kl1cmp_struct,calcurate_right_hand,4
convert_becomes_14_8:
	suspend		convert_becomes_14_0
	module_entry		kl1cmp_macro
	predicate		convert_math_macro,14
convert_math_macro_14_0:
	try_me_else		convert_math_macro_14_1
	jump_on_non_integer		13,convert_math_macro_14_3
	collect_value		11
	collect_value		8
	collect_value		7
	collect_value		6
	get_nil		3
	get_value		9,10
	get_value		4,5
	get_value		1,2
	put_func		1,3,=
	write_elements_inc		1,1,12,2
	get_vector_value		14,1
	proceed
convert_math_macro_14_3:
	is_vector		13,convert_math_macro_14_1
	jump_on_arity		13,4,convert_math_macro_14_1
	table_entry		convert_math_macro_14_1
	table_entry		convert_math_macro_14_1
	table_entry		convert_math_macro_14_4
	table_entry		convert_math_macro_14_5
convert_math_macro_14_4:
	read_element		13,0,15
	wait_atom		15,int
	read_element		13,1,15
	create_goal		12
	set_variable		1,16
	set_values_inc		2,2,10
	set_variable		12,5
	enqueue_goal		12,convert_float_inner_math_macro_12_0
	put_reused_func		3,13,int
	write_element_value		3,1,15
	put_value		2,16
	put_value		4,14
	put_value		6,12
	execute_external		kl1cmp_blttbl,expression,6
convert_math_macro_14_5:
	read_element		13,0,15
	wait_atom		15,'$VAR'
	read_elements_inc		13,1,15,2
	integer		15
	string		16
	g_string		16,17,18
	wait_integer		18,8
	collect_value		11
	collect_value		8
	collect_value		7
	collect_value		6
	get_nil		3
	get_value		9,10
	get_value		4,5
	get_value		1,2
	put_reused_func		1,13,'$VAR'
	write_elements_inc		1,1,15,2
	put_func		2,3,=
	write_element_value		2,1,12
	write_element_value		2,2,1
	get_vector_value		14,2
	proceed
convert_math_macro_14_1:
	otherwise		convert_math_macro_14_0
	create_goal		12
	set_variable		1,15
	set_values_inc		2,2,10
	set_variable		12,5
	enqueue_goal		12,convert_inner_math_macro_12_0
	put_value		2,15
	put_values_inc		3,13,2
	put_value		6,12
	execute_external		kl1cmp_blttbl,expression,6
convert_math_macro_14_9:
	suspend		convert_math_macro_14_0
	module_entry		kl1cmp_macro
	predicate		convert_inner_math_macro,12
convert_inner_math_macro_12_0:
	try_me_else		convert_inner_math_macro_12_1
	list		12
	read_car		12,13
	jump_on_non_integer		13,convert_inner_math_macro_12_4
	read_cdr		12,16
	wait_list_var_var		16,14,15
	collect_list		12
	collect_list		16
	get_value		13,14
	put_value		12,15
	execute		12,convert_inner_math_macro_12_0
convert_inner_math_macro_12_4:
	is_vector		13,convert_inner_math_macro_12_1
	jump_on_arity		13,4,convert_inner_math_macro_12_1
	table_entry		convert_inner_math_macro_12_1
	table_entry		convert_inner_math_macro_12_1
	table_entry		convert_inner_math_macro_12_5
	table_entry		convert_inner_math_macro_12_6
convert_inner_math_macro_12_5:
	read_cdr		12,18
	wait_list_var_var		18,14,15
	read_element		13,0,16
	wait_atom		16,int
	read_element		13,1,16
	put_reused_vector		19,13
	write_element_variable		19,0,17
	write_element_variable		19,1,13
	get_vector_value		3,19
	put_func		3,2,new_variable
	write_element_marked_value		3,1,14
	get_reused_list_val_var		4,19,12,3,12
	put_reused_list		3,18
	write_car_variable		3,4
	write_cdr_value		3,10
	create_goal		12
	set_variable		1,18
	set_value		2,2
	set_value		3,17
	set_variable		4,10
	set_value		5,5
	set_marked_value		6,6
	set_marked_value		7,7
	set_marked_value		8,8
	set_variable		9,5
	set_value		10,3
	set_marked_value		11,11
	set_value		12,15
	enqueue_goal		12,convert_inner_math_macro_12_0
	create_goal		12
	set_variable		1,2
	set_value		2,18
	set_values_dec		3,13,2
	set_value		5,10
	set_values_inc		6,6,4
	set_value		10,5
	set_value		11,11
	set_variable		12,5
	enqueue_goal		12,convert_float_inner_math_macro_12_0
	put_func		3,2,int
	write_element_value		3,1,16
	put_value		6,14
	execute_external		kl1cmp_blttbl,expression,6
convert_inner_math_macro_12_6:
	read_cdr		12,19
	wait_list_var_var		19,14,15
	read_element		13,0,16
	wait_atom		16,'$VAR'
	read_elements_inc		13,1,16,2
	integer		16
	string		17
	g_string		17,18,20
	wait_integer		20,8
	collect_list		12
	collect_list		19
	put_reused_func		12,13,'$VAR'
	write_elements_inc		12,1,16,2
	get_vector_value		14,12
	put_value		12,15
	execute		12,convert_inner_math_macro_12_0
convert_inner_math_macro_12_1:
	otherwise		convert_inner_math_macro_12_0
	try_me_else		convert_inner_math_macro_12_11
	jump_on_non_list_var_var		12,convert_inner_math_macro_12_13,13,18
	wait_list_var_var		18,14,15
	put_vector		19,2
	write_element_variable		19,0,17
	write_element_variable		19,1,16
	get_vector_value		3,19
	put_func		3,2,new_variable
	write_element_marked_value		3,1,14
	get_reused_list_val_var		4,19,12,3,12
	put_reused_list		3,18
	write_car_variable		3,4
	write_cdr_value		3,10
	create_goal		12
	set_variable		1,18
	set_value		2,2
	set_value		3,17
	set_variable		4,10
	set_value		5,5
	set_marked_value		6,6
	set_marked_value		7,7
	set_marked_value		8,8
	set_variable		9,5
	set_value		10,3
	set_marked_value		11,11
	set_value		12,15
	enqueue_goal		12,convert_inner_math_macro_12_0
	create_goal		12
	set_variable		1,2
	set_value		2,18
	set_value		3,16
	set_value		4,12
	set_value		5,10
	set_values_inc		6,6,4
	set_value		10,5
	set_value		11,11
	set_variable		12,5
	enqueue_goal		12,convert_inner_math_macro_12_0
	put_value		3,13
	put_value		6,14
	execute_external		kl1cmp_blttbl,expression,6
convert_inner_math_macro_12_13:
	check_nil		12,convert_inner_math_macro_12_11
	collect_value		11
	collect_value		8
	collect_value		7
	collect_value		6
	get_nil		3
	get_value		9,10
	get_value		4,5
	get_value		1,2
	proceed
convert_inner_math_macro_12_11:
	suspend		convert_inner_math_macro_12_0
	module_entry		kl1cmp_macro
	predicate		convert_float_becomes,14
convert_float_becomes_14_0:
	try_me_else		convert_float_becomes_14_1
	jump_on_non_vector		13,convert_float_becomes_14_3
	test_arity		13,3,convert_float_becomes_14_1
	read_element		13,0,15
	wait_atom		15,'$VAR'
	read_elements_inc		13,1,15,2
	integer		15
	string		16
	g_string		16,17,18
	wait_integer		18,8
	put_reused_func		13,13,'$VAR'
	write_elements_inc		13,1,15,2
	execute		14,convert_unify_14_0
convert_float_becomes_14_3:
	is_float		13,convert_float_becomes_14_1
	execute		14,convert_unify_14_0
convert_float_becomes_14_1:
	otherwise		convert_float_becomes_14_0
	put_vector		18,3
	write_element_variable		18,0,17
	write_element_variable		18,1,16
	write_element_variable		18,2,15
	get_vector_value		3,18
	create_goal		14
	set_variable		1,20
	set_value		2,2
	set_value		3,17
	set_variable		4,19
	set_value		5,5
	set_marked_value		6,6
	set_marked_value		7,7
	set_marked_value		8,8
	set_variable		9,18
	set_value		10,10
	set_marked_value		11,11
	set_variable		12,3
	set_variable		13,17
	set_value		14,14
	enqueue_goal		14,convert_float_math_macro_14_0
	create_goal		13
	set_variable		1,2
	set_value		2,20
	set_value		3,16
	set_variable		4,5
	set_value		5,19
	set_values_inc		6,6,3
	set_variable		9,10
	set_value		10,18
	set_values_inc		11,11,2
	set_value		13,3
	enqueue_goal		13,convert_arg_set_13_0
	put_value		3,15
	put_value		12,13
	put_value		13,17
	execute		13,convert_arg_ref_13_0
convert_float_becomes_14_8:
	suspend		convert_float_becomes_14_0
	module_entry		kl1cmp_macro
	predicate		convert_float_math_macro,14
convert_float_math_macro_14_0:
	try_me_else		convert_float_math_macro_14_1
	jump_on_non_vector		13,convert_float_math_macro_14_3
	jump_on_arity		13,4,convert_float_math_macro_14_1
	table_entry		convert_float_math_macro_14_1
	table_entry		convert_float_math_macro_14_1
	table_entry		convert_float_math_macro_14_4
	table_entry		convert_float_math_macro_14_5
convert_float_math_macro_14_4:
	read_element		13,0,15
	wait_atom		15,float
	read_element		13,1,15
	create_goal		12
	set_variable		1,16
	set_values_inc		2,2,10
	set_variable		12,5
	enqueue_goal		12,convert_inner_math_macro_12_0
	put_reused_func		3,13,float
	write_element_value		3,1,15
	put_value		2,16
	put_value		4,14
	put_value		6,12
	execute_external		kl1cmp_blttbl,float_expression,6
convert_float_math_macro_14_5:
	read_element		13,0,15
	wait_atom		15,'$VAR'
	read_elements_inc		13,1,15,2
	integer		15
	string		16
	g_string		16,17,18
	wait_integer		18,8
	collect_value		11
	collect_value		8
	collect_value		7
	collect_value		6
	get_nil		3
	get_value		9,10
	get_value		4,5
	get_value		1,2
	put_reused_func		1,13,'$VAR'
	write_elements_inc		1,1,15,2
	put_func		2,3,=
	write_element_value		2,1,12
	write_element_value		2,2,1
	get_vector_value		14,2
	proceed
convert_float_math_macro_14_3:
	is_float		13,convert_float_math_macro_14_1
	collect_value		11
	collect_value		8
	collect_value		7
	collect_value		6
	get_nil		3
	get_value		9,10
	get_value		4,5
	get_value		1,2
	put_func		1,3,=
	write_elements_inc		1,1,12,2
	get_vector_value		14,1
	proceed
convert_float_math_macro_14_1:
	otherwise		convert_float_math_macro_14_0
	create_goal		12
	set_variable		1,15
	set_values_inc		2,2,10
	set_variable		12,5
	enqueue_goal		12,convert_float_inner_math_macro_12_0
	put_value		2,15
	put_values_inc		3,13,2
	put_value		6,12
	execute_external		kl1cmp_blttbl,float_expression,6
convert_float_math_macro_14_9:
	suspend		convert_float_math_macro_14_0
	module_entry		kl1cmp_macro
	predicate		convert_float_inner_math_macro,12
convert_float_inner_math_macro_12_0:
	try_me_else		convert_float_inner_math_macro_12_1
	list		12
	read_car		12,13
	jump_on_non_vector		13,convert_float_inner_math_macro_12_4
	jump_on_arity		13,4,convert_float_inner_math_macro_12_1
	table_entry		convert_float_inner_math_macro_12_1
	table_entry		convert_float_inner_math_macro_12_1
	table_entry		convert_float_inner_math_macro_12_5
	table_entry		convert_float_inner_math_macro_12_6
convert_float_inner_math_macro_12_5:
	read_cdr		12,18
	wait_list_var_var		18,14,15
	read_element		13,0,16
	wait_atom		16,float
	read_element		13,1,16
	put_reused_vector		19,13
	write_element_variable		19,0,17
	write_element_variable		19,1,13
	get_vector_value		3,19
	put_func		3,2,new_variable
	write_element_marked_value		3,1,14
	get_reused_list_val_var		4,19,12,3,12
	put_reused_list		3,18
	write_car_variable		3,4
	write_cdr_value		3,10
	create_goal		12
	set_variable		1,18
	set_value		2,2
	set_value		3,17
	set_variable		4,10
	set_value		5,5
	set_marked_value		6,6
	set_marked_value		7,7
	set_marked_value		8,8
	set_variable		9,5
	set_value		10,3
	set_marked_value		11,11
	set_value		12,15
	enqueue_goal		12,convert_float_inner_math_macro_12_0
	create_goal		12
	set_variable		1,2
	set_value		2,18
	set_values_dec		3,13,2
	set_value		5,10
	set_values_inc		6,6,4
	set_value		10,5
	set_value		11,11
	set_variable		12,5
	enqueue_goal		12,convert_inner_math_macro_12_0
	put_func		3,2,float
	write_element_value		3,1,16
	put_value		6,14
	execute_external		kl1cmp_blttbl,float_expression,6
convert_float_inner_math_macro_12_6:
	read_cdr		12,19
	wait_list_var_var		19,14,15
	read_element		13,0,16
	wait_atom		16,'$VAR'
	read_elements_inc		13,1,16,2
	integer		16
	string		17
	g_string		17,18,20
	wait_integer		20,8
	collect_list		12
	collect_list		19
	put_reused_func		12,13,'$VAR'
	write_elements_inc		12,1,16,2
	get_vector_value		14,12
	put_value		12,15
	execute		12,convert_float_inner_math_macro_12_0
convert_float_inner_math_macro_12_4:
	is_float		13,convert_float_inner_math_macro_12_1
	read_cdr		12,16
	wait_list_var_var		16,14,15
	collect_list		12
	collect_list		16
	get_value		13,14
	put_value		12,15
	execute		12,convert_float_inner_math_macro_12_0
convert_float_inner_math_macro_12_1:
	otherwise		convert_float_inner_math_macro_12_0
	try_me_else		convert_float_inner_math_macro_12_11
	jump_on_non_list_var_var		12,convert_float_inner_math_macro_12_13,13,18
	wait_list_var_var		18,14,15
	put_vector		19,2
	write_element_variable		19,0,17
	write_element_variable		19,1,16
	get_vector_value		3,19
	put_func		3,2,new_variable
	write_element_marked_value		3,1,14
	get_reused_list_val_var		4,19,12,3,12
	put_reused_list		3,18
	write_car_variable		3,4
	write_cdr_value		3,10
	create_goal		12
	set_variable		1,18
	set_value		2,2
	set_value		3,17
	set_variable		4,10
	set_value		5,5
	set_marked_value		6,6
	set_marked_value		7,7
	set_marked_value		8,8
	set_variable		9,5
	set_value		10,3
	set_marked_value		11,11
	set_value		12,15
	enqueue_goal		12,convert_float_inner_math_macro_12_0
	create_goal		12
	set_variable		1,2
	set_value		2,18
	set_value		3,16
	set_value		4,12
	set_value		5,10
	set_values_inc		6,6,4
	set_value		10,5
	set_value		11,11
	set_variable		12,5
	enqueue_goal		12,convert_float_inner_math_macro_12_0
	put_value		3,13
	put_value		6,14
	execute_external		kl1cmp_blttbl,float_expression,6
convert_float_inner_math_macro_12_13:
	check_nil		12,convert_float_inner_math_macro_12_11
	collect_value		11
	collect_value		8
	collect_value		7
	collect_value		6
	get_nil		3
	get_value		9,10
	get_value		4,5
	get_value		1,2
	proceed
convert_float_inner_math_macro_12_11:
	suspend		convert_float_inner_math_macro_12_0
	module_entry		kl1cmp_macro
	predicate		convert_arg_ref,13
convert_arg_ref_13_0:
	try_me_else		convert_arg_ref_13_1
	wait_atom		6,expand
	wait_vector		12,2
	read_element		12,0,14
	wait_atom		14,&
	read_element		12,1,15
	jump_on_non_atom		15,convert_arg_ref_13_6
	collect_value		11
	collect_value		8
	collect_value		7
	collect_vector		12
	get_nil		3
	get_value		9,10
	put_func		3,3,get_old
	write_element_value		3,1,15
	write_element_variable		3,2,6
	get_list_val_var		4,7,3,3
	put_values_inc		4,5,2
	put_value		6,13
	execute		6,check_arg_6_0
convert_arg_ref_13_6:
	check_vector		15,2,convert_arg_ref_13_1
	read_element		15,0,16
	atom		16
	read_element		15,1,17
	wait		17
	switch_on_type		17,convert_arg_ref_13_8,convert_arg_ref_13_9,convert_arg_ref_13_1,convert_arg_ref_13_10,convert_arg_ref_13_1,convert_arg_ref_13_1
convert_arg_ref_13_8:
	branch_on_atom		17,2,convert_arg_ref_13_1
	bucket_entry_a		old,convert_arg_ref_13_11
	bucket_entry_a		oldnew,convert_arg_ref_13_12
convert_arg_ref_13_11:
	collect_value		11
	collect_value		8
	collect_value		7
	collect_vector		12
	collect_vector		15
	get_nil		3
	get_value		9,10
	put_func		3,3,get_old
	write_element_value		3,1,16
	write_element_variable		3,2,6
	get_list_val_var		4,7,3,3
	put_values_inc		4,5,2
	put_value		6,13
	execute		6,check_arg_6_0
convert_arg_ref_13_12:
	collect_vector		12
	collect_vector		15
	put_value		15,13
	put_func		6,3,get_type
	write_element_marked_value		6,1,16
	write_element_variable		6,2,12
	get_list_val_var		4,13,6,6
	put_value		4,6
	put_atom		6,expand
	put_value		13,16
	put_atom		14,oldnew
	execute		15,convert_arg_ref_macro_15_0
convert_arg_ref_13_9:
	collect_vector		12
	collect_vector		15
	put_value		15,13
	put_func		6,3,get_type
	write_element_marked_value		6,1,16
	write_element_variable		6,2,12
	get_list_val_var		4,13,6,6
	put_value		4,6
	put_atom		6,expand
	put_values_inc		13,16,2
	execute		15,convert_arg_ref_macro_15_0
convert_arg_ref_13_10:
	test_arity		17,3,convert_arg_ref_13_1
	read_element		17,0,18
	wait_atom		18,'$VAR'
	read_elements_inc		17,1,18,2
	integer		18
	string		19
	g_string		19,20,21
	wait_integer		21,8
	collect_vector		12
	collect_vector		15
	put_value		15,13
	put_reused_func		6,17,get_type
	write_element_marked_value		6,1,16
	write_element_variable		6,2,12
	get_list_val_var		4,13,6,6
	put_func		14,3,'$VAR'
	write_elements_inc		14,1,18,2
	put_value		4,6
	put_atom		6,expand
	put_value		13,16
	execute		15,convert_arg_ref_macro_15_0
convert_arg_ref_13_1:
	try_me_else		convert_arg_ref_13_13
	wait		12
	switch_on_type		12,convert_arg_ref_13_14,convert_arg_ref_13_15,convert_arg_ref_13_16,convert_arg_ref_13_17,convert_arg_ref_13_18,convert_arg_ref_13_19
convert_arg_ref_13_16:
	read_car		12,14
	read_cdr		12,15
	collect_list		12
	put_vector		17,2
	write_element_variable		17,0,16
	write_element_variable		17,1,12
	get_vector_value		3,17
	create_goal		3
	set_variable		1,17
	set_variable		2,18
	set_value		3,13
	enqueue_goal		3,convert_arg_ref_list_3_0
	create_goal		13
	set_variable		1,3
	set_value		2,2
	set_value		3,16
	set_variable		4,16
	set_value		5,5
	set_marked_value		6,6
	set_marked_value		7,7
	set_marked_value		8,8
	set_variable		9,13
	set_value		10,10
	set_marked_value		11,11
	set_value		12,15
	set_value		13,18
	enqueue_goal		13,convert_arg_ref_13_0
	put_func		15,2,car
	write_element_value		15,1,14
	put_value		2,3
	put_value		3,12
	put_value		5,16
	put_value		10,13
	put_integer		12,2
	put_void		13
	put_value		14,15
	put_value		15,17
	execute		15,expand_explicit_args_15_0
convert_arg_ref_13_14:
	collect_value		11
	collect_value		8
	collect_value		7
	collect_value		6
	get_nil		3
	get_value		9,10
	get_value		4,5
	get_value		1,2
	get_value		13,12
	proceed
convert_arg_ref_13_15:
	collect_value		11
	collect_value		8
	collect_value		7
	collect_value		6
	get_nil		3
	get_value		9,10
	get_value		4,5
	get_value		1,2
	get_value		12,13
	proceed
convert_arg_ref_13_17:
	test_arity		12,3,convert_arg_ref_13_20
	try_me_else		convert_arg_ref_13_20
	read_element		12,0,14
	wait_atom		14,'$VAR'
	read_elements_inc		12,1,14,2
	integer		14
	string		15
	g_string		15,16,17
	wait_integer		17,8
	collect_value		11
	collect_value		8
	collect_value		7
	collect_value		6
	get_nil		3
	get_value		9,10
	get_value		4,5
	get_value		1,2
	put_reused_func		1,12,'$VAR'
	write_elements_inc		1,1,14,2
	get_vector_value		13,1
	proceed
convert_arg_ref_13_20:
	g_vector		12,14
	try_me_else		convert_arg_ref_13_22
	wait_integer		14,3
	put_integer		15,0
	g_vector_element		12,15,15
	wait_atom		15,#
	put_integer		17,1
	g_vector_element		12,17,15
	put_integer		18,2
	g_vector_element		12,18,16
	atom		15
	mark_element		12,17
	mark_element		12,18
	collect_value		12
	collect_value		11
	collect_value		8
	collect_value		7
	collect_value		6
	put_nil		6
	get_value		9,10
	get_value		4,5
	put_func		4,4,get_macro_arg
	write_elements_inc		4,1,15,2
	write_element_variable		4,3,5
	put_list_val_val		7,4,6
	get_list_value		3,7
	put_value		3,5
	put_value		4,13
	execute		4,check_define_macro_4_0
convert_arg_ref_13_22:
	try_me_else		convert_arg_ref_13_21
	wait_integer		14,3
	put_integer		15,0
	g_vector_element		12,15,15
	wait_atom		15,#
	put_integer		17,1
	g_vector_element		12,17,15
	put_integer		18,2
	g_vector_element		12,18,16
	integer		15
	put_integer		19,2
	g_not_less_than		15,19
	put_integer		19,36
	g_not_less_than		19,15
	mark_element		12,17
	mark_element		12,18
	collect_value		12
	collect_value		11
	collect_value		8
	collect_value		7
	collect_value		6
	put_nil		6
	get_value		9,10
	get_value		4,5
	put_func		4,4,get_macro_arg
	write_elements_inc		4,1,15,2
	write_element_variable		4,3,5
	put_list_val_val		7,4,6
	get_list_value		3,7
	put_value		3,5
	put_value		4,13
	execute		4,check_define_macro_4_0
convert_arg_ref_13_21:
	try_me_else		convert_arg_ref_13_23
	g_vector		12,14
	wait_integer		14,2
	put_integer		14,0
	g_vector_element		12,14,14
	wait_atom		14,#
	put_integer		15,1
	g_vector_element		12,15,14
	mark_element		12,15
	collect_value		12
	collect_value		11
	collect_value		8
	collect_value		7
	collect_value		6
	put_nil		6
	get_value		9,10
	get_value		4,5
	put_func		4,4,get_macro_arg
	write_element_atom		4,1,none
	write_element_value		4,2,14
	write_element_variable		4,3,5
	put_list_val_val		7,4,6
	get_list_value		3,7
	put_value		3,5
	put_value		4,13
	execute		4,check_define_macro_4_0
convert_arg_ref_13_23:
	try_me_else		convert_arg_ref_13_13
	g_vector		12,14
	wait_integer		14,2
	put_integer		14,0
	g_vector_element		12,14,14
	wait_atom		14,~
	put_integer		15,1
	g_vector_element		12,15,14
	wait_vector		14,2
	read_element		14,0,16
	wait_atom		16,++
	read_element		14,1,14
	atom		14
	mark_element		12,15
	collect_value		12
	collect_value		11
	collect_value		8
	collect_value		7
	collect_value		6
	get_nil		3
	put_func		3,3,get_new
	write_element_marked_value		3,1,14
	write_element_variable		3,2,8
	put_list_val_var		6,3,7
	put_func		3,3,get_old
	write_element_value		3,1,14
	write_element_variable		3,2,11
	put_list_val_val		12,3,6
	get_list_value		4,12
	put_func		3,3,+
	write_element_marked_value		3,1,13
	write_element_integer		3,2,1
	put_func		4,3,:=
	write_element_variable		4,1,6
	write_element_value		4,2,3
	put_list_val_val		3,4,10
	get_list_value		9,3
	create_goal		6
	set_variable		1,3
	set_value		2,2
	set_variable		3,4
	set_value		4,5
	set_value		5,8
	set_value		6,6
	enqueue_goal		6,check_arg_6_0
	put_value		2,3
	put_value		3,7
	put_value		5,11
	put_value		6,13
	execute		6,check_arg_6_0
convert_arg_ref_13_18:
	collect_value		11
	collect_value		8
	collect_value		7
	collect_value		6
	get_nil		3
	get_value		9,10
	get_value		4,5
	get_value		1,2
	get_value		12,13
	proceed
convert_arg_ref_13_19:
	is_float		12,convert_arg_ref_13_13
	collect_value		11
	collect_value		8
	collect_value		7
	collect_value		6
	get_nil		3
	get_value		9,10
	get_value		4,5
	get_value		1,2
	get_value		12,13
	proceed
convert_arg_ref_13_13:
	otherwise		convert_arg_ref_13_0
	try_me_else		convert_arg_ref_13_42
	vector		12
	g_vector		12,14
	try_me_else		convert_arg_ref_13_44
	wait_integer		14,2
	put_integer		15,0
	g_vector_element		12,15,15
	wait_atom		15,~
	put_integer		15,1
	g_vector_element		12,15,14
	mark_element		12,15
	collect_value		12
	put_func		12,2,new_variable
	write_element_marked_value		12,1,13
	get_list_val_var		4,16,12,15
	put_list		12
	write_car_variable		12,16
	write_cdr_value		12,10
	put_value		4,15
	put_value		10,12
	put_values_inc		12,13,2
	put_value		14,16
	execute		14,convert_becomes_14_0
convert_arg_ref_13_44:
	try_me_else		convert_arg_ref_13_42
	wait_integer		14,2
	put_integer		15,0
	g_vector_element		12,15,15
	wait_atom		15,$~
	put_integer		15,1
	g_vector_element		12,15,14
	mark_element		12,15
	collect_value		12
	put_func		12,2,new_variable
	write_element_marked_value		12,1,13
	get_list_val_var		4,16,12,15
	put_list		12
	write_car_variable		12,16
	write_cdr_value		12,10
	put_value		4,15
	put_value		10,12
	put_values_inc		12,13,2
	put_value		14,16
	execute		14,convert_float_becomes_14_0
convert_arg_ref_13_42:
	otherwise		convert_arg_ref_13_0
	try_me_else		convert_arg_ref_13_48
	wait_atom		11,becomes
	vector		12
	g_vector		12,14
	put_value		16,12
	put_value		15,13
	put_atom		11,becomes
	put_integer		12,0
	put_value		13,14
	put_value		14,16
	execute		15,convert_arg_ref_vect_15_0
convert_arg_ref_13_48:
	try_me_else		convert_arg_ref_13_50
	vector		12
	put_value		14,12
	put_atom		15,becomes
	g_diff		11,15
	g_vector		14,12
	put_value		15,13
	put_void		13
	execute		15,expand_explicit_args_15_0
convert_arg_ref_13_50:
	suspend		convert_arg_ref_13_0
	module_entry		kl1cmp_macro
	predicate		convert_arg_ref_macro,15
convert_arg_ref_macro_15_0:
	try_me_else		convert_arg_ref_macro_15_1
	atom		8
	branch_on_atom		8,2,convert_arg_ref_macro_15_1
	bucket_entry_a		body,convert_arg_ref_macro_15_3
	bucket_entry_a		guard,convert_arg_ref_macro_15_4
convert_arg_ref_macro_15_3:
	atom		12
	hash_on_atom		12,4,convert_arg_ref_macro_15_1
	bucket_entry_a		oldnew,convert_arg_ref_macro_15_6
	bucket_entry_a		shared,convert_arg_ref_macro_15_7
	bucket_entry_a		stream,convert_arg_ref_macro_15_8
	bucket_entry_a		string,convert_arg_ref_macro_15_9
convert_arg_ref_macro_15_6:
	collect_value		11
	collect_value		7
	collect_value		6
	get_nil		3
	put_func		3,2,new_variable
	write_element_marked_value		3,1,15
	put_list_val_var		6,3,8
	put_func		3,3,get_new
	write_element_marked_value		3,1,13
	write_element_variable		3,2,11
	put_list_val_val		7,3,6
	put_func		3,3,get_old
	write_element_value		3,1,13
	write_element_variable		3,2,12
	put_list_val_val		6,3,7
	get_list_value		4,6
	put_func		3,6,set_vector_element
	write_element_variable		3,1,6
	write_elements_inc		3,2,14,2
	write_element_value		3,4,15
	write_element_variable		3,5,7
	put_list_val_val		4,3,10
	get_list_value		9,4
	create_goal		6
	set_variable		1,3
	set_value		2,2
	set_variable		3,4
	set_value		4,5
	set_value		5,11
	set_value		6,7
	enqueue_goal		6,check_arg_6_0
	put_value		2,3
	put_value		3,8
	put_value		5,12
	execute		6,check_arg_6_0
convert_arg_ref_macro_15_7:
	collect_value		11
	collect_value		7
	collect_value		6
	get_nil		3
	put_func		3,2,new_variable
	write_element_marked_value		3,1,15
	put_list_val_var		6,3,8
	put_func		3,3,get_new
	write_element_marked_value		3,1,13
	write_element_variable		3,2,11
	put_list_val_val		7,3,6
	put_func		3,3,get_old
	write_element_value		3,1,13
	write_element_variable		3,2,12
	put_list_val_val		6,3,7
	get_list_value		4,6
	put_func		3,6,set_vector_element
	write_element_variable		3,1,6
	write_elements_inc		3,2,14,2
	write_element_value		3,4,15
	write_element_variable		3,5,7
	put_list_val_val		4,3,10
	get_list_value		9,4
	create_goal		6
	set_variable		1,3
	set_value		2,2
	set_variable		3,4
	set_value		4,5
	set_value		5,11
	set_value		6,7
	enqueue_goal		6,check_arg_6_0
	put_value		2,3
	put_value		3,8
	put_value		5,12
	execute		6,check_arg_6_0
convert_arg_ref_macro_15_8:
	wait_atom		14,oldnew
	collect_value		11
	collect_value		7
	collect_value		6
	get_nil		3
	get_value		9,10
	put_func		3,3,get_old_and_new
	write_element_value		3,1,13
	write_element_variable		3,2,7
	get_list_val_var		4,6,3,3
	put_list		6
	write_car_void		6
	write_cdr_value		6,15
	put_value		4,5
	put_value		5,7
	execute		6,check_arg_6_0
convert_arg_ref_macro_15_9:
	collect_value		11
	collect_value		7
	collect_value		6
	get_nil		3
	put_func		3,2,new_variable
	write_element_marked_value		3,1,15
	put_list_val_var		6,3,8
	put_func		3,3,get_new
	write_element_marked_value		3,1,13
	write_element_variable		3,2,11
	put_list_val_val		7,3,6
	put_func		3,3,get_old
	write_element_value		3,1,13
	write_element_variable		3,2,12
	put_list_val_val		6,3,7
	get_list_value		4,6
	put_func		3,5,string_element
	write_element_variable		3,1,6
	write_elements_inc		3,2,14,2
	write_element_variable		3,4,7
	put_list_val_val		4,3,10
	get_list_value		9,4
	create_goal		6
	set_variable		1,3
	set_value		2,2
	set_variable		3,4
	set_value		4,5
	set_value		5,11
	set_value		6,7
	enqueue_goal		6,check_arg_6_0
	put_value		2,3
	put_value		3,8
	put_value		5,12
	execute		6,check_arg_6_0
convert_arg_ref_macro_15_4:
	atom		12
	branch_on_atom		12,3,convert_arg_ref_macro_15_1
	bucket_entry_a		oldnew,convert_arg_ref_macro_15_11
	bucket_entry_a		shared,convert_arg_ref_macro_15_12
	bucket_entry_a		string,convert_arg_ref_macro_15_13
convert_arg_ref_macro_15_11:
	collect_value		11
	collect_value		7
	collect_value		6
	get_nil		3
	put_func		3,2,new_variable
	write_element_marked_value		3,1,15
	put_list_val_var		6,3,7
	put_func		3,3,get_old
	write_element_value		3,1,13
	write_element_variable		3,2,8
	put_list_val_val		11,3,6
	get_list_value		4,11
	put_func		3,4,vector_element
	write_element_variable		3,1,6
	write_elements_inc		3,2,14,2
	put_list_val_val		4,3,10
	get_list_value		9,4
	put_value		3,7
	put_value		4,5
	put_value		5,8
	execute		6,check_arg_6_0
convert_arg_ref_macro_15_12:
	collect_value		11
	collect_value		7
	collect_value		6
	get_nil		3
	put_func		3,2,new_variable
	write_element_marked_value		3,1,15
	put_list_val_var		6,3,7
	put_func		3,3,get_old
	write_element_value		3,1,13
	write_element_variable		3,2,8
	put_list_val_val		11,3,6
	get_list_value		4,11
	put_func		3,4,vector_element
	write_element_variable		3,1,6
	write_elements_inc		3,2,14,2
	put_list_val_val		4,3,10
	get_list_value		9,4
	put_value		3,7
	put_value		4,5
	put_value		5,8
	execute		6,check_arg_6_0
convert_arg_ref_macro_15_13:
	collect_value		11
	collect_value		7
	collect_value		6
	get_nil		3
	put_func		3,2,new_variable
	write_element_marked_value		3,1,15
	put_list_val_var		6,3,7
	put_func		3,3,get_old
	write_element_value		3,1,13
	write_element_variable		3,2,8
	put_list_val_val		11,3,6
	get_list_value		4,11
	put_func		3,4,string_element
	write_element_variable		3,1,6
	write_elements_inc		3,2,14,2
	put_list_val_val		4,3,10
	get_list_value		9,4
	put_value		3,7
	put_value		4,5
	put_value		5,8
	execute		6,check_arg_6_0
convert_arg_ref_macro_15_1:
	otherwise		convert_arg_ref_macro_15_0
	collect_value		12
	collect_value		11
	collect_value		8
	collect_value		7
	collect_value		6
	get_nil		3
	get_value		9,10
	put_list		3
	write_car_value		3,14
	write_cdr_nil		3
	put_list_val_val		6,13,3
	put_structured_constant		3,'$SCNST_16'
	put_func		7,3,error_message
	write_element_value		7,1,3
	write_element_value		7,2,6
	put_list_val_val		3,7,2
	get_list_value		1,3
	put_func		1,2,new_variable
	write_element_value		1,1,15
	put_list_val_val		2,1,5
	get_list_value		4,2
	proceed
convert_arg_ref_macro_15_18:
	suspend		convert_arg_ref_macro_15_0
	module_entry		kl1cmp_macro
	predicate		convert_arg_ref_list,3
convert_arg_ref_list_3_0:
	try_me_else		convert_arg_ref_list_3_1
	vector		1
	jump_on_arity		1,4,convert_arg_ref_list_3_1
	table_entry		convert_arg_ref_list_3_1
	table_entry		convert_arg_ref_list_3_1
	table_entry		convert_arg_ref_list_3_3
	table_entry		convert_arg_ref_list_3_4
convert_arg_ref_list_3_3:
	read_element		1,0,4
	wait_atom		4,car
	read_element		1,1,4
	collect_vector		1
	put_list_val_val		1,4,2
	get_list_value		3,1
	proceed
convert_arg_ref_list_3_4:
	read_element		1,0,4
	wait_atom		4,car
	read_elements_inc		1,1,4,2
	collect_vector		1
	put_list_val_val		1,5,2
	put_list_val_val		2,4,1
	get_list_value		3,2
	proceed
convert_arg_ref_list_3_1:
	suspend		convert_arg_ref_list_3_0
	module_entry		kl1cmp_macro
	predicate		convert_arg_ref_vect,15
convert_arg_ref_vect_15_0:
	try_me_else		convert_arg_ref_vect_15_1
	integer		12
	integer		13
	g_less_than		12,13
	put_vector		18,2
	write_element_variable		18,0,17
	write_element_variable		18,1,16
	get_vector_value		3,18
	put_marked_value		3,12
	put_variable		19,18
	b_set_vector_element		14,3,14,19,3
	b_increment		12,12
	create_goal		15
	set_variable		1,20
	set_value		2,2
	set_value		3,17
	set_variable		4,19
	set_value		5,5
	set_marked_value		6,6
	set_marked_value		7,7
	set_marked_value		8,8
	set_variable		9,17
	set_value		10,10
	set_marked_value		11,11
	set_values_inc		12,12,2
	set_value		14,3
	set_value		15,15
	enqueue_goal		15,convert_arg_ref_vect_15_0
	put_value		2,20
	put_value		3,16
	put_value		5,19
	put_value		10,17
	put_value		12,14
	put_value		13,18
	execute		13,convert_arg_ref_13_0
convert_arg_ref_vect_15_1:
	try_me_else		convert_arg_ref_vect_15_3
	wait_value		12,13
	collect_value		12
	collect_value		11
	collect_value		8
	collect_value		7
	collect_value		6
	collect_value		13
	get_nil		3
	get_value		9,10
	get_value		4,5
	get_value		1,2
	get_value		14,15
	proceed
convert_arg_ref_vect_15_3:
	suspend		convert_arg_ref_vect_15_0
	module_entry		kl1cmp_macro
	predicate		convert_arg_set,13
convert_arg_set_13_0:
	try_me_else		convert_arg_set_13_1
	wait_atom		6,expand
	wait_vector		12,2
	read_element		12,0,14
	wait_atom		14,&
	read_element		12,1,15
	jump_on_non_atom		15,convert_arg_set_13_6
	collect_value		11
	collect_value		8
	collect_value		7
	collect_vector		12
	get_nil		3
	get_value		9,10
	put_func		3,3,get_new
	write_element_value		3,1,15
	write_element_variable		3,2,6
	get_list_val_var		4,7,3,3
	put_values_inc		4,5,2
	put_value		6,13
	execute		6,check_arg_6_0
convert_arg_set_13_6:
	check_vector		15,2,convert_arg_set_13_1
	read_element		15,0,16
	atom		16
	read_element		15,1,17
	jump_on_non_integer		17,convert_arg_set_13_9
	collect_vector		12
	collect_vector		15
	put_value		15,13
	put_func		6,3,get_type
	write_element_marked_value		6,1,16
	write_element_variable		6,2,12
	get_list_val_var		4,13,6,6
	put_value		4,6
	put_atom		6,expand
	put_values_inc		13,16,2
	execute		15,convert_arg_set_macro_15_0
convert_arg_set_13_9:
	check_vector		17,3,convert_arg_set_13_1
	read_element		17,0,18
	wait_atom		18,'$VAR'
	read_elements_inc		17,1,18,2
	string		19
	g_string		19,20,21
	wait_integer		21,8
	integer		18
	collect_vector		12
	collect_vector		15
	put_value		15,13
	put_reused_func		6,17,get_type
	write_element_marked_value		6,1,16
	write_element_variable		6,2,12
	get_list_val_var		4,13,6,6
	put_func		14,3,'$VAR'
	write_elements_inc		14,1,18,2
	put_value		4,6
	put_atom		6,expand
	put_value		13,16
	execute		15,convert_arg_set_macro_15_0
convert_arg_set_13_1:
	try_me_else		convert_arg_set_13_10
	wait		12
	switch_on_type		12,convert_arg_set_13_11,convert_arg_set_13_12,convert_arg_set_13_13,convert_arg_set_13_14,convert_arg_set_13_15,convert_arg_set_13_16
convert_arg_set_13_13:
	read_car		12,14
	read_cdr		12,15
	put_vector		18,2
	write_element_variable		18,0,17
	write_element_variable		18,1,16
	get_vector_value		3,18
	put_reused_list		3,12
	write_car_variable		3,18
	write_cdr_variable		3,19
	get_list_value		13,3
	create_goal		13
	set_variable		1,3
	set_value		2,2
	set_value		3,17
	set_variable		4,13
	set_value		5,5
	set_marked_value		6,6
	set_marked_value		7,7
	set_marked_value		8,8
	set_variable		9,12
	set_value		10,10
	set_marked_value		11,11
	set_value		12,15
	set_value		13,19
	enqueue_goal		13,convert_arg_ref_13_0
	put_value		2,3
	put_value		3,16
	put_value		5,13
	put_value		10,12
	put_value		12,14
	put_value		13,18
	execute		13,convert_arg_ref_13_0
convert_arg_set_13_11:
	collect_value		11
	collect_value		8
	collect_value		7
	collect_value		6
	get_nil		3
	get_value		9,10
	get_value		4,5
	get_value		1,2
	get_value		13,12
	proceed
convert_arg_set_13_12:
	collect_value		11
	collect_value		8
	collect_value		7
	collect_value		6
	get_nil		3
	get_value		9,10
	get_value		4,5
	get_value		1,2
	get_value		13,12
	proceed
convert_arg_set_13_14:
	test_arity		12,3,convert_arg_set_13_17
	try_me_else		convert_arg_set_13_17
	read_element		12,0,14
	wait_atom		14,'$VAR'
	read_elements_inc		12,1,14,2
	integer		14
	string		15
	g_string		15,16,17
	wait_integer		17,8
	collect_value		11
	collect_value		8
	collect_value		7
	collect_value		6
	get_nil		3
	get_value		9,10
	get_value		4,5
	get_value		1,2
	put_reused_func		1,12,'$VAR'
	write_elements_inc		1,1,14,2
	get_vector_value		13,1
	proceed
convert_arg_set_13_17:
	try_me_else		convert_arg_set_13_18
	g_vector		12,14
	wait_integer		14,3
	put_integer		14,0
	g_vector_element		12,14,14
	wait_atom		14,#
	put_integer		16,1
	g_vector_element		12,16,14
	put_integer		17,2
	g_vector_element		12,17,15
	mark_element		12,16
	mark_element		12,17
	collect_value		12
	collect_value		11
	collect_value		8
	collect_value		7
	collect_value		6
	put_nil		6
	get_value		9,10
	get_value		4,5
	get_value		1,2
	put_func		1,4,get_macro_arg
	write_elements_inc		1,1,14,2
	write_element_value		1,3,13
	put_list_val_val		2,1,6
	get_list_value		3,2
	proceed
convert_arg_set_13_18:
	try_me_else		convert_arg_set_13_10
	g_vector		12,14
	wait_integer		14,2
	put_integer		14,0
	g_vector_element		12,14,14
	wait_atom		14,#
	put_integer		15,1
	g_vector_element		12,15,14
	mark_element		12,15
	collect_value		12
	collect_value		11
	collect_value		8
	collect_value		7
	collect_value		6
	put_nil		6
	get_value		9,10
	get_value		4,5
	get_value		1,2
	put_func		1,4,get_macro_arg
	write_element_atom		1,1,none
	write_elements_dec		1,2,14,2
	put_list_val_val		2,1,6
	get_list_value		3,2
	proceed
convert_arg_set_13_15:
	collect_value		11
	collect_value		8
	collect_value		7
	collect_value		6
	get_nil		3
	get_value		9,10
	get_value		4,5
	get_value		1,2
	get_value		13,12
	proceed
convert_arg_set_13_16:
	is_float		12,convert_arg_set_13_10
	collect_value		11
	collect_value		8
	collect_value		7
	collect_value		6
	get_nil		3
	get_value		9,10
	get_value		4,5
	get_value		1,2
	get_value		13,12
	proceed
convert_arg_set_13_10:
	otherwise		convert_arg_set_13_0
	try_me_else		convert_arg_set_13_38
	vector		12
	put_value		16,12
	g_vector		16,14
	put_value		15,13
	put_integer		12,0
	put_value		13,14
	put_value		14,16
	execute		15,convert_arg_set_vect_15_0
convert_arg_set_13_38:
	suspend		convert_arg_set_13_0
	module_entry		kl1cmp_macro
	predicate		convert_arg_set_macro,15
convert_arg_set_macro_15_0:
	try_me_else		convert_arg_set_macro_15_1
	wait_atom		8,body
	atom		12
	branch_on_atom		12,3,convert_arg_set_macro_15_1
	bucket_entry_a		oldnew,convert_arg_set_macro_15_4
	bucket_entry_a		shared,convert_arg_set_macro_15_5
	bucket_entry_a		string,convert_arg_set_macro_15_6
convert_arg_set_macro_15_4:
	collect_value		11
	collect_value		7
	collect_value		6
	get_nil		3
	put_func		3,2,new_variable
	write_element_marked_value		3,1,15
	put_list_val_var		6,3,8
	put_func		3,2,new_variable
	write_element_variable		3,1,11
	put_list_val_val		7,3,6
	put_func		3,3,get_new
	write_element_marked_value		3,1,13
	write_element_variable		3,2,12
	put_list_val_val		6,3,7
	put_func		3,3,get_old
	write_element_value		3,1,13
	write_element_variable		3,2,7
	put_list_val_val		13,3,6
	get_list_value		4,13
	put_func		3,6,set_vector_element
	write_element_variable		3,1,6
	write_element_value		3,2,14
	write_element_value		3,3,11
	write_element_value		3,4,15
	write_element_variable		3,5,11
	put_list_val_val		4,3,10
	get_list_value		9,4
	create_goal		6
	set_variable		1,3
	set_value		2,2
	set_variable		3,4
	set_value		4,5
	set_values_dec		5,12,2
	enqueue_goal		6,check_arg_6_0
	put_value		2,3
	put_value		3,8
	put_value		5,7
	execute		6,check_arg_6_0
convert_arg_set_macro_15_5:
	collect_value		11
	collect_value		7
	collect_value		6
	get_nil		3
	put_func		3,2,new_variable
	write_element_marked_value		3,1,15
	put_list_val_var		6,3,8
	put_func		3,2,new_variable
	write_element_variable		3,1,11
	put_list_val_val		7,3,6
	put_func		3,3,get_new
	write_element_marked_value		3,1,13
	write_element_variable		3,2,12
	put_list_val_val		6,3,7
	put_func		3,3,get_old
	write_element_value		3,1,13
	write_element_variable		3,2,7
	put_list_val_val		13,3,6
	get_list_value		4,13
	put_func		3,6,set_vector_element
	write_element_variable		3,1,6
	write_element_value		3,2,14
	write_element_value		3,3,11
	write_element_value		3,4,15
	write_element_variable		3,5,11
	put_list_val_val		4,3,10
	get_list_value		9,4
	create_goal		6
	set_variable		1,3
	set_value		2,2
	set_variable		3,4
	set_value		4,5
	set_values_dec		5,12,2
	enqueue_goal		6,check_arg_6_0
	put_value		2,3
	put_value		3,8
	put_value		5,7
	execute		6,check_arg_6_0
convert_arg_set_macro_15_6:
	collect_value		11
	collect_value		7
	collect_value		6
	get_nil		3
	put_func		3,2,new_variable
	write_element_marked_value		3,1,15
	put_list_val_var		6,3,8
	put_func		3,3,get_new
	write_element_marked_value		3,1,13
	write_element_variable		3,2,11
	put_list_val_val		7,3,6
	put_func		3,3,get_old
	write_element_value		3,1,13
	write_element_variable		3,2,12
	put_list_val_val		6,3,7
	get_list_value		4,6
	put_func		3,5,string_element
	write_element_variable		3,1,6
	write_elements_inc		3,2,14,2
	write_element_variable		3,4,7
	put_list_val_val		4,3,10
	get_list_value		9,4
	create_goal		6
	set_variable		1,3
	set_value		2,2
	set_variable		3,4
	set_value		4,5
	set_value		5,11
	set_value		6,7
	enqueue_goal		6,check_arg_6_0
	put_value		2,3
	put_value		3,8
	put_value		5,12
	execute		6,check_arg_6_0
convert_arg_set_macro_15_1:
	suspend		convert_arg_set_macro_15_0
	module_entry		kl1cmp_macro
	predicate		convert_arg_set_vect,15
convert_arg_set_vect_15_0:
	try_me_else		convert_arg_set_vect_15_1
	integer		12
	integer		13
	g_less_than		12,13
	put_vector		18,2
	write_element_variable		18,0,17
	write_element_variable		18,1,16
	get_vector_value		3,18
	put_marked_value		3,12
	put_variable		19,18
	b_set_vector_element		14,3,14,19,3
	b_increment		12,12
	create_goal		15
	set_variable		1,20
	set_value		2,2
	set_value		3,17
	set_variable		4,19
	set_value		5,5
	set_marked_value		6,6
	set_marked_value		7,7
	set_marked_value		8,8
	set_variable		9,17
	set_value		10,10
	set_marked_value		11,11
	set_values_inc		12,12,2
	set_value		14,3
	set_value		15,15
	enqueue_goal		15,convert_arg_set_vect_15_0
	put_value		2,20
	put_value		3,16
	put_value		5,19
	put_value		10,17
	put_value		12,14
	put_value		13,18
	execute		13,convert_arg_ref_13_0
convert_arg_set_vect_15_1:
	try_me_else		convert_arg_set_vect_15_3
	wait_value		12,13
	collect_value		12
	collect_value		11
	collect_value		8
	collect_value		7
	collect_value		6
	collect_value		13
	get_nil		3
	get_value		9,10
	get_value		4,5
	get_value		1,2
	get_value		14,15
	proceed
convert_arg_set_vect_15_3:
	suspend		convert_arg_set_vect_15_0
	module_entry		kl1cmp_macro
	predicate		expand_explicit_args,15
expand_explicit_args_15_0:
	put_values_inc		16,12,3
	put_marked_value		12,17
	b_new_vector		12,12
	create_goal		4
	set_integer		1,0
	set_variable		2,13
	set_value		3,12
	set_value		4,15
	enqueue_goal		4,copy_explicit_args_4_0
	put_value		12,13
	put_nil		13
	put_integer		14,0
	put_value		15,16
	put_integer		16,0
	execute		18,extract_goal_args_18_0
expand_explicit_args_15_1:
	suspend		expand_explicit_args_15_0
	module_entry		kl1cmp_macro
	predicate		copy_explicit_args,4
copy_explicit_args_4_0:
	try_me_else		copy_explicit_args_4_1
	jump_on_non_list_var_var		2,copy_explicit_args_4_3,5,6
	collect_list		2
	put_marked_value		2,1
	b_set_vector_element		3,2,2,5,3
	b_increment		1,1
	put_value		2,6
	execute		4,copy_explicit_args_4_0
copy_explicit_args_4_3:
	check_nil		2,copy_explicit_args_4_1
	collect_value		1
	get_value		3,4
	proceed
copy_explicit_args_4_1:
	suspend		copy_explicit_args_4_0
	module_entry		kl1cmp_macro
	predicate		extract_goal_args,18
extract_goal_args_18_0:
	try_me_else		extract_goal_args_18_1
	integer		14
	integer		15
	g_less_than		14,15
	put_vector		21,2
	write_element_variable		21,0,20
	write_element_variable		21,1,19
	get_vector_value		3,21
	put_marked_value		3,14
	put_nil		21
	b_set_vector_element		18,3,18,21,3
	b_increment		14,14
	create_goal		18
	set_variable		1,23
	set_value		2,2
	set_value		3,20
	set_variable		4,22
	set_value		5,5
	set_marked_value		6,6
	set_marked_value		7,7
	set_marked_value		8,8
	set_variable		9,21
	set_value		10,10
	set_marked_value		11,11
	set_variable		12,20
	set_values_inc		13,13,3
	set_variable		16,15
	set_value		17,17
	set_value		18,3
	enqueue_goal		18,extract_goal_args_18_0
	put_value		2,23
	put_value		3,19
	put_value		5,22
	put_value		10,21
	put_value		13,20
	put_value		14,16
	put_value		16,18
	execute		16,extract_one_goal_arg_16_0
extract_goal_args_18_1:
	try_me_else		extract_goal_args_18_3
	wait_value		14,15
	collect_value		18
	collect_value		14
	collect_value		11
	collect_value		8
	collect_value		7
	collect_value		6
	collect_value		15
	get_nil		3
	get_value		12,13
	get_value		9,10
	get_value		4,5
	get_value		1,2
	get_value		16,17
	proceed
extract_goal_args_18_3:
	suspend		extract_goal_args_18_0
	module_entry		kl1cmp_macro
	predicate		extract_one_goal_arg,16
extract_one_goal_arg_16_0:
	try_me_else		extract_one_goal_arg_16_1
	wait_atom		6,expand
	wait_vector		16,2
	read_element		16,0,17
	wait_atom		17,&
	read_element		16,1,18
	jump_on_non_atom		18,extract_one_goal_arg_16_6
	put_func		6,3,get_type
	write_element_marked_value		6,1,18
	write_element_variable		6,2,19
	get_list_val_var		4,17,6,6
	put_reused_func		17,16,&
	write_element_value		17,1,18
	put_value		4,6
	put_atom		6,expand
	put_value		16,19
	execute		17,extract_one_goal_macro_arg_17_0
extract_one_goal_arg_16_6:
	check_vector		18,2,extract_one_goal_arg_16_1
	read_elements_inc		18,0,19,2
	wait_atom		20,oldnew
	atom		19
	put_func		6,3,get_type
	write_element_marked_value		6,1,19
	write_element_variable		6,2,20
	get_list_val_var		4,17,6,6
	put_reused_vector		4,16
	write_element_value		4,0,19
	write_element_atom		4,1,oldnew
	put_reused_func		17,18,&
	write_element_value		17,1,4
	put_value		4,6
	put_atom		6,expand
	put_value		16,20
	execute		17,extract_one_goal_macro_arg_17_0
extract_one_goal_arg_16_1:
	try_me_else		extract_one_goal_arg_16_7
	wait		16
	switch_on_type		16,extract_one_goal_arg_16_8,extract_one_goal_arg_16_9,extract_one_goal_arg_16_10,extract_one_goal_arg_16_11,extract_one_goal_arg_16_12,extract_one_goal_arg_16_13
extract_one_goal_arg_16_10:
	read_car		16,17
	read_cdr		16,18
	put_vector		21,2
	write_element_variable		21,0,20
	write_element_variable		21,1,19
	get_vector_value		3,21
	b_increment		14,3
	get_value		15,3
	put_reused_list		3,16
	write_car_variable		3,14
	write_cdr_variable		3,15
	put_list_val_val		16,3,13
	get_list_value		12,16
	create_goal		13
	set_variable		1,3
	set_value		2,2
	set_value		3,20
	set_variable		4,13
	set_value		5,5
	set_marked_value		6,6
	set_marked_value		7,7
	set_marked_value		8,8
	set_variable		9,12
	set_value		10,10
	set_marked_value		11,11
	set_value		12,18
	set_value		13,15
	enqueue_goal		13,convert_arg_ref_13_0
	put_value		2,3
	put_value		3,19
	put_value		5,13
	put_value		10,12
	put_value		12,17
	put_value		13,14
	execute		13,convert_arg_ref_13_0
extract_one_goal_arg_16_8:
	collect_value		11
	collect_value		8
	collect_value		7
	collect_value		6
	get_nil		3
	get_value		9,10
	get_value		4,5
	get_value		1,2
	put_list_val_val		1,16,13
	get_list_value		12,1
	b_increment		14,1
	get_value		15,1
	proceed
extract_one_goal_arg_16_9:
	collect_value		11
	collect_value		8
	collect_value		7
	collect_value		6
	get_nil		3
	get_value		9,10
	get_value		4,5
	get_value		1,2
	put_list_val_val		1,16,13
	get_list_value		12,1
	b_increment		14,1
	get_value		15,1
	proceed
extract_one_goal_arg_16_11:
	test_arity		16,3,extract_one_goal_arg_16_7
	read_element		16,0,17
	wait_atom		17,'$VAR'
	read_elements_inc		16,1,17,2
	integer		17
	string		18
	g_string		18,19,20
	wait_integer		20,8
	collect_value		11
	collect_value		8
	collect_value		7
	collect_value		6
	get_nil		3
	get_value		9,10
	get_value		4,5
	get_value		1,2
	put_reused_func		1,16,'$VAR'
	write_elements_inc		1,1,17,2
	put_list_val_val		2,1,13
	get_list_value		12,2
	b_increment		14,1
	get_value		15,1
	proceed
extract_one_goal_arg_16_12:
	collect_value		11
	collect_value		8
	collect_value		7
	collect_value		6
	get_nil		3
	get_value		9,10
	get_value		4,5
	get_value		1,2
	put_list_val_val		1,16,13
	get_list_value		12,1
	b_increment		14,1
	get_value		15,1
	proceed
extract_one_goal_arg_16_13:
	is_float		16,extract_one_goal_arg_16_7
	collect_value		11
	collect_value		8
	collect_value		7
	collect_value		6
	get_nil		3
	get_value		9,10
	get_value		4,5
	get_value		1,2
	put_list_val_val		1,16,13
	get_list_value		12,1
	b_increment		14,1
	get_value		15,1
	proceed
extract_one_goal_arg_16_7:
	otherwise		extract_one_goal_arg_16_0
	b_increment		14,14
	get_value		15,14
	put_list		15
	write_car_variable		15,14
	write_cdr_value		15,13
	get_list_value		12,15
	put_value		12,16
	put_value		13,14
	execute		13,convert_arg_ref_13_0
extract_one_goal_arg_16_28:
	suspend		extract_one_goal_arg_16_0
	module_entry		kl1cmp_macro
	predicate		extract_one_goal_macro_arg,17
extract_one_goal_macro_arg_17_0:
	try_me_else		extract_one_goal_macro_arg_17_1
	wait_atom		6,expand
	atom		16
	hash_on_atom		16,4,extract_one_goal_macro_arg_17_1
	bucket_entry_a		oldnew,extract_one_goal_macro_arg_17_4
	bucket_entry_a		shared,extract_one_goal_macro_arg_17_5
	bucket_entry_a		stream,extract_one_goal_macro_arg_17_6
	bucket_entry_a		string,extract_one_goal_macro_arg_17_7
extract_one_goal_macro_arg_17_4:
	wait_vector		17,2
	read_element		17,0,18
	wait_atom		18,&
	read_element		17,1,18
	atom		18
	collect_value		11
	collect_value		8
	collect_value		7
	collect_vector		17
	get_nil		3
	get_value		9,10
	put_func		3,3,get_new
	write_element_marked_value		3,1,18
	write_element_variable		3,2,8
	put_list_val_var		6,3,7
	put_func		3,3,get_old
	write_element_value		3,1,18
	write_element_variable		3,2,9
	put_list_val_val		10,3,6
	get_list_value		4,10
	put_list		3
	write_car_variable		3,10
	write_cdr_value		3,13
	put_list		4
	write_car_variable		4,6
	write_cdr_value		4,3
	get_list_value		12,4
	put_integer		3,2
	b_add		14,3,3
	get_value		15,3
	create_goal		6
	set_variable		1,3
	set_value		2,2
	set_variable		3,4
	set_value		4,5
	set_value		5,8
	set_value		6,10
	enqueue_goal		6,check_arg_6_0
	put_value		2,3
	put_value		3,7
	put_value		5,9
	execute		6,check_arg_6_0
extract_one_goal_macro_arg_17_5:
	wait_vector		17,2
	read_element		17,0,18
	wait_atom		18,&
	read_element		17,1,19
	wait_vector		19,2
	read_element		19,0,18
	read_element		19,1,20
	wait_atom		20,oldnew
	atom		18
	collect_value		11
	collect_value		8
	collect_value		7
	collect_vector		17
	collect_vector		19
	get_nil		3
	get_value		9,10
	put_func		3,3,get_new
	write_element_marked_value		3,1,18
	write_element_variable		3,2,8
	put_list_val_var		6,3,7
	put_func		3,3,get_old
	write_element_value		3,1,18
	write_element_variable		3,2,9
	put_list_val_val		10,3,6
	get_list_value		4,10
	put_list		3
	write_car_variable		3,10
	write_cdr_value		3,13
	put_list		4
	write_car_variable		4,6
	write_cdr_value		4,3
	get_list_value		12,4
	put_integer		3,2
	b_add		14,3,3
	get_value		15,3
	create_goal		6
	set_variable		1,3
	set_value		2,2
	set_variable		3,4
	set_value		4,5
	set_value		5,8
	set_value		6,10
	enqueue_goal		6,check_arg_6_0
	put_value		2,3
	put_value		3,7
	put_value		5,9
	execute		6,check_arg_6_0
extract_one_goal_macro_arg_17_6:
	wait_vector		17,2
	read_element		17,0,18
	wait_atom		18,&
	read_element		17,1,19
	wait_vector		19,2
	read_element		19,0,18
	read_element		19,1,20
	wait_atom		20,oldnew
	atom		18
	collect_value		11
	collect_value		8
	collect_value		7
	collect_vector		17
	collect_vector		19
	get_nil		3
	get_value		9,10
	put_func		3,3,get_old_and_new
	write_element_value		3,1,18
	write_element_variable		3,2,8
	get_list_val_var		4,6,3,7
	put_list		3
	write_car_variable		3,4
	write_cdr_value		3,13
	put_list		6
	write_car_variable		6,9
	write_cdr_value		6,3
	get_list_value		12,6
	put_integer		3,2
	b_add		14,3,3
	get_value		15,3
	put_list_val_val		6,9,4
	put_value		3,7
	put_value		4,5
	put_value		5,8
	execute		6,check_arg_6_0
extract_one_goal_macro_arg_17_7:
	wait_vector		17,2
	read_element		17,0,18
	wait_atom		18,&
	read_element		17,1,18
	atom		18
	collect_value		11
	collect_value		8
	collect_value		7
	collect_vector		17
	get_nil		3
	get_value		9,10
	put_func		3,3,get_new
	write_element_marked_value		3,1,18
	write_element_variable		3,2,8
	put_list_val_var		6,3,7
	put_func		3,3,get_old
	write_element_value		3,1,18
	write_element_variable		3,2,9
	put_list_val_val		10,3,6
	get_list_value		4,10
	put_list		3
	write_car_variable		3,10
	write_cdr_value		3,13
	put_list		4
	write_car_variable		4,6
	write_cdr_value		4,3
	get_list_value		12,4
	put_integer		3,2
	b_add		14,3,3
	get_value		15,3
	create_goal		6
	set_variable		1,3
	set_value		2,2
	set_variable		3,4
	set_value		4,5
	set_value		5,8
	set_value		6,10
	enqueue_goal		6,check_arg_6_0
	put_value		2,3
	put_value		3,7
	put_value		5,9
	execute		6,check_arg_6_0
extract_one_goal_macro_arg_17_1:
	otherwise		extract_one_goal_macro_arg_17_0
	collect_value		16
	put_list		18
	write_car_variable		18,16
	write_cdr_value		18,13
	get_list_value		12,18
	b_increment		14,12
	get_value		15,12
	put_values_dec		12,17,2
	execute		13,convert_arg_ref_13_0
extract_one_goal_macro_arg_17_12:
	suspend		extract_one_goal_macro_arg_17_0
	module_entry		kl1cmp_macro
	predicate		convert_single_op,14
convert_single_op_14_0:
	create_goal		15
	set_values_inc		1,1,11
	set_variable		12,3
	set_value		13,12
	set_variable		14,2
	set_value		15,14
	enqueue_goal		15,case_on_right_hand_15_0
	put_value		1,13
	execute		3,expression_3_0
convert_single_op_14_1:
	suspend		convert_single_op_14_0
	module_entry		kl1cmp_macro
	predicate		case_on_right_hand,15
case_on_right_hand_15_0:
	try_me_else		case_on_right_hand_15_1
	atom		12
	branch_on_atom		12,2,case_on_right_hand_15_1
	bucket_entry_a		arith,case_on_right_hand_15_3
	bucket_entry_a		none,case_on_right_hand_15_4
case_on_right_hand_15_3:
	collect_value		11
	put_atom		11,becomes
	put_values_inc		12,13,3
	execute		14,convert_becomes_14_0
case_on_right_hand_15_4:
	put_vector		17,2
	write_element_variable		17,0,16
	write_element_variable		17,1,12
	get_vector_value		3,17
	put_func		3,3,=
	write_element_variable		3,1,18
	write_element_variable		3,2,17
	get_vector_value		15,3
	create_goal		13
	set_variable		1,3
	set_value		2,2
	set_value		3,16
	set_variable		4,16
	set_value		5,5
	set_marked_value		6,6
	set_marked_value		7,7
	set_marked_value		8,8
	set_variable		9,15
	set_value		10,10
	set_marked_value		11,11
	set_value		12,13
	set_value		13,18
	enqueue_goal		13,convert_arg_set_13_0
	put_value		2,3
	put_value		3,12
	put_value		5,16
	put_value		10,15
	put_value		12,14
	put_value		13,17
	execute		13,convert_arg_ref_13_0
case_on_right_hand_15_1:
	suspend		case_on_right_hand_15_0
	module_entry		kl1cmp_macro
	predicate		convert_float_single_op,14
convert_float_single_op_14_0:
	create_goal		15
	set_values_inc		1,1,11
	set_variable		12,3
	set_value		13,12
	set_variable		14,2
	set_value		15,14
	enqueue_goal		15,case_on_float_right_hand_15_0
	put_value		1,13
	execute		3,float_expression_3_0
convert_float_single_op_14_1:
	suspend		convert_float_single_op_14_0
	module_entry		kl1cmp_macro
	predicate		case_on_float_right_hand,15
case_on_float_right_hand_15_0:
	try_me_else		case_on_float_right_hand_15_1
	atom		12
	branch_on_atom		12,2,case_on_float_right_hand_15_1
	bucket_entry_a		arith,case_on_float_right_hand_15_3
	bucket_entry_a		none,case_on_float_right_hand_15_4
case_on_float_right_hand_15_3:
	collect_value		11
	put_atom		11,becomes
	put_values_inc		12,13,3
	execute		14,convert_float_becomes_14_0
case_on_float_right_hand_15_4:
	put_vector		17,2
	write_element_variable		17,0,16
	write_element_variable		17,1,12
	get_vector_value		3,17
	put_func		3,3,=
	write_element_variable		3,1,18
	write_element_variable		3,2,17
	get_vector_value		15,3
	create_goal		13
	set_variable		1,3
	set_value		2,2
	set_value		3,16
	set_variable		4,16
	set_value		5,5
	set_marked_value		6,6
	set_marked_value		7,7
	set_marked_value		8,8
	set_variable		9,15
	set_value		10,10
	set_marked_value		11,11
	set_value		12,13
	set_value		13,18
	enqueue_goal		13,convert_arg_set_13_0
	put_value		2,3
	put_value		3,12
	put_value		5,16
	put_value		10,15
	put_value		12,14
	put_value		13,17
	execute		13,convert_arg_ref_13_0
case_on_float_right_hand_15_1:
	suspend		case_on_float_right_hand_15_0
	module_entry		kl1cmp_macro
	predicate		convert_double_op,14
convert_double_op_14_0:
	try_me_else		convert_double_op_14_1
	wait_vector		12,2
	read_element		12,0,15
	wait_atom		15,&
	read_element		12,1,16
	jump_on_non_atom		16,convert_double_op_14_5
	collect_vector		12
	put_list		12
	write_car_variable		12,18
	write_cdr_variable		12,17
	put_func		15,3,get_old_and_new
	write_element_value		15,1,16
	write_element_value		15,2,12
	put_list_val_var		12,15,16
	put_func		20,3,=
	write_element_variable		20,1,19
	write_element_variable		20,2,15
	get_vector_value		14,20
	create_goal		3
	set_value		1,15
	set_value		2,17
	set_variable		3,14
	enqueue_goal		3,out_to_dlist_3_0
	create_goal		6
	set_variable		1,15
	set_value		2,2
	set_value		3,16
	set_value		4,5
	set_values_inc		5,18,2
	enqueue_goal		6,check_arg_6_0
	put_value		2,15
	put_value		5,12
	put_values_inc		12,13,2
	execute		13,convert_arg_ref_13_0
convert_double_op_14_5:
	check_vector		16,2,convert_double_op_14_1
	read_element		16,0,17
	atom		17
	read_element		16,1,18
	jump_on_non_integer		18,convert_double_op_14_8
	collect_vector		16
	put_reused_func		12,12,new_variable
	write_element_marked_variable		12,1,20
	put_list_val_var		15,12,19
	put_func		12,3,get_new
	write_element_marked_value		12,1,17
	write_element_variable		12,2,21
	put_list_val_val		16,12,15
	put_func		12,3,get_old
	write_element_value		12,1,17
	write_element_variable		12,2,17
	put_list_val_val		15,12,16
	put_func		23,6,set_vector_element
	write_element_variable		23,1,12
	write_element_value		23,2,18
	write_element_variable		23,3,16
	write_element_value		23,4,20
	write_element_variable		23,5,22
	get_vector_value		14,23
	create_goal		3
	set_value		1,16
	set_value		2,20
	set_variable		3,14
	enqueue_goal		3,out_to_dlist_3_0
	create_goal		6
	set_variable		1,18
	set_value		2,2
	set_variable		3,16
	set_value		4,5
	set_values_inc		5,21,2
	enqueue_goal		6,check_arg_6_0
	create_goal		6
	set_variable		1,2
	set_values_inc		2,18,2
	set_values_inc		4,16,2
	set_value		6,12
	enqueue_goal		6,check_arg_6_0
	put_value		5,15
	put_values_inc		12,13,2
	execute		13,convert_arg_ref_13_0
convert_double_op_14_8:
	check_vector		18,3,convert_double_op_14_1
	read_element		18,0,19
	wait_atom		19,'$VAR'
	read_elements_inc		18,1,19,2
	integer		19
	string		20
	g_string		20,21,22
	wait_integer		22,8
	collect_vector		16
	put_reused_func		12,12,new_variable
	write_element_marked_variable		12,1,22
	put_list_val_var		15,12,21
	put_reused_func		12,18,get_new
	write_element_marked_value		12,1,17
	write_element_variable		12,2,18
	put_list_val_val		16,12,15
	put_func		12,3,get_old
	write_element_value		12,1,17
	write_element_variable		12,2,17
	put_list_val_val		15,12,16
	put_func		12,3,'$VAR'
	write_elements_inc		12,1,19,2
	put_func		19,6,set_vector_element
	write_element_variable		19,1,16
	write_element_value		19,2,12
	write_element_variable		19,3,12
	write_element_value		19,4,22
	write_element_variable		19,5,20
	get_vector_value		14,19
	create_goal		3
	set_value		1,12
	set_value		2,22
	set_variable		3,14
	enqueue_goal		3,out_to_dlist_3_0
	create_goal		6
	set_variable		1,19
	set_value		2,2
	set_variable		3,12
	set_value		4,5
	set_value		5,18
	set_value		6,20
	enqueue_goal		6,check_arg_6_0
	create_goal		6
	set_variable		1,2
	set_value		2,19
	set_value		3,21
	set_value		4,12
	set_values_dec		5,17,2
	enqueue_goal		6,check_arg_6_0
	put_value		5,15
	put_values_inc		12,13,2
	execute		13,convert_arg_ref_13_0
convert_double_op_14_1:
	suspend		convert_double_op_14_0
	module_entry		kl1cmp_macro
	predicate		expression,3
expression_3_0:
	try_me_else		expression_3_1
	vector		1
	jump_on_arity		1,4,expression_3_1
	table_entry		expression_3_1
	table_entry		expression_3_1
	table_entry		expression_3_3
	table_entry		expression_3_4
expression_3_3:
	read_element		1,0,4
	atom		4
	hash_on_atom		4,4,expression_3_1
	bucket_entry_a		-,expression_3_6
	bucket_entry_a		\,expression_3_7
	bucket_entry_a		abs,expression_3_8
	bucket_entry_a		int,expression_3_9
expression_3_6:
	read_element		1,1,5
	put_reused_func		1,1,-
	write_element_value		1,1,5
	get_vector_value		2,1
	get_atom		3,arith
	proceed
expression_3_7:
	read_element		1,1,5
	put_reused_func		1,1,\
	write_element_value		1,1,5
	get_vector_value		2,1
	get_atom		3,arith
	proceed
expression_3_8:
	read_element		1,1,5
	put_reused_func		1,1,abs
	write_element_value		1,1,5
	get_vector_value		2,1
	get_atom		3,arith
	proceed
expression_3_9:
	read_element		1,1,5
	put_reused_func		1,1,max
	write_element_value		1,1,5
	get_vector_value		2,1
	get_atom		3,arith
	proceed
expression_3_4:
	read_element		1,0,4
	atom		4
	hash_on_atom		4,12,expression_3_1
	bucket_entry_a		*,expression_3_11
	bucket_entry_a		+,expression_3_12
	bucket_entry_a		-,expression_3_13
	bucket_entry_a		/,expression_3_14
	bucket_entry_a		/\,expression_3_15
	bucket_entry_a		<<,expression_3_16
	bucket_entry_a		>>,expression_3_17
	bucket_entry_a		\/,expression_3_18
	bucket_entry_a		max,expression_3_19
	bucket_entry_a		min,expression_3_20
	bucket_entry_a		mod,expression_3_21
	bucket_entry_a		xor,expression_3_22
expression_3_11:
	read_elements_inc		1,1,5,2
	put_reused_func		1,1,*
	write_elements_inc		1,1,5,2
	get_vector_value		2,1
	get_atom		3,arith
	proceed
expression_3_12:
	read_elements_inc		1,1,5,2
	put_reused_func		1,1,+
	write_elements_inc		1,1,5,2
	get_vector_value		2,1
	get_atom		3,arith
	proceed
expression_3_13:
	read_elements_inc		1,1,5,2
	put_reused_func		1,1,-
	write_elements_inc		1,1,5,2
	get_vector_value		2,1
	get_atom		3,arith
	proceed
expression_3_14:
	read_elements_inc		1,1,5,2
	put_reused_func		1,1,/
	write_elements_inc		1,1,5,2
	get_vector_value		2,1
	get_atom		3,arith
	proceed
expression_3_15:
	read_elements_inc		1,1,5,2
	put_reused_func		1,1,/\
	write_elements_inc		1,1,5,2
	get_vector_value		2,1
	get_atom		3,arith
	proceed
expression_3_16:
	read_elements_inc		1,1,5,2
	put_reused_func		1,1,<<
	write_elements_inc		1,1,5,2
	get_vector_value		2,1
	get_atom		3,arith
	proceed
expression_3_17:
	read_elements_inc		1,1,5,2
	put_reused_func		1,1,>>
	write_elements_inc		1,1,5,2
	get_vector_value		2,1
	get_atom		3,arith
	proceed
expression_3_18:
	read_elements_inc		1,1,5,2
	put_reused_func		1,1,\/
	write_elements_inc		1,1,5,2
	get_vector_value		2,1
	get_atom		3,arith
	proceed
expression_3_19:
	read_elements_inc		1,1,5,2
	put_reused_func		1,1,max
	write_elements_inc		1,1,5,2
	get_vector_value		2,1
	get_atom		3,arith
	proceed
expression_3_20:
	read_elements_inc		1,1,5,2
	put_reused_func		1,1,min
	write_elements_inc		1,1,5,2
	get_vector_value		2,1
	get_atom		3,arith
	proceed
expression_3_21:
	read_elements_inc		1,1,5,2
	put_reused_func		1,1,mod
	write_elements_inc		1,1,5,2
	get_vector_value		2,1
	get_atom		3,arith
	proceed
expression_3_22:
	read_elements_inc		1,1,5,2
	put_reused_func		1,1,xor
	write_elements_inc		1,1,5,2
	get_vector_value		2,1
	get_atom		3,arith
	proceed
expression_3_1:
	otherwise		expression_3_0
	get_value		2,1
	get_atom		3,none
	proceed
expression_3_29:
	suspend		expression_3_0
	module_entry		kl1cmp_macro
	predicate		float_expression,3
float_expression_3_0:
	try_me_else		float_expression_3_1
	vector		1
	jump_on_arity		1,4,float_expression_3_1
	table_entry		float_expression_3_1
	table_entry		float_expression_3_1
	table_entry		float_expression_3_3
	table_entry		float_expression_3_4
float_expression_3_3:
	read_element		1,0,4
	atom		4
	hash_on_atom		4,17,float_expression_3_1
	bucket_entry_a		-,float_expression_3_6
	bucket_entry_a		abs,float_expression_3_7
	bucket_entry_a		acos,float_expression_3_8
	bucket_entry_a		asin,float_expression_3_9
	bucket_entry_a		atan,float_expression_3_10
	bucket_entry_a		cos,float_expression_3_11
	bucket_entry_a		cosh,float_expression_3_12
	bucket_entry_a		exp,float_expression_3_13
	bucket_entry_a		float,float_expression_3_14
	bucket_entry_a		floor,float_expression_3_15
	bucket_entry_a		ln,float_expression_3_16
	bucket_entry_a		log,float_expression_3_17
	bucket_entry_a		sin,float_expression_3_18
	bucket_entry_a		sinh,float_expression_3_19
	bucket_entry_a		sqrt,float_expression_3_20
	bucket_entry_a		tan,float_expression_3_21
	bucket_entry_a		tanh,float_expression_3_22
float_expression_3_6:
	read_element		1,1,5
	put_reused_func		1,1,-
	write_element_value		1,1,5
	get_vector_value		2,1
	get_atom		3,arith
	proceed
float_expression_3_7:
	read_element		1,1,5
	put_reused_func		1,1,abs
	write_element_value		1,1,5
	get_vector_value		2,1
	get_atom		3,arith
	proceed
float_expression_3_8:
	read_element		1,1,5
	put_reused_func		1,1,acos
	write_element_value		1,1,5
	get_vector_value		2,1
	get_atom		3,arith
	proceed
float_expression_3_9:
	read_element		1,1,5
	put_reused_func		1,1,asin
	write_element_value		1,1,5
	get_vector_value		2,1
	get_atom		3,arith
	proceed
float_expression_3_10:
	read_element		1,1,5
	put_reused_func		1,1,atan
	write_element_value		1,1,5
	get_vector_value		2,1
	get_atom		3,arith
	proceed
float_expression_3_11:
	read_element		1,1,5
	put_reused_func		1,1,cos
	write_element_value		1,1,5
	get_vector_value		2,1
	get_atom		3,arith
	proceed
float_expression_3_12:
	read_element		1,1,5
	put_reused_func		1,1,cosh
	write_element_value		1,1,5
	get_vector_value		2,1
	get_atom		3,arith
	proceed
float_expression_3_13:
	read_element		1,1,5
	put_reused_func		1,1,exp
	write_element_value		1,1,5
	get_vector_value		2,1
	get_atom		3,arith
	proceed
float_expression_3_14:
	read_element		1,1,5
	put_reused_func		1,1,float
	write_element_value		1,1,5
	get_vector_value		2,1
	get_atom		3,arith
	proceed
float_expression_3_15:
	read_element		1,1,5
	put_reused_func		1,1,floor
	write_element_value		1,1,5
	get_vector_value		2,1
	get_atom		3,arith
	proceed
float_expression_3_16:
	read_element		1,1,5
	put_reused_func		1,1,ln
	write_element_value		1,1,5
	get_vector_value		2,1
	get_atom		3,arith
	proceed
float_expression_3_17:
	read_element		1,1,5
	put_reused_func		1,1,log
	write_element_value		1,1,5
	get_vector_value		2,1
	get_atom		3,arith
	proceed
float_expression_3_18:
	read_element		1,1,5
	put_reused_func		1,1,sin
	write_element_value		1,1,5
	get_vector_value		2,1
	get_atom		3,arith
	proceed
float_expression_3_19:
	read_element		1,1,5
	put_reused_func		1,1,sinh
	write_element_value		1,1,5
	get_vector_value		2,1
	get_atom		3,arith
	proceed
float_expression_3_20:
	read_element		1,1,5
	put_reused_func		1,1,sqrt
	write_element_value		1,1,5
	get_vector_value		2,1
	get_atom		3,arith
	proceed
float_expression_3_21:
	read_element		1,1,5
	put_reused_func		1,1,tan
	write_element_value		1,1,5
	get_vector_value		2,1
	get_atom		3,arith
	proceed
float_expression_3_22:
	read_element		1,1,5
	put_reused_func		1,1,tanh
	write_element_value		1,1,5
	get_vector_value		2,1
	get_atom		3,arith
	proceed
float_expression_3_4:
	read_element		1,0,4
	atom		4
	hash_on_atom		4,7,float_expression_3_1
	bucket_entry_a		*,float_expression_3_24
	bucket_entry_a		**,float_expression_3_25
	bucket_entry_a		+,float_expression_3_26
	bucket_entry_a		-,float_expression_3_27
	bucket_entry_a		/,float_expression_3_28
	bucket_entry_a		max,float_expression_3_29
	bucket_entry_a		min,float_expression_3_30
float_expression_3_24:
	read_elements_inc		1,1,5,2
	put_reused_func		1,1,*
	write_elements_inc		1,1,5,2
	get_vector_value		2,1
	get_atom		3,arith
	proceed
float_expression_3_25:
	read_elements_inc		1,1,5,2
	put_reused_func		1,1,**
	write_elements_inc		1,1,5,2
	get_vector_value		2,1
	get_atom		3,arith
	proceed
float_expression_3_26:
	read_elements_inc		1,1,5,2
	put_reused_func		1,1,+
	write_elements_inc		1,1,5,2
	get_vector_value		2,1
	get_atom		3,arith
	proceed
float_expression_3_27:
	read_elements_inc		1,1,5,2
	put_reused_func		1,1,-
	write_elements_inc		1,1,5,2
	get_vector_value		2,1
	get_atom		3,arith
	proceed
float_expression_3_28:
	read_elements_inc		1,1,5,2
	put_reused_func		1,1,/
	write_elements_inc		1,1,5,2
	get_vector_value		2,1
	get_atom		3,arith
	proceed
float_expression_3_29:
	read_elements_inc		1,1,5,2
	put_reused_func		1,1,max
	write_elements_inc		1,1,5,2
	get_vector_value		2,1
	get_atom		3,arith
	proceed
float_expression_3_30:
	read_elements_inc		1,1,5,2
	put_reused_func		1,1,min
	write_elements_inc		1,1,5,2
	get_vector_value		2,1
	get_atom		3,arith
	proceed
float_expression_3_1:
	otherwise		float_expression_3_0
	get_value		2,1
	get_atom		3,none
	proceed
float_expression_3_37:
	suspend		float_expression_3_0
	module_entry		kl1cmp_macro
	predicate		check_arg,6
check_arg_6_0:
	try_me_else		check_arg_6_1
	wait_vector		5,2
	read_element		5,0,7
	wait_atom		7,not_found
	read_element		5,1,7
	put_reused_func		5,5,&
	write_element_value		5,1,7
	put_list		7
	write_car_value		7,5
	write_cdr_nil		7
	put_structured_constant		5,'$SCNST_17'
	put_func		8,3,error_message
	write_element_value		8,1,5
	write_element_value		8,2,7
	put_list_val_val		5,8,2
	get_list_value		1,5
	put_func		1,2,new_variable
	write_element_value		1,1,6
	put_list_val_val		2,1,4
	get_list_value		3,2
	proceed
check_arg_6_1:
	otherwise		check_arg_6_0
	get_value		3,4
	get_value		1,2
	get_value		5,6
	proceed
check_arg_6_6:
	suspend		check_arg_6_0
	module_entry		kl1cmp_macro
	predicate		check_define_macro,4
check_define_macro_4_0:
	try_me_else		check_define_macro_4_1
	wait_vector		3,2
	read_element		3,0,5
	wait_atom		5,'$NOT_FOUND'
	read_element		3,1,5
	collect_vector		3
	get_value		1,2
	get_value		4,5
	proceed
check_define_macro_4_1:
	otherwise		check_define_macro_4_0
	get_value		1,2
	get_value		3,4
	proceed
check_define_macro_4_6:
	suspend		check_define_macro_4_0
	module_entry		kl1cmp_macro
	predicate		out_to_dlist,3
out_to_dlist_3_0:
	try_me_else		out_to_dlist_3_1
	jump_on_non_list_var_var		3,out_to_dlist_3_3,4,5
	get_reused_list_val_var		1,6,3,4,3
	put_value		1,3
	put_value		3,5
	execute		3,out_to_dlist_3_0
out_to_dlist_3_3:
	check_nil		3,out_to_dlist_3_1
	get_value		1,2
	proceed
out_to_dlist_3_1:
	suspend		out_to_dlist_3_0
	begin_const_section		kl1cmp_macro
'$SCNST_0_0':
	define_desc		3,2
	define_integer		1953719668
	define_integer		829188910
'$SCNST_0':
	define_string		'$SCNST_0_0'
'$SCNST_1_0':
	define_desc		3,1
	define_integer		1953719668
'$SCNST_1':
	define_string		'$SCNST_1_0'
'$SCNST_2_0':
	define_desc		19,2
	define_integer		1450075463
	define_integer		29281
'$SCNST_3':
'$SCNST_2':
	define_string		'$SCNST_2_0'
'$SCNST_4_0':
	define_desc		0,2
	define_atom		replace_local
	define_atom		[]
'$SCNST_4':
	define_vector		'$SCNST_4_0'
'$SCNST_5_1':
	define_desc		19,1
	define_integer		12335
'$SCNST_5_0':
	define_string		'$SCNST_5_1'
	define_atom		[]
'$SCNST_5':
	define_list		'$SCNST_5_0'
'$SCNST_6_0':
	define_desc		27,1
	define_integer		58
'$SCNST_9':
'$SCNST_6':
	define_string		'$SCNST_6_0'
'$SCNST_7_0':
	define_desc		27,1
	define_integer		36
'$SCNST_15':
'$SCNST_12':
'$SCNST_10':
'$SCNST_7':
	define_string		'$SCNST_7_0'
'$SCNST_8_0':
	define_desc		27,1
	define_integer		47
'$SCNST_14':
'$SCNST_8':
	define_string		'$SCNST_8_0'
'$SCNST_11_0':
	define_desc		11,1
	define_integer		4206639
'$SCNST_11':
	define_string		'$SCNST_11_0'
'$SCNST_13_0':
	define_desc		27,1
	define_integer		64
'$SCNST_13':
	define_string		'$SCNST_13_0'
'$SCNST_16_0':
	define_desc		27,6
	define_integer		1635151433
	define_integer		543451500
	define_integer		1919115629
	define_integer		2037653615
	define_integer		975201648
	define_integer		32
'$SCNST_16':
	define_string		'$SCNST_16_0'
'$SCNST_17_0':
	define_desc		27,10
	define_integer		1635151433
	define_integer		543451500
	define_integer		1919115597
	define_integer		1918967919
	define_integer		1377840743
	define_integer		1634496613
	define_integer		543450467
	define_integer		1444968802
	define_integer		778332527
	define_integer		32
'$SCNST_17':
	define_string		'$SCNST_17_0'
