version	U12.1.00
uid	ststructs_cls.tmp.u1-1459309270-0
record	Node__state,6
	0,__s
	1,__m
	2,kind
	3,vlineno
	4,pre_num
	5,post_num
record	Node__methods,3
	0,dump
	1,dump_tree
	2,trace_node
record	ConsNode__state,5
	0,__s
	1,__m
	2,unique_id
	3,cn_hd_field
	4,cn_tl_field
record	ConsNode__methods,5
	0,dump
	1,dump_tree
	2,cons_dump
	3,trace_node
	4,initially
record	ListHeaderNode__state,11
	0,__s
	1,__m
	2,lh_first
	3,lh_last
	4,kind
	5,vlineno
	6,pre_num
	7,post_num
	8,unique_id
	9,cn_hd_field
	10,cn_tl_field
record	ListHeaderNode__methods,15
	0,trace_node
	1,dump
	2,dump_tree
	3,list_dump
	4,first
	5,last
	6,setfirst
	7,setlast
	8,conc
	9,length
	10,list_to_array
	11,initially
	12,cons_dump
	13,Node
	14,ConsNode
record	DeclarationNode__state,24
	0,__s
	1,__m
	2,decl_id
	3,decl_denotation
	4,displacement
	5,level
	6,decl_signature
	7,decl_done
	8,decl_sig_transp
	9,decl_innermost_id
	10,decl_previous_definition
	11,decl_scope
	12,decl_can_be_refd
	13,decl_special
	14,decl_sel_index
	15,decl_needed
	16,decl_const_val
	17,kind
	18,vlineno
	19,pre_num
	20,post_num
	21,unique_id
	22,cn_hd_field
	23,cn_tl_field
record	DeclarationNode__methods,7
	0,trace_node
	1,dump
	2,dump_tree
	3,initially
	4,cons_dump
	5,Node
	6,ConsNode
record	ParameterNode__state,16
	0,__s
	1,__m
	2,par_id
	3,par_signature
	4,displacement
	5,level
	6,par_previous_definition
	7,par_scope
	8,par_only_def
	9,kind
	10,vlineno
	11,pre_num
	12,post_num
	13,unique_id
	14,cn_hd_field
	15,cn_tl_field
record	ParameterNode__methods,7
	0,trace_node
	1,dump
	2,dump_tree
	3,initially
	4,cons_dump
	5,Node
	6,ConsNode
record	RElementNode__state,14
	0,__s
	1,__m
	2,re_id
	3,re_denotation
	4,re_New_index
	5,re_ValueOf_index
	6,re_assign_index
	7,kind
	8,vlineno
	9,pre_num
	10,post_num
	11,unique_id
	12,cn_hd_field
	13,cn_tl_field
record	RElementNode__methods,7
	0,trace_node
	1,dump
	2,dump_tree
	3,initially
	4,cons_dump
	5,Node
	6,ConsNode
record	VarSignature__state,12
	0,__s
	1,__m
	2,signature
	3,sig_done
	4,var_denotation
	5,kind
	6,vlineno
	7,pre_num
	8,post_num
	9,unique_id
	10,cn_hd_field
	11,cn_tl_field
record	VarSignature__methods,7
	0,trace_node
	1,dump
	2,dump_tree
	3,initially
	4,cons_dump
	5,Node
	6,ConsNode
record	ValSignature__state,12
	0,__s
	1,__m
	2,signature
	3,sig_done
	4,val_denotation
	5,kind
	6,vlineno
	7,pre_num
	8,post_num
	9,unique_id
	10,cn_hd_field
	11,cn_tl_field
record	ValSignature__methods,7
	0,trace_node
	1,dump
	2,dump_tree
	3,initially
	4,cons_dump
	5,Node
	6,ConsNode
record	FSignature__state,18
	0,__s
	1,__m
	2,signature
	3,sig_done
	4,fsig_construction
	5,fsig_special
	6,fsig_slink_known
	7,fsig_inline_code
	8,fsig_param_list
	9,fsig_result_sig
	10,fc_code_label
	11,kind
	12,vlineno
	13,pre_num
	14,post_num
	15,unique_id
	16,cn_hd_field
	17,cn_tl_field
record	FSignature__methods,7
	0,trace_node
	1,dump
	2,dump_tree
	3,initially
	4,cons_dump
	5,Node
	6,ConsNode
record	TSignature__state,20
	0,__s
	1,__m
	2,signature
	3,sig_done
	4,ts_simple_type
	5,ts_local_type_id
	6,ts_clist
	7,ts_previous_definition
	8,ts_const_code
	9,ts_string_code
	10,ts_element_code
	11,ts_string_max
	12,ts_meta_concat
	13,kind
	14,vlineno
	15,pre_num
	16,post_num
	17,unique_id
	18,cn_hd_field
	19,cn_tl_field
record	TSignature__methods,7
	0,trace_node
	1,dump
	2,dump_tree
	3,initially
	4,cons_dump
	5,Node
	6,ConsNode
record	TSComponentNode__state,11
	0,__s
	1,__m
	2,tsc_id
	3,tsc_signature
	4,kind
	5,vlineno
	6,pre_num
	7,post_num
	8,unique_id
	9,cn_hd_field
	10,cn_tl_field
record	TSComponentNode__methods,7
	0,trace_node
	1,dump
	2,dump_tree
	3,initially
	4,cons_dump
	5,Node
	6,ConsNode
record	DefCharSigNode__state,14
	0,__s
	1,__m
	2,dcs_0
	3,dcs_1
	4,dcs_2
	5,dcs_3
	6,dcsexceptions
	7,kind
	8,vlineno
	9,pre_num
	10,post_num
	11,unique_id
	12,cn_hd_field
	13,cn_tl_field
record	DefCharSigNode__methods,7
	0,trace_node
	1,dump
	2,dump_tree
	3,initially
	4,cons_dump
	5,Node
	6,ConsNode
record	SignatureSigNode__state,11
	0,__s
	1,__m
	2,signature
	3,sig_done
	4,kind
	5,vlineno
	6,pre_num
	7,post_num
	8,unique_id
	9,cn_hd_field
	10,cn_tl_field
record	SignatureSigNode__methods,7
	0,trace_node
	1,dump
	2,dump_tree
	3,initially
	4,cons_dump
	5,Node
	6,ConsNode
record	BlDenotationNode__state,19
	0,__s
	1,__m
	2,signature
	3,sig_done
	4,ar_size
	5,ar_static_link
	6,ar_static_level
	7,bld_declaration_list
	8,bld_den_seq
	9,bld_precedence
	10,bld_flags
	11,fc_code_label
	12,kind
	13,vlineno
	14,pre_num
	15,post_num
	16,unique_id
	17,cn_hd_field
	18,cn_tl_field
record	BlDenotationNode__methods,7
	0,trace_node
	1,dump
	2,dump_tree
	3,initially
	4,cons_dump
	5,Node
	6,ConsNode
record	UseListNode__state,15
	0,__s
	1,__m
	2,signature
	3,sig_done
	4,usl_type_list
	5,usl_den_seq
	6,usl_previous_list
	7,usl_precedence
	8,kind
	9,vlineno
	10,pre_num
	11,post_num
	12,unique_id
	13,cn_hd_field
	14,cn_tl_field
record	UseListNode__methods,7
	0,trace_node
	1,dump
	2,dump_tree
	3,initially
	4,cons_dump
	5,Node
	6,ConsNode
record	ApplicationNode__state,14
	0,__s
	1,__m
	2,signature
	3,sig_done
	4,ap_operator
	5,ap_args
	6,ap_void_decl
	7,kind
	8,vlineno
	9,pre_num
	10,post_num
	11,unique_id
	12,cn_hd_field
	13,cn_tl_field
record	ApplicationNode__methods,7
	0,trace_node
	1,dump
	2,dump_tree
	3,initially
	4,cons_dump
	5,Node
	6,ConsNode
record	EnumerationNode__state,12
	0,__s
	1,__m
	2,signature
	3,sig_done
	4,enum_id_list
	5,kind
	6,vlineno
	7,pre_num
	8,post_num
	9,unique_id
	10,cn_hd_field
	11,cn_tl_field
record	EnumerationNode__methods,7
	0,trace_node
	1,dump
	2,dump_tree
	3,initially
	4,cons_dump
	5,Node
	6,ConsNode
record	ExtensionNode__state,14
	0,__s
	1,__m
	2,signature
	3,sig_done
	4,ext_denotation
	5,In_index
	6,Out_index
	7,kind
	8,vlineno
	9,pre_num
	10,post_num
	11,unique_id
	12,cn_hd_field
	13,cn_tl_field
record	ExtensionNode__methods,7
	0,trace_node
	1,dump
	2,dump_tree
	3,initially
	4,cons_dump
	5,Node
	6,ConsNode
record	ProductNode__state,14
	0,__s
	1,__m
	2,signature
	3,sig_done
	4,prod_local_type_id
	5,prod_components
	6,prod_previous_definition
	7,kind
	8,vlineno
	9,pre_num
	10,post_num
	11,unique_id
	12,cn_hd_field
	13,cn_tl_field
record	ProductNode__methods,7
	0,trace_node
	1,dump
	2,dump_tree
	3,initially
	4,cons_dump
	5,Node
	6,ConsNode
record	RecordConstructionNode__state,13
	0,__s
	1,__m
	2,signature
	3,sig_done
	4,rec_component_list
	5,rec_previous_definition
	6,kind
	7,vlineno
	8,pre_num
	9,post_num
	10,unique_id
	11,cn_hd_field
	12,cn_tl_field
record	RecordConstructionNode__methods,7
	0,trace_node
	1,dump
	2,dump_tree
	3,initially
	4,cons_dump
	5,Node
	6,ConsNode
record	UnionConstructionNode__state,14
	0,__s
	1,__m
	2,signature
	3,sig_done
	4,prod_local_type_id
	5,prod_components
	6,prod_previous_definition
	7,kind
	8,vlineno
	9,pre_num
	10,post_num
	11,unique_id
	12,cn_hd_field
	13,cn_tl_field
record	UnionConstructionNode__methods,7
	0,trace_node
	1,dump
	2,dump_tree
	3,initially
	4,cons_dump
	5,Node
	6,ConsNode
record	WithListNode__state,12
	0,__s
	1,__m
	2,wl_local_type_id
	3,wl_component_list
	4,wl_previous_definition
	5,kind
	6,vlineno
	7,pre_num
	8,post_num
	9,unique_id
	10,cn_hd_field
	11,cn_tl_field
record	WithListNode__methods,7
	0,trace_node
	1,dump
	2,dump_tree
	3,initially
	4,cons_dump
	5,Node
	6,ConsNode
record	ModPrimaryNode__state,19
	0,__s
	1,__m
	2,signature
	3,sig_done
	4,displacement
	5,level
	6,mp_primary
	7,mp_type_modifier
	8,mp_delete_v
	9,mp_orig_length
	10,mp_needed
	11,mp_no_surr_loop
	12,kind
	13,vlineno
	14,pre_num
	15,post_num
	16,unique_id
	17,cn_hd_field
	18,cn_tl_field
record	ModPrimaryNode__methods,7
	0,trace_node
	1,dump
	2,dump_tree
	3,initially
	4,cons_dump
	5,Node
	6,ConsNode
record	ExportListNode__state,12
	0,__s
	1,__m
	2,el_local_type_id
	3,el_export_element_list
	4,el_previous_definition
	5,kind
	6,vlineno
	7,pre_num
	8,post_num
	9,unique_id
	10,cn_hd_field
	11,cn_tl_field
record	ExportListNode__methods,7
	0,trace_node
	1,dump
	2,dump_tree
	3,initially
	4,cons_dump
	5,Node
	6,ConsNode
record	HideListNode__state,12
	0,__s
	1,__m
	2,el_local_type_id
	3,el_export_element_list
	4,el_previous_definition
	5,kind
	6,vlineno
	7,pre_num
	8,post_num
	9,unique_id
	10,cn_hd_field
	11,cn_tl_field
record	HideListNode__methods,7
	0,trace_node
	1,dump
	2,dump_tree
	3,initially
	4,cons_dump
	5,Node
	6,ConsNode
record	ExportElementNode__state,12
	0,__s
	1,__m
	2,ee_id
	3,ee_signature
	4,ee_export_list
	5,kind
	6,vlineno
	7,pre_num
	8,post_num
	9,unique_id
	10,cn_hd_field
	11,cn_tl_field
record	ExportElementNode__methods,7
	0,trace_node
	1,dump
	2,dump_tree
	3,initially
	4,cons_dump
	5,Node
	6,ConsNode
record	AllConstantsNode__state,9
	0,__s
	1,__m
	2,kind
	3,vlineno
	4,pre_num
	5,post_num
	6,unique_id
	7,cn_hd_field
	8,cn_tl_field
record	AllConstantsNode__methods,7
	0,trace_node
	1,dump
	2,dump_tree
	3,initially
	4,cons_dump
	5,Node
	6,ConsNode
record	WordElseNode__state,11
	0,__s
	1,__m
	2,signature
	3,sig_done
	4,kind
	5,vlineno
	6,pre_num
	7,post_num
	8,unique_id
	9,cn_hd_field
	10,cn_tl_field
record	WordElseNode__methods,7
	0,trace_node
	1,dump
	2,dump_tree
	3,initially
	4,cons_dump
	5,Node
	6,ConsNode
record	WordCandNode__state,9
	0,__s
	1,__m
	2,kind
	3,vlineno
	4,pre_num
	5,post_num
	6,unique_id
	7,cn_hd_field
	8,cn_tl_field
record	WordCandNode__methods,7
	0,trace_node
	1,dump
	2,dump_tree
	3,initially
	4,cons_dump
	5,Node
	6,ConsNode
record	WordCorNode__state,9
	0,__s
	1,__m
	2,kind
	3,vlineno
	4,pre_num
	5,post_num
	6,unique_id
	7,cn_hd_field
	8,cn_tl_field
record	WordCorNode__methods,7
	0,trace_node
	1,dump
	2,dump_tree
	3,initially
	4,cons_dump
	5,Node
	6,ConsNode
record	GuardedListNode__state,12
	0,__s
	1,__m
	2,signature
	3,sig_done
	4,gl_list
	5,kind
	6,vlineno
	7,pre_num
	8,post_num
	9,unique_id
	10,cn_hd_field
	11,cn_tl_field
record	GuardedListNode__methods,7
	0,trace_node
	1,dump
	2,dump_tree
	3,initially
	4,cons_dump
	5,Node
	6,ConsNode
record	LoopDenotationNode__state,12
	0,__s
	1,__m
	2,signature
	3,sig_done
	4,gl_list
	5,kind
	6,vlineno
	7,pre_num
	8,post_num
	9,unique_id
	10,cn_hd_field
	11,cn_tl_field
record	LoopDenotationNode__methods,7
	0,trace_node
	1,dump
	2,dump_tree
	3,initially
	4,cons_dump
	5,Node
	6,ConsNode
record	GuardedElementNode__state,11
	0,__s
	1,__m
	2,ge_guard
	3,ge_element
	4,kind
	5,vlineno
	6,pre_num
	7,post_num
	8,unique_id
	9,cn_hd_field
	10,cn_tl_field
record	GuardedElementNode__methods,7
	0,trace_node
	1,dump
	2,dump_tree
	3,initially
	4,cons_dump
	5,Node
	6,ConsNode
record	OpridNode__state,19
	0,__s
	1,__m
	2,signature
	3,sig_done
	4,sel_type
	5,id_str_table_index
	6,id_use_list
	7,id_last_definition
	8,id_def_found
	9,sel_index
	10,id_appl
	11,id_forward_ref
	12,kind
	13,vlineno
	14,pre_num
	15,post_num
	16,unique_id
	17,cn_hd_field
	18,cn_tl_field
record	OpridNode__methods,7
	0,trace_node
	1,dump
	2,dump_tree
	3,initially
	4,cons_dump
	5,Node
	6,ConsNode
record	LetterId__state,19
	0,__s
	1,__m
	2,signature
	3,sig_done
	4,sel_type
	5,id_str_table_index
	6,id_use_list
	7,id_last_definition
	8,id_def_found
	9,sel_index
	10,id_appl
	11,id_forward_ref
	12,kind
	13,vlineno
	14,pre_num
	15,post_num
	16,unique_id
	17,cn_hd_field
	18,cn_tl_field
record	LetterId__methods,7
	0,trace_node
	1,dump
	2,dump_tree
	3,initially
	4,cons_dump
	5,Node
	6,ConsNode
record	QStrNode__state,15
	0,__s
	1,__m
	2,signature
	3,sig_done
	4,sel_type
	5,str_string
	6,str_use_list
	7,str_expansion
	8,kind
	9,vlineno
	10,pre_num
	11,post_num
	12,unique_id
	13,cn_hd_field
	14,cn_tl_field
record	QStrNode__methods,7
	0,trace_node
	1,dump
	2,dump_tree
	3,initially
	4,cons_dump
	5,Node
	6,ConsNode
record	UQStrNode__state,15
	0,__s
	1,__m
	2,signature
	3,sig_done
	4,sel_type
	5,str_string
	6,str_use_list
	7,str_expansion
	8,kind
	9,vlineno
	10,pre_num
	11,post_num
	12,unique_id
	13,cn_hd_field
	14,cn_tl_field
record	UQStrNode__methods,7
	0,trace_node
	1,dump
	2,dump_tree
	3,initially
	4,cons_dump
	5,Node
	6,ConsNode
record	FConstruction__state,19
	0,__s
	1,__m
	2,signature
	3,sig_done
	4,ar_size
	5,ar_static_link
	6,ar_static_level
	7,fc_body
	8,fc_complexity
	9,fc_code_label
	10,fc_free_vars
	11,fc_body_needed
	12,kind
	13,vlineno
	14,pre_num
	15,post_num
	16,unique_id
	17,cn_hd_field
	18,cn_tl_field
record	FConstruction__methods,7
	0,trace_node
	1,dump
	2,dump_tree
	3,initially
	4,cons_dump
	5,Node
	6,ConsNode
record	FreeVarNode__state,13
	0,__s
	1,__m
	2,fv_last_definition
	3,fv_surr_class
	4,fv_surr_index
	5,fv_index
	6,kind
	7,vlineno
	8,pre_num
	9,post_num
	10,unique_id
	11,cn_hd_field
	12,cn_tl_field
record	FreeVarNode__methods,7
	0,trace_node
	1,dump
	2,dump_tree
	3,initially
	4,cons_dump
	5,Node
	6,ConsNode
record	ExternDefNode__state,10
	0,__s
	1,__m
	2,ext_name
	3,kind
	4,vlineno
	5,pre_num
	6,post_num
	7,unique_id
	8,cn_hd_field
	9,cn_tl_field
record	ExternDefNode__methods,7
	0,trace_node
	1,dump
	2,dump_tree
	3,initially
	4,cons_dump
	5,Node
	6,ConsNode
record	RExternDef__state,12
	0,__s
	1,__m
	2,signature
	3,sig_done
	4,r_ext_name
	5,kind
	6,vlineno
	7,pre_num
	8,post_num
	9,unique_id
	10,cn_hd_field
	11,cn_tl_field
record	RExternDef__methods,7
	0,trace_node
	1,dump
	2,dump_tree
	3,initially
	4,cons_dump
	5,Node
	6,ConsNode
record	DcsException__state,13
	0,__s
	1,__m
	2,dcse_char
	3,dcse_inline
	4,dcse_special
	5,dcse_construction
	6,kind
	7,vlineno
	8,pre_num
	9,post_num
	10,unique_id
	11,cn_hd_field
	12,cn_tl_field
record	DcsException__methods,7
	0,trace_node
	1,dump
	2,dump_tree
	3,cons_dump
	4,initially
	5,Node
	6,ConsNode
impl	error
global	648
	0,000001,dloadflag,0
	1,000001,initflag,0
	2,000001,BADflag,0
	3,000001,aflag,0
	4,000001,yydebug,0
	5,000001,Mflag,0
	6,000001,cflag,0
	7,000001,pflag,0
	8,000001,Lflag,0
	9,000001,Pflag,0
	10,000001,Tflag,0
	11,000001,Gflag,0
	12,000001,Vflag,0
	13,000001,Nflag,0
	14,000001,fflag,0
	15,000001,Fflag,0
	16,000001,Rflag,0
	17,000001,OOflag,0
	18,000001,OOOflag,0
	19,000001,Oflag,0
	20,000001,Xflag,0
	21,000001,xflag,0
	22,000001,hflag,0
	23,000001,dbgmsg,0
	24,000001,insrtptr,0
	25,000001,rpt_lvl,0
	26,000001,ifname,0
	27,000001,ofname,0
	28,000001,sigfname,0
	29,000001,optfname,0
	30,000001,actual_ifname,0
	31,000001,ofile,0
	32,000001,sigfile,0
	33,000001,optfile,0
	34,000001,unparse_file,0
	35,000001,optsfile,0
	36,000001,callfile,0
	37,000001,yyline,0
	38,000001,usl_ptr,0
	39,000001,insig,0
	40,000001,entry_nam,0
	41,000001,nil,0
	42,000001,indx_assign,0
	43,000001,indx_passign,0
	44,000001,indx_massign,0
	45,000001,indx_or,0
	46,000001,indx_and,0
	47,000001,indx_not,0
	48,000001,indx_equals,0
	49,000001,indx_less,0
	50,000001,indx_le,0
	51,000001,indx_ge,0
	52,000001,indx_ne,0
	53,000001,indx_greater,0
	54,000001,indx_plus,0
	55,000001,indx_minus,0
	56,000001,indx_times,0
	57,000001,indx_divide,0
	58,000001,indx_mod,0
	59,000001,indx_pconc,0
	60,000001,indx_sconc,0
	61,000001,indx_exp,0
	62,000001,indx_deref,0
	63,000001,indx_subscr,0
	64,000001,indx_New,0
	65,000001,indx_ValueOf,0
	66,000001,indx_First,0
	67,000001,indx_Last,0
	68,000001,indx_Pred,0
	69,000001,indx_Succ,0
	70,000001,indx_Ord,0
	71,000001,indx_OrdInv,0
	72,000001,indx_Card,0
	73,000001,indx_In,0
	74,000001,indx_Out,0
	75,000001,indx_put,0
	76,000001,indx_Callcc,0
	77,000001,indx_size,0
	78,000001,indx_ptr_New,0
	79,000001,indx_init_New,0
	80,000001,indx_empty,0
	81,000001,indx_standard,0
	82,000001,indx_inline,0
	83,000001,pend,0
	84,000001,indx_Boolean,0
	85,000001,indx_Void,0
	86,000001,indx_true,0
	87,000001,indx_false,0
	88,000001,indx_simple,0
	89,000001,indx_Null,0
	90,000001,indx_Mk,0
	91,000001,indx_Integer,0
	92,000001,indx_Array,0
	93,000001,sig_assign,0
	94,000001,sig_equals,0
	95,000001,sig_less,0
	96,000001,sig_greater,0
	97,000001,sig_New,0
	98,000001,sig_const,0
	99,000001,sig_ValueOf,0
	100,000001,sig_pconc,0
	101,000001,sig_sconc,0
	102,000001,sig_Signature,0
	103,000001,val_Boolean,0
	104,000001,val_Integer,0
	105,000001,val_Void,0
	106,000001,var_Void,0
	107,000001,sel_true,0
	108,000001,sel_false,0
	109,000001,id_Boolean,0
	110,000001,id_Integer,0
	111,000001,id_Void,0
	112,000001,id_put,0
	113,000001,id_ValueOf,0
	114,000001,id_New,0
	115,000001,id_size,0
	116,000001,id_Null,0
	117,000001,id_times,0
	118,000001,id_plus,0
	119,000001,appl_Null,0
	120,000001,yyvline,0
	121,000001,stt_table,0
	122,000001,stt_unique_cnt,0
	123,000001,stt_reference_cnt,0
	124,000001,reverse_stt,0
	125,000001,errfile,0
	126,000001,infofile,0
	127,000001,reduce,0
	128,000001,progress,0
	129,000001,debug_file,0
	130,000001,stats,0
	131,000001,nodes,0
	132,000001,ccode_file,0
	133,000001,nodes_file,0
	134,000001,lists_created_file,0
	135,000001,cons_file,0
	136,000001,treefile,0
	137,000001,symfile,0
	138,000001,sym2file,0
	139,000001,nodes_created_file,0
	140,000001,nodes_created_trace_file,0
	141,000001,sym2_table,0
	142,000001,line_cnt,0
	143,000001,char_cnt,0
	144,000001,token_cnt,0
	145,000001,reserved_id_cnt,0
	146,000001,reserved_op_cnt,0
	147,000001,numeral_cnt,0
	148,000001,nodes_total_cnt,0
	149,000001,nodes_made_cnt,0
	150,000001,lists_total_cnt,0
	151,000001,lists_made_cnt,0
	152,000001,yyn_switches_cnt,0
	153,000001,yyn_compute_cnt,0
	154,000001,newstate_cnt,0
	155,000001,setstate_cnt,0
	156,000001,backup_cnt,0
	157,000001,default_cnt,0
	158,000001,reduce_cnt,0
	159,000001,errlab_cnt,0
	160,000001,errlab1_cnt,0
	161,000001,defined_id_cnt,0
	162,000001,defined_op_cnt,0
	163,000001,seperator_cnt,0
	164,000001,RIC_table,0
	165,000001,RIC_op_code_cnt,0
	166,000001,RIC_table_entry_cnt,0
	167,000001,comments_cnt,0
	168,000001,sing_quoted_cnt,0
	169,000001,dbl_quoted_cnt,0
	170,000001,infile,0
	171,000001,entry_name,0
	172,000001,yyinfnm,0
	173,000001,addposition,0
	174,000001,inline_cnvt,0
	175,000001,Ginline_cnvt,0
	176,000001,Vinline_cnvt,0
	177,000001,paramstop,0
	178,000001,denseqstop,0
	179,000001,condstop,0
	180,000001,declstop,0
	181,000001,stxtree,0
	182,000001,yystate,0
	183,000001,fn_count,0
	184,000001,scanstk,0
	185,000001,stktop,0
	186,000001,scansavc,0
	187,000001,yydescr,0
	188,000001,has_externs,0
	189,000001,argcnt_from_kind,0
	190,000001,parser_actions_cnt,0
	191,000001,curr_void_decl,0
	192,000001,curr_sig_transp,0
	193,000001,curr_tsig,0
	194,000001,err_node,0
	195,000001,in_sig,0
	196,000001,in_loop,0
	197,000001,linebuf,0
	198,000001,restab,0
	199,000001,cctab,0
	200,000001,tokenlgth,0
	201,000001,yynerrs,0
	202,000001,decl_num,0
	203,000001,decl_nums,0
	204,000001,Outer_arg,0
	205,000001,file_sigs,0
	206,000001,decl_num_in,0
	207,000001,sig_table,0
	208,000001,unique_node_id,0
	209,000001,objfilelist,0
	210,000001,Idtable,0
	211,000001,dump_tree_depth,0
	212,000001,next_pre,0
	213,000001,next_post,0
	214,000001,visited,0
	215,000001,Gfc_list,0
	216,000001,Glevel,0
	217,000001,Gcurrent,0
	218,000001,Goutfile,0
	219,000001,finished_accessible,0
	220,000001,all_fcs,0
	221,000001,all_fcs_tail,0
	222,000001,outer_fc,0
	223,000001,whole_program,0
	224,000001,currect_fcs,0
	225,000001,Vcurrent_func,0
	226,000001,Vcurrent_ar,0
	227,000001,Vstatic_level,0
	228,000001,Vnext_free,0
	229,000001,Vhigh_water,0
	230,000001,Vextent_limited,0
	231,000001,Vallocate_on_stack,0
	232,000001,Vcallcc,0
	233,000001,max_addr_regs,0
	234,000001,max_int_regs,0
	235,000001,n_addr_regs,0
	236,000001,n_int_regs,0
	237,000001,Vcurrent_blocks,0
	238,000001,found_non_vacuous,0
	239,000001,n_vacuous,0
	240,000001,avail_loc,0
	241,000001,compile_fcs,0
	242,000001,sl_available,0
	243,000001,stplinks,0
	244,000001,fld_table,0
	245,000001,surr_loop,0
	246,000001,callcc_call,0
	247,000001,catchsigs,0
	248,000001,Gspcl_to_inline,0
	249,000001,htable,0
	250,000001,NodeTypeName,0
	251,000005,special,2
	252,000005,mklist,1
	253,000005,emptylist,0
	254,000005,is_list,1
	255,000005,should_examine,1
	256,000005,is_empty,1
	257,000005,split,12
	258,000005,conc,2
	259,000005,addleft,2
	260,000005,addright,2
	261,000005,Node_dump,2
	262,000005,Node_dump_tree,1
	263,000005,Node_trace_node,1
	264,000011,Node__state,6
	265,000011,Node__methods,3
	266,000001,Node__oprec,0
	267,000005,Node,4
	268,000005,Nodeinitialize,0
	269,000005,ConsNode_dump,2
	270,000005,ConsNode_dump_tree,1
	271,000005,ConsNode_cons_dump,1
	272,000005,ConsNode_trace_node,1
	273,000005,ConsNode_initially,1
	274,000011,ConsNode__state,5
	275,000011,ConsNode__methods,5
	276,000001,ConsNode__oprec,0
	277,000005,ConsNode,3
	278,000005,ConsNodeinitialize,0
	279,000005,ListHeaderNode_trace_node,1
	280,000005,ListHeaderNode_dump,2
	281,000005,ListHeaderNode_dump_tree,1
	282,000005,ListHeaderNode_list_dump,1
	283,000005,ListHeaderNode_first,1
	284,000005,ListHeaderNode_last,1
	285,000005,ListHeaderNode_setfirst,2
	286,000005,ListHeaderNode_setlast,2
	287,000005,ListHeaderNode_conc,2
	288,000005,ListHeaderNode_length,1
	289,000005,ListHeaderNode_list_to_array,1
	290,000005,ListHeaderNode_initially,1
	291,000011,ListHeaderNode__state,11
	292,000011,ListHeaderNode__methods,15
	293,000001,ListHeaderNode__oprec,0
	294,000005,ListHeaderNode,9
	295,000005,ListHeaderNodeinitialize,0
	296,000005,DeclarationNode_trace_node,1
	297,000005,DeclarationNode_dump,2
	298,000005,DeclarationNode_dump_tree,1
	299,000005,DeclarationNode_initially,1
	300,000011,DeclarationNode__state,24
	301,000011,DeclarationNode__methods,7
	302,000001,DeclarationNode__oprec,0
	303,000005,DeclarationNode,22
	304,000005,DeclarationNodeinitialize,0
	305,000005,ParameterNode_trace_node,1
	306,000005,ParameterNode_dump,2
	307,000005,ParameterNode_dump_tree,1
	308,000005,ParameterNode_initially,1
	309,000011,ParameterNode__state,16
	310,000011,ParameterNode__methods,7
	311,000001,ParameterNode__oprec,0
	312,000005,ParameterNode,14
	313,000005,ParameterNodeinitialize,0
	314,000005,RElementNode_trace_node,1
	315,000005,RElementNode_dump,2
	316,000005,RElementNode_dump_tree,1
	317,000005,RElementNode_initially,1
	318,000011,RElementNode__state,14
	319,000011,RElementNode__methods,7
	320,000001,RElementNode__oprec,0
	321,000005,RElementNode,12
	322,000005,RElementNodeinitialize,0
	323,000005,VarSignature_trace_node,1
	324,000005,VarSignature_dump,2
	325,000005,VarSignature_dump_tree,1
	326,000005,VarSignature_initially,1
	327,000011,VarSignature__state,12
	328,000011,VarSignature__methods,7
	329,000001,VarSignature__oprec,0
	330,000005,VarSignature,10
	331,000005,VarSignatureinitialize,0
	332,000005,ValSignature_trace_node,1
	333,000005,ValSignature_dump,2
	334,000005,ValSignature_dump_tree,1
	335,000005,ValSignature_initially,1
	336,000011,ValSignature__state,12
	337,000011,ValSignature__methods,7
	338,000001,ValSignature__oprec,0
	339,000005,ValSignature,10
	340,000005,ValSignatureinitialize,0
	341,000005,FSignature_trace_node,1
	342,000005,FSignature_dump,2
	343,000005,FSignature_dump_tree,1
	344,000005,FSignature_initially,1
	345,000011,FSignature__state,18
	346,000011,FSignature__methods,7
	347,000001,FSignature__oprec,0
	348,000005,FSignature,16
	349,000005,FSignatureinitialize,0
	350,000005,TSignature_trace_node,1
	351,000005,TSignature_dump,2
	352,000005,TSignature_dump_tree,1
	353,000005,TSignature_initially,1
	354,000011,TSignature__state,20
	355,000011,TSignature__methods,7
	356,000001,TSignature__oprec,0
	357,000005,TSignature,18
	358,000005,TSignatureinitialize,0
	359,000005,TSComponentNode_trace_node,1
	360,000005,TSComponentNode_dump,2
	361,000005,TSComponentNode_dump_tree,1
	362,000005,TSComponentNode_initially,1
	363,000011,TSComponentNode__state,11
	364,000011,TSComponentNode__methods,7
	365,000001,TSComponentNode__oprec,0
	366,000005,TSComponentNode,9
	367,000005,TSComponentNodeinitialize,0
	368,000005,DefCharSigNode_trace_node,1
	369,000005,DefCharSigNode_dump,2
	370,000005,DefCharSigNode_dump_tree,1
	371,000005,DefCharSigNode_initially,1
	372,000011,DefCharSigNode__state,14
	373,000011,DefCharSigNode__methods,7
	374,000001,DefCharSigNode__oprec,0
	375,000005,DefCharSigNode,12
	376,000005,DefCharSigNodeinitialize,0
	377,000005,SignatureSigNode_trace_node,1
	378,000005,SignatureSigNode_dump,2
	379,000005,SignatureSigNode_dump_tree,1
	380,000005,SignatureSigNode_initially,1
	381,000011,SignatureSigNode__state,11
	382,000011,SignatureSigNode__methods,7
	383,000001,SignatureSigNode__oprec,0
	384,000005,SignatureSigNode,9
	385,000005,SignatureSigNodeinitialize,0
	386,000005,BlDenotationNode_trace_node,1
	387,000005,BlDenotationNode_dump,2
	388,000005,BlDenotationNode_dump_tree,1
	389,000005,BlDenotationNode_initially,1
	390,000011,BlDenotationNode__state,19
	391,000011,BlDenotationNode__methods,7
	392,000001,BlDenotationNode__oprec,0
	393,000005,BlDenotationNode,17
	394,000005,BlDenotationNodeinitialize,0
	395,000005,UseListNode_trace_node,1
	396,000005,UseListNode_dump,2
	397,000005,UseListNode_dump_tree,1
	398,000005,UseListNode_initially,1
	399,000011,UseListNode__state,15
	400,000011,UseListNode__methods,7
	401,000001,UseListNode__oprec,0
	402,000005,UseListNode,13
	403,000005,UseListNodeinitialize,0
	404,000005,ApplicationNode_trace_node,1
	405,000005,ApplicationNode_dump,2
	406,000005,ApplicationNode_dump_tree,1
	407,000005,ApplicationNode_initially,1
	408,000011,ApplicationNode__state,14
	409,000011,ApplicationNode__methods,7
	410,000001,ApplicationNode__oprec,0
	411,000005,ApplicationNode,12
	412,000005,ApplicationNodeinitialize,0
	413,000005,EnumerationNode_trace_node,1
	414,000005,EnumerationNode_dump,2
	415,000005,EnumerationNode_dump_tree,1
	416,000005,EnumerationNode_initially,1
	417,000011,EnumerationNode__state,12
	418,000011,EnumerationNode__methods,7
	419,000001,EnumerationNode__oprec,0
	420,000005,EnumerationNode,10
	421,000005,EnumerationNodeinitialize,0
	422,000005,ExtensionNode_trace_node,1
	423,000005,ExtensionNode_dump,2
	424,000005,ExtensionNode_dump_tree,1
	425,000005,ExtensionNode_initially,1
	426,000011,ExtensionNode__state,14
	427,000011,ExtensionNode__methods,7
	428,000001,ExtensionNode__oprec,0
	429,000005,ExtensionNode,12
	430,000005,ExtensionNodeinitialize,0
	431,000005,ProductNode_trace_node,1
	432,000005,ProductNode_dump,2
	433,000005,ProductNode_dump_tree,1
	434,000005,ProductNode_initially,1
	435,000011,ProductNode__state,14
	436,000011,ProductNode__methods,7
	437,000001,ProductNode__oprec,0
	438,000005,ProductNode,12
	439,000005,ProductNodeinitialize,0
	440,000005,RecordConstructionNode_trace_node,1
	441,000005,RecordConstructionNode_dump,2
	442,000005,RecordConstructionNode_dump_tree,1
	443,000005,RecordConstructionNode_initially,1
	444,000011,RecordConstructionNode__state,13
	445,000011,RecordConstructionNode__methods,7
	446,000001,RecordConstructionNode__oprec,0
	447,000005,RecordConstructionNode,11
	448,000005,RecordConstructionNodeinitialize,0
	449,000005,UnionConstructionNode_trace_node,1
	450,000005,UnionConstructionNode_dump,2
	451,000005,UnionConstructionNode_dump_tree,1
	452,000005,UnionConstructionNode_initially,1
	453,000011,UnionConstructionNode__state,14
	454,000011,UnionConstructionNode__methods,7
	455,000001,UnionConstructionNode__oprec,0
	456,000005,UnionConstructionNode,12
	457,000005,UnionConstructionNodeinitialize,0
	458,000005,WithListNode_trace_node,1
	459,000005,WithListNode_dump,2
	460,000005,WithListNode_dump_tree,1
	461,000005,WithListNode_initially,1
	462,000011,WithListNode__state,12
	463,000011,WithListNode__methods,7
	464,000001,WithListNode__oprec,0
	465,000005,WithListNode,10
	466,000005,WithListNodeinitialize,0
	467,000005,ModPrimaryNode_trace_node,1
	468,000005,ModPrimaryNode_dump,2
	469,000005,ModPrimaryNode_dump_tree,1
	470,000005,ModPrimaryNode_initially,1
	471,000011,ModPrimaryNode__state,19
	472,000011,ModPrimaryNode__methods,7
	473,000001,ModPrimaryNode__oprec,0
	474,000005,ModPrimaryNode,17
	475,000005,ModPrimaryNodeinitialize,0
	476,000005,ExportListNode_trace_node,1
	477,000005,ExportListNode_dump,2
	478,000005,ExportListNode_dump_tree,1
	479,000005,ExportListNode_initially,1
	480,000011,ExportListNode__state,12
	481,000011,ExportListNode__methods,7
	482,000001,ExportListNode__oprec,0
	483,000005,ExportListNode,10
	484,000005,ExportListNodeinitialize,0
	485,000005,HideListNode_trace_node,1
	486,000005,HideListNode_dump,2
	487,000005,HideListNode_dump_tree,1
	488,000005,HideListNode_initially,1
	489,000011,HideListNode__state,12
	490,000011,HideListNode__methods,7
	491,000001,HideListNode__oprec,0
	492,000005,HideListNode,10
	493,000005,HideListNodeinitialize,0
	494,000005,ExportElementNode_trace_node,1
	495,000005,ExportElementNode_dump,2
	496,000005,ExportElementNode_dump_tree,1
	497,000005,ExportElementNode_initially,1
	498,000011,ExportElementNode__state,12
	499,000011,ExportElementNode__methods,7
	500,000001,ExportElementNode__oprec,0
	501,000005,ExportElementNode,10
	502,000005,ExportElementNodeinitialize,0
	503,000005,AllConstantsNode_trace_node,1
	504,000005,AllConstantsNode_dump,2
	505,000005,AllConstantsNode_dump_tree,1
	506,000005,AllConstantsNode_initially,1
	507,000011,AllConstantsNode__state,9
	508,000011,AllConstantsNode__methods,7
	509,000001,AllConstantsNode__oprec,0
	510,000005,AllConstantsNode,7
	511,000005,AllConstantsNodeinitialize,0
	512,000005,WordElseNode_trace_node,1
	513,000005,WordElseNode_dump,2
	514,000005,WordElseNode_dump_tree,1
	515,000005,WordElseNode_initially,1
	516,000011,WordElseNode__state,11
	517,000011,WordElseNode__methods,7
	518,000001,WordElseNode__oprec,0
	519,000005,WordElseNode,9
	520,000005,WordElseNodeinitialize,0
	521,000005,WordCandNode_trace_node,1
	522,000005,WordCandNode_dump,1
	523,000005,WordCandNode_dump_tree,1
	524,000005,WordCandNode_initially,1
	525,000011,WordCandNode__state,9
	526,000011,WordCandNode__methods,7
	527,000001,WordCandNode__oprec,0
	528,000005,WordCandNode,7
	529,000005,WordCandNodeinitialize,0
	530,000005,WordCorNode_trace_node,1
	531,000005,WordCorNode_dump,2
	532,000005,WordCorNode_dump_tree,1
	533,000005,WordCorNode_initially,1
	534,000011,WordCorNode__state,9
	535,000011,WordCorNode__methods,7
	536,000001,WordCorNode__oprec,0
	537,000005,WordCorNode,7
	538,000005,WordCorNodeinitialize,0
	539,000005,GuardedListNode_trace_node,1
	540,000005,GuardedListNode_dump,2
	541,000005,GuardedListNode_dump_tree,1
	542,000005,GuardedListNode_initially,1
	543,000011,GuardedListNode__state,12
	544,000011,GuardedListNode__methods,7
	545,000001,GuardedListNode__oprec,0
	546,000005,GuardedListNode,10
	547,000005,GuardedListNodeinitialize,0
	548,000005,LoopDenotationNode_trace_node,1
	549,000005,LoopDenotationNode_dump,2
	550,000005,LoopDenotationNode_dump_tree,1
	551,000005,LoopDenotationNode_initially,1
	552,000011,LoopDenotationNode__state,12
	553,000011,LoopDenotationNode__methods,7
	554,000001,LoopDenotationNode__oprec,0
	555,000005,LoopDenotationNode,10
	556,000005,LoopDenotationNodeinitialize,0
	557,000005,GuardedElementNode_trace_node,1
	558,000005,GuardedElementNode_dump,2
	559,000005,GuardedElementNode_dump_tree,1
	560,000005,GuardedElementNode_initially,1
	561,000011,GuardedElementNode__state,11
	562,000011,GuardedElementNode__methods,7
	563,000001,GuardedElementNode__oprec,0
	564,000005,GuardedElementNode,9
	565,000005,GuardedElementNodeinitialize,0
	566,000005,OpridNode_trace_node,1
	567,000005,OpridNode_dump,2
	568,000005,OpridNode_dump_tree,1
	569,000005,OpridNode_initially,1
	570,000011,OpridNode__state,19
	571,000011,OpridNode__methods,7
	572,000001,OpridNode__oprec,0
	573,000005,OpridNode,17
	574,000005,OpridNodeinitialize,0
	575,000005,LetterId_trace_node,1
	576,000005,LetterId_dump,2
	577,000005,LetterId_dump_tree,1
	578,000005,LetterId_initially,1
	579,000011,LetterId__state,19
	580,000011,LetterId__methods,7
	581,000001,LetterId__oprec,0
	582,000005,LetterId,17
	583,000005,LetterIdinitialize,0
	584,000005,QStrNode_trace_node,1
	585,000005,QStrNode_dump,2
	586,000005,QStrNode_dump_tree,1
	587,000005,QStrNode_initially,1
	588,000011,QStrNode__state,15
	589,000011,QStrNode__methods,7
	590,000001,QStrNode__oprec,0
	591,000005,QStrNode,13
	592,000005,QStrNodeinitialize,0
	593,000005,UQStrNode_trace_node,1
	594,000005,UQStrNode_dump,2
	595,000005,UQStrNode_dump_tree,1
	596,000005,UQStrNode_initially,1
	597,000011,UQStrNode__state,15
	598,000011,UQStrNode__methods,7
	599,000001,UQStrNode__oprec,0
	600,000005,UQStrNode,13
	601,000005,UQStrNodeinitialize,0
	602,000005,FConstruction_trace_node,1
	603,000005,FConstruction_dump,2
	604,000005,FConstruction_dump_tree,1
	605,000005,FConstruction_initially,1
	606,000011,FConstruction__state,19
	607,000011,FConstruction__methods,7
	608,000001,FConstruction__oprec,0
	609,000005,FConstruction,17
	610,000005,FConstructioninitialize,0
	611,000005,FreeVarNode_trace_node,1
	612,000005,FreeVarNode_dump,2
	613,000005,FreeVarNode_dump_tree,1
	614,000005,FreeVarNode_initially,1
	615,000011,FreeVarNode__state,13
	616,000011,FreeVarNode__methods,7
	617,000001,FreeVarNode__oprec,0
	618,000005,FreeVarNode,11
	619,000005,FreeVarNodeinitialize,0
	620,000005,ExternDefNode_trace_node,1
	621,000005,ExternDefNode_dump,2
	622,000005,ExternDefNode_dump_tree,1
	623,000005,ExternDefNode_initially,1
	624,000011,ExternDefNode__state,10
	625,000011,ExternDefNode__methods,7
	626,000001,ExternDefNode__oprec,0
	627,000005,ExternDefNode,8
	628,000005,ExternDefNodeinitialize,0
	629,000005,RExternDef_trace_node,1
	630,000005,RExternDef_dump,2
	631,000005,RExternDef_dump_tree,1
	632,000005,RExternDef_initially,1
	633,000011,RExternDef__state,12
	634,000011,RExternDef__methods,7
	635,000001,RExternDef__oprec,0
	636,000005,RExternDef,10
	637,000005,RExternDefinitialize,0
	638,000005,DcsException_trace_node,1
	639,000005,DcsException_dump,2
	640,000005,DcsException_dump_tree,1
	641,000011,DcsException__state,13
	642,000011,DcsException__methods,7
	643,000001,DcsException__oprec,0
	644,000005,DcsException,11
	645,000005,DcsExceptioninitialize,0
	646,000005,dump_info,1
	647,000005,proc_dump_tree,3

proc special
	local	0,001000,tp
	local	1,001000,val
	local	2,000000,ior
	local	3,000000,ishift
	con	0,002000,2,26
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	57
	colm	12
	synt	any
	mark	L1
	mark	L2
	var	2
	var	3
	var	0
	int	0
	line	58
	colm	22
	synt	any
	invoke	2
	var	1
	line	58
	colm	15
	synt	any
	invoke	2
	line	58
	colm	5
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	59
	colm	1
	synt	any
	pfail
	end
proc mklist
	local	0,001000,va_alist
	local	1,000020,i
	local	2,000020,p
	local	3,000020,l
	local	4,000000,yyinfo
	local	5,000000,nodeinfo
	local	6,000000,listinfo
	local	7,000000,consinfo
	local	8,000000,lists_total_cnt
	local	9,000000,lists_made_cnt
	local	10,000000,emptylist
	local	11,000000,dump_info
	local	12,000000,addright
	local	13,000000,trace_note
	con	0,010000,15,155,153,154,151,163,164,040,166,141,137,141,154,151,163,164
	con	1,002000,1,1
	con	2,010000,16,155,153,154,151,163,164,040,164,171,160,145,040,160,040,075,040
	con	3,010000,29,155,153,154,151,163,164,040,154,040,142,145,146,157,162,145,040,141,144,144,162,151,147,150,164,050,154,054,160,051
	con	4,010000,5,154,040,156,151,154
	con	5,010000,29,155,153,154,151,163,164,040,160,040,142,145,146,157,162,145,040,141,144,144,162,151,147,150,164,050,154,054,160,051
	con	6,010000,12,155,153,154,151,163,164,040,160,040,156,151,154
	con	7,010000,28,155,153,154,151,163,164,040,154,040,141,146,164,145,162,040,141,144,144,162,151,147,150,164,050,154,054,160,051
	con	8,010000,12,155,153,154,151,163,164,040,154,040,156,151,154
	con	9,010000,11,155,153,154,151,163,164,040,144,157,156,145
	con	10,010000,6,155,153,154,151,163,164
	declend
	line	61
	colm	12
	synt	any
	mark	L1
	var	4
	str	0
	line	63
	colm	11
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	var	5
	str	0
	line	64
	colm	13
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	6
	str	0
	line	65
	colm	13
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	7
	str	0
	line	66
	colm	13
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	pnull
	var	8
	dup
	int	1
	line	69
	colm	21
	synt	any
	plus
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	9
	dup
	int	1
	line	70
	colm	20
	synt	any
	plus
	asgn
	unmark
lab L6
	mark	L7
	pnull
	var	3
	var	10
	line	71
	colm	19
	synt	any
	invoke	0
	line	71
	colm	7
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	line	73
	colm	5
	synt	every
	mark0
	pnull
	var	2
	pnull
	var	0
	line	73
	colm	17
	synt	any
	bang
	line	73
	colm	14
	synt	any
	asgn
	pop
	mark0
	mark	L11
	var	5
	pnull
	str	2
	var	11
	var	2
	line	74
	colm	49
	synt	any
	invoke	1
	line	74
	colm	37
	synt	any
	cat
	line	74
	colm	17
	synt	any
	invoke	1
	unmark
lab L11
	mark	L12
	var	4
	pnull
	str	2
	var	11
	var	2
	line	75
	colm	47
	synt	any
	invoke	1
	line	75
	colm	35
	synt	any
	cat
	line	75
	colm	15
	synt	any
	invoke	1
	unmark
lab L12
	mark	L13
	line	76
	colm	9
	synt	if
	mark0
	pnull
	var	2
	line	76
	colm	12
	synt	any
	nonnull
	unmark
	pnull
	line	76
	colm	9
	synt	endif
	unmark
lab L13
	mark	L14
	var	7
	str	3
	line	79
	colm	17
	synt	any
	invoke	1
	unmark
lab L14
	mark	L15
	line	80
	colm	9
	synt	ifelse
	mark	L16
	pnull
	var	3
	line	80
	colm	12
	synt	any
	nonnull
	unmark
	pnull
	var	3
	line	81
	colm	14
	synt	any
	field	cons_dump
	line	81
	colm	24
	synt	any
	invoke	0
	goto	L17
lab L16
	var	7
	str	4
	line	83
	colm	21
	synt	any
	invoke	1
lab L17
	line	80
	colm	9
	synt	endifelse
	unmark
lab L15
	mark	L18
	var	7
	str	5
	line	84
	colm	17
	synt	any
	invoke	1
	unmark
lab L18
	mark	L19
	line	85
	colm	9
	synt	ifelse
	mark	L20
	pnull
	var	2
	line	85
	colm	12
	synt	any
	nonnull
	unmark
	pnull
	var	2
	line	86
	colm	14
	synt	any
	field	cons_dump
	line	86
	colm	24
	synt	any
	invoke	0
	goto	L21
lab L20
	var	7
	str	6
	line	88
	colm	21
	synt	any
	invoke	1
lab L21
	line	85
	colm	9
	synt	endifelse
	unmark
lab L19
	mark	L22
	pnull
	var	3
	var	12
	var	3
	var	2
	line	89
	colm	22
	synt	any
	invoke	2
	line	89
	colm	11
	synt	any
	asgn
	unmark
lab L22
	mark	L23
	var	7
	str	7
	line	90
	colm	17
	synt	any
	invoke	1
	unmark
lab L23
	line	91
	colm	9
	synt	ifelse
	mark	L24
	pnull
	var	3
	line	91
	colm	12
	synt	any
	nonnull
	unmark
	pnull
	var	3
	line	92
	colm	14
	synt	any
	field	cons_dump
	line	92
	colm	24
	synt	any
	invoke	0
	goto	L25
lab L24
	var	7
	str	8
	line	94
	colm	21
	synt	any
	invoke	1
lab L25
	line	91
	colm	9
	synt	endifelse
	unmark
lab L9
	efail
lab L10
	line	73
	colm	5
	synt	endevery
	unmark
lab L8
	mark	L26
	var	7
	str	9
	line	96
	colm	13
	synt	any
	invoke	1
	unmark
lab L26
	mark	L27
	line	97
	colm	9
	synt	ifelse
	mark	L28
	pnull
	var	3
	line	97
	colm	12
	synt	any
	nonnull
	unmark
	pnull
	var	3
	line	98
	colm	14
	synt	any
	field	cons_dump
	line	98
	colm	24
	synt	any
	invoke	0
	goto	L29
lab L28
	var	7
	str	4
	line	100
	colm	21
	synt	any
	invoke	1
lab L29
	line	97
	colm	9
	synt	endifelse
	unmark
lab L27
	mark	L30
	var	13
	str	10
	line	101
	colm	15
	synt	any
	invoke	1
	unmark
lab L30
	mark	L31
	pnull
	var	3
	line	102
	colm	6
	synt	any
	field	trace_node
	line	102
	colm	17
	synt	any
	invoke	0
	unmark
lab L31
	mark	L32
	mark	L33
	var	3
	line	103
	colm	5
	synt	any
	pret
lab L33
	synt	any
	pfail
	unmark
lab L32
	pnull
	line	104
	colm	2
	synt	any
	pfail
	end
proc emptylist
	local	0,000020,ret
	local	1,000000,nodeinfo
	local	2,000000,listinfo
	local	3,000000,mknode
	local	4,000000,nil
	local	5,000000,trace_note
	con	0,010000,18,103,162,145,141,164,151,156,147,040,145,155,160,164,171,154,151,163,164
	con	1,002000,1,0
	con	2,010000,9,145,155,160,164,171,154,151,163,164
	declend
	line	105
	colm	12
	synt	any
	mark	L1
	var	1
	str	0
	line	107
	colm	13
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	var	2
	str	0
	line	108
	colm	13
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	var	0
	var	3
	pnull
	int	1
	var	4
	var	4
	line	110
	colm	19
	synt	any
	llist	3
	line	110
	colm	18
	synt	any
	invoke	1
	line	110
	colm	9
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	var	5
	str	2
	line	111
	colm	15
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	pnull
	var	0
	line	112
	colm	8
	synt	any
	field	trace_node
	line	112
	colm	19
	synt	any
	invoke	0
	unmark
lab L5
	mark	L6
	mark	L7
	var	0
	line	114
	colm	5
	synt	any
	pret
lab L7
	synt	any
	pfail
	unmark
lab L6
	pnull
	line	115
	colm	2
	synt	any
	pfail
	end
proc is_list
	local	0,001000,l_orig
	local	1,000020,l
	local	2,000000,fix_p
	con	0,002000,1,0
	con	1,002000,1,1
	declend
	line	126
	colm	12
	synt	any
	mark	L1
	line	128
	colm	5
	synt	if
	mark0
	pnull
	var	0
	line	128
	colm	8
	synt	any
	null
	unmark
	line	128
	colm	21
	synt	any
	pfail
	line	128
	colm	5
	synt	endif
	unmark
lab L1
	mark	L2
	pnull
	var	1
	var	2
	var	0
	line	129
	colm	15
	synt	any
	invoke	1
	line	129
	colm	7
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	130
	colm	5
	synt	if
	mark0
	pnull
	var	1
	line	130
	colm	9
	synt	any
	null
	unmark
	line	130
	colm	18
	synt	any
	pfail
	line	130
	colm	5
	synt	endif
	unmark
lab L3
	mark	L4
	line	131
	colm	5
	synt	ifelse
	mark	L5
	pnull
	pnull
	var	1
	line	131
	colm	10
	synt	any
	field	kind
	int	0
	line	131
	colm	16
	synt	any
	numeq
	unmark
	mark	L7
	int	1
	line	132
	colm	10
	synt	any
	pret
lab L7
	synt	any
	pfail
	goto	L6
lab L5
	line	133
	colm	10
	synt	any
	pfail
lab L6
	line	131
	colm	5
	synt	endifelse
	unmark
lab L4
	pnull
	line	134
	colm	2
	synt	any
	pfail
	end
proc should_examine
	local	0,001000,fld
	local	1,000000,fld_table
	con	0,002000,1,1
	declend
	line	136
	colm	12
	synt	any
	mark	L1
	line	137
	colm	5
	synt	ifelse
	mark	L2
	pnull
	pnull
	var	1
	var	0
	line	137
	colm	17
	synt	any
	subsc
	int	0
	line	137
	colm	23
	synt	any
	numeq
	unmark
	mark	L4
	int	0
	line	138
	colm	10
	synt	any
	pret
lab L4
	synt	any
	pfail
	goto	L3
lab L2
	line	139
	colm	10
	synt	any
	pfail
lab L3
	line	137
	colm	5
	synt	endifelse
	unmark
lab L1
	pnull
	line	140
	colm	2
	synt	any
	pfail
	end
proc is_empty
	local	0,001000,l
	local	1,000000,is_list
	local	2,000000,nodeinfo
	local	3,000000,listinfo
	con	0,010000,27,151,163,040,145,155,160,164,171,040,040,156,157,164,040,141,040,154,151,163,164,040,055,040,124,122,125,105
	con	1,010000,26,151,163,040,145,155,160,164,171,040,156,157,164,040,141,040,154,151,163,164,040,055,040,124,122,125,105
	con	2,002000,1,1
	con	3,010000,13,151,163,040,145,155,160,164,171,040,124,122,125,105
	con	4,010000,24,151,163,040,145,155,160,164,171,040,154,056,154,150,137,146,151,162,163,164,040,124,122,125,105
	con	5,010000,25,151,163,040,145,155,160,164,171,040,154,150,137,146,151,162,163,164,040,055,040,106,101,114,123,105
	declend
	line	145
	colm	12
	synt	any
	mark	L1
	line	146
	colm	5
	synt	if
	mark0
	mark	L2
	var	1
	var	0
	line	146
	colm	19
	synt	any
	invoke	1
	unmark
	efail
lab L2
	pnull
	unmark
	mark	L3
	var	2
	str	0
	line	147
	colm	17
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	3
	str	1
	line	148
	colm	17
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	int	2
	line	149
	colm	9
	synt	any
	pret
lab L5
	synt	any
	pfail
	line	146
	colm	5
	synt	endif
	unmark
lab L1
	mark	L6
	line	151
	colm	5
	synt	if
	mark0
	pnull
	var	0
	line	151
	colm	8
	synt	any
	null
	unmark
	mark	L7
	var	2
	str	3
	line	152
	colm	17
	synt	any
	invoke	1
	unmark
lab L7
	mark	L8
	var	3
	str	3
	line	153
	colm	17
	synt	any
	invoke	1
	unmark
lab L8
	mark	L9
	int	2
	line	154
	colm	9
	synt	any
	pret
lab L9
	synt	any
	pfail
	line	151
	colm	5
	synt	endif
	unmark
lab L6
	mark	L10
	line	156
	colm	5
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	156
	colm	10
	synt	any
	field	lh_first
	line	156
	colm	8
	synt	any
	null
	unmark
	mark	L11
	var	2
	str	4
	line	157
	colm	17
	synt	any
	invoke	1
	unmark
lab L11
	mark	L12
	var	3
	str	4
	line	158
	colm	17
	synt	any
	invoke	1
	unmark
lab L12
	mark	L13
	int	2
	line	159
	colm	9
	synt	any
	pret
lab L13
	synt	any
	pfail
	line	156
	colm	5
	synt	endif
	unmark
lab L10
	mark	L14
	var	2
	str	5
	line	161
	colm	13
	synt	any
	invoke	1
	unmark
lab L14
	mark	L15
	var	3
	str	5
	line	162
	colm	13
	synt	any
	invoke	1
	unmark
lab L15
	mark	L16
	line	163
	colm	5
	synt	any
	pfail
	unmark
lab L16
	pnull
	line	164
	colm	2
	synt	any
	pfail
	end
proc split
	local	0,001000,kindno
	local	1,001000,id_list
	local	2,001000,arg1
	local	3,001000,arg2
	local	4,001000,arg3
	local	5,001000,arg4
	local	6,001000,arg5
	local	7,001000,arg6
	local	8,001000,arg7
	local	9,001000,arg8
	local	10,001000,arg9
	local	11,001000,arg10
	local	12,000020,vrtx
	local	13,000020,result
	local	14,000020,p
	local	15,000020,ptr
	local	16,000000,emptylist
	local	17,000000,trace_node
	local	18,000000,listinfo
	local	19,000000,nodeinfo
	local	20,000000,yyinfo
	local	21,000000,argcnt_from_kind
	local	22,000000,mknode
	local	23,000000,rpt_err
	local	24,000000,addright
	con	0,010000,5,163,160,154,151,164
	con	1,010000,8,111,116,040,123,120,114,111,124
	con	2,010000,23,154,151,163,164,157,160,163,040,163,160,154,151,164,040,153,151,156,144,156,157,040,075,040
	con	3,002000,1,1
	con	4,002000,1,0
	con	5,002000,1,2
	con	6,002000,1,3
	con	7,002000,1,4
	con	8,002000,1,5
	con	9,002000,1,6
	con	10,002000,1,7
	con	11,002000,1,8
	con	12,002000,1,9
	con	13,002000,2,10
	con	14,002000,2,11
	con	15,010000,30,163,160,154,151,164,072,040,142,141,144,040,156,157,144,145,040,163,151,172,145,072,040,153,151,156,144,040,075,040,040
	con	16,010000,5,123,160,154,151,164
	declend
	line	166
	colm	12
	synt	any
	mark	L1
	pnull
	var	13
	var	16
	line	170
	colm	28
	synt	any
	invoke	0
	line	170
	colm	16
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	var	17
	str	0
	line	171
	colm	15
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	18
	str	1
	line	172
	colm	13
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	19
	str	1
	line	173
	colm	13
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	pnull
	var	15
	pnull
	var	1
	line	174
	colm	19
	synt	any
	field	cn_hd_field
	line	174
	colm	9
	synt	any
	asgn
	unmark
lab L5
	mark	L6
lab L7
	line	175
	colm	5
	synt	while
	mark0
	pnull
	var	15
	line	175
	colm	11
	synt	any
	nonnull
	unmark
	mark	L7
	mark	L10
	pnull
	var	14
	pnull
	var	15
	line	176
	colm	18
	synt	any
	field	cn_hd_field
	line	176
	colm	11
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	mark	L12
	var	20
	pnull
	str	2
	var	0
	line	178
	colm	46
	synt	any
	cat
	line	178
	colm	19
	synt	any
	invoke	1
	unmark
lab L12
	mark	L13
	line	179
	colm	13
	synt	case
	mark0
	pnull
	var	21
	pnull
	var	0
	int	3
	line	179
	colm	44
	synt	any
	plus
	line	179
	colm	36
	synt	any
	subsc
	eret
	mark	L15
	ccase
	int	4
	line	180
	colm	18
	synt	any
	eqv
	unmark
	pop
	pnull
	var	12
	var	22
	pnull
	var	0
	line	180
	colm	35
	synt	any
	llist	1
	line	180
	colm	34
	synt	any
	invoke	1
	line	180
	colm	25
	synt	any
	asgn
	goto	L14
lab L15
	mark	L16
	ccase
	int	3
	line	181
	colm	18
	synt	any
	eqv
	unmark
	pop
	pnull
	var	12
	var	22
	pnull
	var	0
	var	14
	line	181
	colm	35
	synt	any
	llist	2
	line	181
	colm	34
	synt	any
	invoke	1
	line	181
	colm	25
	synt	any
	asgn
	goto	L14
lab L16
	mark	L17
	ccase
	int	5
	line	182
	colm	18
	synt	any
	eqv
	unmark
	pop
	pnull
	var	12
	var	22
	pnull
	var	0
	var	14
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	line	182
	colm	35
	synt	any
	llist	9
	line	182
	colm	34
	synt	any
	invoke	1
	line	182
	colm	25
	synt	any
	asgn
	goto	L14
lab L17
	mark	L18
	ccase
	int	6
	line	183
	colm	18
	synt	any
	eqv
	unmark
	pop
	pnull
	var	12
	var	22
	pnull
	var	0
	var	14
	var	2
	var	3
	line	183
	colm	35
	synt	any
	llist	4
	line	183
	colm	34
	synt	any
	invoke	1
	line	183
	colm	25
	synt	any
	asgn
	goto	L14
lab L18
	mark	L19
	ccase
	int	7
	line	184
	colm	18
	synt	any
	eqv
	unmark
	pop
	pnull
	var	12
	var	22
	pnull
	var	0
	var	14
	var	2
	var	3
	var	4
	line	184
	colm	35
	synt	any
	llist	5
	line	184
	colm	34
	synt	any
	invoke	1
	line	184
	colm	25
	synt	any
	asgn
	goto	L14
lab L19
	mark	L20
	ccase
	int	8
	line	185
	colm	18
	synt	any
	eqv
	unmark
	pop
	pnull
	var	12
	var	22
	pnull
	var	0
	var	14
	var	2
	var	3
	var	4
	line	185
	colm	35
	synt	any
	llist	5
	line	185
	colm	34
	synt	any
	invoke	1
	line	185
	colm	25
	synt	any
	asgn
	goto	L14
lab L20
	mark	L21
	ccase
	int	9
	line	186
	colm	18
	synt	any
	eqv
	unmark
	pop
	pnull
	var	12
	var	22
	pnull
	var	0
	var	14
	var	2
	var	3
	var	4
	var	5
	var	6
	line	186
	colm	35
	synt	any
	llist	7
	line	186
	colm	34
	synt	any
	invoke	1
	line	186
	colm	25
	synt	any
	asgn
	goto	L14
lab L21
	mark	L22
	ccase
	int	10
	line	187
	colm	18
	synt	any
	eqv
	unmark
	pop
	pnull
	var	12
	var	22
	pnull
	var	0
	var	14
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	line	187
	colm	35
	synt	any
	llist	8
	line	187
	colm	34
	synt	any
	invoke	1
	line	187
	colm	25
	synt	any
	asgn
	goto	L14
lab L22
	mark	L23
	ccase
	int	11
	line	188
	colm	18
	synt	any
	eqv
	unmark
	pop
	pnull
	var	12
	var	22
	pnull
	var	0
	var	14
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	line	188
	colm	35
	synt	any
	llist	9
	line	188
	colm	34
	synt	any
	invoke	1
	line	188
	colm	25
	synt	any
	asgn
	goto	L14
lab L23
	mark	L24
	ccase
	int	12
	line	189
	colm	18
	synt	any
	eqv
	unmark
	pop
	pnull
	var	12
	var	22
	pnull
	var	0
	var	14
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	pnull
	var	8
	line	189
	colm	87
	synt	any
	field	arg8
	line	189
	colm	35
	synt	any
	llist	9
	line	189
	colm	34
	synt	any
	invoke	1
	line	189
	colm	25
	synt	any
	asgn
	goto	L14
lab L24
	mark	L25
	ccase
	int	13
	line	190
	colm	19
	synt	any
	eqv
	unmark
	pop
	pnull
	var	12
	var	22
	pnull
	var	0
	var	14
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	line	190
	colm	36
	synt	any
	llist	11
	line	190
	colm	35
	synt	any
	invoke	1
	line	190
	colm	26
	synt	any
	asgn
	goto	L14
lab L25
	mark	L26
	ccase
	int	14
	line	191
	colm	19
	synt	any
	eqv
	unmark
	pop
	pnull
	var	12
	var	22
	pnull
	var	0
	var	14
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	8
	var	10
	var	11
	line	191
	colm	36
	synt	any
	llist	12
	line	191
	colm	35
	synt	any
	invoke	1
	line	191
	colm	26
	synt	any
	asgn
	goto	L14
lab L26
	pop
	var	23
	pnull
	str	15
	var	0
	line	192
	colm	67
	synt	any
	cat
	line	192
	colm	33
	synt	any
	invoke	1
lab L14
	line	179
	colm	13
	synt	endcase
	unmark
lab L13
	pnull
	var	13
	var	24
	var	13
	var	12
	line	194
	colm	31
	synt	any
	invoke	2
	line	194
	colm	20
	synt	any
	asgn
	unmark
lab L11
	pnull
	var	15
	pnull
	var	14
	line	197
	colm	17
	synt	any
	field	cn_tl_field
	line	197
	colm	13
	synt	any
	asgn
lab L8
	unmark
	goto	L7
lab L9
	line	175
	colm	5
	synt	endwhile
	unmark
lab L6
	mark	L27
	var	19
	str	16
	line	200
	colm	13
	synt	any
	invoke	1
	unmark
lab L27
	mark	L28
	mark	L29
	var	13
	line	202
	colm	5
	synt	any
	pret
lab L29
	synt	any
	pfail
	unmark
lab L28
	pnull
	line	203
	colm	1
	synt	any
	pfail
	end
proc conc
	local	0,001000,l1
	local	1,001000,l2
	local	2,000000,is_empty
	local	3,000000,vfree
	local	4,000000,nil
	declend
	line	204
	colm	12
	synt	any
	mark	L1
	line	205
	colm	5
	synt	if
	mark0
	var	2
	var	0
	line	205
	colm	18
	synt	any
	invoke	1
	unmark
	mark	L2
	var	3
	var	0
	line	207
	colm	18
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	line	208
	colm	13
	synt	any
	pret
lab L3
	synt	any
	pfail
	line	205
	colm	5
	synt	endif
	unmark
lab L1
	mark	L4
	line	210
	colm	5
	synt	if
	mark0
	mark	L5
	var	2
	var	1
	line	210
	colm	22
	synt	any
	invoke	1
	unmark
	efail
lab L5
	pnull
	unmark
	mark	L6
	pnull
	pnull
	pnull
	var	0
	line	212
	colm	15
	synt	any
	field	lh_last
	line	212
	colm	23
	synt	any
	field	cn_tl_field
	pnull
	var	1
	line	212
	colm	41
	synt	any
	field	lh_first
	line	212
	colm	36
	synt	any
	asgn
	unmark
lab L6
	pnull
	pnull
	var	0
	line	213
	colm	15
	synt	any
	field	lh_last
	pnull
	var	1
	line	213
	colm	29
	synt	any
	field	lh_last
	line	213
	colm	24
	synt	any
	asgn
	line	210
	colm	5
	synt	endif
	unmark
lab L4
	mark	L7
	pnull
	pnull
	var	1
	line	217
	colm	12
	synt	any
	field	lh_last
	pnull
	pnull
	var	1
	line	217
	colm	27
	synt	any
	field	lh_first
	var	4
	line	217
	colm	37
	synt	any
	asgn
	line	217
	colm	21
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	var	3
	var	1
	line	218
	colm	10
	synt	any
	invoke	1
	unmark
lab L8
	mark	L9
	mark	L10
	var	0
	line	219
	colm	5
	synt	any
	pret
lab L10
	synt	any
	pfail
	unmark
lab L9
	pnull
	line	220
	colm	1
	synt	any
	pfail
	end
proc addleft
	local	0,001000,l
	local	1,001000,e
	local	2,000020,p
	local	3,000000,listinfo
	local	4,000000,dump_info
	local	5,000000,nodeinfo
	local	6,000000,is_empty
	local	7,000000,ConsNode
	local	8,000000,lock
	local	9,000000,nil
	local	10,000000,consinfo
	con	0,010000,23,141,144,144,154,145,146,164,040,144,165,155,160,137,151,156,146,157,050,145,051,040,075,040
	con	1,010000,14,141,144,144,154,145,146,164,040,162,145,164,165,162,156
	declend
	line	225
	colm	12
	synt	any
	mark	L1
	var	3
	pnull
	str	0
	var	4
	var	1
	line	227
	colm	52
	synt	any
	invoke	1
	line	227
	colm	40
	synt	any
	cat
	line	227
	colm	13
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	var	5
	pnull
	str	0
	var	4
	var	1
	line	228
	colm	52
	synt	any
	invoke	1
	line	228
	colm	40
	synt	any
	cat
	line	228
	colm	13
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	line	230
	colm	5
	synt	if
	mark0
	pnull
	var	1
	line	230
	colm	10
	synt	any
	null
	unmark
	mark	L4
	var	0
	line	230
	colm	20
	synt	any
	pret
lab L4
	synt	any
	pfail
	line	230
	colm	5
	synt	endif
	unmark
lab L3
	mark	L5
	line	232
	colm	5
	synt	ifelse
	mark	L6
	var	6
	var	0
	line	232
	colm	17
	synt	any
	invoke	1
	unmark
	mark	L8
	pnull
	var	2
	var	7
	var	8
	var	1
	line	233
	colm	27
	synt	any
	invoke	1
	var	9
	line	233
	colm	22
	synt	any
	invoke	2
	line	233
	colm	11
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	0
	line	234
	colm	10
	synt	any
	field	lh_first
	var	2
	line	234
	colm	20
	synt	any
	asgn
	unmark
lab L9
	pnull
	pnull
	var	0
	line	235
	colm	10
	synt	any
	field	lh_last
	var	2
	line	235
	colm	19
	synt	any
	asgn
	goto	L7
lab L6
	pnull
	pnull
	var	0
	line	237
	colm	10
	synt	any
	field	lh_first
	var	7
	var	8
	var	1
	line	237
	colm	36
	synt	any
	invoke	1
	pnull
	var	0
	line	237
	colm	41
	synt	any
	field	lh_first
	line	237
	colm	31
	synt	any
	invoke	2
	line	237
	colm	20
	synt	any
	asgn
lab L7
	line	232
	colm	5
	synt	endifelse
	unmark
lab L5
	mark	L10
	var	10
	str	1
	line	239
	colm	13
	synt	any
	invoke	1
	unmark
lab L10
	mark	L11
	pnull
	var	0
	line	240
	colm	6
	synt	any
	field	cons_dump
	line	240
	colm	16
	synt	any
	invoke	0
	unmark
lab L11
	mark	L12
	mark	L13
	var	0
	line	241
	colm	5
	synt	any
	pret
lab L13
	synt	any
	pfail
	unmark
lab L12
	pnull
	line	242
	colm	2
	synt	any
	pfail
	end
proc addright
	local	0,001000,l
	local	1,001000,e
	local	2,000020,p
	local	3,000000,listinfo
	local	4,000000,dump_info
	local	5,000000,nodeinfo
	local	6,000000,ConsNode
	local	7,000000,lock
	local	8,000000,nil
	local	9,000000,is_empty
	local	10,000000,consinfo
	con	0,010000,24,141,144,144,162,151,147,150,164,040,144,165,155,160,137,151,156,146,157,050,145,051,040,075,040
	con	1,010000,29,141,144,144,162,151,147,150,164,040,061,040,162,145,164,165,162,156,040,154,040,164,171,160,145,040,154,040,075,040
	con	2,010000,15,141,144,144,162,151,147,150,164,040,062,040,160,040,075,040
	con	3,010000,20,141,144,144,162,151,147,150,164,040,063,040,154,040,075,040,145,155,160,164,171
	con	4,010000,60,141,144,144,162,151,147,150,164,040,055,040,151,156,040,156,145,170,164,040,156,157,144,145,040,154,150,040,146,151,162,163,164,040,046,040,154,141,163,164,040,163,150,157,165,154,144,040,145,161,165,141,154,040,160,040,141,142,157,166,145
	con	5,010000,64,141,144,144,162,151,147,150,164,040,055,040,151,156,040,156,145,170,164,040,156,157,144,145,040,154,150,040,154,141,163,164,056,143,156,137,164,154,137,146,151,145,154,144,040,163,150,157,165,154,144,040,145,161,165,141,154,040,160,040,141,142,157,166,145
	con	6,010000,52,141,144,144,162,151,147,150,164,040,055,040,151,156,040,156,145,170,164,040,156,157,144,145,040,154,150,040,154,141,163,164,040,163,150,157,165,154,144,040,145,161,165,141,154,040,160,040,141,142,157,166,145
	con	7,010000,15,141,144,144,162,151,147,150,164,040,162,145,164,165,162,156
	declend
	line	248
	colm	12
	synt	any
	mark	L1
	var	3
	pnull
	str	0
	var	4
	var	1
	line	250
	colm	53
	synt	any
	invoke	1
	line	250
	colm	41
	synt	any
	cat
	line	250
	colm	13
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	var	5
	pnull
	str	0
	var	4
	var	1
	line	251
	colm	53
	synt	any
	invoke	1
	line	251
	colm	41
	synt	any
	cat
	line	251
	colm	13
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	line	252
	colm	5
	synt	if
	mark0
	pnull
	var	1
	line	252
	colm	9
	synt	any
	null
	unmark
	mark	L4
	var	5
	pnull
	str	1
	var	4
	var	0
	line	253
	colm	62
	synt	any
	invoke	1
	line	253
	colm	50
	synt	any
	cat
	line	253
	colm	17
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	var	3
	pnull
	str	1
	var	4
	var	0
	line	254
	colm	62
	synt	any
	invoke	1
	line	254
	colm	50
	synt	any
	cat
	line	254
	colm	17
	synt	any
	invoke	1
	unmark
lab L5
	mark	L6
	var	0
	line	255
	colm	9
	synt	any
	pret
lab L6
	synt	any
	pfail
	line	252
	colm	5
	synt	endif
	unmark
lab L3
	mark	L7
	pnull
	var	2
	var	6
	var	7
	var	1
	line	257
	colm	23
	synt	any
	invoke	1
	var	8
	line	257
	colm	18
	synt	any
	invoke	2
	line	257
	colm	7
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	var	5
	pnull
	str	2
	var	4
	var	2
	line	258
	colm	44
	synt	any
	invoke	1
	line	258
	colm	32
	synt	any
	cat
	line	258
	colm	13
	synt	any
	invoke	1
	unmark
lab L8
	mark	L9
	var	3
	pnull
	str	2
	var	4
	var	2
	line	259
	colm	44
	synt	any
	invoke	1
	line	259
	colm	32
	synt	any
	cat
	line	259
	colm	13
	synt	any
	invoke	1
	unmark
lab L9
	mark	L10
	line	261
	colm	5
	synt	ifelse
	mark	L11
	var	9
	var	0
	line	261
	colm	18
	synt	any
	invoke	1
	unmark
	mark	L13
	var	5
	pnull
	str	3
	var	4
	var	0
	line	262
	colm	53
	synt	any
	invoke	1
	line	262
	colm	41
	synt	any
	cat
	line	262
	colm	17
	synt	any
	invoke	1
	unmark
lab L13
	mark	L14
	var	3
	pnull
	str	3
	var	4
	var	0
	line	263
	colm	53
	synt	any
	invoke	1
	line	263
	colm	41
	synt	any
	cat
	line	263
	colm	17
	synt	any
	invoke	1
	unmark
lab L14
	mark	L15
	pnull
	pnull
	var	0
	line	264
	colm	10
	synt	any
	field	lh_first
	var	2
	line	264
	colm	20
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	pnull
	pnull
	var	0
	line	265
	colm	10
	synt	any
	field	lh_last
	var	2
	line	265
	colm	19
	synt	any
	asgn
	unmark
lab L16
	mark	L17
	var	5
	str	4
	line	266
	colm	17
	synt	any
	invoke	1
	unmark
lab L17
	var	3
	str	4
	line	267
	colm	17
	synt	any
	invoke	1
	goto	L12
lab L11
	mark	L18
	pnull
	pnull
	pnull
	var	0
	line	271
	colm	10
	synt	any
	field	lh_last
	line	271
	colm	18
	synt	any
	field	cn_tl_field
	var	2
	line	271
	colm	31
	synt	any
	asgn
	unmark
lab L18
	mark	L19
	pnull
	pnull
	var	0
	line	272
	colm	10
	synt	any
	field	lh_last
	var	2
	line	272
	colm	19
	synt	any
	asgn
	unmark
lab L19
	mark	L20
	var	3
	str	5
	line	273
	colm	17
	synt	any
	invoke	1
	unmark
lab L20
	mark	L21
	var	5
	str	5
	line	274
	colm	17
	synt	any
	invoke	1
	unmark
lab L21
	var	5
	str	6
	line	276
	colm	17
	synt	any
	invoke	1
lab L12
	line	261
	colm	5
	synt	endifelse
	unmark
lab L10
	mark	L22
	var	10
	str	7
	line	282
	colm	13
	synt	any
	invoke	1
	unmark
lab L22
	mark	L23
	mark	L24
	var	0
	line	284
	colm	5
	synt	any
	pret
lab L24
	synt	any
	pfail
	unmark
lab L23
	pnull
	line	285
	colm	2
	synt	any
	pfail
	end
proc Node_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,write
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	local	6,000000,integer
	local	7,000000,NodeTypeName
	con	0,010000,3,156,151,154
	con	1,010000,9,153,151,156,144,040,040,040,075,040
	con	2,002000,2,20
	con	3,010000,12,153,151,156,144,040,156,141,155,145,040,075,040
	con	4,002000,1,1
	con	5,010000,12,166,154,151,156,145,156,157,040,040,040,075,040
	con	6,010000,12,160,162,145,137,156,165,155,040,040,040,075,040
	con	7,010000,13,160,157,163,164,137,156,165,155,040,040,040,075,040
	declend
	line	289
	colm	11
	synt	any
	mark	L1
	line	291
	colm	1
	synt	ifelse
	mark	L2
	pnull
	pnull
	var	0
	line	291
	colm	9
	synt	any
	field	kind
	line	291
	colm	4
	synt	any
	null
	unmark
	var	2
	var	1
	str	0
	line	292
	colm	12
	synt	any
	invoke	2
	goto	L3
lab L2
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	1
	pnull
	int	2
	var	4
	line	295
	colm	47
	synt	any
	plus
	line	295
	colm	31
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	295
	colm	83
	synt	any
	field	kind
	line	295
	colm	78
	synt	any
	invoke	1
	line	295
	colm	66
	synt	any
	cat
	line	295
	colm	6
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	line	296
	colm	1
	synt	ifelse
	mark	L6
	var	6
	pnull
	var	0
	line	296
	colm	16
	synt	any
	field	kind
	line	296
	colm	11
	synt	any
	invoke	1
	unmark
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	2
	var	4
	line	297
	colm	51
	synt	any
	plus
	line	297
	colm	32
	synt	any
	invoke	2
	pnull
	var	7
	pnull
	pnull
	var	0
	line	297
	colm	90
	synt	any
	field	kind
	int	4
	line	297
	colm	96
	synt	any
	plus
	line	297
	colm	85
	synt	any
	subsc
	line	297
	colm	70
	synt	any
	cat
	line	297
	colm	7
	synt	any
	invoke	2
	goto	L7
lab L6
	var	2
	var	1
	var	5
	pnull
	var	0
	line	299
	colm	41
	synt	any
	field	kind
	line	299
	colm	36
	synt	any
	invoke	1
	line	299
	colm	7
	synt	any
	invoke	2
lab L7
	line	296
	colm	1
	synt	endifelse
	unmark
lab L5
	mark	L8
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	2
	var	4
	line	300
	colm	50
	synt	any
	plus
	line	300
	colm	31
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	300
	colm	86
	synt	any
	field	vlineno
	line	300
	colm	81
	synt	any
	invoke	1
	line	300
	colm	69
	synt	any
	cat
	line	300
	colm	6
	synt	any
	invoke	2
	unmark
lab L8
	mark	L9
	var	2
	var	1
	pnull
	var	3
	str	6
	pnull
	int	2
	var	4
	line	301
	colm	50
	synt	any
	plus
	line	301
	colm	31
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	301
	colm	86
	synt	any
	field	pre_num
	line	301
	colm	81
	synt	any
	invoke	1
	line	301
	colm	69
	synt	any
	cat
	line	301
	colm	6
	synt	any
	invoke	2
	unmark
lab L9
	var	2
	var	1
	pnull
	var	3
	str	7
	pnull
	int	2
	var	4
	line	302
	colm	51
	synt	any
	plus
	line	302
	colm	31
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	302
	colm	87
	synt	any
	field	post_num
	line	302
	colm	82
	synt	any
	invoke	1
	line	302
	colm	70
	synt	any
	cat
	line	302
	colm	6
	synt	any
	invoke	2
lab L3
	line	291
	colm	1
	synt	endifelse
	unmark
lab L1
	pnull
	line	305
	colm	1
	synt	any
	pfail
	end
proc Node_dump_tree
	local	0,001000,self
	local	1,000000,proc_dump_tree
	con	0,010000,9,153,151,156,144,040,040,040,075,040
	con	1,010000,12,166,154,151,156,145,156,157,040,040,040,075,040
	con	2,010000,12,160,162,145,137,156,165,155,040,040,040,075,040
	con	3,010000,13,160,157,163,164,137,156,165,155,040,040,040,075,040
	declend
	line	306
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	1
	var	0
	str	0
	pnull
	var	0
	line	308
	colm	50
	synt	any
	field	kind
	line	308
	colm	27
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	var	1
	var	0
	str	1
	pnull
	var	0
	line	309
	colm	52
	synt	any
	field	vlineno
	line	309
	colm	27
	synt	any
	invoke	3
	unmark
lab L3
	mark	L4
	var	1
	var	0
	str	2
	pnull
	var	0
	line	310
	colm	52
	synt	any
	field	pre_num
	line	310
	colm	27
	synt	any
	invoke	3
	unmark
lab L4
	var	1
	var	0
	str	3
	pnull
	var	0
	line	311
	colm	53
	synt	any
	field	post_num
	line	311
	colm	27
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	313
	colm	1
	synt	any
	pfail
	end
proc Node_trace_node
	local	0,001000,self
	local	1,000000,integer
	local	2,000000,writes
	local	3,000000,nodes_created_trace_file
	local	4,000000,left
	local	5,000000,NodeTypeName
	local	6,000000,right
	local	7,000000,dump_info
	con	0,002000,1,1
	con	1,002000,2,20
	con	2,002000,2,10
	con	3,010000,8,102,101,104,040,113,111,116,104
	declend
	line	315
	colm	11
	synt	any
	mark	L1
	line	317
	colm	1
	synt	ifelse
	mark	L2
	pnull
	pnull
	var	0
	line	317
	colm	9
	synt	any
	field	kind
	line	317
	colm	4
	synt	any
	nonnull
	pop
	var	1
	pnull
	var	0
	line	317
	colm	27
	synt	any
	field	kind
	line	317
	colm	22
	synt	any
	invoke	1
	unmark
	var	2
	var	3
	var	4
	pnull
	var	5
	pnull
	pnull
	var	0
	line	318
	colm	56
	synt	any
	field	kind
	int	0
	line	318
	colm	61
	synt	any
	plus
	line	318
	colm	51
	synt	any
	subsc
	int	1
	line	318
	colm	38
	synt	any
	invoke	2
	var	6
	var	7
	pnull
	var	0
	line	318
	colm	89
	synt	any
	field	kind
	line	318
	colm	84
	synt	any
	invoke	1
	int	1
	line	318
	colm	74
	synt	any
	invoke	2
	var	6
	var	7
	pnull
	var	0
	line	318
	colm	120
	synt	any
	field	vlineno
	line	318
	colm	115
	synt	any
	invoke	1
	int	2
	line	318
	colm	105
	synt	any
	invoke	2
	var	6
	var	7
	pnull
	var	0
	line	318
	colm	154
	synt	any
	field	pre_num
	line	318
	colm	149
	synt	any
	invoke	1
	int	2
	line	318
	colm	139
	synt	any
	invoke	2
	var	6
	var	7
	pnull
	var	0
	line	318
	colm	188
	synt	any
	field	post_num
	line	318
	colm	183
	synt	any
	invoke	1
	int	2
	line	318
	colm	173
	synt	any
	invoke	2
	line	318
	colm	8
	synt	any
	invoke	6
	goto	L3
lab L2
	var	2
	var	3
	var	4
	str	3
	int	1
	line	320
	colm	38
	synt	any
	invoke	2
	var	4
	var	7
	pnull
	var	0
	line	320
	colm	73
	synt	any
	field	kind
	line	320
	colm	68
	synt	any
	invoke	1
	int	1
	line	320
	colm	58
	synt	any
	invoke	2
	var	6
	var	7
	pnull
	var	0
	line	320
	colm	104
	synt	any
	field	vlineno
	line	320
	colm	99
	synt	any
	invoke	1
	int	2
	line	320
	colm	89
	synt	any
	invoke	2
	var	6
	var	7
	pnull
	var	0
	line	320
	colm	138
	synt	any
	field	pre_num
	line	320
	colm	133
	synt	any
	invoke	1
	int	2
	line	320
	colm	123
	synt	any
	invoke	2
	var	6
	var	7
	pnull
	var	0
	line	320
	colm	172
	synt	any
	field	post_num
	line	320
	colm	167
	synt	any
	invoke	1
	int	2
	line	320
	colm	157
	synt	any
	invoke	2
	line	320
	colm	8
	synt	any
	invoke	6
lab L3
	line	317
	colm	1
	synt	endifelse
	unmark
lab L1
	pnull
	line	322
	colm	1
	synt	any
	pfail
	end
proc Node
	local	0,001000,kind
	local	1,001000,vlineno
	local	2,001000,pre_num
	local	3,001000,post_num
	local	4,000020,self
	local	5,000020,clone
	local	6,000000,Node__oprec
	local	7,000000,Nodeinitialize
	local	8,000000,Node__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	6
	line	8
	colm	6
	synt	any
	null
	unmark
	var	7
	line	8
	colm	38
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	pnull
	var	4
	var	8
	line	10
	colm	23
	synt	any
	keywd	null
	var	6
	var	0
	var	1
	var	2
	var	3
	line	10
	colm	22
	synt	any
	invoke	6
	line	10
	colm	8
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	4
	line	11
	colm	7
	synt	any
	field	__s
	var	4
	line	11
	colm	12
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	mark	L7
	var	4
	line	12
	colm	3
	synt	any
	pret
lab L7
	synt	any
	pfail
	unmark
lab L6
	pnull
	line	13
	colm	1
	synt	any
	pfail
	end
proc Nodeinitialize
	local	0,000000,Node__oprec
	local	1,000000,Node__methods
	local	2,000000,Node_dump
	local	3,000000,Node_dump_tree
	local	4,000000,Node_trace_node
	declend
	line	15
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	line	16
	colm	39
	synt	any
	invoke	3
	line	16
	colm	23
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	17
	colm	1
	synt	any
	pfail
	end
proc ConsNode_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,write
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	con	0,010000,16,143,156,137,150,144,137,146,151,145,154,144,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,16,143,156,137,164,154,137,146,151,145,154,144,040,040,040,075,040
	con	3,010000,14,125,156,151,161,165,145,040,111,144,040,040,040,075,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	337
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	339
	colm	66
	synt	any
	plus
	line	339
	colm	43
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	339
	colm	102
	synt	any
	field	cn_hd_field
	line	339
	colm	97
	synt	any
	invoke	1
	line	339
	colm	85
	synt	any
	cat
	line	339
	colm	18
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	340
	colm	66
	synt	any
	plus
	line	340
	colm	43
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	340
	colm	102
	synt	any
	field	cn_tl_field
	line	340
	colm	97
	synt	any
	invoke	1
	line	340
	colm	85
	synt	any
	cat
	line	340
	colm	18
	synt	any
	invoke	2
	unmark
lab L3
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	341
	colm	64
	synt	any
	plus
	line	341
	colm	43
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	341
	colm	100
	synt	any
	field	unique_id
	line	341
	colm	95
	synt	any
	invoke	1
	line	341
	colm	83
	synt	any
	cat
	line	341
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	343
	colm	1
	synt	any
	pfail
	end
proc ConsNode_dump_tree
	local	0,001000,self
	local	1,000000,proc_dump_tree
	con	0,010000,16,143,156,137,150,144,137,146,151,145,154,144,040,040,040,075,040
	con	1,010000,16,143,156,137,164,154,137,146,151,145,154,144,040,040,040,075,040
	con	2,010000,14,125,156,151,161,165,145,040,111,144,040,040,040,075,040
	declend
	line	344
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	1
	var	0
	str	0
	pnull
	var	0
	line	346
	colm	56
	synt	any
	field	cn_hd_field
	line	346
	colm	27
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	var	1
	var	0
	str	1
	pnull
	var	0
	line	347
	colm	56
	synt	any
	field	cn_tl_field
	line	347
	colm	27
	synt	any
	invoke	3
	unmark
lab L3
	var	1
	var	0
	str	2
	pnull
	var	0
	line	348
	colm	54
	synt	any
	field	unique_id
	line	348
	colm	27
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	350
	colm	1
	synt	any
	pfail
	end
proc ConsNode_cons_dump
	local	0,001000,self
	local	1,000000,write
	local	2,000000,cons_file
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	con	0,010000,16,143,156,137,150,144,137,146,151,145,154,144,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,16,143,156,137,164,154,137,146,151,145,154,144,040,040,040,075,040
	con	3,010000,14,125,156,151,161,165,145,040,111,144,040,040,040,075,040
	declend
	line	351
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	1
	var	2
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	353
	colm	57
	synt	any
	plus
	line	353
	colm	34
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	353
	colm	93
	synt	any
	field	cn_hd_field
	line	353
	colm	88
	synt	any
	invoke	1
	line	353
	colm	76
	synt	any
	cat
	line	353
	colm	18
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	var	1
	var	2
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	354
	colm	57
	synt	any
	plus
	line	354
	colm	34
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	354
	colm	93
	synt	any
	field	cn_tl_field
	line	354
	colm	88
	synt	any
	invoke	1
	line	354
	colm	76
	synt	any
	cat
	line	354
	colm	18
	synt	any
	invoke	2
	unmark
lab L3
	var	1
	var	2
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	355
	colm	55
	synt	any
	plus
	line	355
	colm	34
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	355
	colm	91
	synt	any
	field	unique_id
	line	355
	colm	86
	synt	any
	invoke	1
	line	355
	colm	74
	synt	any
	cat
	line	355
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	357
	colm	1
	synt	any
	pfail
	end
proc ConsNode_trace_node
	local	0,001000,self
	local	1,000000,writes
	local	2,000000,nodes_created_trace_file
	local	3,000000,right
	local	4,000000,dump_info
	con	0,002000,2,12
	con	1,002000,2,20
	declend
	line	358
	colm	11
	synt	any
	mark	L1
	var	1
	var	2
	var	3
	var	4
	pnull
	var	0
	line	360
	colm	53
	synt	any
	field	unique_id
	line	360
	colm	48
	synt	any
	invoke	1
	int	0
	line	360
	colm	38
	synt	any
	invoke	2
	var	3
	var	4
	pnull
	var	0
	line	360
	colm	89
	synt	any
	field	cn_hd_field
	line	360
	colm	84
	synt	any
	invoke	1
	int	1
	line	360
	colm	74
	synt	any
	invoke	2
	var	3
	var	4
	pnull
	var	0
	line	360
	colm	127
	synt	any
	field	cn_tl_field
	line	360
	colm	122
	synt	any
	invoke	1
	int	1
	line	360
	colm	112
	synt	any
	invoke	2
	line	360
	colm	7
	synt	any
	invoke	4
	unmark
lab L1
	pnull
	line	362
	colm	1
	synt	any
	pfail
	end
proc ConsNode_initially
	local	0,001000,self
	local	1,000000,unique_node_id
	con	0,002000,1,1
	declend
	line	389
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	dup
	int	0
	line	393
	colm	16
	synt	any
	plus
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	394
	colm	5
	synt	any
	field	unique_id
	var	1
	line	394
	colm	15
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	395
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	396
	colm	1
	synt	any
	pfail
	end
proc ConsNode
	local	0,001000,unique_id
	local	1,001000,cn_hd_field
	local	2,001000,cn_tl_field
	local	3,000020,self
	local	4,000020,clone
	local	5,000000,ConsNode__oprec
	local	6,000000,ConsNodeinitialize
	local	7,000000,ConsNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	5
	line	8
	colm	6
	synt	any
	null
	unmark
	var	6
	line	8
	colm	46
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	pnull
	var	3
	var	7
	line	10
	colm	27
	synt	any
	keywd	null
	var	5
	var	0
	var	1
	var	2
	line	10
	colm	26
	synt	any
	invoke	5
	line	10
	colm	8
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	3
	line	11
	colm	7
	synt	any
	field	__s
	var	3
	line	11
	colm	12
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	mark	L7
	pnull
	pnull
	var	3
	line	12
	colm	7
	synt	any
	field	__m
	line	12
	colm	11
	synt	any
	field	initially
	var	3
	line	12
	colm	21
	synt	any
	invoke	1
	line	12
	colm	28
	synt	any
	esusp
	goto	L8
lab L7
	line	12
	colm	30
	synt	any
	pfail
lab L8
	unmark
lab L6
	mark	L9
	mark	L10
	var	3
	line	13
	colm	3
	synt	any
	pret
lab L10
	synt	any
	pfail
	unmark
lab L9
	pnull
	line	14
	colm	1
	synt	any
	pfail
	end
proc ConsNodeinitialize
	local	0,000000,ConsNode__oprec
	local	1,000000,ConsNode__methods
	local	2,000000,ConsNode_dump
	local	3,000000,ConsNode_dump_tree
	local	4,000000,ConsNode_cons_dump
	local	5,000000,ConsNode_trace_node
	local	6,000000,ConsNode_initially
	declend
	line	16
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	17
	colm	47
	synt	any
	invoke	5
	line	17
	colm	27
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	18
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNode_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	local	3,000000,left
	local	4,000000,dump_info
	con	0,002000,2,12
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	401
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	402
	colm	6
	synt	any
	field	__m
	line	402
	colm	10
	synt	any
	field	Node
	line	402
	colm	15
	synt	any
	field	trace_node
	var	0
	line	402
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	403
	colm	6
	synt	any
	field	__m
	line	403
	colm	10
	synt	any
	field	ConsNode
	line	403
	colm	19
	synt	any
	field	trace_node
	var	0
	line	403
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	var	3
	var	4
	pnull
	var	0
	line	404
	colm	51
	synt	any
	field	lh_first
	line	404
	colm	46
	synt	any
	invoke	1
	int	0
	line	404
	colm	36
	synt	any
	invoke	2
	var	3
	var	4
	pnull
	var	0
	line	404
	colm	85
	synt	any
	field	lh_last
	line	404
	colm	80
	synt	any
	invoke	1
	int	0
	line	404
	colm	70
	synt	any
	invoke	2
	line	404
	colm	6
	synt	any
	invoke	3
	unmark
lab L3
	pnull
	line	405
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNode_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,write
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	con	0,010000,13,154,150,137,146,151,162,163,164,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,12,154,150,137,154,141,163,164,040,040,040,075,040
	declend
	line	408
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	410
	colm	6
	synt	any
	field	__m
	line	410
	colm	10
	synt	any
	field	Node
	line	410
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	410
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	412
	colm	63
	synt	any
	plus
	line	412
	colm	43
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	412
	colm	99
	synt	any
	field	lh_first
	line	412
	colm	94
	synt	any
	invoke	1
	line	412
	colm	82
	synt	any
	cat
	line	412
	colm	18
	synt	any
	invoke	2
	unmark
lab L3
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	413
	colm	62
	synt	any
	plus
	line	413
	colm	43
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	413
	colm	98
	synt	any
	field	lh_last
	line	413
	colm	93
	synt	any
	invoke	1
	line	413
	colm	81
	synt	any
	cat
	line	413
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	415
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,13,154,150,137,146,151,162,163,164,040,040,040,075,040
	con	1,010000,12,154,150,137,154,141,163,164,040,040,040,075,040
	declend
	line	416
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	418
	colm	6
	synt	any
	field	__m
	line	418
	colm	10
	synt	any
	field	Node
	line	418
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	418
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	var	2
	var	0
	str	0
	pnull
	var	0
	line	420
	colm	42
	synt	any
	field	lh_first
	line	420
	colm	15
	synt	any
	invoke	3
	unmark
lab L3
	var	2
	var	0
	str	1
	pnull
	var	0
	line	421
	colm	41
	synt	any
	field	lh_last
	line	421
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	423
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNode_list_dump
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_file
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	con	0,010000,13,154,150,137,146,151,162,163,164,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,12,154,150,137,154,141,163,164,040,040,040,075,040
	declend
	line	424
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	426
	colm	6
	synt	any
	field	__m
	line	426
	colm	10
	synt	any
	field	Node
	line	426
	colm	15
	synt	any
	field	dump
	var	0
	line	426
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	428
	colm	63
	synt	any
	plus
	line	428
	colm	43
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	428
	colm	99
	synt	any
	field	lh_first
	line	428
	colm	94
	synt	any
	invoke	1
	line	428
	colm	82
	synt	any
	cat
	line	428
	colm	18
	synt	any
	invoke	2
	unmark
lab L3
	var	1
	var	2
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	429
	colm	62
	synt	any
	plus
	line	429
	colm	43
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	429
	colm	98
	synt	any
	field	lh_last
	line	429
	colm	93
	synt	any
	invoke	1
	line	429
	colm	81
	synt	any
	cat
	line	429
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	431
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNode_first
	local	0,001000,self
	declend
	line	433
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	434
	colm	12
	synt	any
	field	lh_first
	line	434
	colm	1
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	435
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNode_last
	local	0,001000,self
	declend
	line	438
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	439
	colm	13
	synt	any
	field	lh_last
	line	439
	colm	2
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	440
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNode_setfirst
	local	0,001000,self
	local	1,001000,p
	declend
	line	442
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	443
	colm	5
	synt	any
	field	lh_first
	var	1
	line	443
	colm	14
	synt	any
	asgn
	unmark
lab L1
	pnull
	line	444
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNode_setlast
	local	0,001000,self
	local	1,001000,p
	declend
	line	445
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	446
	colm	5
	synt	any
	field	lh_last
	var	1
	line	446
	colm	13
	synt	any
	asgn
	unmark
lab L1
	pnull
	line	447
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNode_conc
	local	0,001000,self
	local	1,001000,l2
	local	2,000000,is_empty
	local	3,000000,nil
	local	4,000000,vfree
	declend
	line	458
	colm	11
	synt	any
	mark	L1
	line	459
	colm	2
	synt	if
	mark0
	var	2
	var	0
	line	459
	colm	14
	synt	any
	invoke	1
	unmark
	mark	L2
	var	1
	line	461
	colm	1
	synt	any
	pret
lab L2
	synt	any
	pfail
	line	459
	colm	2
	synt	endif
	unmark
lab L1
	mark	L3
	line	463
	colm	1
	synt	if
	mark0
	mark	L4
	var	2
	var	1
	line	463
	colm	18
	synt	any
	invoke	1
	unmark
	efail
lab L4
	pnull
	unmark
	mark	L5
	pnull
	pnull
	var	0
	line	465
	colm	5
	synt	any
	field	cn_tl_field
	line	465
	colm	17
	synt	any
	field	cn_settail
	pnull
	var	1
	line	465
	colm	31
	synt	any
	field	cn_hd_field
	line	465
	colm	28
	synt	any
	invoke	1
	unmark
lab L5
	pnull
	var	0
	line	466
	colm	5
	synt	any
	field	cn_settail
	pnull
	var	1
	line	466
	colm	19
	synt	any
	field	cn_tl_field
	line	466
	colm	16
	synt	any
	invoke	1
	line	463
	colm	1
	synt	endif
	unmark
lab L3
	mark	L6
	pnull
	var	1
	pnull
	pnull
	var	1
	line	468
	colm	9
	synt	any
	field	hd_field
	pnull
	pnull
	var	1
	line	468
	colm	24
	synt	any
	field	tl_field
	var	3
	line	468
	colm	34
	synt	any
	asgn
	line	468
	colm	19
	synt	any
	asgn
	line	468
	colm	4
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	pnull
	var	1
	line	471
	colm	3
	synt	any
	field	lh_last
	pnull
	pnull
	var	1
	line	471
	colm	17
	synt	any
	field	lh_first
	var	3
	line	471
	colm	27
	synt	any
	asgn
	line	471
	colm	12
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	var	4
	var	1
	line	472
	colm	6
	synt	any
	invoke	1
	unmark
lab L8
	mark	L9
	mark	L10
	var	0
	line	473
	colm	1
	synt	any
	pret
lab L10
	synt	any
	pfail
	unmark
lab L9
	pnull
	line	474
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNode_length
	local	0,001000,self
	local	1,000020,count
	local	2,000020,v
	local	3,000020,tmp
	local	4,000000,listinfo
	local	5,000000,dump_info
	con	0,010000,9,111,116,040,114,105,116,107,124,110
	con	1,002000,1,0
	con	2,010000,15,154,145,156,147,164,150,040,143,157,165,156,164,040,075,040
	con	3,010000,27,144,165,155,160,137,151,156,146,157,050,163,145,154,146,056,154,150,137,146,151,162,163,164,051,040,075,040
	con	4,002000,1,1
	con	5,010000,15,144,165,155,160,137,151,156,146,157,050,166,051,040,075,040
	declend
	line	482
	colm	11
	synt	any
	mark	L1
	var	4
	str	0
	line	484
	colm	9
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	var	1
	int	1
	line	485
	colm	7
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	var	4
	pnull
	pnull
	pnull
	str	2
	var	1
	line	486
	colm	28
	synt	any
	cat
	str	3
	line	486
	colm	37
	synt	any
	cat
	var	5
	pnull
	var	0
	line	486
	colm	88
	synt	any
	field	lh_first
	line	486
	colm	83
	synt	any
	invoke	1
	line	486
	colm	70
	synt	any
	cat
	line	486
	colm	9
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	pnull
	var	3
	pnull
	var	0
	line	488
	colm	12
	synt	any
	field	lh_first
	line	488
	colm	5
	synt	any
	asgn
	unmark
lab L4
	mark	L5
lab L6
	line	489
	colm	2
	synt	while
	mark0
	pnull
	var	3
	line	489
	colm	8
	synt	any
	nonnull
	unmark
	mark	L6
	mark	L9
	pnull
	var	2
	pnull
	var	3
	line	490
	colm	9
	synt	any
	field	cn_hd_field
	line	490
	colm	3
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	pnull
	var	1
	dup
	int	4
	line	491
	colm	7
	synt	any
	plus
	asgn
	unmark
lab L10
	mark	L11
	pnull
	var	3
	pnull
	var	3
	line	492
	colm	11
	synt	any
	field	cn_tl_field
	line	492
	colm	5
	synt	any
	asgn
	unmark
lab L11
	var	4
	pnull
	pnull
	pnull
	str	2
	var	1
	line	493
	colm	28
	synt	any
	cat
	str	5
	line	493
	colm	37
	synt	any
	cat
	var	5
	var	2
	line	493
	colm	70
	synt	any
	invoke	1
	line	493
	colm	58
	synt	any
	cat
	line	493
	colm	9
	synt	any
	invoke	1
lab L7
	unmark
	goto	L6
lab L8
	line	489
	colm	2
	synt	endwhile
	unmark
lab L5
	mark	L12
	mark	L13
	var	1
	line	495
	colm	1
	synt	any
	pret
lab L13
	synt	any
	pfail
	unmark
lab L12
	pnull
	line	496
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNode_list_to_array
	local	0,001000,self
	local	1,000020,a
	local	2,000020,len
	local	3,000020,tmp
	local	4,000020,v
	local	5,000020,it
	local	6,000020,count
	local	7,000000,list
	local	8,000000,listinfo
	local	9,000000,dump_info
	local	10,000000,Array
	con	0,002000,1,1
	con	1,002000,1,0
	con	2,010000,22,154,151,163,164,137,164,157,137,141,162,162,141,171,040,143,157,165,156,164,040,075,040
	con	3,010000,27,144,165,155,160,137,151,156,146,157,050,163,145,154,146,056,154,150,137,146,151,162,163,164,051,040,075,040
	con	4,010000,20,154,151,163,164,040,164,157,040,141,162,162,141,171,040,154,145,156,040,075,040
	con	5,010000,7,040,164,155,160,040,075,040
	con	6,010000,22,154,151,163,164,040,164,157,040,141,162,162,141,171,040,143,157,165,156,164,040,075,040
	con	7,010000,5,040,166,040,075,040
	declend
	line	506
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	pnull
	var	0
	line	508
	colm	12
	synt	any
	field	length
	line	508
	colm	19
	synt	any
	invoke	0
	line	508
	colm	5
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	5
	var	7
	pnull
	var	2
	int	0
	line	509
	colm	16
	synt	any
	plus
	line	509
	colm	11
	synt	any
	invoke	1
	line	509
	colm	4
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	6
	int	1
	line	510
	colm	7
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	var	8
	pnull
	pnull
	pnull
	str	2
	var	6
	line	511
	colm	35
	synt	any
	cat
	str	3
	line	511
	colm	44
	synt	any
	cat
	var	9
	pnull
	var	0
	line	511
	colm	95
	synt	any
	field	lh_first
	line	511
	colm	90
	synt	any
	invoke	1
	line	511
	colm	77
	synt	any
	cat
	line	511
	colm	9
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	pnull
	var	3
	pnull
	var	0
	line	512
	colm	12
	synt	any
	field	lh_first
	line	512
	colm	5
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	var	8
	pnull
	pnull
	pnull
	str	4
	var	2
	line	513
	colm	33
	synt	any
	cat
	str	5
	line	513
	colm	40
	synt	any
	cat
	var	9
	var	3
	line	513
	colm	65
	synt	any
	invoke	1
	line	513
	colm	53
	synt	any
	cat
	line	513
	colm	9
	synt	any
	invoke	1
	unmark
lab L6
	mark	L7
lab L8
	line	514
	colm	1
	synt	while
	mark0
	pnull
	var	3
	line	514
	colm	7
	synt	any
	nonnull
	unmark
	mark	L8
	mark	L11
	pnull
	var	4
	pnull
	var	3
	line	515
	colm	9
	synt	any
	field	cn_hd_field
	line	515
	colm	3
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	pnull
	var	6
	dup
	int	0
	line	516
	colm	7
	synt	any
	plus
	asgn
	unmark
lab L12
	mark	L13
	var	8
	pnull
	pnull
	pnull
	str	6
	var	6
	line	517
	colm	35
	synt	any
	cat
	str	7
	line	517
	colm	44
	synt	any
	cat
	var	9
	var	4
	line	517
	colm	67
	synt	any
	invoke	1
	line	517
	colm	55
	synt	any
	cat
	line	517
	colm	9
	synt	any
	invoke	1
	unmark
lab L13
	mark	L14
	pnull
	pnull
	var	5
	var	6
	line	518
	colm	3
	synt	any
	subsc
	var	4
	line	518
	colm	11
	synt	any
	asgn
	unmark
lab L14
	pnull
	var	3
	pnull
	var	3
	line	519
	colm	11
	synt	any
	field	cn_tl_field
	line	519
	colm	5
	synt	any
	asgn
lab L9
	unmark
	goto	L8
lab L10
	line	514
	colm	1
	synt	endwhile
	unmark
lab L7
	mark	L15
	pnull
	var	1
	var	10
	var	2
	var	5
	line	521
	colm	11
	synt	any
	invoke	2
	line	521
	colm	3
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	mark	L17
	var	1
	line	522
	colm	1
	synt	any
	pret
lab L17
	synt	any
	pfail
	unmark
lab L16
	pnull
	line	523
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNode_initially
	local	0,001000,self
	declend
	line	524
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	525
	colm	6
	synt	any
	field	__m
	line	525
	colm	10
	synt	any
	field	ConsNode
	line	525
	colm	19
	synt	any
	field	initially
	var	0
	line	525
	colm	30
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	526
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	527
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNode
	local	0,001000,lh_first
	local	1,001000,lh_last
	local	2,001000,kind
	local	3,001000,vlineno
	local	4,001000,pre_num
	local	5,001000,post_num
	local	6,001000,unique_id
	local	7,001000,cn_hd_field
	local	8,001000,cn_tl_field
	local	9,000020,self
	local	10,000020,clone
	local	11,000000,ListHeaderNode__oprec
	local	12,000000,ListHeaderNodeinitialize
	local	13,000000,Node__oprec
	local	14,000000,Nodeinitialize
	local	15,000000,ConsNode__oprec
	local	16,000000,ConsNodeinitialize
	local	17,000000,ListHeaderNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	11
	line	8
	colm	6
	synt	any
	null
	unmark
	var	12
	line	8
	colm	58
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	13
	line	9
	colm	6
	synt	any
	null
	unmark
	var	14
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	11
	line	10
	colm	24
	synt	any
	field	Node
	var	13
	line	10
	colm	30
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	15
	line	11
	colm	6
	synt	any
	null
	unmark
	var	16
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	11
	line	12
	colm	24
	synt	any
	field	ConsNode
	var	15
	line	12
	colm	34
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	9
	var	17
	line	14
	colm	33
	synt	any
	keywd	null
	var	11
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	line	14
	colm	32
	synt	any
	invoke	11
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	9
	line	15
	colm	7
	synt	any
	field	__s
	var	9
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	9
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	9
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	9
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNodeinitialize
	local	0,000000,ListHeaderNode__oprec
	local	1,000000,ListHeaderNode__methods
	local	2,000000,ListHeaderNode_trace_node
	local	3,000000,ListHeaderNode_dump
	local	4,000000,ListHeaderNode_dump_tree
	local	5,000000,ListHeaderNode_list_dump
	local	6,000000,ListHeaderNode_first
	local	7,000000,ListHeaderNode_last
	local	8,000000,ListHeaderNode_setfirst
	local	9,000000,ListHeaderNode_setlast
	local	10,000000,ListHeaderNode_conc
	local	11,000000,ListHeaderNode_length
	local	12,000000,ListHeaderNode_list_to_array
	local	13,000000,ListHeaderNode_initially
	local	14,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	14
	line	21
	colm	59
	synt	any
	invoke	13
	line	21
	colm	33
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc DeclarationNode_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	con	0,010000,1,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	529
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	530
	colm	6
	synt	any
	field	__m
	line	530
	colm	10
	synt	any
	field	Node
	line	530
	colm	15
	synt	any
	field	trace_node
	var	0
	line	530
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	531
	colm	6
	synt	any
	field	__m
	line	531
	colm	10
	synt	any
	field	ConsNode
	line	531
	colm	19
	synt	any
	field	trace_node
	var	0
	line	531
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	532
	colm	6
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	533
	colm	1
	synt	any
	pfail
	end
proc DeclarationNode_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,write
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	con	0,010000,12,144,145,143,154,137,151,144,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,20,144,145,143,154,137,144,145,156,157,164,141,164,151,157,156,040,040,040,075,040
	con	3,010000,17,144,151,163,160,154,141,143,145,155,145,156,164,040,040,040,075,040
	con	4,010000,10,154,145,166,145,154,040,040,040,075,040
	con	5,010000,19,144,145,143,154,137,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	6,010000,14,144,145,143,154,137,144,157,156,145,040,040,040,075,040
	con	7,010000,20,144,145,143,154,137,163,151,147,137,164,162,141,156,163,160,040,040,040,075,040
	con	8,010000,22,144,145,143,154,137,151,156,156,145,162,155,157,163,164,137,151,144,040,040,040,075,040
	con	9,010000,29,144,145,143,154,137,160,162,145,166,151,157,165,163,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	con	10,010000,15,144,145,143,154,137,163,143,157,160,145,040,040,040,075,040
	con	11,010000,21,144,145,143,154,137,143,141,156,137,142,145,137,162,145,146,144,040,040,040,075,040
	con	12,010000,17,144,145,143,154,137,163,160,145,143,151,141,154,040,040,040,075,040
	con	13,010000,19,144,145,143,154,137,163,145,154,137,151,156,144,145,170,040,040,040,075,040
	con	14,010000,16,144,145,143,154,137,156,145,145,144,145,144,040,040,040,075,040
	con	15,010000,19,144,145,143,154,137,143,157,156,163,164,137,166,141,154,040,040,040,075,040
	declend
	line	534
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	536
	colm	6
	synt	any
	field	__m
	line	536
	colm	10
	synt	any
	field	Node
	line	536
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	536
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	537
	colm	6
	synt	any
	field	__m
	line	537
	colm	10
	synt	any
	field	ConsNode
	line	537
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	537
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	538
	colm	61
	synt	any
	plus
	line	538
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	538
	colm	97
	synt	any
	field	decl_id
	line	538
	colm	92
	synt	any
	invoke	1
	line	538
	colm	80
	synt	any
	cat
	line	538
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	539
	colm	69
	synt	any
	plus
	line	539
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	539
	colm	105
	synt	any
	field	decl_denotation
	line	539
	colm	100
	synt	any
	invoke	1
	line	539
	colm	88
	synt	any
	cat
	line	539
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	540
	colm	66
	synt	any
	plus
	line	540
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	540
	colm	102
	synt	any
	field	displacement
	line	540
	colm	97
	synt	any
	invoke	1
	line	540
	colm	85
	synt	any
	cat
	line	540
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	541
	colm	59
	synt	any
	plus
	line	541
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	541
	colm	95
	synt	any
	field	level
	line	541
	colm	90
	synt	any
	invoke	1
	line	541
	colm	78
	synt	any
	cat
	line	541
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	542
	colm	68
	synt	any
	plus
	line	542
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	542
	colm	104
	synt	any
	field	decl_signature
	line	542
	colm	99
	synt	any
	invoke	1
	line	542
	colm	87
	synt	any
	cat
	line	542
	colm	18
	synt	any
	invoke	2
	unmark
lab L8
	mark	L9
	var	2
	var	1
	pnull
	var	3
	str	6
	pnull
	int	1
	var	4
	line	543
	colm	63
	synt	any
	plus
	line	543
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	543
	colm	99
	synt	any
	field	decl_done
	line	543
	colm	94
	synt	any
	invoke	1
	line	543
	colm	82
	synt	any
	cat
	line	543
	colm	18
	synt	any
	invoke	2
	unmark
lab L9
	mark	L10
	var	2
	var	1
	pnull
	var	3
	str	7
	pnull
	int	1
	var	4
	line	544
	colm	69
	synt	any
	plus
	line	544
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	544
	colm	105
	synt	any
	field	decl_sig_transp
	line	544
	colm	100
	synt	any
	invoke	1
	line	544
	colm	88
	synt	any
	cat
	line	544
	colm	18
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	var	2
	var	1
	pnull
	var	3
	str	8
	pnull
	int	1
	var	4
	line	545
	colm	71
	synt	any
	plus
	line	545
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	545
	colm	107
	synt	any
	field	decl_innermost_id
	line	545
	colm	102
	synt	any
	invoke	1
	line	545
	colm	90
	synt	any
	cat
	line	545
	colm	18
	synt	any
	invoke	2
	unmark
lab L11
	mark	L12
	var	2
	var	1
	pnull
	var	3
	str	9
	pnull
	int	1
	var	4
	line	546
	colm	78
	synt	any
	plus
	line	546
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	546
	colm	114
	synt	any
	field	decl_previous_definition
	line	546
	colm	109
	synt	any
	invoke	1
	line	546
	colm	97
	synt	any
	cat
	line	546
	colm	18
	synt	any
	invoke	2
	unmark
lab L12
	mark	L13
	var	2
	var	1
	pnull
	var	3
	str	10
	pnull
	int	1
	var	4
	line	547
	colm	64
	synt	any
	plus
	line	547
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	547
	colm	100
	synt	any
	field	decl_scope
	line	547
	colm	95
	synt	any
	invoke	1
	line	547
	colm	83
	synt	any
	cat
	line	547
	colm	18
	synt	any
	invoke	2
	unmark
lab L13
	mark	L14
	var	2
	var	1
	pnull
	var	3
	str	11
	pnull
	int	1
	var	4
	line	548
	colm	70
	synt	any
	plus
	line	548
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	548
	colm	106
	synt	any
	field	decl_can_be_refd
	line	548
	colm	101
	synt	any
	invoke	1
	line	548
	colm	89
	synt	any
	cat
	line	548
	colm	18
	synt	any
	invoke	2
	unmark
lab L14
	mark	L15
	var	2
	var	1
	pnull
	var	3
	str	12
	pnull
	int	1
	var	4
	line	549
	colm	66
	synt	any
	plus
	line	549
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	549
	colm	102
	synt	any
	field	decl_special
	line	549
	colm	97
	synt	any
	invoke	1
	line	549
	colm	85
	synt	any
	cat
	line	549
	colm	18
	synt	any
	invoke	2
	unmark
lab L15
	mark	L16
	var	2
	var	1
	pnull
	var	3
	str	13
	pnull
	int	1
	var	4
	line	550
	colm	68
	synt	any
	plus
	line	550
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	550
	colm	104
	synt	any
	field	decl_sel_index
	line	550
	colm	99
	synt	any
	invoke	1
	line	550
	colm	87
	synt	any
	cat
	line	550
	colm	18
	synt	any
	invoke	2
	unmark
lab L16
	mark	L17
	var	2
	var	1
	pnull
	var	3
	str	14
	pnull
	int	1
	var	4
	line	551
	colm	65
	synt	any
	plus
	line	551
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	551
	colm	101
	synt	any
	field	decl_needed
	line	551
	colm	96
	synt	any
	invoke	1
	line	551
	colm	84
	synt	any
	cat
	line	551
	colm	18
	synt	any
	invoke	2
	unmark
lab L17
	var	2
	var	1
	pnull
	var	3
	str	15
	pnull
	int	1
	var	4
	line	552
	colm	68
	synt	any
	plus
	line	552
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	552
	colm	104
	synt	any
	field	decl_const_val
	line	552
	colm	99
	synt	any
	invoke	1
	line	552
	colm	87
	synt	any
	cat
	line	552
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	554
	colm	1
	synt	any
	pfail
	end
proc DeclarationNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,12,144,145,143,154,137,151,144,040,040,040,075,040
	con	1,010000,20,144,145,143,154,137,144,145,156,157,164,141,164,151,157,156,040,040,040,075,040
	con	2,010000,17,144,151,163,160,154,141,143,145,155,145,156,164,040,040,040,075,040
	con	3,010000,10,154,145,166,145,154,040,040,040,075,040
	con	4,010000,19,144,145,143,154,137,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	5,010000,14,144,145,143,154,137,144,157,156,145,040,040,040,075,040
	con	6,010000,20,144,145,143,154,137,163,151,147,137,164,162,141,156,163,160,040,040,040,075,040
	con	7,010000,22,144,145,143,154,137,151,156,156,145,162,155,157,163,164,137,151,144,040,040,040,075,040
	con	8,010000,29,144,145,143,154,137,160,162,145,166,151,157,165,163,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	con	9,010000,15,144,145,143,154,137,163,143,157,160,145,040,040,040,075,040
	con	10,010000,21,144,145,143,154,137,143,141,156,137,142,145,137,162,145,146,144,040,040,040,075,040
	con	11,010000,17,144,145,143,154,137,163,160,145,143,151,141,154,040,040,040,075,040
	con	12,010000,19,144,145,143,154,137,163,145,154,137,151,156,144,145,170,040,040,040,075,040
	con	13,010000,16,144,145,143,154,137,156,145,145,144,145,144,040,040,040,075,040
	con	14,010000,19,144,145,143,154,137,143,157,156,163,164,137,166,141,154,040,040,040,075,040
	declend
	line	555
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	557
	colm	6
	synt	any
	field	__m
	line	557
	colm	10
	synt	any
	field	Node
	line	557
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	557
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	558
	colm	6
	synt	any
	field	__m
	line	558
	colm	10
	synt	any
	field	ConsNode
	line	558
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	558
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	559
	colm	41
	synt	any
	field	decl_id
	line	559
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	560
	colm	49
	synt	any
	field	decl_denotation
	line	560
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	561
	colm	46
	synt	any
	field	displacement
	line	561
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	562
	colm	39
	synt	any
	field	level
	line	562
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	mark	L8
	var	2
	var	0
	str	4
	pnull
	var	0
	line	563
	colm	48
	synt	any
	field	decl_signature
	line	563
	colm	15
	synt	any
	invoke	3
	unmark
lab L8
	mark	L9
	var	2
	var	0
	str	5
	pnull
	var	0
	line	564
	colm	43
	synt	any
	field	decl_done
	line	564
	colm	15
	synt	any
	invoke	3
	unmark
lab L9
	mark	L10
	var	2
	var	0
	str	6
	pnull
	var	0
	line	565
	colm	49
	synt	any
	field	decl_sig_transp
	line	565
	colm	15
	synt	any
	invoke	3
	unmark
lab L10
	mark	L11
	var	2
	var	0
	str	7
	pnull
	var	0
	line	566
	colm	51
	synt	any
	field	decl_innermost_id
	line	566
	colm	15
	synt	any
	invoke	3
	unmark
lab L11
	mark	L12
	var	2
	var	0
	str	8
	pnull
	var	0
	line	567
	colm	58
	synt	any
	field	decl_previous_definition
	line	567
	colm	15
	synt	any
	invoke	3
	unmark
lab L12
	mark	L13
	var	2
	var	0
	str	9
	pnull
	var	0
	line	568
	colm	44
	synt	any
	field	decl_scope
	line	568
	colm	15
	synt	any
	invoke	3
	unmark
lab L13
	mark	L14
	var	2
	var	0
	str	10
	pnull
	var	0
	line	569
	colm	50
	synt	any
	field	decl_can_be_refd
	line	569
	colm	15
	synt	any
	invoke	3
	unmark
lab L14
	mark	L15
	var	2
	var	0
	str	11
	pnull
	var	0
	line	570
	colm	46
	synt	any
	field	decl_special
	line	570
	colm	15
	synt	any
	invoke	3
	unmark
lab L15
	mark	L16
	var	2
	var	0
	str	12
	pnull
	var	0
	line	571
	colm	48
	synt	any
	field	decl_sel_index
	line	571
	colm	15
	synt	any
	invoke	3
	unmark
lab L16
	mark	L17
	var	2
	var	0
	str	13
	pnull
	var	0
	line	572
	colm	45
	synt	any
	field	decl_needed
	line	572
	colm	15
	synt	any
	invoke	3
	unmark
lab L17
	var	2
	var	0
	str	14
	pnull
	var	0
	line	573
	colm	48
	synt	any
	field	decl_const_val
	line	573
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	575
	colm	1
	synt	any
	pfail
	end
proc DeclarationNode_initially
	local	0,001000,self
	declend
	line	576
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	577
	colm	6
	synt	any
	field	__m
	line	577
	colm	10
	synt	any
	field	ConsNode
	line	577
	colm	19
	synt	any
	field	initially
	var	0
	line	577
	colm	30
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	578
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	579
	colm	1
	synt	any
	pfail
	end
proc DeclarationNode
	local	0,001000,decl_id
	local	1,001000,decl_denotation
	local	2,001000,displacement
	local	3,001000,level
	local	4,001000,decl_signature
	local	5,001000,decl_done
	local	6,001000,decl_sig_transp
	local	7,001000,decl_innermost_id
	local	8,001000,decl_previous_definition
	local	9,001000,decl_scope
	local	10,001000,decl_can_be_refd
	local	11,001000,decl_special
	local	12,001000,decl_sel_index
	local	13,001000,decl_needed
	local	14,001000,decl_const_val
	local	15,001000,kind
	local	16,001000,vlineno
	local	17,001000,pre_num
	local	18,001000,post_num
	local	19,001000,unique_id
	local	20,001000,cn_hd_field
	local	21,001000,cn_tl_field
	local	22,000020,self
	local	23,000020,clone
	local	24,000000,DeclarationNode__oprec
	local	25,000000,DeclarationNodeinitialize
	local	26,000000,Node__oprec
	local	27,000000,Nodeinitialize
	local	28,000000,ConsNode__oprec
	local	29,000000,ConsNodeinitialize
	local	30,000000,DeclarationNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	24
	line	8
	colm	6
	synt	any
	null
	unmark
	var	25
	line	8
	colm	60
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	26
	line	9
	colm	6
	synt	any
	null
	unmark
	var	27
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	24
	line	10
	colm	25
	synt	any
	field	Node
	var	26
	line	10
	colm	31
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	28
	line	11
	colm	6
	synt	any
	null
	unmark
	var	29
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	24
	line	12
	colm	25
	synt	any
	field	ConsNode
	var	28
	line	12
	colm	35
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	22
	var	30
	line	14
	colm	34
	synt	any
	keywd	null
	var	24
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	14
	var	15
	var	16
	var	17
	var	18
	var	19
	var	20
	var	21
	line	14
	colm	33
	synt	any
	invoke	24
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	22
	line	15
	colm	7
	synt	any
	field	__s
	var	22
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	22
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	22
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	22
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc DeclarationNodeinitialize
	local	0,000000,DeclarationNode__oprec
	local	1,000000,DeclarationNode__methods
	local	2,000000,DeclarationNode_trace_node
	local	3,000000,DeclarationNode_dump
	local	4,000000,DeclarationNode_dump_tree
	local	5,000000,DeclarationNode_initially
	local	6,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	61
	synt	any
	invoke	5
	line	21
	colm	34
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc ParameterNode_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	con	0,010000,1,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	580
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	581
	colm	6
	synt	any
	field	__m
	line	581
	colm	10
	synt	any
	field	Node
	line	581
	colm	15
	synt	any
	field	trace_node
	var	0
	line	581
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	582
	colm	6
	synt	any
	field	__m
	line	582
	colm	10
	synt	any
	field	ConsNode
	line	582
	colm	19
	synt	any
	field	trace_node
	var	0
	line	582
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	583
	colm	6
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	584
	colm	1
	synt	any
	pfail
	end
proc ParameterNode_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,write
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	con	0,010000,11,160,141,162,137,151,144,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,18,160,141,162,137,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	3,010000,17,144,151,163,160,154,141,143,145,155,145,156,164,040,040,040,075,040
	con	4,010000,10,154,145,166,145,154,040,040,040,075,040
	con	5,010000,28,160,141,162,137,160,162,145,166,151,157,165,163,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	con	6,010000,14,160,141,162,137,163,143,157,160,145,040,040,040,075,040
	con	7,010000,17,160,141,162,137,157,156,154,171,137,144,145,146,040,040,040,075,040
	declend
	line	585
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	587
	colm	6
	synt	any
	field	__m
	line	587
	colm	10
	synt	any
	field	Node
	line	587
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	587
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	588
	colm	6
	synt	any
	field	__m
	line	588
	colm	10
	synt	any
	field	ConsNode
	line	588
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	588
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	590
	colm	60
	synt	any
	plus
	line	590
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	590
	colm	96
	synt	any
	field	par_id
	line	590
	colm	91
	synt	any
	invoke	1
	line	590
	colm	79
	synt	any
	cat
	line	590
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	591
	colm	67
	synt	any
	plus
	line	591
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	591
	colm	103
	synt	any
	field	par_signature
	line	591
	colm	98
	synt	any
	invoke	1
	line	591
	colm	86
	synt	any
	cat
	line	591
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	592
	colm	66
	synt	any
	plus
	line	592
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	592
	colm	102
	synt	any
	field	displacement
	line	592
	colm	97
	synt	any
	invoke	1
	line	592
	colm	85
	synt	any
	cat
	line	592
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	593
	colm	59
	synt	any
	plus
	line	593
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	593
	colm	95
	synt	any
	field	level
	line	593
	colm	90
	synt	any
	invoke	1
	line	593
	colm	78
	synt	any
	cat
	line	593
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	594
	colm	77
	synt	any
	plus
	line	594
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	594
	colm	113
	synt	any
	field	par_previous_definition
	line	594
	colm	108
	synt	any
	invoke	1
	line	594
	colm	96
	synt	any
	cat
	line	594
	colm	18
	synt	any
	invoke	2
	unmark
lab L8
	mark	L9
	var	2
	var	1
	pnull
	var	3
	str	6
	pnull
	int	1
	var	4
	line	595
	colm	63
	synt	any
	plus
	line	595
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	595
	colm	99
	synt	any
	field	par_scope
	line	595
	colm	94
	synt	any
	invoke	1
	line	595
	colm	82
	synt	any
	cat
	line	595
	colm	18
	synt	any
	invoke	2
	unmark
lab L9
	var	2
	var	1
	pnull
	var	3
	str	7
	pnull
	int	1
	var	4
	line	596
	colm	66
	synt	any
	plus
	line	596
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	596
	colm	102
	synt	any
	field	par_only_def
	line	596
	colm	97
	synt	any
	invoke	1
	line	596
	colm	85
	synt	any
	cat
	line	596
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	598
	colm	1
	synt	any
	pfail
	end
proc ParameterNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,11,160,141,162,137,151,144,040,040,040,075,040
	con	1,010000,18,160,141,162,137,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	2,010000,17,144,151,163,160,154,141,143,145,155,145,156,164,040,040,040,075,040
	con	3,010000,10,154,145,166,145,154,040,040,040,075,040
	con	4,010000,28,160,141,162,137,160,162,145,166,151,157,165,163,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	con	5,010000,14,160,141,162,137,163,143,157,160,145,040,040,040,075,040
	con	6,010000,17,160,141,162,137,157,156,154,171,137,144,145,146,040,040,040,075,040
	declend
	line	599
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	601
	colm	6
	synt	any
	field	__m
	line	601
	colm	10
	synt	any
	field	Node
	line	601
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	601
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	602
	colm	6
	synt	any
	field	__m
	line	602
	colm	10
	synt	any
	field	ConsNode
	line	602
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	602
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	604
	colm	40
	synt	any
	field	par_id
	line	604
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	605
	colm	47
	synt	any
	field	par_signature
	line	605
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	606
	colm	46
	synt	any
	field	displacement
	line	606
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	607
	colm	39
	synt	any
	field	level
	line	607
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	mark	L8
	var	2
	var	0
	str	4
	pnull
	var	0
	line	608
	colm	57
	synt	any
	field	par_previous_definition
	line	608
	colm	15
	synt	any
	invoke	3
	unmark
lab L8
	mark	L9
	var	2
	var	0
	str	5
	pnull
	var	0
	line	609
	colm	43
	synt	any
	field	par_scope
	line	609
	colm	15
	synt	any
	invoke	3
	unmark
lab L9
	var	2
	var	0
	str	6
	pnull
	var	0
	line	610
	colm	46
	synt	any
	field	par_only_def
	line	610
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	612
	colm	1
	synt	any
	pfail
	end
proc ParameterNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	613
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	614
	colm	6
	synt	any
	field	__m
	line	614
	colm	10
	synt	any
	field	ConsNode
	line	614
	colm	19
	synt	any
	field	initially
	var	0
	line	614
	colm	30
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	615
	colm	5
	synt	any
	field	par_signature
	var	1
	line	615
	colm	32
	synt	any
	invoke	0
	line	615
	colm	20
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	616
	colm	5
	synt	any
	field	par_previous_definition
	var	1
	line	616
	colm	42
	synt	any
	invoke	0
	line	616
	colm	30
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	pnull
	var	0
	line	617
	colm	5
	synt	any
	field	par_scope
	var	1
	line	617
	colm	29
	synt	any
	invoke	0
	line	617
	colm	17
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	0
	line	618
	colm	5
	synt	any
	field	par_only_def
	var	1
	line	618
	colm	31
	synt	any
	invoke	0
	line	618
	colm	19
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	mark	L7
	pnull
	line	619
	colm	7
	synt	any
	pret
lab L7
	synt	any
	pfail
	unmark
lab L6
	pnull
	line	620
	colm	1
	synt	any
	pfail
	end
proc ParameterNode
	local	0,001000,par_id
	local	1,001000,par_signature
	local	2,001000,displacement
	local	3,001000,level
	local	4,001000,par_previous_definition
	local	5,001000,par_scope
	local	6,001000,par_only_def
	local	7,001000,kind
	local	8,001000,vlineno
	local	9,001000,pre_num
	local	10,001000,post_num
	local	11,001000,unique_id
	local	12,001000,cn_hd_field
	local	13,001000,cn_tl_field
	local	14,000020,self
	local	15,000020,clone
	local	16,000000,ParameterNode__oprec
	local	17,000000,ParameterNodeinitialize
	local	18,000000,Node__oprec
	local	19,000000,Nodeinitialize
	local	20,000000,ConsNode__oprec
	local	21,000000,ConsNodeinitialize
	local	22,000000,ParameterNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	8
	colm	6
	synt	any
	null
	unmark
	var	17
	line	8
	colm	56
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	18
	line	9
	colm	6
	synt	any
	null
	unmark
	var	19
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	16
	line	10
	colm	23
	synt	any
	field	Node
	var	18
	line	10
	colm	29
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	20
	line	11
	colm	6
	synt	any
	null
	unmark
	var	21
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	16
	line	12
	colm	23
	synt	any
	field	ConsNode
	var	20
	line	12
	colm	33
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	14
	var	22
	line	14
	colm	32
	synt	any
	keywd	null
	var	16
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	line	14
	colm	31
	synt	any
	invoke	16
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	14
	line	15
	colm	7
	synt	any
	field	__s
	var	14
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	14
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	14
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	14
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc ParameterNodeinitialize
	local	0,000000,ParameterNode__oprec
	local	1,000000,ParameterNode__methods
	local	2,000000,ParameterNode_trace_node
	local	3,000000,ParameterNode_dump
	local	4,000000,ParameterNode_dump_tree
	local	5,000000,ParameterNode_initially
	local	6,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	57
	synt	any
	invoke	5
	line	21
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc RElementNode_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	con	0,010000,1,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	621
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	622
	colm	6
	synt	any
	field	__m
	line	622
	colm	10
	synt	any
	field	Node
	line	622
	colm	15
	synt	any
	field	trace_node
	var	0
	line	622
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	623
	colm	6
	synt	any
	field	__m
	line	623
	colm	10
	synt	any
	field	ConsNode
	line	623
	colm	19
	synt	any
	field	trace_node
	var	0
	line	623
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	624
	colm	6
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	625
	colm	1
	synt	any
	pfail
	end
proc RElementNode_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,write
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	con	0,010000,10,162,145,137,151,144,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,18,162,145,137,144,145,156,157,164,141,164,151,157,156,040,040,040,075,040
	con	3,010000,17,162,145,137,116,145,167,137,151,156,144,145,170,040,040,040,075,040
	con	4,010000,21,162,145,137,126,141,154,165,145,117,146,137,151,156,144,145,170,040,040,040,075,040
	con	5,010000,20,162,145,137,141,163,163,151,147,156,137,151,156,144,145,170,040,040,040,075,040
	declend
	line	627
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	629
	colm	6
	synt	any
	field	__m
	line	629
	colm	10
	synt	any
	field	Node
	line	629
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	629
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	630
	colm	6
	synt	any
	field	__m
	line	630
	colm	10
	synt	any
	field	ConsNode
	line	630
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	630
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	632
	colm	59
	synt	any
	plus
	line	632
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	632
	colm	95
	synt	any
	field	re_id
	line	632
	colm	90
	synt	any
	invoke	1
	line	632
	colm	78
	synt	any
	cat
	line	632
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	633
	colm	67
	synt	any
	plus
	line	633
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	633
	colm	103
	synt	any
	field	re_denotation
	line	633
	colm	98
	synt	any
	invoke	1
	line	633
	colm	86
	synt	any
	cat
	line	633
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	634
	colm	66
	synt	any
	plus
	line	634
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	634
	colm	102
	synt	any
	field	re_New_index
	line	634
	colm	97
	synt	any
	invoke	1
	line	634
	colm	85
	synt	any
	cat
	line	634
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	635
	colm	70
	synt	any
	plus
	line	635
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	635
	colm	106
	synt	any
	field	re_ValueOf_index
	line	635
	colm	101
	synt	any
	invoke	1
	line	635
	colm	89
	synt	any
	cat
	line	635
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	636
	colm	69
	synt	any
	plus
	line	636
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	636
	colm	105
	synt	any
	field	re_assign_index
	line	636
	colm	100
	synt	any
	invoke	1
	line	636
	colm	88
	synt	any
	cat
	line	636
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	638
	colm	1
	synt	any
	pfail
	end
proc RElementNode_dump_tree
	local	0,001000,self
	local	1,000000,nodes_created_file
	local	2,000000,proc_dump_tree
	con	0,010000,10,162,145,137,151,144,040,040,040,075,040
	con	1,010000,18,162,145,137,144,145,156,157,164,141,164,151,157,156,040,040,040,075,040
	con	2,010000,17,162,145,137,116,145,167,137,151,156,144,145,170,040,040,040,075,040
	con	3,010000,21,162,145,137,126,141,154,165,145,117,146,137,151,156,144,145,170,040,040,040,075,040
	con	4,010000,20,162,145,137,141,163,163,151,147,156,137,151,156,144,145,170,040,040,040,075,040
	declend
	line	639
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	641
	colm	6
	synt	any
	field	__m
	line	641
	colm	10
	synt	any
	field	Node
	line	641
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	641
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	642
	colm	6
	synt	any
	field	__m
	line	642
	colm	10
	synt	any
	field	ConsNode
	line	642
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	642
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	644
	colm	39
	synt	any
	field	re_id
	line	644
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	645
	colm	47
	synt	any
	field	re_denotation
	line	645
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	646
	colm	46
	synt	any
	field	re_New_index
	line	646
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	647
	colm	50
	synt	any
	field	re_ValueOf_index
	line	647
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	var	2
	var	0
	str	4
	pnull
	var	0
	line	648
	colm	49
	synt	any
	field	re_assign_index
	line	648
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	650
	colm	1
	synt	any
	pfail
	end
proc RElementNode_initially
	local	0,001000,self
	declend
	line	651
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	652
	colm	6
	synt	any
	field	__m
	line	652
	colm	10
	synt	any
	field	ConsNode
	line	652
	colm	19
	synt	any
	field	initially
	var	0
	line	652
	colm	30
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	653
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	654
	colm	1
	synt	any
	pfail
	end
proc RElementNode
	local	0,001000,re_id
	local	1,001000,re_denotation
	local	2,001000,re_New_index
	local	3,001000,re_ValueOf_index
	local	4,001000,re_assign_index
	local	5,001000,kind
	local	6,001000,vlineno
	local	7,001000,pre_num
	local	8,001000,post_num
	local	9,001000,unique_id
	local	10,001000,cn_hd_field
	local	11,001000,cn_tl_field
	local	12,000020,self
	local	13,000020,clone
	local	14,000000,RElementNode__oprec
	local	15,000000,RElementNodeinitialize
	local	16,000000,Node__oprec
	local	17,000000,Nodeinitialize
	local	18,000000,ConsNode__oprec
	local	19,000000,ConsNodeinitialize
	local	20,000000,RElementNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	8
	colm	6
	synt	any
	null
	unmark
	var	15
	line	8
	colm	54
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	9
	colm	6
	synt	any
	null
	unmark
	var	17
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	14
	line	10
	colm	22
	synt	any
	field	Node
	var	16
	line	10
	colm	28
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	18
	line	11
	colm	6
	synt	any
	null
	unmark
	var	19
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	14
	line	12
	colm	22
	synt	any
	field	ConsNode
	var	18
	line	12
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	12
	var	20
	line	14
	colm	31
	synt	any
	keywd	null
	var	14
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	line	14
	colm	30
	synt	any
	invoke	14
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	12
	line	15
	colm	7
	synt	any
	field	__s
	var	12
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	12
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	12
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	12
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc RElementNodeinitialize
	local	0,000000,RElementNode__oprec
	local	1,000000,RElementNode__methods
	local	2,000000,RElementNode_trace_node
	local	3,000000,RElementNode_dump
	local	4,000000,RElementNode_dump_tree
	local	5,000000,RElementNode_initially
	local	6,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	55
	synt	any
	invoke	5
	line	21
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc VarSignature_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	con	0,010000,1,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	655
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	656
	colm	6
	synt	any
	field	__m
	line	656
	colm	10
	synt	any
	field	Node
	line	656
	colm	15
	synt	any
	field	trace_node
	var	0
	line	656
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	657
	colm	6
	synt	any
	field	__m
	line	657
	colm	10
	synt	any
	field	ConsNode
	line	657
	colm	19
	synt	any
	field	trace_node
	var	0
	line	657
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	658
	colm	6
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	659
	colm	1
	synt	any
	pfail
	end
proc VarSignature_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,write
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,19,166,141,162,137,144,145,156,157,164,141,164,151,157,156,040,040,040,075,040
	declend
	line	660
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	662
	colm	6
	synt	any
	field	__m
	line	662
	colm	10
	synt	any
	field	Node
	line	662
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	662
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	663
	colm	6
	synt	any
	field	__m
	line	663
	colm	10
	synt	any
	field	ConsNode
	line	663
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	663
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	664
	colm	63
	synt	any
	plus
	line	664
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	664
	colm	99
	synt	any
	field	signature
	line	664
	colm	94
	synt	any
	invoke	1
	line	664
	colm	82
	synt	any
	cat
	line	664
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	665
	colm	62
	synt	any
	plus
	line	665
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	665
	colm	98
	synt	any
	field	sig_done
	line	665
	colm	93
	synt	any
	invoke	1
	line	665
	colm	81
	synt	any
	cat
	line	665
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	666
	colm	68
	synt	any
	plus
	line	666
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	666
	colm	104
	synt	any
	field	var_denotation
	line	666
	colm	99
	synt	any
	invoke	1
	line	666
	colm	87
	synt	any
	cat
	line	666
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	668
	colm	1
	synt	any
	pfail
	end
proc VarSignature_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,19,166,141,162,137,144,145,156,157,164,141,164,151,157,156,040,040,040,075,040
	declend
	line	669
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	671
	colm	6
	synt	any
	field	__m
	line	671
	colm	10
	synt	any
	field	Node
	line	671
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	671
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	672
	colm	6
	synt	any
	field	__m
	line	672
	colm	10
	synt	any
	field	ConsNode
	line	672
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	672
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	673
	colm	43
	synt	any
	field	signature
	line	673
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	674
	colm	42
	synt	any
	field	sig_done
	line	674
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	var	2
	var	0
	str	2
	pnull
	var	0
	line	675
	colm	48
	synt	any
	field	var_denotation
	line	675
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	677
	colm	1
	synt	any
	pfail
	end
proc VarSignature_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	678
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	679
	colm	6
	synt	any
	field	__m
	line	679
	colm	10
	synt	any
	field	ConsNode
	line	679
	colm	19
	synt	any
	field	initially
	var	0
	line	679
	colm	30
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	680
	colm	5
	synt	any
	field	signature
	var	1
	line	680
	colm	28
	synt	any
	invoke	0
	line	680
	colm	16
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	681
	colm	5
	synt	any
	field	var_denotation
	var	1
	line	681
	colm	33
	synt	any
	invoke	0
	line	681
	colm	21
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	line	682
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	683
	colm	1
	synt	any
	pfail
	end
proc VarSignature
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,var_denotation
	local	3,001000,kind
	local	4,001000,vlineno
	local	5,001000,pre_num
	local	6,001000,post_num
	local	7,001000,unique_id
	local	8,001000,cn_hd_field
	local	9,001000,cn_tl_field
	local	10,000020,self
	local	11,000020,clone
	local	12,000000,VarSignature__oprec
	local	13,000000,VarSignatureinitialize
	local	14,000000,Node__oprec
	local	15,000000,Nodeinitialize
	local	16,000000,ConsNode__oprec
	local	17,000000,ConsNodeinitialize
	local	18,000000,VarSignature__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	12
	line	8
	colm	6
	synt	any
	null
	unmark
	var	13
	line	8
	colm	54
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	9
	colm	6
	synt	any
	null
	unmark
	var	15
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	12
	line	10
	colm	22
	synt	any
	field	Node
	var	14
	line	10
	colm	28
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	11
	colm	6
	synt	any
	null
	unmark
	var	17
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	12
	line	12
	colm	22
	synt	any
	field	ConsNode
	var	16
	line	12
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	10
	var	18
	line	14
	colm	31
	synt	any
	keywd	null
	var	12
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	line	14
	colm	30
	synt	any
	invoke	12
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	10
	line	15
	colm	7
	synt	any
	field	__s
	var	10
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	10
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	10
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	10
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc VarSignatureinitialize
	local	0,000000,VarSignature__oprec
	local	1,000000,VarSignature__methods
	local	2,000000,VarSignature_trace_node
	local	3,000000,VarSignature_dump
	local	4,000000,VarSignature_dump_tree
	local	5,000000,VarSignature_initially
	local	6,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	55
	synt	any
	invoke	5
	line	21
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc ValSignature_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	con	0,010000,1,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	684
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	685
	colm	6
	synt	any
	field	__m
	line	685
	colm	10
	synt	any
	field	Node
	line	685
	colm	15
	synt	any
	field	trace_node
	var	0
	line	685
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	686
	colm	6
	synt	any
	field	__m
	line	686
	colm	10
	synt	any
	field	ConsNode
	line	686
	colm	19
	synt	any
	field	trace_node
	var	0
	line	686
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	687
	colm	6
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	688
	colm	1
	synt	any
	pfail
	end
proc ValSignature_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,write
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,19,166,141,154,137,144,145,156,157,164,141,164,151,157,156,040,040,040,075,040
	declend
	line	690
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	692
	colm	6
	synt	any
	field	__m
	line	692
	colm	10
	synt	any
	field	Node
	line	692
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	692
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	693
	colm	6
	synt	any
	field	__m
	line	693
	colm	10
	synt	any
	field	ConsNode
	line	693
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	693
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	695
	colm	63
	synt	any
	plus
	line	695
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	695
	colm	99
	synt	any
	field	signature
	line	695
	colm	94
	synt	any
	invoke	1
	line	695
	colm	82
	synt	any
	cat
	line	695
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	696
	colm	62
	synt	any
	plus
	line	696
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	696
	colm	98
	synt	any
	field	sig_done
	line	696
	colm	93
	synt	any
	invoke	1
	line	696
	colm	81
	synt	any
	cat
	line	696
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	697
	colm	68
	synt	any
	plus
	line	697
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	697
	colm	104
	synt	any
	field	val_denotation
	line	697
	colm	99
	synt	any
	invoke	1
	line	697
	colm	87
	synt	any
	cat
	line	697
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	699
	colm	1
	synt	any
	pfail
	end
proc ValSignature_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,19,166,141,154,137,144,145,156,157,164,141,164,151,157,156,040,040,040,075,040
	declend
	line	700
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	702
	colm	6
	synt	any
	field	__m
	line	702
	colm	10
	synt	any
	field	Node
	line	702
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	702
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	703
	colm	6
	synt	any
	field	__m
	line	703
	colm	10
	synt	any
	field	ConsNode
	line	703
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	703
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	705
	colm	43
	synt	any
	field	signature
	line	705
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	706
	colm	42
	synt	any
	field	sig_done
	line	706
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	var	2
	var	0
	str	2
	pnull
	var	0
	line	707
	colm	48
	synt	any
	field	val_denotation
	line	707
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	709
	colm	1
	synt	any
	pfail
	end
proc ValSignature_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	710
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	711
	colm	6
	synt	any
	field	__m
	line	711
	colm	10
	synt	any
	field	ConsNode
	line	711
	colm	19
	synt	any
	field	initially
	var	0
	line	711
	colm	30
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	712
	colm	5
	synt	any
	field	signature
	var	1
	line	712
	colm	28
	synt	any
	invoke	0
	line	712
	colm	16
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	713
	colm	5
	synt	any
	field	val_denotation
	var	1
	line	713
	colm	33
	synt	any
	invoke	0
	line	713
	colm	21
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	line	714
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	715
	colm	1
	synt	any
	pfail
	end
proc ValSignature
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,val_denotation
	local	3,001000,kind
	local	4,001000,vlineno
	local	5,001000,pre_num
	local	6,001000,post_num
	local	7,001000,unique_id
	local	8,001000,cn_hd_field
	local	9,001000,cn_tl_field
	local	10,000020,self
	local	11,000020,clone
	local	12,000000,ValSignature__oprec
	local	13,000000,ValSignatureinitialize
	local	14,000000,Node__oprec
	local	15,000000,Nodeinitialize
	local	16,000000,ConsNode__oprec
	local	17,000000,ConsNodeinitialize
	local	18,000000,ValSignature__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	12
	line	8
	colm	6
	synt	any
	null
	unmark
	var	13
	line	8
	colm	54
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	9
	colm	6
	synt	any
	null
	unmark
	var	15
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	12
	line	10
	colm	22
	synt	any
	field	Node
	var	14
	line	10
	colm	28
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	11
	colm	6
	synt	any
	null
	unmark
	var	17
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	12
	line	12
	colm	22
	synt	any
	field	ConsNode
	var	16
	line	12
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	10
	var	18
	line	14
	colm	31
	synt	any
	keywd	null
	var	12
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	line	14
	colm	30
	synt	any
	invoke	12
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	10
	line	15
	colm	7
	synt	any
	field	__s
	var	10
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	10
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	10
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	10
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc ValSignatureinitialize
	local	0,000000,ValSignature__oprec
	local	1,000000,ValSignature__methods
	local	2,000000,ValSignature_trace_node
	local	3,000000,ValSignature_dump
	local	4,000000,ValSignature_dump_tree
	local	5,000000,ValSignature_initially
	local	6,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	55
	synt	any
	invoke	5
	line	21
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc FSignature_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	con	0,010000,1,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	716
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	717
	colm	6
	synt	any
	field	__m
	line	717
	colm	10
	synt	any
	field	Node
	line	717
	colm	15
	synt	any
	field	trace_node
	var	0
	line	717
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	718
	colm	6
	synt	any
	field	__m
	line	718
	colm	10
	synt	any
	field	ConsNode
	line	718
	colm	19
	synt	any
	field	trace_node
	var	0
	line	718
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	719
	colm	6
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	720
	colm	1
	synt	any
	pfail
	end
proc FSignature_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,write
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,22,146,163,151,147,137,143,157,156,163,164,162,165,143,164,151,157,156,040,040,040,075,040
	con	4,010000,17,146,163,151,147,137,163,160,145,143,151,141,154,040,040,040,075,040
	con	5,010000,21,146,163,151,147,137,163,154,151,156,153,137,153,156,157,167,156,040,040,040,075,040
	con	6,010000,21,146,163,151,147,137,151,156,154,151,156,145,137,143,157,144,145,040,040,040,075,040
	con	7,010000,20,146,163,151,147,137,160,141,162,141,155,137,154,151,163,164,040,040,040,075,040
	con	8,010000,20,146,163,151,147,137,162,145,163,165,154,164,137,163,151,147,040,040,040,075,040
	con	9,010000,18,146,143,137,143,157,144,145,137,154,141,142,145,154,040,040,040,075,040
	declend
	line	721
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	723
	colm	6
	synt	any
	field	__m
	line	723
	colm	10
	synt	any
	field	Node
	line	723
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	723
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	724
	colm	6
	synt	any
	field	__m
	line	724
	colm	10
	synt	any
	field	ConsNode
	line	724
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	724
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	725
	colm	63
	synt	any
	plus
	line	725
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	725
	colm	99
	synt	any
	field	signature
	line	725
	colm	94
	synt	any
	invoke	1
	line	725
	colm	82
	synt	any
	cat
	line	725
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	726
	colm	62
	synt	any
	plus
	line	726
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	726
	colm	98
	synt	any
	field	sig_done
	line	726
	colm	93
	synt	any
	invoke	1
	line	726
	colm	81
	synt	any
	cat
	line	726
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	727
	colm	71
	synt	any
	plus
	line	727
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	727
	colm	107
	synt	any
	field	fsig_construction
	line	727
	colm	102
	synt	any
	invoke	1
	line	727
	colm	90
	synt	any
	cat
	line	727
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	728
	colm	66
	synt	any
	plus
	line	728
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	728
	colm	102
	synt	any
	field	fsig_special
	line	728
	colm	97
	synt	any
	invoke	1
	line	728
	colm	85
	synt	any
	cat
	line	728
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	729
	colm	70
	synt	any
	plus
	line	729
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	729
	colm	106
	synt	any
	field	fsig_slink_known
	line	729
	colm	101
	synt	any
	invoke	1
	line	729
	colm	89
	synt	any
	cat
	line	729
	colm	18
	synt	any
	invoke	2
	unmark
lab L8
	mark	L9
	var	2
	var	1
	pnull
	var	3
	str	6
	pnull
	int	1
	var	4
	line	730
	colm	70
	synt	any
	plus
	line	730
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	730
	colm	106
	synt	any
	field	fsig_inline_code
	line	730
	colm	101
	synt	any
	invoke	1
	line	730
	colm	89
	synt	any
	cat
	line	730
	colm	18
	synt	any
	invoke	2
	unmark
lab L9
	mark	L10
	var	2
	var	1
	pnull
	var	3
	str	7
	pnull
	int	1
	var	4
	line	731
	colm	69
	synt	any
	plus
	line	731
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	731
	colm	105
	synt	any
	field	fsig_param_list
	line	731
	colm	100
	synt	any
	invoke	1
	line	731
	colm	88
	synt	any
	cat
	line	731
	colm	18
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	var	2
	var	1
	pnull
	var	3
	str	8
	pnull
	int	1
	var	4
	line	732
	colm	69
	synt	any
	plus
	line	732
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	732
	colm	105
	synt	any
	field	fsig_result_sig
	line	732
	colm	100
	synt	any
	invoke	1
	line	732
	colm	88
	synt	any
	cat
	line	732
	colm	18
	synt	any
	invoke	2
	unmark
lab L11
	var	2
	var	1
	pnull
	var	3
	str	9
	pnull
	int	1
	var	4
	line	733
	colm	67
	synt	any
	plus
	line	733
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	733
	colm	103
	synt	any
	field	fc_code_label
	line	733
	colm	98
	synt	any
	invoke	1
	line	733
	colm	86
	synt	any
	cat
	line	733
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	735
	colm	1
	synt	any
	pfail
	end
proc FSignature_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,22,146,163,151,147,137,143,157,156,163,164,162,165,143,164,151,157,156,040,040,040,075,040
	con	3,010000,17,146,163,151,147,137,163,160,145,143,151,141,154,040,040,040,075,040
	con	4,010000,21,146,163,151,147,137,163,154,151,156,153,137,153,156,157,167,156,040,040,040,075,040
	con	5,010000,21,146,163,151,147,137,151,156,154,151,156,145,137,143,157,144,145,040,040,040,075,040
	con	6,010000,20,146,163,151,147,137,160,141,162,141,155,137,154,151,163,164,040,040,040,075,040
	con	7,010000,20,146,163,151,147,137,162,145,163,165,154,164,137,163,151,147,040,040,040,075,040
	con	8,010000,18,146,143,137,143,157,144,145,137,154,141,142,145,154,040,040,040,075,040
	declend
	line	736
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	738
	colm	6
	synt	any
	field	__m
	line	738
	colm	10
	synt	any
	field	Node
	line	738
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	738
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	739
	colm	6
	synt	any
	field	__m
	line	739
	colm	10
	synt	any
	field	ConsNode
	line	739
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	739
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	740
	colm	43
	synt	any
	field	signature
	line	740
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	741
	colm	42
	synt	any
	field	sig_done
	line	741
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	742
	colm	51
	synt	any
	field	fsig_construction
	line	742
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	743
	colm	46
	synt	any
	field	fsig_special
	line	743
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	mark	L8
	var	2
	var	0
	str	4
	pnull
	var	0
	line	744
	colm	50
	synt	any
	field	fsig_slink_known
	line	744
	colm	15
	synt	any
	invoke	3
	unmark
lab L8
	mark	L9
	var	2
	var	0
	str	5
	pnull
	var	0
	line	745
	colm	50
	synt	any
	field	fsig_inline_code
	line	745
	colm	15
	synt	any
	invoke	3
	unmark
lab L9
	mark	L10
	var	2
	var	0
	str	6
	pnull
	var	0
	line	746
	colm	49
	synt	any
	field	fsig_param_list
	line	746
	colm	15
	synt	any
	invoke	3
	unmark
lab L10
	mark	L11
	var	2
	var	0
	str	7
	pnull
	var	0
	line	747
	colm	49
	synt	any
	field	fsig_result_sig
	line	747
	colm	15
	synt	any
	invoke	3
	unmark
lab L11
	var	2
	var	0
	str	8
	pnull
	var	0
	line	748
	colm	47
	synt	any
	field	fc_code_label
	line	748
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	750
	colm	1
	synt	any
	pfail
	end
proc FSignature_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	751
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	752
	colm	6
	synt	any
	field	__m
	line	752
	colm	10
	synt	any
	field	ConsNode
	line	752
	colm	19
	synt	any
	field	initially
	var	0
	line	752
	colm	30
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	753
	colm	5
	synt	any
	field	fsig_param_list
	var	1
	line	753
	colm	34
	synt	any
	invoke	0
	line	753
	colm	22
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	754
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	755
	colm	1
	synt	any
	pfail
	end
proc FSignature
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,fsig_construction
	local	3,001000,fsig_special
	local	4,001000,fsig_slink_known
	local	5,001000,fsig_inline_code
	local	6,001000,fsig_param_list
	local	7,001000,fsig_result_sig
	local	8,001000,fc_code_label
	local	9,001000,kind
	local	10,001000,vlineno
	local	11,001000,pre_num
	local	12,001000,post_num
	local	13,001000,unique_id
	local	14,001000,cn_hd_field
	local	15,001000,cn_tl_field
	local	16,000020,self
	local	17,000020,clone
	local	18,000000,FSignature__oprec
	local	19,000000,FSignatureinitialize
	local	20,000000,Node__oprec
	local	21,000000,Nodeinitialize
	local	22,000000,ConsNode__oprec
	local	23,000000,ConsNodeinitialize
	local	24,000000,FSignature__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	18
	line	8
	colm	6
	synt	any
	null
	unmark
	var	19
	line	8
	colm	50
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	20
	line	9
	colm	6
	synt	any
	null
	unmark
	var	21
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	18
	line	10
	colm	20
	synt	any
	field	Node
	var	20
	line	10
	colm	26
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	22
	line	11
	colm	6
	synt	any
	null
	unmark
	var	23
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	18
	line	12
	colm	20
	synt	any
	field	ConsNode
	var	22
	line	12
	colm	30
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	16
	var	24
	line	14
	colm	29
	synt	any
	keywd	null
	var	18
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	14
	var	15
	line	14
	colm	28
	synt	any
	invoke	18
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	16
	line	15
	colm	7
	synt	any
	field	__s
	var	16
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	16
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	16
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	16
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc FSignatureinitialize
	local	0,000000,FSignature__oprec
	local	1,000000,FSignature__methods
	local	2,000000,FSignature_trace_node
	local	3,000000,FSignature_dump
	local	4,000000,FSignature_dump_tree
	local	5,000000,FSignature_initially
	local	6,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	51
	synt	any
	invoke	5
	line	21
	colm	29
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc TSignature_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	con	0,010000,1,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	756
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	757
	colm	6
	synt	any
	field	__m
	line	757
	colm	10
	synt	any
	field	Node
	line	757
	colm	15
	synt	any
	field	trace_node
	var	0
	line	757
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	758
	colm	6
	synt	any
	field	__m
	line	758
	colm	10
	synt	any
	field	ConsNode
	line	758
	colm	19
	synt	any
	field	trace_node
	var	0
	line	758
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	759
	colm	6
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	760
	colm	1
	synt	any
	pfail
	end
proc TSignature_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,write
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,19,164,163,137,163,151,155,160,154,145,137,164,171,160,145,040,040,040,075,040
	con	4,010000,21,164,163,137,154,157,143,141,154,137,164,171,160,145,137,151,144,040,040,040,075,040
	con	5,010000,13,164,163,137,143,154,151,163,164,040,040,040,075,040
	con	6,010000,27,164,163,137,160,162,145,166,151,157,165,163,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	con	7,010000,18,164,163,137,143,157,156,163,164,137,143,157,144,145,040,040,040,075,040
	con	8,010000,19,164,163,137,163,164,162,151,156,147,137,143,157,144,145,040,040,040,075,040
	con	9,010000,20,164,163,137,145,154,145,155,145,156,164,137,143,157,144,145,040,040,040,075,040
	con	10,010000,18,164,163,137,163,164,162,151,156,147,137,155,141,170,040,040,040,075,040
	con	11,010000,19,164,163,137,155,145,164,141,137,143,157,156,143,141,164,040,040,040,075,040
	declend
	line	761
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	763
	colm	6
	synt	any
	field	__m
	line	763
	colm	10
	synt	any
	field	Node
	line	763
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	763
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	764
	colm	6
	synt	any
	field	__m
	line	764
	colm	10
	synt	any
	field	ConsNode
	line	764
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	764
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	765
	colm	63
	synt	any
	plus
	line	765
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	765
	colm	99
	synt	any
	field	signature
	line	765
	colm	94
	synt	any
	invoke	1
	line	765
	colm	82
	synt	any
	cat
	line	765
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	766
	colm	62
	synt	any
	plus
	line	766
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	766
	colm	98
	synt	any
	field	sig_done
	line	766
	colm	93
	synt	any
	invoke	1
	line	766
	colm	81
	synt	any
	cat
	line	766
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	767
	colm	68
	synt	any
	plus
	line	767
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	767
	colm	104
	synt	any
	field	ts_simple_type
	line	767
	colm	99
	synt	any
	invoke	1
	line	767
	colm	87
	synt	any
	cat
	line	767
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	768
	colm	70
	synt	any
	plus
	line	768
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	768
	colm	106
	synt	any
	field	ts_local_type_id
	line	768
	colm	101
	synt	any
	invoke	1
	line	768
	colm	89
	synt	any
	cat
	line	768
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	769
	colm	62
	synt	any
	plus
	line	769
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	769
	colm	98
	synt	any
	field	ts_clist
	line	769
	colm	93
	synt	any
	invoke	1
	line	769
	colm	81
	synt	any
	cat
	line	769
	colm	18
	synt	any
	invoke	2
	unmark
lab L8
	mark	L9
	var	2
	var	1
	pnull
	var	3
	str	6
	pnull
	int	1
	var	4
	line	770
	colm	76
	synt	any
	plus
	line	770
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	770
	colm	112
	synt	any
	field	ts_previous_definition
	line	770
	colm	107
	synt	any
	invoke	1
	line	770
	colm	95
	synt	any
	cat
	line	770
	colm	18
	synt	any
	invoke	2
	unmark
lab L9
	mark	L10
	var	2
	var	1
	pnull
	var	3
	str	7
	pnull
	int	1
	var	4
	line	771
	colm	67
	synt	any
	plus
	line	771
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	771
	colm	103
	synt	any
	field	ts_const_code
	line	771
	colm	98
	synt	any
	invoke	1
	line	771
	colm	86
	synt	any
	cat
	line	771
	colm	18
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	var	2
	var	1
	pnull
	var	3
	str	8
	pnull
	int	1
	var	4
	line	772
	colm	68
	synt	any
	plus
	line	772
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	772
	colm	104
	synt	any
	field	ts_string_code
	line	772
	colm	99
	synt	any
	invoke	1
	line	772
	colm	87
	synt	any
	cat
	line	772
	colm	18
	synt	any
	invoke	2
	unmark
lab L11
	mark	L12
	var	2
	var	1
	pnull
	var	3
	str	9
	pnull
	int	1
	var	4
	line	773
	colm	69
	synt	any
	plus
	line	773
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	773
	colm	105
	synt	any
	field	ts_element_code
	line	773
	colm	100
	synt	any
	invoke	1
	line	773
	colm	88
	synt	any
	cat
	line	773
	colm	18
	synt	any
	invoke	2
	unmark
lab L12
	mark	L13
	var	2
	var	1
	pnull
	var	3
	str	10
	pnull
	int	1
	var	4
	line	774
	colm	67
	synt	any
	plus
	line	774
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	774
	colm	103
	synt	any
	field	ts_string_max
	line	774
	colm	98
	synt	any
	invoke	1
	line	774
	colm	86
	synt	any
	cat
	line	774
	colm	18
	synt	any
	invoke	2
	unmark
lab L13
	var	2
	var	1
	pnull
	var	3
	str	11
	pnull
	int	1
	var	4
	line	775
	colm	68
	synt	any
	plus
	line	775
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	775
	colm	104
	synt	any
	field	ts_meta_concat
	line	775
	colm	99
	synt	any
	invoke	1
	line	775
	colm	87
	synt	any
	cat
	line	775
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	777
	colm	1
	synt	any
	pfail
	end
proc TSignature_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,19,164,163,137,163,151,155,160,154,145,137,164,171,160,145,040,040,040,075,040
	con	3,010000,21,164,163,137,154,157,143,141,154,137,164,171,160,145,137,151,144,040,040,040,075,040
	con	4,010000,13,164,163,137,143,154,151,163,164,040,040,040,075,040
	con	5,010000,27,164,163,137,160,162,145,166,151,157,165,163,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	con	6,010000,18,164,163,137,143,157,156,163,164,137,143,157,144,145,040,040,040,075,040
	con	7,010000,19,164,163,137,163,164,162,151,156,147,137,143,157,144,145,040,040,040,075,040
	con	8,010000,20,164,163,137,145,154,145,155,145,156,164,137,143,157,144,145,040,040,040,075,040
	con	9,010000,18,164,163,137,163,164,162,151,156,147,137,155,141,170,040,040,040,075,040
	con	10,010000,19,164,163,137,155,145,164,141,137,143,157,156,143,141,164,040,040,040,075,040
	declend
	line	778
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	780
	colm	6
	synt	any
	field	__m
	line	780
	colm	10
	synt	any
	field	Node
	line	780
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	780
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	781
	colm	6
	synt	any
	field	__m
	line	781
	colm	10
	synt	any
	field	ConsNode
	line	781
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	781
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	782
	colm	43
	synt	any
	field	signature
	line	782
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	783
	colm	42
	synt	any
	field	sig_done
	line	783
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	784
	colm	48
	synt	any
	field	ts_simple_type
	line	784
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	785
	colm	50
	synt	any
	field	ts_local_type_id
	line	785
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	mark	L8
	var	2
	var	0
	str	4
	pnull
	var	0
	line	786
	colm	42
	synt	any
	field	ts_clist
	line	786
	colm	15
	synt	any
	invoke	3
	unmark
lab L8
	mark	L9
	var	2
	var	0
	str	5
	pnull
	var	0
	line	787
	colm	56
	synt	any
	field	ts_previous_definition
	line	787
	colm	15
	synt	any
	invoke	3
	unmark
lab L9
	mark	L10
	var	2
	var	0
	str	6
	pnull
	var	0
	line	788
	colm	47
	synt	any
	field	ts_const_code
	line	788
	colm	15
	synt	any
	invoke	3
	unmark
lab L10
	mark	L11
	var	2
	var	0
	str	7
	pnull
	var	0
	line	789
	colm	48
	synt	any
	field	ts_string_code
	line	789
	colm	15
	synt	any
	invoke	3
	unmark
lab L11
	mark	L12
	var	2
	var	0
	str	8
	pnull
	var	0
	line	790
	colm	49
	synt	any
	field	ts_element_code
	line	790
	colm	15
	synt	any
	invoke	3
	unmark
lab L12
	mark	L13
	var	2
	var	0
	str	9
	pnull
	var	0
	line	791
	colm	47
	synt	any
	field	ts_string_max
	line	791
	colm	15
	synt	any
	invoke	3
	unmark
lab L13
	var	2
	var	0
	str	10
	pnull
	var	0
	line	792
	colm	48
	synt	any
	field	ts_meta_concat
	line	792
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	794
	colm	1
	synt	any
	pfail
	end
proc TSignature_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	795
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	796
	colm	6
	synt	any
	field	__m
	line	796
	colm	10
	synt	any
	field	ConsNode
	line	796
	colm	19
	synt	any
	field	initially
	var	0
	line	796
	colm	30
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	797
	colm	5
	synt	any
	field	ts_clist
	var	1
	line	797
	colm	27
	synt	any
	invoke	0
	line	797
	colm	15
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	798
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	799
	colm	1
	synt	any
	pfail
	end
proc TSignature
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,ts_simple_type
	local	3,001000,ts_local_type_id
	local	4,001000,ts_clist
	local	5,001000,ts_previous_definition
	local	6,001000,ts_const_code
	local	7,001000,ts_string_code
	local	8,001000,ts_element_code
	local	9,001000,ts_string_max
	local	10,001000,ts_meta_concat
	local	11,001000,kind
	local	12,001000,vlineno
	local	13,001000,pre_num
	local	14,001000,post_num
	local	15,001000,unique_id
	local	16,001000,cn_hd_field
	local	17,001000,cn_tl_field
	local	18,000020,self
	local	19,000020,clone
	local	20,000000,TSignature__oprec
	local	21,000000,TSignatureinitialize
	local	22,000000,Node__oprec
	local	23,000000,Nodeinitialize
	local	24,000000,ConsNode__oprec
	local	25,000000,ConsNodeinitialize
	local	26,000000,TSignature__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	20
	line	8
	colm	6
	synt	any
	null
	unmark
	var	21
	line	8
	colm	50
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	22
	line	9
	colm	6
	synt	any
	null
	unmark
	var	23
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	20
	line	10
	colm	20
	synt	any
	field	Node
	var	22
	line	10
	colm	26
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	24
	line	11
	colm	6
	synt	any
	null
	unmark
	var	25
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	20
	line	12
	colm	20
	synt	any
	field	ConsNode
	var	24
	line	12
	colm	30
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	18
	var	26
	line	14
	colm	29
	synt	any
	keywd	null
	var	20
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	14
	var	15
	var	16
	var	17
	line	14
	colm	28
	synt	any
	invoke	20
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	18
	line	15
	colm	7
	synt	any
	field	__s
	var	18
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	18
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	18
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	18
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc TSignatureinitialize
	local	0,000000,TSignature__oprec
	local	1,000000,TSignature__methods
	local	2,000000,TSignature_trace_node
	local	3,000000,TSignature_dump
	local	4,000000,TSignature_dump_tree
	local	5,000000,TSignature_initially
	local	6,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	51
	synt	any
	invoke	5
	line	21
	colm	29
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc TSComponentNode_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	con	0,010000,1,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	800
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	801
	colm	6
	synt	any
	field	__m
	line	801
	colm	10
	synt	any
	field	Node
	line	801
	colm	15
	synt	any
	field	trace_node
	var	0
	line	801
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	802
	colm	6
	synt	any
	field	__m
	line	802
	colm	10
	synt	any
	field	ConsNode
	line	802
	colm	19
	synt	any
	field	trace_node
	var	0
	line	802
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	803
	colm	6
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	804
	colm	1
	synt	any
	pfail
	end
proc TSComponentNode_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,write
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	con	0,010000,11,164,163,143,137,151,144,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,18,164,163,143,137,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	declend
	line	805
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	807
	colm	6
	synt	any
	field	__m
	line	807
	colm	10
	synt	any
	field	Node
	line	807
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	807
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	808
	colm	6
	synt	any
	field	__m
	line	808
	colm	10
	synt	any
	field	ConsNode
	line	808
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	808
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	810
	colm	60
	synt	any
	plus
	line	810
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	810
	colm	96
	synt	any
	field	tsc_id
	line	810
	colm	91
	synt	any
	invoke	1
	line	810
	colm	79
	synt	any
	cat
	line	810
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	811
	colm	67
	synt	any
	plus
	line	811
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	811
	colm	103
	synt	any
	field	tsc_signature
	line	811
	colm	98
	synt	any
	invoke	1
	line	811
	colm	86
	synt	any
	cat
	line	811
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	813
	colm	1
	synt	any
	pfail
	end
proc TSComponentNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,11,164,163,143,137,151,144,040,040,040,075,040
	con	1,010000,18,164,163,143,137,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	declend
	line	814
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	816
	colm	6
	synt	any
	field	__m
	line	816
	colm	10
	synt	any
	field	Node
	line	816
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	816
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	817
	colm	6
	synt	any
	field	__m
	line	817
	colm	10
	synt	any
	field	ConsNode
	line	817
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	817
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	819
	colm	40
	synt	any
	field	tsc_id
	line	819
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	var	2
	var	0
	str	1
	pnull
	var	0
	line	820
	colm	47
	synt	any
	field	tsc_signature
	line	820
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	822
	colm	1
	synt	any
	pfail
	end
proc TSComponentNode_initially
	local	0,001000,self
	declend
	line	823
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	824
	colm	6
	synt	any
	field	__m
	line	824
	colm	10
	synt	any
	field	ConsNode
	line	824
	colm	19
	synt	any
	field	initially
	var	0
	line	824
	colm	30
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	825
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	826
	colm	1
	synt	any
	pfail
	end
proc TSComponentNode
	local	0,001000,tsc_id
	local	1,001000,tsc_signature
	local	2,001000,kind
	local	3,001000,vlineno
	local	4,001000,pre_num
	local	5,001000,post_num
	local	6,001000,unique_id
	local	7,001000,cn_hd_field
	local	8,001000,cn_tl_field
	local	9,000020,self
	local	10,000020,clone
	local	11,000000,TSComponentNode__oprec
	local	12,000000,TSComponentNodeinitialize
	local	13,000000,Node__oprec
	local	14,000000,Nodeinitialize
	local	15,000000,ConsNode__oprec
	local	16,000000,ConsNodeinitialize
	local	17,000000,TSComponentNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	11
	line	8
	colm	6
	synt	any
	null
	unmark
	var	12
	line	8
	colm	60
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	13
	line	9
	colm	6
	synt	any
	null
	unmark
	var	14
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	11
	line	10
	colm	25
	synt	any
	field	Node
	var	13
	line	10
	colm	31
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	15
	line	11
	colm	6
	synt	any
	null
	unmark
	var	16
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	11
	line	12
	colm	25
	synt	any
	field	ConsNode
	var	15
	line	12
	colm	35
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	9
	var	17
	line	14
	colm	34
	synt	any
	keywd	null
	var	11
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	line	14
	colm	33
	synt	any
	invoke	11
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	9
	line	15
	colm	7
	synt	any
	field	__s
	var	9
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	9
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	9
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	9
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc TSComponentNodeinitialize
	local	0,000000,TSComponentNode__oprec
	local	1,000000,TSComponentNode__methods
	local	2,000000,TSComponentNode_trace_node
	local	3,000000,TSComponentNode_dump
	local	4,000000,TSComponentNode_dump_tree
	local	5,000000,TSComponentNode_initially
	local	6,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	61
	synt	any
	invoke	5
	line	21
	colm	34
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc DefCharSigNode_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	con	0,010000,1,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	828
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	829
	colm	6
	synt	any
	field	__m
	line	829
	colm	10
	synt	any
	field	Node
	line	829
	colm	15
	synt	any
	field	trace_node
	var	0
	line	829
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	830
	colm	6
	synt	any
	field	__m
	line	830
	colm	10
	synt	any
	field	ConsNode
	line	830
	colm	19
	synt	any
	field	trace_node
	var	0
	line	830
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	831
	colm	6
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	832
	colm	1
	synt	any
	pfail
	end
proc DefCharSigNode_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,write
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	con	0,010000,10,144,143,163,137,060,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,10,144,143,163,137,061,040,040,040,075,040
	con	3,010000,10,144,143,163,137,062,040,040,040,075,040
	con	4,010000,10,144,143,163,137,063,040,040,040,075,040
	con	5,010000,18,144,143,163,145,170,143,145,160,164,151,157,156,163,040,040,040,075,040
	declend
	line	833
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	835
	colm	6
	synt	any
	field	__m
	line	835
	colm	10
	synt	any
	field	Node
	line	835
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	835
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	836
	colm	6
	synt	any
	field	__m
	line	836
	colm	10
	synt	any
	field	ConsNode
	line	836
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	836
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	838
	colm	59
	synt	any
	plus
	line	838
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	838
	colm	95
	synt	any
	field	dcs_0
	line	838
	colm	90
	synt	any
	invoke	1
	line	838
	colm	78
	synt	any
	cat
	line	838
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	839
	colm	59
	synt	any
	plus
	line	839
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	839
	colm	95
	synt	any
	field	dcs_1
	line	839
	colm	90
	synt	any
	invoke	1
	line	839
	colm	78
	synt	any
	cat
	line	839
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	840
	colm	59
	synt	any
	plus
	line	840
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	840
	colm	95
	synt	any
	field	dcs_2
	line	840
	colm	90
	synt	any
	invoke	1
	line	840
	colm	78
	synt	any
	cat
	line	840
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	841
	colm	59
	synt	any
	plus
	line	841
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	841
	colm	95
	synt	any
	field	dcs_3
	line	841
	colm	90
	synt	any
	invoke	1
	line	841
	colm	78
	synt	any
	cat
	line	841
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	842
	colm	67
	synt	any
	plus
	line	842
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	842
	colm	103
	synt	any
	field	dcsexceptions
	line	842
	colm	98
	synt	any
	invoke	1
	line	842
	colm	86
	synt	any
	cat
	line	842
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	844
	colm	1
	synt	any
	pfail
	end
proc DefCharSigNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,10,144,143,163,137,060,040,040,040,075,040
	con	1,010000,10,144,143,163,137,061,040,040,040,075,040
	con	2,010000,10,144,143,163,137,062,040,040,040,075,040
	con	3,010000,10,144,143,163,137,063,040,040,040,075,040
	con	4,010000,18,144,143,163,145,170,143,145,160,164,151,157,156,163,040,040,040,075,040
	declend
	line	845
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	847
	colm	6
	synt	any
	field	__m
	line	847
	colm	10
	synt	any
	field	Node
	line	847
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	847
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	848
	colm	6
	synt	any
	field	__m
	line	848
	colm	10
	synt	any
	field	ConsNode
	line	848
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	848
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	850
	colm	39
	synt	any
	field	dcs_0
	line	850
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	851
	colm	39
	synt	any
	field	dcs_1
	line	851
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	852
	colm	39
	synt	any
	field	dcs_2
	line	852
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	853
	colm	39
	synt	any
	field	dcs_3
	line	853
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	var	2
	var	0
	str	4
	pnull
	var	0
	line	854
	colm	47
	synt	any
	field	dcsexceptions
	line	854
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	856
	colm	1
	synt	any
	pfail
	end
proc DefCharSigNode_initially
	local	0,001000,self
	declend
	line	857
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	858
	colm	6
	synt	any
	field	__m
	line	858
	colm	10
	synt	any
	field	ConsNode
	line	858
	colm	19
	synt	any
	field	initially
	var	0
	line	858
	colm	30
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	859
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	860
	colm	1
	synt	any
	pfail
	end
proc DefCharSigNode
	local	0,001000,dcs_0
	local	1,001000,dcs_1
	local	2,001000,dcs_2
	local	3,001000,dcs_3
	local	4,001000,dcsexceptions
	local	5,001000,kind
	local	6,001000,vlineno
	local	7,001000,pre_num
	local	8,001000,post_num
	local	9,001000,unique_id
	local	10,001000,cn_hd_field
	local	11,001000,cn_tl_field
	local	12,000020,self
	local	13,000020,clone
	local	14,000000,DefCharSigNode__oprec
	local	15,000000,DefCharSigNodeinitialize
	local	16,000000,Node__oprec
	local	17,000000,Nodeinitialize
	local	18,000000,ConsNode__oprec
	local	19,000000,ConsNodeinitialize
	local	20,000000,DefCharSigNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	8
	colm	6
	synt	any
	null
	unmark
	var	15
	line	8
	colm	58
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	9
	colm	6
	synt	any
	null
	unmark
	var	17
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	14
	line	10
	colm	24
	synt	any
	field	Node
	var	16
	line	10
	colm	30
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	18
	line	11
	colm	6
	synt	any
	null
	unmark
	var	19
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	14
	line	12
	colm	24
	synt	any
	field	ConsNode
	var	18
	line	12
	colm	34
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	12
	var	20
	line	14
	colm	33
	synt	any
	keywd	null
	var	14
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	line	14
	colm	32
	synt	any
	invoke	14
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	12
	line	15
	colm	7
	synt	any
	field	__s
	var	12
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	12
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	12
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	12
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc DefCharSigNodeinitialize
	local	0,000000,DefCharSigNode__oprec
	local	1,000000,DefCharSigNode__methods
	local	2,000000,DefCharSigNode_trace_node
	local	3,000000,DefCharSigNode_dump
	local	4,000000,DefCharSigNode_dump_tree
	local	5,000000,DefCharSigNode_initially
	local	6,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	59
	synt	any
	invoke	5
	line	21
	colm	33
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc SignatureSigNode_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	con	0,010000,1,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	862
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	863
	colm	6
	synt	any
	field	__m
	line	863
	colm	10
	synt	any
	field	Node
	line	863
	colm	15
	synt	any
	field	trace_node
	var	0
	line	863
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	864
	colm	6
	synt	any
	field	__m
	line	864
	colm	10
	synt	any
	field	ConsNode
	line	864
	colm	19
	synt	any
	field	trace_node
	var	0
	line	864
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	865
	colm	6
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	866
	colm	1
	synt	any
	pfail
	end
proc SignatureSigNode_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,write
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	declend
	line	867
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	869
	colm	6
	synt	any
	field	__m
	line	869
	colm	10
	synt	any
	field	Node
	line	869
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	869
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	870
	colm	6
	synt	any
	field	__m
	line	870
	colm	10
	synt	any
	field	ConsNode
	line	870
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	870
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	872
	colm	63
	synt	any
	plus
	line	872
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	872
	colm	99
	synt	any
	field	signature
	line	872
	colm	94
	synt	any
	invoke	1
	line	872
	colm	82
	synt	any
	cat
	line	872
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	873
	colm	62
	synt	any
	plus
	line	873
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	873
	colm	98
	synt	any
	field	sig_done
	line	873
	colm	93
	synt	any
	invoke	1
	line	873
	colm	81
	synt	any
	cat
	line	873
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	875
	colm	1
	synt	any
	pfail
	end
proc SignatureSigNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	declend
	line	876
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	878
	colm	6
	synt	any
	field	__m
	line	878
	colm	10
	synt	any
	field	Node
	line	878
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	878
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	879
	colm	6
	synt	any
	field	__m
	line	879
	colm	10
	synt	any
	field	ConsNode
	line	879
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	879
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	881
	colm	43
	synt	any
	field	signature
	line	881
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	var	2
	var	0
	str	1
	pnull
	var	0
	line	882
	colm	42
	synt	any
	field	sig_done
	line	882
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	884
	colm	1
	synt	any
	pfail
	end
proc SignatureSigNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	885
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	886
	colm	6
	synt	any
	field	__m
	line	886
	colm	10
	synt	any
	field	ConsNode
	line	886
	colm	19
	synt	any
	field	initially
	var	0
	line	886
	colm	30
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	887
	colm	5
	synt	any
	field	signature
	var	1
	line	887
	colm	28
	synt	any
	invoke	0
	line	887
	colm	16
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	888
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	889
	colm	1
	synt	any
	pfail
	end
proc SignatureSigNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,kind
	local	3,001000,vlineno
	local	4,001000,pre_num
	local	5,001000,post_num
	local	6,001000,unique_id
	local	7,001000,cn_hd_field
	local	8,001000,cn_tl_field
	local	9,000020,self
	local	10,000020,clone
	local	11,000000,SignatureSigNode__oprec
	local	12,000000,SignatureSigNodeinitialize
	local	13,000000,Node__oprec
	local	14,000000,Nodeinitialize
	local	15,000000,ConsNode__oprec
	local	16,000000,ConsNodeinitialize
	local	17,000000,SignatureSigNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	11
	line	8
	colm	6
	synt	any
	null
	unmark
	var	12
	line	8
	colm	62
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	13
	line	9
	colm	6
	synt	any
	null
	unmark
	var	14
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	11
	line	10
	colm	26
	synt	any
	field	Node
	var	13
	line	10
	colm	32
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	15
	line	11
	colm	6
	synt	any
	null
	unmark
	var	16
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	11
	line	12
	colm	26
	synt	any
	field	ConsNode
	var	15
	line	12
	colm	36
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	9
	var	17
	line	14
	colm	35
	synt	any
	keywd	null
	var	11
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	line	14
	colm	34
	synt	any
	invoke	11
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	9
	line	15
	colm	7
	synt	any
	field	__s
	var	9
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	9
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	9
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	9
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc SignatureSigNodeinitialize
	local	0,000000,SignatureSigNode__oprec
	local	1,000000,SignatureSigNode__methods
	local	2,000000,SignatureSigNode_trace_node
	local	3,000000,SignatureSigNode_dump
	local	4,000000,SignatureSigNode_dump_tree
	local	5,000000,SignatureSigNode_initially
	local	6,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	63
	synt	any
	invoke	5
	line	21
	colm	35
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc BlDenotationNode_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	con	0,010000,1,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	890
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	891
	colm	6
	synt	any
	field	__m
	line	891
	colm	10
	synt	any
	field	Node
	line	891
	colm	15
	synt	any
	field	trace_node
	var	0
	line	891
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	892
	colm	6
	synt	any
	field	__m
	line	892
	colm	10
	synt	any
	field	ConsNode
	line	892
	colm	19
	synt	any
	field	trace_node
	var	0
	line	892
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	893
	colm	6
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	894
	colm	1
	synt	any
	pfail
	end
proc BlDenotationNode_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,write
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,12,141,162,137,163,151,172,145,040,040,040,075,040
	con	4,010000,19,141,162,137,163,164,141,164,151,143,137,154,151,156,153,040,040,040,075,040
	con	5,010000,20,141,162,137,163,164,141,164,151,143,137,154,145,166,145,154,040,040,040,075,040
	con	6,010000,25,142,154,144,137,144,145,143,154,141,162,141,164,151,157,156,137,154,151,163,164,040,040,040,075,040
	con	7,010000,16,142,154,144,137,144,145,156,137,163,145,161,040,040,040,075,040
	con	8,010000,19,142,154,144,137,160,162,145,143,145,144,145,156,143,145,040,040,040,075,040
	con	9,010000,14,142,154,144,137,146,154,141,147,163,040,040,040,075,040
	con	10,010000,17,146,143,137,143,157,144,145,137,154,141,142,145,154,040,040,075,040
	declend
	line	895
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	897
	colm	6
	synt	any
	field	__m
	line	897
	colm	10
	synt	any
	field	Node
	line	897
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	897
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	898
	colm	6
	synt	any
	field	__m
	line	898
	colm	10
	synt	any
	field	ConsNode
	line	898
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	898
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	900
	colm	63
	synt	any
	plus
	line	900
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	900
	colm	99
	synt	any
	field	signature
	line	900
	colm	94
	synt	any
	invoke	1
	line	900
	colm	82
	synt	any
	cat
	line	900
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	901
	colm	62
	synt	any
	plus
	line	901
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	901
	colm	98
	synt	any
	field	sig_done
	line	901
	colm	93
	synt	any
	invoke	1
	line	901
	colm	81
	synt	any
	cat
	line	901
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	902
	colm	61
	synt	any
	plus
	line	902
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	902
	colm	97
	synt	any
	field	ar_size
	line	902
	colm	92
	synt	any
	invoke	1
	line	902
	colm	80
	synt	any
	cat
	line	902
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	903
	colm	68
	synt	any
	plus
	line	903
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	903
	colm	104
	synt	any
	field	ar_static_link
	line	903
	colm	99
	synt	any
	invoke	1
	line	903
	colm	87
	synt	any
	cat
	line	903
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	904
	colm	69
	synt	any
	plus
	line	904
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	904
	colm	105
	synt	any
	field	ar_static_level
	line	904
	colm	100
	synt	any
	invoke	1
	line	904
	colm	88
	synt	any
	cat
	line	904
	colm	18
	synt	any
	invoke	2
	unmark
lab L8
	mark	L9
	var	2
	var	1
	pnull
	var	3
	str	6
	pnull
	int	1
	var	4
	line	905
	colm	74
	synt	any
	plus
	line	905
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	905
	colm	110
	synt	any
	field	bld_declaration_list
	line	905
	colm	105
	synt	any
	invoke	1
	line	905
	colm	93
	synt	any
	cat
	line	905
	colm	18
	synt	any
	invoke	2
	unmark
lab L9
	mark	L10
	var	2
	var	1
	pnull
	var	3
	str	7
	pnull
	int	1
	var	4
	line	906
	colm	65
	synt	any
	plus
	line	906
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	906
	colm	101
	synt	any
	field	bld_den_seq
	line	906
	colm	96
	synt	any
	invoke	1
	line	906
	colm	84
	synt	any
	cat
	line	906
	colm	18
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	var	2
	var	1
	pnull
	var	3
	str	8
	pnull
	int	1
	var	4
	line	907
	colm	68
	synt	any
	plus
	line	907
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	907
	colm	104
	synt	any
	field	bld_precedence
	line	907
	colm	99
	synt	any
	invoke	1
	line	907
	colm	87
	synt	any
	cat
	line	907
	colm	18
	synt	any
	invoke	2
	unmark
lab L11
	mark	L12
	var	2
	var	1
	pnull
	var	3
	str	9
	pnull
	int	1
	var	4
	line	908
	colm	63
	synt	any
	plus
	line	908
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	908
	colm	99
	synt	any
	field	bld_flags
	line	908
	colm	94
	synt	any
	invoke	1
	line	908
	colm	82
	synt	any
	cat
	line	908
	colm	18
	synt	any
	invoke	2
	unmark
lab L12
	var	2
	var	1
	pnull
	var	3
	str	10
	pnull
	int	1
	var	4
	line	909
	colm	66
	synt	any
	plus
	line	909
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	909
	colm	102
	synt	any
	field	fc_code_label
	line	909
	colm	97
	synt	any
	invoke	1
	line	909
	colm	85
	synt	any
	cat
	line	909
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	911
	colm	1
	synt	any
	pfail
	end
proc BlDenotationNode_dump_tree
	local	0,001000,self
	local	1,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,12,141,162,137,163,151,172,145,040,040,040,075,040
	con	3,010000,19,141,162,137,163,164,141,164,151,143,137,154,151,156,153,040,040,040,075,040
	con	4,010000,20,141,162,137,163,164,141,164,151,143,137,154,145,166,145,154,040,040,040,075,040
	con	5,010000,25,142,154,144,137,144,145,143,154,141,162,141,164,151,157,156,137,154,151,163,164,040,040,040,075,040
	con	6,010000,16,142,154,144,137,144,145,156,137,163,145,161,040,040,040,075,040
	con	7,010000,19,142,154,144,137,160,162,145,143,145,144,145,156,143,145,040,040,040,075,040
	con	8,010000,14,142,154,144,137,146,154,141,147,163,040,040,040,075,040
	con	9,010000,18,146,143,137,143,157,144,145,137,154,141,142,145,154,040,040,040,075,040
	declend
	line	912
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	914
	colm	6
	synt	any
	field	__m
	line	914
	colm	10
	synt	any
	field	Node
	line	914
	colm	15
	synt	any
	field	dump_tree
	var	0
	line	914
	colm	25
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	915
	colm	6
	synt	any
	field	__m
	line	915
	colm	10
	synt	any
	field	ConsNode
	line	915
	colm	19
	synt	any
	field	dump_tree
	var	0
	line	915
	colm	29
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	var	0
	str	0
	pnull
	var	0
	line	917
	colm	54
	synt	any
	field	signature
	line	917
	colm	27
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	1
	var	0
	str	1
	pnull
	var	0
	line	918
	colm	53
	synt	any
	field	sig_done
	line	918
	colm	27
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	1
	var	0
	str	2
	pnull
	var	0
	line	919
	colm	52
	synt	any
	field	ar_size
	line	919
	colm	27
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	1
	var	0
	str	3
	pnull
	var	0
	line	920
	colm	59
	synt	any
	field	ar_static_link
	line	920
	colm	27
	synt	any
	invoke	3
	unmark
lab L7
	mark	L8
	var	1
	var	0
	str	4
	pnull
	var	0
	line	921
	colm	60
	synt	any
	field	ar_static_level
	line	921
	colm	27
	synt	any
	invoke	3
	unmark
lab L8
	mark	L9
	var	1
	var	0
	str	5
	pnull
	var	0
	line	922
	colm	65
	synt	any
	field	bld_declaration_list
	line	922
	colm	27
	synt	any
	invoke	3
	unmark
lab L9
	mark	L10
	var	1
	var	0
	str	6
	pnull
	var	0
	line	923
	colm	56
	synt	any
	field	bld_den_seq
	line	923
	colm	27
	synt	any
	invoke	3
	unmark
lab L10
	mark	L11
	var	1
	var	0
	str	7
	pnull
	var	0
	line	924
	colm	59
	synt	any
	field	bld_precedence
	line	924
	colm	27
	synt	any
	invoke	3
	unmark
lab L11
	mark	L12
	var	1
	var	0
	str	8
	pnull
	var	0
	line	925
	colm	54
	synt	any
	field	bld_flags
	line	925
	colm	27
	synt	any
	invoke	3
	unmark
lab L12
	var	1
	var	0
	str	9
	pnull
	var	0
	line	926
	colm	58
	synt	any
	field	fc_code_label
	line	926
	colm	27
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	928
	colm	1
	synt	any
	pfail
	end
proc BlDenotationNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	con	0,002000,1,0
	declend
	line	929
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	930
	colm	6
	synt	any
	field	__m
	line	930
	colm	10
	synt	any
	field	ConsNode
	line	930
	colm	19
	synt	any
	field	initially
	var	0
	line	930
	colm	30
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	931
	colm	5
	synt	any
	field	bld_flags
	int	0
	line	931
	colm	16
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	932
	colm	5
	synt	any
	field	bld_declaration_list
	var	1
	line	932
	colm	39
	synt	any
	invoke	0
	line	932
	colm	27
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	pnull
	var	0
	line	933
	colm	5
	synt	any
	field	bld_den_seq
	var	1
	line	933
	colm	30
	synt	any
	invoke	0
	line	933
	colm	18
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	mark	L6
	pnull
	line	934
	colm	7
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	935
	colm	1
	synt	any
	pfail
	end
proc BlDenotationNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,ar_size
	local	3,001000,ar_static_link
	local	4,001000,ar_static_level
	local	5,001000,bld_declaration_list
	local	6,001000,bld_den_seq
	local	7,001000,bld_precedence
	local	8,001000,bld_flags
	local	9,001000,fc_code_label
	local	10,001000,kind
	local	11,001000,vlineno
	local	12,001000,pre_num
	local	13,001000,post_num
	local	14,001000,unique_id
	local	15,001000,cn_hd_field
	local	16,001000,cn_tl_field
	local	17,000020,self
	local	18,000020,clone
	local	19,000000,BlDenotationNode__oprec
	local	20,000000,BlDenotationNodeinitialize
	local	21,000000,Node__oprec
	local	22,000000,Nodeinitialize
	local	23,000000,ConsNode__oprec
	local	24,000000,ConsNodeinitialize
	local	25,000000,BlDenotationNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	19
	line	8
	colm	6
	synt	any
	null
	unmark
	var	20
	line	8
	colm	62
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	21
	line	9
	colm	6
	synt	any
	null
	unmark
	var	22
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	19
	line	10
	colm	26
	synt	any
	field	Node
	var	21
	line	10
	colm	32
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	23
	line	11
	colm	6
	synt	any
	null
	unmark
	var	24
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	19
	line	12
	colm	26
	synt	any
	field	ConsNode
	var	23
	line	12
	colm	36
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	17
	var	25
	line	14
	colm	35
	synt	any
	keywd	null
	var	19
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	14
	var	15
	var	16
	line	14
	colm	34
	synt	any
	invoke	19
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	17
	line	15
	colm	7
	synt	any
	field	__s
	var	17
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	17
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	17
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	17
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc BlDenotationNodeinitialize
	local	0,000000,BlDenotationNode__oprec
	local	1,000000,BlDenotationNode__methods
	local	2,000000,BlDenotationNode_trace_node
	local	3,000000,BlDenotationNode_dump
	local	4,000000,BlDenotationNode_dump_tree
	local	5,000000,BlDenotationNode_initially
	local	6,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	63
	synt	any
	invoke	5
	line	21
	colm	35
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc UseListNode_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	con	0,010000,1,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	936
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	937
	colm	6
	synt	any
	field	__m
	line	937
	colm	10
	synt	any
	field	Node
	line	937
	colm	15
	synt	any
	field	trace_node
	var	0
	line	937
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	938
	colm	6
	synt	any
	field	__m
	line	938
	colm	10
	synt	any
	field	ConsNode
	line	938
	colm	19
	synt	any
	field	trace_node
	var	0
	line	938
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	939
	colm	6
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	940
	colm	1
	synt	any
	pfail
	end
proc UseListNode_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,treefile
	local	3,000000,write
	local	4,000000,left
	local	5,000000,dump_tree_depth
	local	6,000000,dump_info
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,18,165,163,154,137,164,171,160,145,137,154,151,163,164,040,040,040,075,040
	con	4,010000,16,165,163,154,137,144,145,156,137,163,145,161,040,040,040,075,040
	con	5,010000,22,165,163,154,137,160,162,145,166,151,157,165,163,137,154,151,163,164,040,040,040,075,040
	con	6,010000,19,165,163,154,137,160,162,145,143,145,144,145,156,143,145,040,040,040,075,040
	declend
	line	941
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	943
	colm	6
	synt	any
	field	__m
	line	943
	colm	10
	synt	any
	field	Node
	line	943
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	2
	line	943
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	944
	colm	6
	synt	any
	field	__m
	line	944
	colm	10
	synt	any
	field	ConsNode
	line	944
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	944
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	3
	var	1
	pnull
	var	4
	str	0
	pnull
	int	1
	var	5
	line	945
	colm	63
	synt	any
	plus
	line	945
	colm	42
	synt	any
	invoke	2
	var	6
	pnull
	var	0
	line	945
	colm	99
	synt	any
	field	signature
	line	945
	colm	94
	synt	any
	invoke	1
	line	945
	colm	82
	synt	any
	cat
	line	945
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	3
	var	1
	pnull
	var	4
	str	2
	pnull
	int	1
	var	5
	line	946
	colm	62
	synt	any
	plus
	line	946
	colm	42
	synt	any
	invoke	2
	var	6
	pnull
	var	0
	line	946
	colm	98
	synt	any
	field	sig_done
	line	946
	colm	93
	synt	any
	invoke	1
	line	946
	colm	81
	synt	any
	cat
	line	946
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	3
	var	1
	pnull
	var	4
	str	3
	pnull
	int	1
	var	5
	line	947
	colm	67
	synt	any
	plus
	line	947
	colm	42
	synt	any
	invoke	2
	var	6
	pnull
	var	0
	line	947
	colm	103
	synt	any
	field	usl_type_list
	line	947
	colm	98
	synt	any
	invoke	1
	line	947
	colm	86
	synt	any
	cat
	line	947
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	3
	var	1
	pnull
	var	4
	str	4
	pnull
	int	1
	var	5
	line	948
	colm	65
	synt	any
	plus
	line	948
	colm	42
	synt	any
	invoke	2
	var	6
	pnull
	var	0
	line	948
	colm	101
	synt	any
	field	usl_den_seq
	line	948
	colm	96
	synt	any
	invoke	1
	line	948
	colm	84
	synt	any
	cat
	line	948
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	var	3
	var	1
	pnull
	var	4
	str	5
	pnull
	int	1
	var	5
	line	949
	colm	71
	synt	any
	plus
	line	949
	colm	42
	synt	any
	invoke	2
	var	6
	pnull
	var	0
	line	949
	colm	107
	synt	any
	field	usl_previous_list
	line	949
	colm	102
	synt	any
	invoke	1
	line	949
	colm	90
	synt	any
	cat
	line	949
	colm	18
	synt	any
	invoke	2
	unmark
lab L8
	var	3
	var	1
	pnull
	var	4
	str	6
	pnull
	int	1
	var	5
	line	950
	colm	68
	synt	any
	plus
	line	950
	colm	42
	synt	any
	invoke	2
	var	6
	pnull
	var	0
	line	950
	colm	104
	synt	any
	field	usl_precedence
	line	950
	colm	99
	synt	any
	invoke	1
	line	950
	colm	87
	synt	any
	cat
	line	950
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	952
	colm	1
	synt	any
	pfail
	end
proc UseListNode_dump_tree
	local	0,001000,self
	local	1,000000,nodes_created_file
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,18,165,163,154,137,164,171,160,145,137,154,151,163,164,040,040,040,075,040
	con	3,010000,16,165,163,154,137,144,145,156,137,163,145,161,040,040,040,075,040
	con	4,010000,22,165,163,154,137,160,162,145,166,151,157,165,163,137,154,151,163,164,040,040,040,075,040
	con	5,010000,19,165,163,154,137,160,162,145,143,145,144,145,156,143,145,040,040,040,075,040
	declend
	line	953
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	955
	colm	6
	synt	any
	field	__m
	line	955
	colm	10
	synt	any
	field	Node
	line	955
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	955
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	956
	colm	6
	synt	any
	field	__m
	line	956
	colm	10
	synt	any
	field	ConsNode
	line	956
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	956
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	957
	colm	43
	synt	any
	field	signature
	line	957
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	958
	colm	42
	synt	any
	field	sig_done
	line	958
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	959
	colm	47
	synt	any
	field	usl_type_list
	line	959
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	960
	colm	45
	synt	any
	field	usl_den_seq
	line	960
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	mark	L8
	var	2
	var	0
	str	4
	pnull
	var	0
	line	961
	colm	51
	synt	any
	field	usl_previous_list
	line	961
	colm	15
	synt	any
	invoke	3
	unmark
lab L8
	var	2
	var	0
	str	5
	pnull
	var	0
	line	962
	colm	48
	synt	any
	field	usl_precedence
	line	962
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	964
	colm	1
	synt	any
	pfail
	end
proc UseListNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	965
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	966
	colm	6
	synt	any
	field	__m
	line	966
	colm	10
	synt	any
	field	ConsNode
	line	966
	colm	19
	synt	any
	field	initially
	var	0
	line	966
	colm	30
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	967
	colm	5
	synt	any
	field	usl_type_list
	var	1
	line	967
	colm	32
	synt	any
	invoke	0
	line	967
	colm	20
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	968
	colm	5
	synt	any
	field	usl_previous_list
	var	1
	line	968
	colm	36
	synt	any
	invoke	0
	line	968
	colm	24
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	line	969
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	970
	colm	1
	synt	any
	pfail
	end
proc UseListNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,usl_type_list
	local	3,001000,usl_den_seq
	local	4,001000,usl_previous_list
	local	5,001000,usl_precedence
	local	6,001000,kind
	local	7,001000,vlineno
	local	8,001000,pre_num
	local	9,001000,post_num
	local	10,001000,unique_id
	local	11,001000,cn_hd_field
	local	12,001000,cn_tl_field
	local	13,000020,self
	local	14,000020,clone
	local	15,000000,UseListNode__oprec
	local	16,000000,UseListNodeinitialize
	local	17,000000,Node__oprec
	local	18,000000,Nodeinitialize
	local	19,000000,ConsNode__oprec
	local	20,000000,ConsNodeinitialize
	local	21,000000,UseListNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	15
	line	8
	colm	6
	synt	any
	null
	unmark
	var	16
	line	8
	colm	52
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	17
	line	9
	colm	6
	synt	any
	null
	unmark
	var	18
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	15
	line	10
	colm	21
	synt	any
	field	Node
	var	17
	line	10
	colm	27
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	19
	line	11
	colm	6
	synt	any
	null
	unmark
	var	20
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	15
	line	12
	colm	21
	synt	any
	field	ConsNode
	var	19
	line	12
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	13
	var	21
	line	14
	colm	30
	synt	any
	keywd	null
	var	15
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	line	14
	colm	29
	synt	any
	invoke	15
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	13
	line	15
	colm	7
	synt	any
	field	__s
	var	13
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	13
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	13
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	13
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc UseListNodeinitialize
	local	0,000000,UseListNode__oprec
	local	1,000000,UseListNode__methods
	local	2,000000,UseListNode_trace_node
	local	3,000000,UseListNode_dump
	local	4,000000,UseListNode_dump_tree
	local	5,000000,UseListNode_initially
	local	6,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	53
	synt	any
	invoke	5
	line	21
	colm	30
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc ApplicationNode_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	con	0,010000,1,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	971
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	972
	colm	6
	synt	any
	field	__m
	line	972
	colm	10
	synt	any
	field	Node
	line	972
	colm	15
	synt	any
	field	trace_node
	var	0
	line	972
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	973
	colm	6
	synt	any
	field	__m
	line	973
	colm	10
	synt	any
	field	ConsNode
	line	973
	colm	19
	synt	any
	field	trace_node
	var	0
	line	973
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	974
	colm	6
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	975
	colm	1
	synt	any
	pfail
	end
proc ApplicationNode_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,write
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,16,141,160,137,157,160,145,162,141,164,157,162,040,040,040,075,040
	con	4,010000,12,141,160,137,141,162,147,163,040,040,040,075,040
	con	5,010000,17,141,160,137,166,157,151,144,137,144,145,143,154,040,040,040,075,040
	declend
	line	976
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	978
	colm	6
	synt	any
	field	__m
	line	978
	colm	10
	synt	any
	field	Node
	line	978
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	978
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	979
	colm	6
	synt	any
	field	__m
	line	979
	colm	10
	synt	any
	field	ConsNode
	line	979
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	979
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	980
	colm	63
	synt	any
	plus
	line	980
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	980
	colm	99
	synt	any
	field	signature
	line	980
	colm	94
	synt	any
	invoke	1
	line	980
	colm	82
	synt	any
	cat
	line	980
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	981
	colm	62
	synt	any
	plus
	line	981
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	981
	colm	98
	synt	any
	field	sig_done
	line	981
	colm	93
	synt	any
	invoke	1
	line	981
	colm	81
	synt	any
	cat
	line	981
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	982
	colm	65
	synt	any
	plus
	line	982
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	982
	colm	101
	synt	any
	field	ap_operator
	line	982
	colm	96
	synt	any
	invoke	1
	line	982
	colm	84
	synt	any
	cat
	line	982
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	983
	colm	61
	synt	any
	plus
	line	983
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	983
	colm	97
	synt	any
	field	ap_args
	line	983
	colm	92
	synt	any
	invoke	1
	line	983
	colm	80
	synt	any
	cat
	line	983
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	984
	colm	66
	synt	any
	plus
	line	984
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	984
	colm	102
	synt	any
	field	ap_void_decl
	line	984
	colm	97
	synt	any
	invoke	1
	line	984
	colm	85
	synt	any
	cat
	line	984
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	986
	colm	1
	synt	any
	pfail
	end
proc ApplicationNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,16,141,160,137,157,160,145,162,141,164,157,162,040,040,040,075,040
	con	3,010000,12,141,160,137,141,162,147,163,040,040,040,075,040
	con	4,010000,17,141,160,137,166,157,151,144,137,144,145,143,154,040,040,040,075,040
	declend
	line	987
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	989
	colm	6
	synt	any
	field	__m
	line	989
	colm	10
	synt	any
	field	Node
	line	989
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	989
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	990
	colm	6
	synt	any
	field	__m
	line	990
	colm	10
	synt	any
	field	ConsNode
	line	990
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	990
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	991
	colm	43
	synt	any
	field	signature
	line	991
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	992
	colm	42
	synt	any
	field	sig_done
	line	992
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	993
	colm	45
	synt	any
	field	ap_operator
	line	993
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	994
	colm	41
	synt	any
	field	ap_args
	line	994
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	var	2
	var	0
	str	4
	pnull
	var	0
	line	995
	colm	46
	synt	any
	field	ap_void_decl
	line	995
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	997
	colm	1
	synt	any
	pfail
	end
proc ApplicationNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	998
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	999
	colm	6
	synt	any
	field	__m
	line	999
	colm	10
	synt	any
	field	ConsNode
	line	999
	colm	19
	synt	any
	field	initially
	var	0
	line	999
	colm	30
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	1000
	colm	5
	synt	any
	field	ap_args
	var	1
	line	1000
	colm	26
	synt	any
	invoke	0
	line	1000
	colm	14
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1001
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1002
	colm	1
	synt	any
	pfail
	end
proc ApplicationNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,ap_operator
	local	3,001000,ap_args
	local	4,001000,ap_void_decl
	local	5,001000,kind
	local	6,001000,vlineno
	local	7,001000,pre_num
	local	8,001000,post_num
	local	9,001000,unique_id
	local	10,001000,cn_hd_field
	local	11,001000,cn_tl_field
	local	12,000020,self
	local	13,000020,clone
	local	14,000000,ApplicationNode__oprec
	local	15,000000,ApplicationNodeinitialize
	local	16,000000,Node__oprec
	local	17,000000,Nodeinitialize
	local	18,000000,ConsNode__oprec
	local	19,000000,ConsNodeinitialize
	local	20,000000,ApplicationNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	8
	colm	6
	synt	any
	null
	unmark
	var	15
	line	8
	colm	60
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	9
	colm	6
	synt	any
	null
	unmark
	var	17
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	14
	line	10
	colm	25
	synt	any
	field	Node
	var	16
	line	10
	colm	31
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	18
	line	11
	colm	6
	synt	any
	null
	unmark
	var	19
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	14
	line	12
	colm	25
	synt	any
	field	ConsNode
	var	18
	line	12
	colm	35
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	12
	var	20
	line	14
	colm	34
	synt	any
	keywd	null
	var	14
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	line	14
	colm	33
	synt	any
	invoke	14
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	12
	line	15
	colm	7
	synt	any
	field	__s
	var	12
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	12
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	12
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	12
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc ApplicationNodeinitialize
	local	0,000000,ApplicationNode__oprec
	local	1,000000,ApplicationNode__methods
	local	2,000000,ApplicationNode_trace_node
	local	3,000000,ApplicationNode_dump
	local	4,000000,ApplicationNode_dump_tree
	local	5,000000,ApplicationNode_initially
	local	6,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	61
	synt	any
	invoke	5
	line	21
	colm	34
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc EnumerationNode_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	con	0,010000,1,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	1003
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1004
	colm	6
	synt	any
	field	__m
	line	1004
	colm	10
	synt	any
	field	Node
	line	1004
	colm	15
	synt	any
	field	trace_node
	var	0
	line	1004
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1005
	colm	6
	synt	any
	field	__m
	line	1005
	colm	10
	synt	any
	field	ConsNode
	line	1005
	colm	19
	synt	any
	field	trace_node
	var	0
	line	1005
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1006
	colm	6
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1007
	colm	1
	synt	any
	pfail
	end
proc EnumerationNode_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,write
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,17,145,156,165,155,137,151,144,137,154,151,163,164,040,040,040,075,040
	declend
	line	1008
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1010
	colm	6
	synt	any
	field	__m
	line	1010
	colm	10
	synt	any
	field	Node
	line	1010
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1010
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1011
	colm	6
	synt	any
	field	__m
	line	1011
	colm	10
	synt	any
	field	ConsNode
	line	1011
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1011
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1012
	colm	63
	synt	any
	plus
	line	1012
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1012
	colm	99
	synt	any
	field	signature
	line	1012
	colm	94
	synt	any
	invoke	1
	line	1012
	colm	82
	synt	any
	cat
	line	1012
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1013
	colm	62
	synt	any
	plus
	line	1013
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1013
	colm	98
	synt	any
	field	sig_done
	line	1013
	colm	93
	synt	any
	invoke	1
	line	1013
	colm	81
	synt	any
	cat
	line	1013
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1014
	colm	66
	synt	any
	plus
	line	1014
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1014
	colm	102
	synt	any
	field	enum_id_list
	line	1014
	colm	97
	synt	any
	invoke	1
	line	1014
	colm	85
	synt	any
	cat
	line	1014
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1016
	colm	1
	synt	any
	pfail
	end
proc EnumerationNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,17,145,156,165,155,137,151,144,137,154,151,163,164,040,040,040,075,040
	declend
	line	1017
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1019
	colm	6
	synt	any
	field	__m
	line	1019
	colm	10
	synt	any
	field	Node
	line	1019
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1019
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1020
	colm	6
	synt	any
	field	__m
	line	1020
	colm	10
	synt	any
	field	ConsNode
	line	1020
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1020
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1021
	colm	43
	synt	any
	field	signature
	line	1021
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1022
	colm	42
	synt	any
	field	sig_done
	line	1022
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1023
	colm	46
	synt	any
	field	enum_id_list
	line	1023
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1025
	colm	1
	synt	any
	pfail
	end
proc EnumerationNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	1026
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1027
	colm	6
	synt	any
	field	__m
	line	1027
	colm	10
	synt	any
	field	ConsNode
	line	1027
	colm	19
	synt	any
	field	initially
	var	0
	line	1027
	colm	30
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	1028
	colm	5
	synt	any
	field	enum_id_list
	var	1
	line	1028
	colm	31
	synt	any
	invoke	0
	line	1028
	colm	19
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1029
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1030
	colm	1
	synt	any
	pfail
	end
proc EnumerationNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,enum_id_list
	local	3,001000,kind
	local	4,001000,vlineno
	local	5,001000,pre_num
	local	6,001000,post_num
	local	7,001000,unique_id
	local	8,001000,cn_hd_field
	local	9,001000,cn_tl_field
	local	10,000020,self
	local	11,000020,clone
	local	12,000000,EnumerationNode__oprec
	local	13,000000,EnumerationNodeinitialize
	local	14,000000,Node__oprec
	local	15,000000,Nodeinitialize
	local	16,000000,ConsNode__oprec
	local	17,000000,ConsNodeinitialize
	local	18,000000,EnumerationNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	12
	line	8
	colm	6
	synt	any
	null
	unmark
	var	13
	line	8
	colm	60
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	9
	colm	6
	synt	any
	null
	unmark
	var	15
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	12
	line	10
	colm	25
	synt	any
	field	Node
	var	14
	line	10
	colm	31
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	11
	colm	6
	synt	any
	null
	unmark
	var	17
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	12
	line	12
	colm	25
	synt	any
	field	ConsNode
	var	16
	line	12
	colm	35
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	10
	var	18
	line	14
	colm	34
	synt	any
	keywd	null
	var	12
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	line	14
	colm	33
	synt	any
	invoke	12
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	10
	line	15
	colm	7
	synt	any
	field	__s
	var	10
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	10
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	10
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	10
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc EnumerationNodeinitialize
	local	0,000000,EnumerationNode__oprec
	local	1,000000,EnumerationNode__methods
	local	2,000000,EnumerationNode_trace_node
	local	3,000000,EnumerationNode_dump
	local	4,000000,EnumerationNode_dump_tree
	local	5,000000,EnumerationNode_initially
	local	6,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	61
	synt	any
	invoke	5
	line	21
	colm	34
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc ExtensionNode_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	con	0,010000,1,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	1031
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1032
	colm	6
	synt	any
	field	__m
	line	1032
	colm	10
	synt	any
	field	Node
	line	1032
	colm	15
	synt	any
	field	trace_node
	var	0
	line	1032
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1033
	colm	6
	synt	any
	field	__m
	line	1033
	colm	10
	synt	any
	field	ConsNode
	line	1033
	colm	19
	synt	any
	field	trace_node
	var	0
	line	1033
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1034
	colm	6
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1035
	colm	1
	synt	any
	pfail
	end
proc ExtensionNode_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,write
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,19,145,170,164,137,144,145,156,157,164,141,164,151,157,156,040,040,040,075,040
	con	4,010000,13,111,156,137,151,156,144,145,170,040,040,040,075,040
	con	5,010000,14,117,165,164,137,151,156,144,145,170,040,040,040,075,040
	declend
	line	1036
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1038
	colm	6
	synt	any
	field	__m
	line	1038
	colm	10
	synt	any
	field	Node
	line	1038
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1038
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1039
	colm	6
	synt	any
	field	__m
	line	1039
	colm	10
	synt	any
	field	ConsNode
	line	1039
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1039
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1040
	colm	63
	synt	any
	plus
	line	1040
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1040
	colm	99
	synt	any
	field	signature
	line	1040
	colm	94
	synt	any
	invoke	1
	line	1040
	colm	82
	synt	any
	cat
	line	1040
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1041
	colm	62
	synt	any
	plus
	line	1041
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1041
	colm	98
	synt	any
	field	sig_done
	line	1041
	colm	93
	synt	any
	invoke	1
	line	1041
	colm	81
	synt	any
	cat
	line	1041
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1042
	colm	68
	synt	any
	plus
	line	1042
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1042
	colm	104
	synt	any
	field	ext_denotation
	line	1042
	colm	99
	synt	any
	invoke	1
	line	1042
	colm	87
	synt	any
	cat
	line	1042
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	1043
	colm	62
	synt	any
	plus
	line	1043
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1043
	colm	98
	synt	any
	field	In_index
	line	1043
	colm	93
	synt	any
	invoke	1
	line	1043
	colm	81
	synt	any
	cat
	line	1043
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	1044
	colm	63
	synt	any
	plus
	line	1044
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1044
	colm	99
	synt	any
	field	Out_index
	line	1044
	colm	94
	synt	any
	invoke	1
	line	1044
	colm	82
	synt	any
	cat
	line	1044
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1046
	colm	1
	synt	any
	pfail
	end
proc ExtensionNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,19,145,170,164,137,144,145,156,157,164,141,164,151,157,156,040,040,040,075,040
	con	3,010000,13,111,156,137,151,156,144,145,170,040,040,040,075,040
	con	4,010000,14,117,165,164,137,151,156,144,145,170,040,040,040,075,040
	declend
	line	1047
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1049
	colm	6
	synt	any
	field	__m
	line	1049
	colm	10
	synt	any
	field	Node
	line	1049
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1049
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1050
	colm	6
	synt	any
	field	__m
	line	1050
	colm	10
	synt	any
	field	ConsNode
	line	1050
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1050
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1051
	colm	43
	synt	any
	field	signature
	line	1051
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1052
	colm	42
	synt	any
	field	sig_done
	line	1052
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1053
	colm	48
	synt	any
	field	ext_denotation
	line	1053
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	1054
	colm	42
	synt	any
	field	In_index
	line	1054
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	var	2
	var	0
	str	4
	pnull
	var	0
	line	1055
	colm	43
	synt	any
	field	Out_index
	line	1055
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1057
	colm	1
	synt	any
	pfail
	end
proc ExtensionNode_initially
	local	0,001000,self
	declend
	line	1058
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1059
	colm	6
	synt	any
	field	__m
	line	1059
	colm	10
	synt	any
	field	ConsNode
	line	1059
	colm	19
	synt	any
	field	initially
	var	0
	line	1059
	colm	30
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	1060
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	1061
	colm	1
	synt	any
	pfail
	end
proc ExtensionNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,ext_denotation
	local	3,001000,In_index
	local	4,001000,Out_index
	local	5,001000,kind
	local	6,001000,vlineno
	local	7,001000,pre_num
	local	8,001000,post_num
	local	9,001000,unique_id
	local	10,001000,cn_hd_field
	local	11,001000,cn_tl_field
	local	12,000020,self
	local	13,000020,clone
	local	14,000000,ExtensionNode__oprec
	local	15,000000,ExtensionNodeinitialize
	local	16,000000,Node__oprec
	local	17,000000,Nodeinitialize
	local	18,000000,ConsNode__oprec
	local	19,000000,ConsNodeinitialize
	local	20,000000,ExtensionNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	8
	colm	6
	synt	any
	null
	unmark
	var	15
	line	8
	colm	56
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	9
	colm	6
	synt	any
	null
	unmark
	var	17
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	14
	line	10
	colm	23
	synt	any
	field	Node
	var	16
	line	10
	colm	29
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	18
	line	11
	colm	6
	synt	any
	null
	unmark
	var	19
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	14
	line	12
	colm	23
	synt	any
	field	ConsNode
	var	18
	line	12
	colm	33
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	12
	var	20
	line	14
	colm	32
	synt	any
	keywd	null
	var	14
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	line	14
	colm	31
	synt	any
	invoke	14
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	12
	line	15
	colm	7
	synt	any
	field	__s
	var	12
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	12
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	12
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	12
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc ExtensionNodeinitialize
	local	0,000000,ExtensionNode__oprec
	local	1,000000,ExtensionNode__methods
	local	2,000000,ExtensionNode_trace_node
	local	3,000000,ExtensionNode_dump
	local	4,000000,ExtensionNode_dump_tree
	local	5,000000,ExtensionNode_initially
	local	6,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	57
	synt	any
	invoke	5
	line	21
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc ProductNode_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	con	0,010000,1,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	1062
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1063
	colm	6
	synt	any
	field	__m
	line	1063
	colm	10
	synt	any
	field	Node
	line	1063
	colm	15
	synt	any
	field	trace_node
	var	0
	line	1063
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1064
	colm	6
	synt	any
	field	__m
	line	1064
	colm	10
	synt	any
	field	ConsNode
	line	1064
	colm	19
	synt	any
	field	trace_node
	var	0
	line	1064
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1065
	colm	6
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1066
	colm	1
	synt	any
	pfail
	end
proc ProductNode_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,write
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,23,160,162,157,144,137,154,157,143,141,154,137,164,171,160,145,137,151,144,040,040,040,075,040
	con	4,010000,20,160,162,157,144,137,143,157,155,160,157,156,145,156,164,163,040,040,040,075,040
	con	5,010000,29,160,162,157,144,137,160,162,145,166,151,157,165,163,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	declend
	line	1067
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1069
	colm	6
	synt	any
	field	__m
	line	1069
	colm	10
	synt	any
	field	Node
	line	1069
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1069
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1070
	colm	6
	synt	any
	field	__m
	line	1070
	colm	10
	synt	any
	field	ConsNode
	line	1070
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1070
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1071
	colm	63
	synt	any
	plus
	line	1071
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1071
	colm	99
	synt	any
	field	signature
	line	1071
	colm	94
	synt	any
	invoke	1
	line	1071
	colm	82
	synt	any
	cat
	line	1071
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1072
	colm	62
	synt	any
	plus
	line	1072
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1072
	colm	98
	synt	any
	field	sig_done
	line	1072
	colm	93
	synt	any
	invoke	1
	line	1072
	colm	81
	synt	any
	cat
	line	1072
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1073
	colm	72
	synt	any
	plus
	line	1073
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1073
	colm	108
	synt	any
	field	prod_local_type_id
	line	1073
	colm	103
	synt	any
	invoke	1
	line	1073
	colm	91
	synt	any
	cat
	line	1073
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	1074
	colm	69
	synt	any
	plus
	line	1074
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1074
	colm	105
	synt	any
	field	prod_components
	line	1074
	colm	100
	synt	any
	invoke	1
	line	1074
	colm	88
	synt	any
	cat
	line	1074
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	1075
	colm	78
	synt	any
	plus
	line	1075
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1075
	colm	114
	synt	any
	field	prod_previous_definition
	line	1075
	colm	109
	synt	any
	invoke	1
	line	1075
	colm	97
	synt	any
	cat
	line	1075
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1077
	colm	1
	synt	any
	pfail
	end
proc ProductNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,23,160,162,157,144,137,154,157,143,141,154,137,164,171,160,145,137,151,144,040,040,040,075,040
	con	3,010000,20,160,162,157,144,137,143,157,155,160,157,156,145,156,164,163,040,040,040,075,040
	con	4,010000,29,160,162,157,144,137,160,162,145,166,151,157,165,163,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	declend
	line	1078
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1080
	colm	6
	synt	any
	field	__m
	line	1080
	colm	10
	synt	any
	field	Node
	line	1080
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1080
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1081
	colm	6
	synt	any
	field	__m
	line	1081
	colm	10
	synt	any
	field	ConsNode
	line	1081
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1081
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1082
	colm	43
	synt	any
	field	signature
	line	1082
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1083
	colm	42
	synt	any
	field	sig_done
	line	1083
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1084
	colm	52
	synt	any
	field	prod_local_type_id
	line	1084
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	1085
	colm	49
	synt	any
	field	prod_components
	line	1085
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	var	2
	var	0
	str	4
	pnull
	var	0
	line	1086
	colm	58
	synt	any
	field	prod_previous_definition
	line	1086
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1088
	colm	1
	synt	any
	pfail
	end
proc ProductNode_initially
	local	0,001000,self
	declend
	line	1089
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1090
	colm	6
	synt	any
	field	__m
	line	1090
	colm	10
	synt	any
	field	ConsNode
	line	1090
	colm	19
	synt	any
	field	initially
	var	0
	line	1090
	colm	30
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	1091
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	1092
	colm	1
	synt	any
	pfail
	end
proc ProductNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,prod_local_type_id
	local	3,001000,prod_components
	local	4,001000,prod_previous_definition
	local	5,001000,kind
	local	6,001000,vlineno
	local	7,001000,pre_num
	local	8,001000,post_num
	local	9,001000,unique_id
	local	10,001000,cn_hd_field
	local	11,001000,cn_tl_field
	local	12,000020,self
	local	13,000020,clone
	local	14,000000,ProductNode__oprec
	local	15,000000,ProductNodeinitialize
	local	16,000000,Node__oprec
	local	17,000000,Nodeinitialize
	local	18,000000,ConsNode__oprec
	local	19,000000,ConsNodeinitialize
	local	20,000000,ProductNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	8
	colm	6
	synt	any
	null
	unmark
	var	15
	line	8
	colm	52
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	9
	colm	6
	synt	any
	null
	unmark
	var	17
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	14
	line	10
	colm	21
	synt	any
	field	Node
	var	16
	line	10
	colm	27
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	18
	line	11
	colm	6
	synt	any
	null
	unmark
	var	19
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	14
	line	12
	colm	21
	synt	any
	field	ConsNode
	var	18
	line	12
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	12
	var	20
	line	14
	colm	30
	synt	any
	keywd	null
	var	14
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	line	14
	colm	29
	synt	any
	invoke	14
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	12
	line	15
	colm	7
	synt	any
	field	__s
	var	12
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	12
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	12
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	12
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc ProductNodeinitialize
	local	0,000000,ProductNode__oprec
	local	1,000000,ProductNode__methods
	local	2,000000,ProductNode_trace_node
	local	3,000000,ProductNode_dump
	local	4,000000,ProductNode_dump_tree
	local	5,000000,ProductNode_initially
	local	6,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	53
	synt	any
	invoke	5
	line	21
	colm	30
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc RecordConstructionNode_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	con	0,010000,1,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	1093
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1094
	colm	6
	synt	any
	field	__m
	line	1094
	colm	10
	synt	any
	field	Node
	line	1094
	colm	15
	synt	any
	field	trace_node
	var	0
	line	1094
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1095
	colm	6
	synt	any
	field	__m
	line	1095
	colm	10
	synt	any
	field	ConsNode
	line	1095
	colm	19
	synt	any
	field	trace_node
	var	0
	line	1095
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1096
	colm	6
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1097
	colm	1
	synt	any
	pfail
	end
proc RecordConstructionNode_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,write
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,23,162,145,143,137,143,157,155,160,157,156,145,156,164,137,154,151,163,164,040,040,040,075,040
	con	4,010000,28,162,145,143,137,160,162,145,166,151,157,165,163,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	declend
	line	1098
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1100
	colm	6
	synt	any
	field	__m
	line	1100
	colm	10
	synt	any
	field	Node
	line	1100
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1100
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1101
	colm	6
	synt	any
	field	__m
	line	1101
	colm	10
	synt	any
	field	ConsNode
	line	1101
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1101
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1102
	colm	63
	synt	any
	plus
	line	1102
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1102
	colm	99
	synt	any
	field	signature
	line	1102
	colm	94
	synt	any
	invoke	1
	line	1102
	colm	82
	synt	any
	cat
	line	1102
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1103
	colm	62
	synt	any
	plus
	line	1103
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1103
	colm	98
	synt	any
	field	sig_done
	line	1103
	colm	93
	synt	any
	invoke	1
	line	1103
	colm	81
	synt	any
	cat
	line	1103
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1104
	colm	72
	synt	any
	plus
	line	1104
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1104
	colm	108
	synt	any
	field	rec_component_list
	line	1104
	colm	103
	synt	any
	invoke	1
	line	1104
	colm	91
	synt	any
	cat
	line	1104
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	1105
	colm	77
	synt	any
	plus
	line	1105
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1105
	colm	113
	synt	any
	field	rec_previous_definition
	line	1105
	colm	108
	synt	any
	invoke	1
	line	1105
	colm	96
	synt	any
	cat
	line	1105
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1107
	colm	1
	synt	any
	pfail
	end
proc RecordConstructionNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,23,162,145,143,137,143,157,155,160,157,156,145,156,164,137,154,151,163,164,040,040,040,075,040
	con	3,010000,28,162,145,143,137,160,162,145,166,151,157,165,163,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	declend
	line	1108
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1110
	colm	6
	synt	any
	field	__m
	line	1110
	colm	10
	synt	any
	field	Node
	line	1110
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1110
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1111
	colm	6
	synt	any
	field	__m
	line	1111
	colm	10
	synt	any
	field	ConsNode
	line	1111
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1111
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1112
	colm	43
	synt	any
	field	signature
	line	1112
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1113
	colm	42
	synt	any
	field	sig_done
	line	1113
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1114
	colm	52
	synt	any
	field	rec_component_list
	line	1114
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	var	2
	var	0
	str	3
	pnull
	var	0
	line	1115
	colm	57
	synt	any
	field	rec_previous_definition
	line	1115
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1117
	colm	1
	synt	any
	pfail
	end
proc RecordConstructionNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	1118
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1119
	colm	6
	synt	any
	field	__m
	line	1119
	colm	10
	synt	any
	field	ConsNode
	line	1119
	colm	19
	synt	any
	field	initially
	var	0
	line	1119
	colm	30
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	1120
	colm	5
	synt	any
	field	rec_component_list
	var	1
	line	1120
	colm	37
	synt	any
	invoke	0
	line	1120
	colm	25
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1121
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1122
	colm	1
	synt	any
	pfail
	end
proc RecordConstructionNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,rec_component_list
	local	3,001000,rec_previous_definition
	local	4,001000,kind
	local	5,001000,vlineno
	local	6,001000,pre_num
	local	7,001000,post_num
	local	8,001000,unique_id
	local	9,001000,cn_hd_field
	local	10,001000,cn_tl_field
	local	11,000020,self
	local	12,000020,clone
	local	13,000000,RecordConstructionNode__oprec
	local	14,000000,RecordConstructionNodeinitialize
	local	15,000000,Node__oprec
	local	16,000000,Nodeinitialize
	local	17,000000,ConsNode__oprec
	local	18,000000,ConsNodeinitialize
	local	19,000000,RecordConstructionNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	13
	line	8
	colm	6
	synt	any
	null
	unmark
	var	14
	line	8
	colm	74
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	15
	line	9
	colm	6
	synt	any
	null
	unmark
	var	16
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	13
	line	10
	colm	32
	synt	any
	field	Node
	var	15
	line	10
	colm	38
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	17
	line	11
	colm	6
	synt	any
	null
	unmark
	var	18
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	13
	line	12
	colm	32
	synt	any
	field	ConsNode
	var	17
	line	12
	colm	42
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	11
	var	19
	line	14
	colm	41
	synt	any
	keywd	null
	var	13
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	line	14
	colm	40
	synt	any
	invoke	13
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	11
	line	15
	colm	7
	synt	any
	field	__s
	var	11
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	11
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	11
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	11
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc RecordConstructionNodeinitialize
	local	0,000000,RecordConstructionNode__oprec
	local	1,000000,RecordConstructionNode__methods
	local	2,000000,RecordConstructionNode_trace_node
	local	3,000000,RecordConstructionNode_dump
	local	4,000000,RecordConstructionNode_dump_tree
	local	5,000000,RecordConstructionNode_initially
	local	6,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	75
	synt	any
	invoke	5
	line	21
	colm	41
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc UnionConstructionNode_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	con	0,010000,1,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	1123
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1124
	colm	6
	synt	any
	field	__m
	line	1124
	colm	10
	synt	any
	field	Node
	line	1124
	colm	15
	synt	any
	field	trace_node
	var	0
	line	1124
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1125
	colm	6
	synt	any
	field	__m
	line	1125
	colm	10
	synt	any
	field	ConsNode
	line	1125
	colm	19
	synt	any
	field	trace_node
	var	0
	line	1125
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1126
	colm	6
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1127
	colm	1
	synt	any
	pfail
	end
proc UnionConstructionNode_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,write
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,23,160,162,157,144,137,154,157,143,141,154,137,164,171,160,145,137,151,144,040,040,040,075,040
	con	4,010000,20,160,162,157,144,137,143,157,155,160,157,156,145,156,164,163,040,040,040,075,040
	con	5,010000,29,160,162,157,144,137,160,162,145,166,151,157,165,163,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	declend
	line	1128
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1130
	colm	6
	synt	any
	field	__m
	line	1130
	colm	10
	synt	any
	field	Node
	line	1130
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1130
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1131
	colm	6
	synt	any
	field	__m
	line	1131
	colm	10
	synt	any
	field	ConsNode
	line	1131
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1131
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1132
	colm	63
	synt	any
	plus
	line	1132
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1132
	colm	99
	synt	any
	field	signature
	line	1132
	colm	94
	synt	any
	invoke	1
	line	1132
	colm	82
	synt	any
	cat
	line	1132
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1133
	colm	62
	synt	any
	plus
	line	1133
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1133
	colm	98
	synt	any
	field	sig_done
	line	1133
	colm	93
	synt	any
	invoke	1
	line	1133
	colm	81
	synt	any
	cat
	line	1133
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1134
	colm	72
	synt	any
	plus
	line	1134
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1134
	colm	108
	synt	any
	field	prod_local_type_id
	line	1134
	colm	103
	synt	any
	invoke	1
	line	1134
	colm	91
	synt	any
	cat
	line	1134
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	1135
	colm	69
	synt	any
	plus
	line	1135
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1135
	colm	105
	synt	any
	field	prod_components
	line	1135
	colm	100
	synt	any
	invoke	1
	line	1135
	colm	88
	synt	any
	cat
	line	1135
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	1136
	colm	78
	synt	any
	plus
	line	1136
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1136
	colm	114
	synt	any
	field	prod_previous_definition
	line	1136
	colm	109
	synt	any
	invoke	1
	line	1136
	colm	97
	synt	any
	cat
	line	1136
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1138
	colm	1
	synt	any
	pfail
	end
proc UnionConstructionNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,23,160,162,157,144,137,154,157,143,141,154,137,164,171,160,145,137,151,144,040,040,040,075,040
	con	3,010000,20,160,162,157,144,137,143,157,155,160,157,156,145,156,164,163,040,040,040,075,040
	con	4,010000,29,160,162,157,144,137,160,162,145,166,151,157,165,163,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	declend
	line	1139
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1141
	colm	6
	synt	any
	field	__m
	line	1141
	colm	10
	synt	any
	field	Node
	line	1141
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1141
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1142
	colm	6
	synt	any
	field	__m
	line	1142
	colm	10
	synt	any
	field	ConsNode
	line	1142
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1142
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1143
	colm	43
	synt	any
	field	signature
	line	1143
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1144
	colm	42
	synt	any
	field	sig_done
	line	1144
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1145
	colm	52
	synt	any
	field	prod_local_type_id
	line	1145
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	1146
	colm	49
	synt	any
	field	prod_components
	line	1146
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	var	2
	var	0
	str	4
	pnull
	var	0
	line	1147
	colm	58
	synt	any
	field	prod_previous_definition
	line	1147
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1149
	colm	1
	synt	any
	pfail
	end
proc UnionConstructionNode_initially
	local	0,001000,self
	declend
	line	1150
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1151
	colm	6
	synt	any
	field	__m
	line	1151
	colm	10
	synt	any
	field	ConsNode
	line	1151
	colm	19
	synt	any
	field	initially
	var	0
	line	1151
	colm	30
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	1152
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	1153
	colm	1
	synt	any
	pfail
	end
proc UnionConstructionNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,prod_local_type_id
	local	3,001000,prod_components
	local	4,001000,prod_previous_definition
	local	5,001000,kind
	local	6,001000,vlineno
	local	7,001000,pre_num
	local	8,001000,post_num
	local	9,001000,unique_id
	local	10,001000,cn_hd_field
	local	11,001000,cn_tl_field
	local	12,000020,self
	local	13,000020,clone
	local	14,000000,UnionConstructionNode__oprec
	local	15,000000,UnionConstructionNodeinitialize
	local	16,000000,Node__oprec
	local	17,000000,Nodeinitialize
	local	18,000000,ConsNode__oprec
	local	19,000000,ConsNodeinitialize
	local	20,000000,UnionConstructionNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	8
	colm	6
	synt	any
	null
	unmark
	var	15
	line	8
	colm	72
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	9
	colm	6
	synt	any
	null
	unmark
	var	17
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	14
	line	10
	colm	31
	synt	any
	field	Node
	var	16
	line	10
	colm	37
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	18
	line	11
	colm	6
	synt	any
	null
	unmark
	var	19
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	14
	line	12
	colm	31
	synt	any
	field	ConsNode
	var	18
	line	12
	colm	41
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	12
	var	20
	line	14
	colm	40
	synt	any
	keywd	null
	var	14
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	line	14
	colm	39
	synt	any
	invoke	14
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	12
	line	15
	colm	7
	synt	any
	field	__s
	var	12
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	12
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	12
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	12
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc UnionConstructionNodeinitialize
	local	0,000000,UnionConstructionNode__oprec
	local	1,000000,UnionConstructionNode__methods
	local	2,000000,UnionConstructionNode_trace_node
	local	3,000000,UnionConstructionNode_dump
	local	4,000000,UnionConstructionNode_dump_tree
	local	5,000000,UnionConstructionNode_initially
	local	6,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	73
	synt	any
	invoke	5
	line	21
	colm	40
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc WithListNode_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	con	0,010000,1,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	1154
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1155
	colm	6
	synt	any
	field	__m
	line	1155
	colm	10
	synt	any
	field	Node
	line	1155
	colm	15
	synt	any
	field	trace_node
	var	0
	line	1155
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1156
	colm	6
	synt	any
	field	__m
	line	1156
	colm	10
	synt	any
	field	ConsNode
	line	1156
	colm	19
	synt	any
	field	trace_node
	var	0
	line	1156
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1157
	colm	6
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1158
	colm	1
	synt	any
	pfail
	end
proc WithListNode_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,write
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	con	0,010000,21,167,154,137,154,157,143,141,154,137,164,171,160,145,137,151,144,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,22,167,154,137,143,157,155,160,157,156,145,156,164,137,154,151,163,164,040,040,040,075,040
	con	3,010000,27,167,154,137,160,162,145,166,151,157,165,163,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	declend
	line	1159
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1162
	colm	6
	synt	any
	field	__m
	line	1162
	colm	10
	synt	any
	field	Node
	line	1162
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1162
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1163
	colm	6
	synt	any
	field	__m
	line	1163
	colm	10
	synt	any
	field	ConsNode
	line	1163
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1163
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1164
	colm	70
	synt	any
	plus
	line	1164
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1164
	colm	106
	synt	any
	field	wl_local_type_id
	line	1164
	colm	101
	synt	any
	invoke	1
	line	1164
	colm	89
	synt	any
	cat
	line	1164
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1165
	colm	71
	synt	any
	plus
	line	1165
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1165
	colm	107
	synt	any
	field	wl_component_list
	line	1165
	colm	102
	synt	any
	invoke	1
	line	1165
	colm	90
	synt	any
	cat
	line	1165
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1166
	colm	76
	synt	any
	plus
	line	1166
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1166
	colm	112
	synt	any
	field	wl_previous_definition
	line	1166
	colm	107
	synt	any
	invoke	1
	line	1166
	colm	95
	synt	any
	cat
	line	1166
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1168
	colm	1
	synt	any
	pfail
	end
proc WithListNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,21,167,154,137,154,157,143,141,154,137,164,171,160,145,137,151,144,040,040,040,075,040
	con	1,010000,22,167,154,137,143,157,155,160,157,156,145,156,164,137,154,151,163,164,040,040,040,075,040
	con	2,010000,27,167,154,137,160,162,145,166,151,157,165,163,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	declend
	line	1169
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1172
	colm	6
	synt	any
	field	__m
	line	1172
	colm	10
	synt	any
	field	Node
	line	1172
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1172
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1173
	colm	6
	synt	any
	field	__m
	line	1173
	colm	10
	synt	any
	field	ConsNode
	line	1173
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1173
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1174
	colm	50
	synt	any
	field	wl_local_type_id
	line	1174
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1175
	colm	51
	synt	any
	field	wl_component_list
	line	1175
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1176
	colm	56
	synt	any
	field	wl_previous_definition
	line	1176
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1178
	colm	1
	synt	any
	pfail
	end
proc WithListNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	1179
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1180
	colm	6
	synt	any
	field	__m
	line	1180
	colm	10
	synt	any
	field	ConsNode
	line	1180
	colm	19
	synt	any
	field	initially
	var	0
	line	1180
	colm	30
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	1181
	colm	5
	synt	any
	field	wl_component_list
	var	1
	line	1181
	colm	36
	synt	any
	invoke	0
	line	1181
	colm	24
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1182
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1183
	colm	1
	synt	any
	pfail
	end
proc WithListNode
	local	0,001000,wl_local_type_id
	local	1,001000,wl_component_list
	local	2,001000,wl_previous_definition
	local	3,001000,kind
	local	4,001000,vlineno
	local	5,001000,pre_num
	local	6,001000,post_num
	local	7,001000,unique_id
	local	8,001000,cn_hd_field
	local	9,001000,cn_tl_field
	local	10,000020,self
	local	11,000020,clone
	local	12,000000,WithListNode__oprec
	local	13,000000,WithListNodeinitialize
	local	14,000000,Node__oprec
	local	15,000000,Nodeinitialize
	local	16,000000,ConsNode__oprec
	local	17,000000,ConsNodeinitialize
	local	18,000000,WithListNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	12
	line	8
	colm	6
	synt	any
	null
	unmark
	var	13
	line	8
	colm	54
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	9
	colm	6
	synt	any
	null
	unmark
	var	15
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	12
	line	10
	colm	22
	synt	any
	field	Node
	var	14
	line	10
	colm	28
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	11
	colm	6
	synt	any
	null
	unmark
	var	17
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	12
	line	12
	colm	22
	synt	any
	field	ConsNode
	var	16
	line	12
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	10
	var	18
	line	14
	colm	31
	synt	any
	keywd	null
	var	12
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	line	14
	colm	30
	synt	any
	invoke	12
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	10
	line	15
	colm	7
	synt	any
	field	__s
	var	10
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	10
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	10
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	10
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc WithListNodeinitialize
	local	0,000000,WithListNode__oprec
	local	1,000000,WithListNode__methods
	local	2,000000,WithListNode_trace_node
	local	3,000000,WithListNode_dump
	local	4,000000,WithListNode_dump_tree
	local	5,000000,WithListNode_initially
	local	6,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	55
	synt	any
	invoke	5
	line	21
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc ModPrimaryNode_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	con	0,010000,1,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	1184
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1185
	colm	6
	synt	any
	field	__m
	line	1185
	colm	10
	synt	any
	field	Node
	line	1185
	colm	15
	synt	any
	field	trace_node
	var	0
	line	1185
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1186
	colm	6
	synt	any
	field	__m
	line	1186
	colm	10
	synt	any
	field	ConsNode
	line	1186
	colm	19
	synt	any
	field	trace_node
	var	0
	line	1186
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1187
	colm	6
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1188
	colm	1
	synt	any
	pfail
	end
proc ModPrimaryNode_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,write
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,17,144,151,163,160,154,141,143,145,155,145,156,164,040,040,040,075,040
	con	4,010000,10,154,145,166,145,154,040,040,040,075,040
	con	5,010000,15,155,160,137,160,162,151,155,141,162,171,040,040,040,075,040
	con	6,010000,21,155,160,137,164,171,160,145,137,155,157,144,151,146,151,145,162,040,040,040,075,040
	con	7,010000,16,155,160,137,144,145,154,145,164,145,137,166,040,040,040,075,040
	con	8,010000,19,155,160,137,157,162,151,147,137,154,145,156,147,164,150,040,040,040,075,040
	con	9,010000,14,155,160,137,156,145,145,144,145,144,040,040,040,075,040
	con	10,010000,20,155,160,137,156,157,137,163,165,162,162,137,154,157,157,160,040,040,040,075,040
	declend
	line	1189
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1191
	colm	6
	synt	any
	field	__m
	line	1191
	colm	10
	synt	any
	field	Node
	line	1191
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1191
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1192
	colm	6
	synt	any
	field	__m
	line	1192
	colm	10
	synt	any
	field	ConsNode
	line	1192
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1192
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1193
	colm	63
	synt	any
	plus
	line	1193
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1193
	colm	99
	synt	any
	field	signature
	line	1193
	colm	94
	synt	any
	invoke	1
	line	1193
	colm	82
	synt	any
	cat
	line	1193
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1194
	colm	62
	synt	any
	plus
	line	1194
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1194
	colm	98
	synt	any
	field	sig_done
	line	1194
	colm	93
	synt	any
	invoke	1
	line	1194
	colm	81
	synt	any
	cat
	line	1194
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1195
	colm	66
	synt	any
	plus
	line	1195
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1195
	colm	102
	synt	any
	field	displacement
	line	1195
	colm	97
	synt	any
	invoke	1
	line	1195
	colm	85
	synt	any
	cat
	line	1195
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	1196
	colm	59
	synt	any
	plus
	line	1196
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1196
	colm	95
	synt	any
	field	level
	line	1196
	colm	90
	synt	any
	invoke	1
	line	1196
	colm	78
	synt	any
	cat
	line	1196
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	1197
	colm	64
	synt	any
	plus
	line	1197
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1197
	colm	100
	synt	any
	field	mp_primary
	line	1197
	colm	95
	synt	any
	invoke	1
	line	1197
	colm	83
	synt	any
	cat
	line	1197
	colm	18
	synt	any
	invoke	2
	unmark
lab L8
	mark	L9
	var	2
	var	1
	pnull
	var	3
	str	6
	pnull
	int	1
	var	4
	line	1198
	colm	70
	synt	any
	plus
	line	1198
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1198
	colm	106
	synt	any
	field	mp_type_modifier
	line	1198
	colm	101
	synt	any
	invoke	1
	line	1198
	colm	89
	synt	any
	cat
	line	1198
	colm	18
	synt	any
	invoke	2
	unmark
lab L9
	mark	L10
	var	2
	var	1
	pnull
	var	3
	str	7
	pnull
	int	1
	var	4
	line	1199
	colm	65
	synt	any
	plus
	line	1199
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1199
	colm	101
	synt	any
	field	mp_delete_v
	line	1199
	colm	96
	synt	any
	invoke	1
	line	1199
	colm	84
	synt	any
	cat
	line	1199
	colm	18
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	var	2
	var	1
	pnull
	var	3
	str	8
	pnull
	int	1
	var	4
	line	1200
	colm	68
	synt	any
	plus
	line	1200
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1200
	colm	104
	synt	any
	field	mp_orig_length
	line	1200
	colm	99
	synt	any
	invoke	1
	line	1200
	colm	87
	synt	any
	cat
	line	1200
	colm	18
	synt	any
	invoke	2
	unmark
lab L11
	mark	L12
	var	2
	var	1
	pnull
	var	3
	str	9
	pnull
	int	1
	var	4
	line	1201
	colm	63
	synt	any
	plus
	line	1201
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1201
	colm	99
	synt	any
	field	mp_needed
	line	1201
	colm	94
	synt	any
	invoke	1
	line	1201
	colm	82
	synt	any
	cat
	line	1201
	colm	18
	synt	any
	invoke	2
	unmark
lab L12
	var	2
	var	1
	pnull
	var	3
	str	10
	pnull
	int	1
	var	4
	line	1202
	colm	69
	synt	any
	plus
	line	1202
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1202
	colm	105
	synt	any
	field	mp_no_surr_loop
	line	1202
	colm	100
	synt	any
	invoke	1
	line	1202
	colm	88
	synt	any
	cat
	line	1202
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1204
	colm	1
	synt	any
	pfail
	end
proc ModPrimaryNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,17,144,151,163,160,154,141,143,145,155,145,156,164,040,040,040,075,040
	con	3,010000,10,154,145,166,145,154,040,040,040,075,040
	con	4,010000,15,155,160,137,160,162,151,155,141,162,171,040,040,040,075,040
	con	5,010000,21,155,160,137,164,171,160,145,137,155,157,144,151,146,151,145,162,040,040,040,075,040
	con	6,010000,16,155,160,137,144,145,154,145,164,145,137,166,040,040,040,075,040
	con	7,010000,19,155,160,137,157,162,151,147,137,154,145,156,147,164,150,040,040,040,075,040
	con	8,010000,14,155,160,137,156,145,145,144,145,144,040,040,040,075,040
	con	9,010000,20,155,160,137,156,157,137,163,165,162,162,137,154,157,157,160,040,040,040,075,040
	declend
	line	1205
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1207
	colm	6
	synt	any
	field	__m
	line	1207
	colm	10
	synt	any
	field	Node
	line	1207
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1207
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1208
	colm	6
	synt	any
	field	__m
	line	1208
	colm	10
	synt	any
	field	ConsNode
	line	1208
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1208
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1209
	colm	43
	synt	any
	field	signature
	line	1209
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1210
	colm	42
	synt	any
	field	sig_done
	line	1210
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1211
	colm	46
	synt	any
	field	displacement
	line	1211
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	1212
	colm	39
	synt	any
	field	level
	line	1212
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	mark	L8
	var	2
	var	0
	str	4
	pnull
	var	0
	line	1213
	colm	44
	synt	any
	field	mp_primary
	line	1213
	colm	15
	synt	any
	invoke	3
	unmark
lab L8
	mark	L9
	var	2
	var	0
	str	5
	pnull
	var	0
	line	1214
	colm	50
	synt	any
	field	mp_type_modifier
	line	1214
	colm	15
	synt	any
	invoke	3
	unmark
lab L9
	mark	L10
	var	2
	var	0
	str	6
	pnull
	var	0
	line	1215
	colm	45
	synt	any
	field	mp_delete_v
	line	1215
	colm	15
	synt	any
	invoke	3
	unmark
lab L10
	mark	L11
	var	2
	var	0
	str	7
	pnull
	var	0
	line	1216
	colm	48
	synt	any
	field	mp_orig_length
	line	1216
	colm	15
	synt	any
	invoke	3
	unmark
lab L11
	mark	L12
	var	2
	var	0
	str	8
	pnull
	var	0
	line	1217
	colm	43
	synt	any
	field	mp_needed
	line	1217
	colm	15
	synt	any
	invoke	3
	unmark
lab L12
	var	2
	var	0
	str	9
	pnull
	var	0
	line	1218
	colm	49
	synt	any
	field	mp_no_surr_loop
	line	1218
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1220
	colm	1
	synt	any
	pfail
	end
proc ModPrimaryNode_initially
	local	0,001000,self
	declend
	line	1221
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1222
	colm	6
	synt	any
	field	__m
	line	1222
	colm	10
	synt	any
	field	ConsNode
	line	1222
	colm	19
	synt	any
	field	initially
	var	0
	line	1222
	colm	30
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	1223
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	1224
	colm	1
	synt	any
	pfail
	end
proc ModPrimaryNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,displacement
	local	3,001000,level
	local	4,001000,mp_primary
	local	5,001000,mp_type_modifier
	local	6,001000,mp_delete_v
	local	7,001000,mp_orig_length
	local	8,001000,mp_needed
	local	9,001000,mp_no_surr_loop
	local	10,001000,kind
	local	11,001000,vlineno
	local	12,001000,pre_num
	local	13,001000,post_num
	local	14,001000,unique_id
	local	15,001000,cn_hd_field
	local	16,001000,cn_tl_field
	local	17,000020,self
	local	18,000020,clone
	local	19,000000,ModPrimaryNode__oprec
	local	20,000000,ModPrimaryNodeinitialize
	local	21,000000,Node__oprec
	local	22,000000,Nodeinitialize
	local	23,000000,ConsNode__oprec
	local	24,000000,ConsNodeinitialize
	local	25,000000,ModPrimaryNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	19
	line	8
	colm	6
	synt	any
	null
	unmark
	var	20
	line	8
	colm	58
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	21
	line	9
	colm	6
	synt	any
	null
	unmark
	var	22
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	19
	line	10
	colm	24
	synt	any
	field	Node
	var	21
	line	10
	colm	30
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	23
	line	11
	colm	6
	synt	any
	null
	unmark
	var	24
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	19
	line	12
	colm	24
	synt	any
	field	ConsNode
	var	23
	line	12
	colm	34
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	17
	var	25
	line	14
	colm	33
	synt	any
	keywd	null
	var	19
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	14
	var	15
	var	16
	line	14
	colm	32
	synt	any
	invoke	19
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	17
	line	15
	colm	7
	synt	any
	field	__s
	var	17
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	17
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	17
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	17
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc ModPrimaryNodeinitialize
	local	0,000000,ModPrimaryNode__oprec
	local	1,000000,ModPrimaryNode__methods
	local	2,000000,ModPrimaryNode_trace_node
	local	3,000000,ModPrimaryNode_dump
	local	4,000000,ModPrimaryNode_dump_tree
	local	5,000000,ModPrimaryNode_initially
	local	6,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	59
	synt	any
	invoke	5
	line	21
	colm	33
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc ExportListNode_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	con	0,010000,1,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	1225
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1226
	colm	6
	synt	any
	field	__m
	line	1226
	colm	10
	synt	any
	field	Node
	line	1226
	colm	15
	synt	any
	field	trace_node
	var	0
	line	1226
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1227
	colm	6
	synt	any
	field	__m
	line	1227
	colm	10
	synt	any
	field	ConsNode
	line	1227
	colm	19
	synt	any
	field	trace_node
	var	0
	line	1227
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1228
	colm	6
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1229
	colm	1
	synt	any
	pfail
	end
proc ExportListNode_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,write
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	con	0,010000,21,145,154,137,154,157,143,141,154,137,164,171,160,145,137,151,144,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,27,145,154,137,145,170,160,157,162,164,137,145,154,145,155,145,156,164,137,154,151,163,164,040,040,040,075,040
	con	3,010000,27,145,154,137,160,162,145,166,151,157,165,163,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	declend
	line	1230
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1232
	colm	6
	synt	any
	field	__m
	line	1232
	colm	10
	synt	any
	field	Node
	line	1232
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1232
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1233
	colm	6
	synt	any
	field	__m
	line	1233
	colm	10
	synt	any
	field	ConsNode
	line	1233
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1233
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1234
	colm	70
	synt	any
	plus
	line	1234
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1234
	colm	106
	synt	any
	field	el_local_type_id
	line	1234
	colm	101
	synt	any
	invoke	1
	line	1234
	colm	89
	synt	any
	cat
	line	1234
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1235
	colm	76
	synt	any
	plus
	line	1235
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1235
	colm	112
	synt	any
	field	el_export_element_list
	line	1235
	colm	107
	synt	any
	invoke	1
	line	1235
	colm	95
	synt	any
	cat
	line	1235
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1236
	colm	76
	synt	any
	plus
	line	1236
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1236
	colm	112
	synt	any
	field	el_previous_definition
	line	1236
	colm	107
	synt	any
	invoke	1
	line	1236
	colm	95
	synt	any
	cat
	line	1236
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1238
	colm	1
	synt	any
	pfail
	end
proc ExportListNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,21,145,154,137,154,157,143,141,154,137,164,171,160,145,137,151,144,040,040,040,075,040
	con	1,010000,27,145,154,137,145,170,160,157,162,164,137,145,154,145,155,145,156,164,137,154,151,163,164,040,040,040,075,040
	con	2,010000,27,145,154,137,160,162,145,166,151,157,165,163,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	declend
	line	1239
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1241
	colm	6
	synt	any
	field	__m
	line	1241
	colm	10
	synt	any
	field	Node
	line	1241
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1241
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1242
	colm	6
	synt	any
	field	__m
	line	1242
	colm	10
	synt	any
	field	ConsNode
	line	1242
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1242
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1243
	colm	50
	synt	any
	field	el_local_type_id
	line	1243
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1244
	colm	56
	synt	any
	field	el_export_element_list
	line	1244
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1245
	colm	56
	synt	any
	field	el_previous_definition
	line	1245
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1247
	colm	1
	synt	any
	pfail
	end
proc ExportListNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	1248
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1249
	colm	6
	synt	any
	field	__m
	line	1249
	colm	10
	synt	any
	field	ConsNode
	line	1249
	colm	19
	synt	any
	field	initially
	var	0
	line	1249
	colm	30
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	1250
	colm	5
	synt	any
	field	el_export_element_list
	var	1
	line	1250
	colm	41
	synt	any
	invoke	0
	line	1250
	colm	29
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1251
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1252
	colm	1
	synt	any
	pfail
	end
proc ExportListNode
	local	0,001000,el_local_type_id
	local	1,001000,el_export_element_list
	local	2,001000,el_previous_definition
	local	3,001000,kind
	local	4,001000,vlineno
	local	5,001000,pre_num
	local	6,001000,post_num
	local	7,001000,unique_id
	local	8,001000,cn_hd_field
	local	9,001000,cn_tl_field
	local	10,000020,self
	local	11,000020,clone
	local	12,000000,ExportListNode__oprec
	local	13,000000,ExportListNodeinitialize
	local	14,000000,Node__oprec
	local	15,000000,Nodeinitialize
	local	16,000000,ConsNode__oprec
	local	17,000000,ConsNodeinitialize
	local	18,000000,ExportListNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	12
	line	8
	colm	6
	synt	any
	null
	unmark
	var	13
	line	8
	colm	58
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	9
	colm	6
	synt	any
	null
	unmark
	var	15
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	12
	line	10
	colm	24
	synt	any
	field	Node
	var	14
	line	10
	colm	30
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	11
	colm	6
	synt	any
	null
	unmark
	var	17
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	12
	line	12
	colm	24
	synt	any
	field	ConsNode
	var	16
	line	12
	colm	34
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	10
	var	18
	line	14
	colm	33
	synt	any
	keywd	null
	var	12
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	line	14
	colm	32
	synt	any
	invoke	12
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	10
	line	15
	colm	7
	synt	any
	field	__s
	var	10
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	10
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	10
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	10
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc ExportListNodeinitialize
	local	0,000000,ExportListNode__oprec
	local	1,000000,ExportListNode__methods
	local	2,000000,ExportListNode_trace_node
	local	3,000000,ExportListNode_dump
	local	4,000000,ExportListNode_dump_tree
	local	5,000000,ExportListNode_initially
	local	6,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	59
	synt	any
	invoke	5
	line	21
	colm	33
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc HideListNode_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	con	0,010000,1,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	1253
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1254
	colm	6
	synt	any
	field	__m
	line	1254
	colm	10
	synt	any
	field	Node
	line	1254
	colm	15
	synt	any
	field	trace_node
	var	0
	line	1254
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1255
	colm	6
	synt	any
	field	__m
	line	1255
	colm	10
	synt	any
	field	ConsNode
	line	1255
	colm	19
	synt	any
	field	trace_node
	var	0
	line	1255
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1256
	colm	6
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1257
	colm	1
	synt	any
	pfail
	end
proc HideListNode_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,write
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	con	0,010000,21,145,154,137,154,157,143,141,154,137,164,171,160,145,137,151,144,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,27,145,154,137,145,170,160,157,162,164,137,145,154,145,155,145,156,164,137,154,151,163,164,040,040,040,075,040
	con	3,010000,27,145,154,137,160,162,145,166,151,157,165,163,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	declend
	line	1258
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1260
	colm	6
	synt	any
	field	__m
	line	1260
	colm	10
	synt	any
	field	Node
	line	1260
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1260
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1261
	colm	6
	synt	any
	field	__m
	line	1261
	colm	10
	synt	any
	field	ConsNode
	line	1261
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1261
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1262
	colm	70
	synt	any
	plus
	line	1262
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1262
	colm	106
	synt	any
	field	el_local_type_id
	line	1262
	colm	101
	synt	any
	invoke	1
	line	1262
	colm	89
	synt	any
	cat
	line	1262
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1263
	colm	76
	synt	any
	plus
	line	1263
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1263
	colm	112
	synt	any
	field	el_export_element_list
	line	1263
	colm	107
	synt	any
	invoke	1
	line	1263
	colm	95
	synt	any
	cat
	line	1263
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1264
	colm	76
	synt	any
	plus
	line	1264
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1264
	colm	112
	synt	any
	field	el_previous_definition
	line	1264
	colm	107
	synt	any
	invoke	1
	line	1264
	colm	95
	synt	any
	cat
	line	1264
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1266
	colm	1
	synt	any
	pfail
	end
proc HideListNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,21,145,154,137,154,157,143,141,154,137,164,171,160,145,137,151,144,040,040,040,075,040
	con	1,010000,27,145,154,137,145,170,160,157,162,164,137,145,154,145,155,145,156,164,137,154,151,163,164,040,040,040,075,040
	con	2,010000,27,145,154,137,160,162,145,166,151,157,165,163,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	declend
	line	1267
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1269
	colm	6
	synt	any
	field	__m
	line	1269
	colm	10
	synt	any
	field	Node
	line	1269
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1269
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1270
	colm	6
	synt	any
	field	__m
	line	1270
	colm	10
	synt	any
	field	ConsNode
	line	1270
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1270
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1271
	colm	50
	synt	any
	field	el_local_type_id
	line	1271
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1272
	colm	56
	synt	any
	field	el_export_element_list
	line	1272
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1273
	colm	56
	synt	any
	field	el_previous_definition
	line	1273
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1275
	colm	1
	synt	any
	pfail
	end
proc HideListNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	1276
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1277
	colm	6
	synt	any
	field	__m
	line	1277
	colm	10
	synt	any
	field	ConsNode
	line	1277
	colm	19
	synt	any
	field	initially
	var	0
	line	1277
	colm	30
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	1278
	colm	5
	synt	any
	field	el_export_element_list
	var	1
	line	1278
	colm	41
	synt	any
	invoke	0
	line	1278
	colm	29
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1279
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1280
	colm	1
	synt	any
	pfail
	end
proc HideListNode
	local	0,001000,el_local_type_id
	local	1,001000,el_export_element_list
	local	2,001000,el_previous_definition
	local	3,001000,kind
	local	4,001000,vlineno
	local	5,001000,pre_num
	local	6,001000,post_num
	local	7,001000,unique_id
	local	8,001000,cn_hd_field
	local	9,001000,cn_tl_field
	local	10,000020,self
	local	11,000020,clone
	local	12,000000,HideListNode__oprec
	local	13,000000,HideListNodeinitialize
	local	14,000000,Node__oprec
	local	15,000000,Nodeinitialize
	local	16,000000,ConsNode__oprec
	local	17,000000,ConsNodeinitialize
	local	18,000000,HideListNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	12
	line	8
	colm	6
	synt	any
	null
	unmark
	var	13
	line	8
	colm	54
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	9
	colm	6
	synt	any
	null
	unmark
	var	15
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	12
	line	10
	colm	22
	synt	any
	field	Node
	var	14
	line	10
	colm	28
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	11
	colm	6
	synt	any
	null
	unmark
	var	17
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	12
	line	12
	colm	22
	synt	any
	field	ConsNode
	var	16
	line	12
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	10
	var	18
	line	14
	colm	31
	synt	any
	keywd	null
	var	12
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	line	14
	colm	30
	synt	any
	invoke	12
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	10
	line	15
	colm	7
	synt	any
	field	__s
	var	10
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	10
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	10
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	10
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc HideListNodeinitialize
	local	0,000000,HideListNode__oprec
	local	1,000000,HideListNode__methods
	local	2,000000,HideListNode_trace_node
	local	3,000000,HideListNode_dump
	local	4,000000,HideListNode_dump_tree
	local	5,000000,HideListNode_initially
	local	6,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	55
	synt	any
	invoke	5
	line	21
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc ExportElementNode_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	con	0,010000,1,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	1281
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1282
	colm	6
	synt	any
	field	__m
	line	1282
	colm	10
	synt	any
	field	Node
	line	1282
	colm	15
	synt	any
	field	trace_node
	var	0
	line	1282
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1283
	colm	6
	synt	any
	field	__m
	line	1283
	colm	10
	synt	any
	field	ConsNode
	line	1283
	colm	19
	synt	any
	field	trace_node
	var	0
	line	1283
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1284
	colm	6
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1285
	colm	1
	synt	any
	pfail
	end
proc ExportElementNode_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,write
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	con	0,010000,10,145,145,137,151,144,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,17,145,145,137,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	3,010000,19,145,145,137,145,170,160,157,162,164,137,154,151,163,164,040,040,040,075,040
	declend
	line	1286
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1288
	colm	6
	synt	any
	field	__m
	line	1288
	colm	10
	synt	any
	field	Node
	line	1288
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1288
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1289
	colm	6
	synt	any
	field	__m
	line	1289
	colm	10
	synt	any
	field	ConsNode
	line	1289
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1289
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1290
	colm	59
	synt	any
	plus
	line	1290
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1290
	colm	95
	synt	any
	field	ee_id
	line	1290
	colm	90
	synt	any
	invoke	1
	line	1290
	colm	78
	synt	any
	cat
	line	1290
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1291
	colm	66
	synt	any
	plus
	line	1291
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1291
	colm	102
	synt	any
	field	ee_signature
	line	1291
	colm	97
	synt	any
	invoke	1
	line	1291
	colm	85
	synt	any
	cat
	line	1291
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1292
	colm	68
	synt	any
	plus
	line	1292
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1292
	colm	104
	synt	any
	field	ee_export_list
	line	1292
	colm	99
	synt	any
	invoke	1
	line	1292
	colm	87
	synt	any
	cat
	line	1292
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1294
	colm	1
	synt	any
	pfail
	end
proc ExportElementNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,10,145,145,137,151,144,040,040,040,075,040
	con	1,010000,17,145,145,137,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	2,010000,19,145,145,137,145,170,160,157,162,164,137,154,151,163,164,040,040,040,075,040
	declend
	line	1296
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1298
	colm	6
	synt	any
	field	__m
	line	1298
	colm	10
	synt	any
	field	Node
	line	1298
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1298
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1299
	colm	6
	synt	any
	field	__m
	line	1299
	colm	10
	synt	any
	field	ConsNode
	line	1299
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1299
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1300
	colm	39
	synt	any
	field	ee_id
	line	1300
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1301
	colm	46
	synt	any
	field	ee_signature
	line	1301
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1302
	colm	48
	synt	any
	field	ee_export_list
	line	1302
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1304
	colm	1
	synt	any
	pfail
	end
proc ExportElementNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	1306
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1307
	colm	6
	synt	any
	field	__m
	line	1307
	colm	10
	synt	any
	field	ConsNode
	line	1307
	colm	19
	synt	any
	field	initially
	var	0
	line	1307
	colm	30
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	1308
	colm	5
	synt	any
	field	ee_export_list
	var	1
	line	1308
	colm	33
	synt	any
	invoke	0
	line	1308
	colm	21
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1309
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1310
	colm	1
	synt	any
	pfail
	end
proc ExportElementNode
	local	0,001000,ee_id
	local	1,001000,ee_signature
	local	2,001000,ee_export_list
	local	3,001000,kind
	local	4,001000,vlineno
	local	5,001000,pre_num
	local	6,001000,post_num
	local	7,001000,unique_id
	local	8,001000,cn_hd_field
	local	9,001000,cn_tl_field
	local	10,000020,self
	local	11,000020,clone
	local	12,000000,ExportElementNode__oprec
	local	13,000000,ExportElementNodeinitialize
	local	14,000000,Node__oprec
	local	15,000000,Nodeinitialize
	local	16,000000,ConsNode__oprec
	local	17,000000,ConsNodeinitialize
	local	18,000000,ExportElementNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	12
	line	8
	colm	6
	synt	any
	null
	unmark
	var	13
	line	8
	colm	64
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	9
	colm	6
	synt	any
	null
	unmark
	var	15
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	12
	line	10
	colm	27
	synt	any
	field	Node
	var	14
	line	10
	colm	33
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	11
	colm	6
	synt	any
	null
	unmark
	var	17
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	12
	line	12
	colm	27
	synt	any
	field	ConsNode
	var	16
	line	12
	colm	37
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	10
	var	18
	line	14
	colm	36
	synt	any
	keywd	null
	var	12
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	line	14
	colm	35
	synt	any
	invoke	12
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	10
	line	15
	colm	7
	synt	any
	field	__s
	var	10
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	10
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	10
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	10
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc ExportElementNodeinitialize
	local	0,000000,ExportElementNode__oprec
	local	1,000000,ExportElementNode__methods
	local	2,000000,ExportElementNode_trace_node
	local	3,000000,ExportElementNode_dump
	local	4,000000,ExportElementNode_dump_tree
	local	5,000000,ExportElementNode_initially
	local	6,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	65
	synt	any
	invoke	5
	line	21
	colm	36
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc AllConstantsNode_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	con	0,010000,1,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	1311
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1312
	colm	6
	synt	any
	field	__m
	line	1312
	colm	10
	synt	any
	field	Node
	line	1312
	colm	15
	synt	any
	field	trace_node
	var	0
	line	1312
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1313
	colm	6
	synt	any
	field	__m
	line	1313
	colm	10
	synt	any
	field	ConsNode
	line	1313
	colm	19
	synt	any
	field	trace_node
	var	0
	line	1313
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1314
	colm	6
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1315
	colm	1
	synt	any
	pfail
	end
proc AllConstantsNode_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	declend
	line	1316
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1318
	colm	6
	synt	any
	field	__m
	line	1318
	colm	10
	synt	any
	field	Node
	line	1318
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1318
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	pnull
	pnull
	pnull
	var	0
	line	1319
	colm	6
	synt	any
	field	__m
	line	1319
	colm	10
	synt	any
	field	ConsNode
	line	1319
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1319
	colm	24
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1321
	colm	1
	synt	any
	pfail
	end
proc AllConstantsNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	declend
	line	1322
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1324
	colm	6
	synt	any
	field	__m
	line	1324
	colm	10
	synt	any
	field	Node
	line	1324
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1324
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	pnull
	pnull
	pnull
	var	0
	line	1325
	colm	6
	synt	any
	field	__m
	line	1325
	colm	10
	synt	any
	field	ConsNode
	line	1325
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1325
	colm	29
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1327
	colm	1
	synt	any
	pfail
	end
proc AllConstantsNode_initially
	local	0,001000,self
	declend
	line	1328
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1329
	colm	6
	synt	any
	field	__m
	line	1329
	colm	10
	synt	any
	field	ConsNode
	line	1329
	colm	19
	synt	any
	field	initially
	var	0
	line	1329
	colm	30
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	1330
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	1331
	colm	1
	synt	any
	pfail
	end
proc AllConstantsNode
	local	0,001000,kind
	local	1,001000,vlineno
	local	2,001000,pre_num
	local	3,001000,post_num
	local	4,001000,unique_id
	local	5,001000,cn_hd_field
	local	6,001000,cn_tl_field
	local	7,000020,self
	local	8,000020,clone
	local	9,000000,AllConstantsNode__oprec
	local	10,000000,AllConstantsNodeinitialize
	local	11,000000,Node__oprec
	local	12,000000,Nodeinitialize
	local	13,000000,ConsNode__oprec
	local	14,000000,ConsNodeinitialize
	local	15,000000,AllConstantsNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	9
	line	8
	colm	6
	synt	any
	null
	unmark
	var	10
	line	8
	colm	62
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	11
	line	9
	colm	6
	synt	any
	null
	unmark
	var	12
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	9
	line	10
	colm	26
	synt	any
	field	Node
	var	11
	line	10
	colm	32
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	13
	line	11
	colm	6
	synt	any
	null
	unmark
	var	14
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	9
	line	12
	colm	26
	synt	any
	field	ConsNode
	var	13
	line	12
	colm	36
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	7
	var	15
	line	14
	colm	35
	synt	any
	keywd	null
	var	9
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	14
	colm	34
	synt	any
	invoke	9
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	7
	line	15
	colm	7
	synt	any
	field	__s
	var	7
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	7
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	7
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	7
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc AllConstantsNodeinitialize
	local	0,000000,AllConstantsNode__oprec
	local	1,000000,AllConstantsNode__methods
	local	2,000000,AllConstantsNode_trace_node
	local	3,000000,AllConstantsNode_dump
	local	4,000000,AllConstantsNode_dump_tree
	local	5,000000,AllConstantsNode_initially
	local	6,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	63
	synt	any
	invoke	5
	line	21
	colm	35
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc WordElseNode_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	con	0,010000,1,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	1332
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1333
	colm	6
	synt	any
	field	__m
	line	1333
	colm	10
	synt	any
	field	Node
	line	1333
	colm	15
	synt	any
	field	trace_node
	var	0
	line	1333
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1334
	colm	6
	synt	any
	field	__m
	line	1334
	colm	10
	synt	any
	field	ConsNode
	line	1334
	colm	19
	synt	any
	field	trace_node
	var	0
	line	1334
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1335
	colm	6
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1336
	colm	1
	synt	any
	pfail
	end
proc WordElseNode_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,write
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	declend
	line	1337
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1339
	colm	6
	synt	any
	field	__m
	line	1339
	colm	10
	synt	any
	field	Node
	line	1339
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1339
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1340
	colm	6
	synt	any
	field	__m
	line	1340
	colm	10
	synt	any
	field	ConsNode
	line	1340
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1340
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1341
	colm	63
	synt	any
	plus
	line	1341
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1341
	colm	99
	synt	any
	field	signature
	line	1341
	colm	94
	synt	any
	invoke	1
	line	1341
	colm	82
	synt	any
	cat
	line	1341
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1342
	colm	62
	synt	any
	plus
	line	1342
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1342
	colm	98
	synt	any
	field	sig_done
	line	1342
	colm	93
	synt	any
	invoke	1
	line	1342
	colm	81
	synt	any
	cat
	line	1342
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1344
	colm	1
	synt	any
	pfail
	end
proc WordElseNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	declend
	line	1345
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1347
	colm	6
	synt	any
	field	__m
	line	1347
	colm	10
	synt	any
	field	Node
	line	1347
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1347
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1348
	colm	6
	synt	any
	field	__m
	line	1348
	colm	10
	synt	any
	field	ConsNode
	line	1348
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1348
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1349
	colm	43
	synt	any
	field	signature
	line	1349
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1350
	colm	42
	synt	any
	field	sig_done
	line	1350
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1352
	colm	1
	synt	any
	pfail
	end
proc WordElseNode_initially
	local	0,001000,self
	declend
	line	1353
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1354
	colm	6
	synt	any
	field	__m
	line	1354
	colm	10
	synt	any
	field	ConsNode
	line	1354
	colm	19
	synt	any
	field	initially
	var	0
	line	1354
	colm	30
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	1355
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	1356
	colm	1
	synt	any
	pfail
	end
proc WordElseNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,kind
	local	3,001000,vlineno
	local	4,001000,pre_num
	local	5,001000,post_num
	local	6,001000,unique_id
	local	7,001000,cn_hd_field
	local	8,001000,cn_tl_field
	local	9,000020,self
	local	10,000020,clone
	local	11,000000,WordElseNode__oprec
	local	12,000000,WordElseNodeinitialize
	local	13,000000,Node__oprec
	local	14,000000,Nodeinitialize
	local	15,000000,ConsNode__oprec
	local	16,000000,ConsNodeinitialize
	local	17,000000,WordElseNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	11
	line	8
	colm	6
	synt	any
	null
	unmark
	var	12
	line	8
	colm	54
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	13
	line	9
	colm	6
	synt	any
	null
	unmark
	var	14
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	11
	line	10
	colm	22
	synt	any
	field	Node
	var	13
	line	10
	colm	28
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	15
	line	11
	colm	6
	synt	any
	null
	unmark
	var	16
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	11
	line	12
	colm	22
	synt	any
	field	ConsNode
	var	15
	line	12
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	9
	var	17
	line	14
	colm	31
	synt	any
	keywd	null
	var	11
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	line	14
	colm	30
	synt	any
	invoke	11
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	9
	line	15
	colm	7
	synt	any
	field	__s
	var	9
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	9
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	9
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	9
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc WordElseNodeinitialize
	local	0,000000,WordElseNode__oprec
	local	1,000000,WordElseNode__methods
	local	2,000000,WordElseNode_trace_node
	local	3,000000,WordElseNode_dump
	local	4,000000,WordElseNode_dump_tree
	local	5,000000,WordElseNode_initially
	local	6,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	55
	synt	any
	invoke	5
	line	21
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc WordCandNode_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	con	0,010000,1,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	1357
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1358
	colm	6
	synt	any
	field	__m
	line	1358
	colm	10
	synt	any
	field	Node
	line	1358
	colm	15
	synt	any
	field	trace_node
	var	0
	line	1358
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1359
	colm	6
	synt	any
	field	__m
	line	1359
	colm	10
	synt	any
	field	ConsNode
	line	1359
	colm	19
	synt	any
	field	trace_node
	var	0
	line	1359
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1360
	colm	6
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1361
	colm	1
	synt	any
	pfail
	end
proc WordCandNode_dump
	local	0,001000,self
	local	1,000000,nodes_created_file
	declend
	line	1362
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1364
	colm	6
	synt	any
	field	__m
	line	1364
	colm	10
	synt	any
	field	Node
	line	1364
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1364
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	pnull
	pnull
	pnull
	var	0
	line	1365
	colm	6
	synt	any
	field	__m
	line	1365
	colm	10
	synt	any
	field	ConsNode
	line	1365
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1365
	colm	24
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1367
	colm	1
	synt	any
	pfail
	end
proc WordCandNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	declend
	line	1368
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1370
	colm	6
	synt	any
	field	__m
	line	1370
	colm	10
	synt	any
	field	Node
	line	1370
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1370
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	pnull
	pnull
	pnull
	var	0
	line	1371
	colm	6
	synt	any
	field	__m
	line	1371
	colm	10
	synt	any
	field	ConsNode
	line	1371
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1371
	colm	29
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1373
	colm	1
	synt	any
	pfail
	end
proc WordCandNode_initially
	local	0,001000,self
	declend
	line	1374
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1375
	colm	6
	synt	any
	field	__m
	line	1375
	colm	10
	synt	any
	field	ConsNode
	line	1375
	colm	19
	synt	any
	field	initially
	var	0
	line	1375
	colm	30
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	1376
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	1377
	colm	1
	synt	any
	pfail
	end
proc WordCandNode
	local	0,001000,kind
	local	1,001000,vlineno
	local	2,001000,pre_num
	local	3,001000,post_num
	local	4,001000,unique_id
	local	5,001000,cn_hd_field
	local	6,001000,cn_tl_field
	local	7,000020,self
	local	8,000020,clone
	local	9,000000,WordCandNode__oprec
	local	10,000000,WordCandNodeinitialize
	local	11,000000,Node__oprec
	local	12,000000,Nodeinitialize
	local	13,000000,ConsNode__oprec
	local	14,000000,ConsNodeinitialize
	local	15,000000,WordCandNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	9
	line	8
	colm	6
	synt	any
	null
	unmark
	var	10
	line	8
	colm	54
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	11
	line	9
	colm	6
	synt	any
	null
	unmark
	var	12
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	9
	line	10
	colm	22
	synt	any
	field	Node
	var	11
	line	10
	colm	28
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	13
	line	11
	colm	6
	synt	any
	null
	unmark
	var	14
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	9
	line	12
	colm	22
	synt	any
	field	ConsNode
	var	13
	line	12
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	7
	var	15
	line	14
	colm	31
	synt	any
	keywd	null
	var	9
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	14
	colm	30
	synt	any
	invoke	9
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	7
	line	15
	colm	7
	synt	any
	field	__s
	var	7
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	7
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	7
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	7
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc WordCandNodeinitialize
	local	0,000000,WordCandNode__oprec
	local	1,000000,WordCandNode__methods
	local	2,000000,WordCandNode_trace_node
	local	3,000000,WordCandNode_dump
	local	4,000000,WordCandNode_dump_tree
	local	5,000000,WordCandNode_initially
	local	6,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	55
	synt	any
	invoke	5
	line	21
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc WordCorNode_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	con	0,010000,1,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	1378
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1379
	colm	6
	synt	any
	field	__m
	line	1379
	colm	10
	synt	any
	field	Node
	line	1379
	colm	15
	synt	any
	field	trace_node
	var	0
	line	1379
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1380
	colm	6
	synt	any
	field	__m
	line	1380
	colm	10
	synt	any
	field	ConsNode
	line	1380
	colm	19
	synt	any
	field	trace_node
	var	0
	line	1380
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1381
	colm	6
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1382
	colm	1
	synt	any
	pfail
	end
proc WordCorNode_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	declend
	line	1383
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1385
	colm	6
	synt	any
	field	__m
	line	1385
	colm	10
	synt	any
	field	Node
	line	1385
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1385
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	pnull
	pnull
	pnull
	var	0
	line	1386
	colm	6
	synt	any
	field	__m
	line	1386
	colm	10
	synt	any
	field	ConsNode
	line	1386
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1386
	colm	24
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1388
	colm	1
	synt	any
	pfail
	end
proc WordCorNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	declend
	line	1389
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1391
	colm	6
	synt	any
	field	__m
	line	1391
	colm	10
	synt	any
	field	Node
	line	1391
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1391
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	pnull
	pnull
	pnull
	var	0
	line	1392
	colm	6
	synt	any
	field	__m
	line	1392
	colm	10
	synt	any
	field	ConsNode
	line	1392
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1392
	colm	29
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1394
	colm	1
	synt	any
	pfail
	end
proc WordCorNode_initially
	local	0,001000,self
	declend
	line	1395
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1396
	colm	6
	synt	any
	field	__m
	line	1396
	colm	10
	synt	any
	field	ConsNode
	line	1396
	colm	19
	synt	any
	field	initially
	var	0
	line	1396
	colm	30
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	1397
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	1398
	colm	1
	synt	any
	pfail
	end
proc WordCorNode
	local	0,001000,kind
	local	1,001000,vlineno
	local	2,001000,pre_num
	local	3,001000,post_num
	local	4,001000,unique_id
	local	5,001000,cn_hd_field
	local	6,001000,cn_tl_field
	local	7,000020,self
	local	8,000020,clone
	local	9,000000,WordCorNode__oprec
	local	10,000000,WordCorNodeinitialize
	local	11,000000,Node__oprec
	local	12,000000,Nodeinitialize
	local	13,000000,ConsNode__oprec
	local	14,000000,ConsNodeinitialize
	local	15,000000,WordCorNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	9
	line	8
	colm	6
	synt	any
	null
	unmark
	var	10
	line	8
	colm	52
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	11
	line	9
	colm	6
	synt	any
	null
	unmark
	var	12
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	9
	line	10
	colm	21
	synt	any
	field	Node
	var	11
	line	10
	colm	27
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	13
	line	11
	colm	6
	synt	any
	null
	unmark
	var	14
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	9
	line	12
	colm	21
	synt	any
	field	ConsNode
	var	13
	line	12
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	7
	var	15
	line	14
	colm	30
	synt	any
	keywd	null
	var	9
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	14
	colm	29
	synt	any
	invoke	9
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	7
	line	15
	colm	7
	synt	any
	field	__s
	var	7
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	7
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	7
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	7
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc WordCorNodeinitialize
	local	0,000000,WordCorNode__oprec
	local	1,000000,WordCorNode__methods
	local	2,000000,WordCorNode_trace_node
	local	3,000000,WordCorNode_dump
	local	4,000000,WordCorNode_dump_tree
	local	5,000000,WordCorNode_initially
	local	6,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	53
	synt	any
	invoke	5
	line	21
	colm	30
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc GuardedListNode_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	con	0,010000,1,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	1399
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1400
	colm	6
	synt	any
	field	__m
	line	1400
	colm	10
	synt	any
	field	Node
	line	1400
	colm	15
	synt	any
	field	trace_node
	var	0
	line	1400
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1401
	colm	6
	synt	any
	field	__m
	line	1401
	colm	10
	synt	any
	field	ConsNode
	line	1401
	colm	19
	synt	any
	field	trace_node
	var	0
	line	1401
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1402
	colm	6
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1403
	colm	1
	synt	any
	pfail
	end
proc GuardedListNode_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,write
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,12,147,154,137,154,151,163,164,040,040,040,075,040
	declend
	line	1404
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1406
	colm	6
	synt	any
	field	__m
	line	1406
	colm	10
	synt	any
	field	Node
	line	1406
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1406
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1407
	colm	6
	synt	any
	field	__m
	line	1407
	colm	10
	synt	any
	field	ConsNode
	line	1407
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1407
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1408
	colm	63
	synt	any
	plus
	line	1408
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1408
	colm	99
	synt	any
	field	signature
	line	1408
	colm	94
	synt	any
	invoke	1
	line	1408
	colm	82
	synt	any
	cat
	line	1408
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1409
	colm	62
	synt	any
	plus
	line	1409
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1409
	colm	98
	synt	any
	field	sig_done
	line	1409
	colm	93
	synt	any
	invoke	1
	line	1409
	colm	81
	synt	any
	cat
	line	1409
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1410
	colm	61
	synt	any
	plus
	line	1410
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1410
	colm	97
	synt	any
	field	gl_list
	line	1410
	colm	92
	synt	any
	invoke	1
	line	1410
	colm	80
	synt	any
	cat
	line	1410
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1412
	colm	1
	synt	any
	pfail
	end
proc GuardedListNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,12,147,154,137,154,151,163,164,040,040,040,075,040
	declend
	line	1413
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1415
	colm	6
	synt	any
	field	__m
	line	1415
	colm	10
	synt	any
	field	Node
	line	1415
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1415
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1416
	colm	6
	synt	any
	field	__m
	line	1416
	colm	10
	synt	any
	field	ConsNode
	line	1416
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1416
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1417
	colm	43
	synt	any
	field	signature
	line	1417
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1418
	colm	42
	synt	any
	field	sig_done
	line	1418
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1419
	colm	41
	synt	any
	field	gl_list
	line	1419
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1421
	colm	1
	synt	any
	pfail
	end
proc GuardedListNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	1422
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1423
	colm	6
	synt	any
	field	__m
	line	1423
	colm	10
	synt	any
	field	ConsNode
	line	1423
	colm	19
	synt	any
	field	initially
	var	0
	line	1423
	colm	30
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	1424
	colm	5
	synt	any
	field	gl_list
	var	1
	line	1424
	colm	26
	synt	any
	invoke	0
	line	1424
	colm	14
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1425
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1426
	colm	1
	synt	any
	pfail
	end
proc GuardedListNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,gl_list
	local	3,001000,kind
	local	4,001000,vlineno
	local	5,001000,pre_num
	local	6,001000,post_num
	local	7,001000,unique_id
	local	8,001000,cn_hd_field
	local	9,001000,cn_tl_field
	local	10,000020,self
	local	11,000020,clone
	local	12,000000,GuardedListNode__oprec
	local	13,000000,GuardedListNodeinitialize
	local	14,000000,Node__oprec
	local	15,000000,Nodeinitialize
	local	16,000000,ConsNode__oprec
	local	17,000000,ConsNodeinitialize
	local	18,000000,GuardedListNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	12
	line	8
	colm	6
	synt	any
	null
	unmark
	var	13
	line	8
	colm	60
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	9
	colm	6
	synt	any
	null
	unmark
	var	15
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	12
	line	10
	colm	25
	synt	any
	field	Node
	var	14
	line	10
	colm	31
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	11
	colm	6
	synt	any
	null
	unmark
	var	17
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	12
	line	12
	colm	25
	synt	any
	field	ConsNode
	var	16
	line	12
	colm	35
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	10
	var	18
	line	14
	colm	34
	synt	any
	keywd	null
	var	12
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	line	14
	colm	33
	synt	any
	invoke	12
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	10
	line	15
	colm	7
	synt	any
	field	__s
	var	10
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	10
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	10
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	10
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc GuardedListNodeinitialize
	local	0,000000,GuardedListNode__oprec
	local	1,000000,GuardedListNode__methods
	local	2,000000,GuardedListNode_trace_node
	local	3,000000,GuardedListNode_dump
	local	4,000000,GuardedListNode_dump_tree
	local	5,000000,GuardedListNode_initially
	local	6,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	61
	synt	any
	invoke	5
	line	21
	colm	34
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc LoopDenotationNode_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	con	0,010000,1,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	1427
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1428
	colm	6
	synt	any
	field	__m
	line	1428
	colm	10
	synt	any
	field	Node
	line	1428
	colm	15
	synt	any
	field	trace_node
	var	0
	line	1428
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1429
	colm	6
	synt	any
	field	__m
	line	1429
	colm	10
	synt	any
	field	ConsNode
	line	1429
	colm	19
	synt	any
	field	trace_node
	var	0
	line	1429
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1430
	colm	6
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1431
	colm	1
	synt	any
	pfail
	end
proc LoopDenotationNode_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,write
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,12,147,154,137,154,151,163,164,040,040,040,075,040
	declend
	line	1432
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1434
	colm	6
	synt	any
	field	__m
	line	1434
	colm	10
	synt	any
	field	Node
	line	1434
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1434
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1435
	colm	6
	synt	any
	field	__m
	line	1435
	colm	10
	synt	any
	field	ConsNode
	line	1435
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1435
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1436
	colm	63
	synt	any
	plus
	line	1436
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1436
	colm	99
	synt	any
	field	signature
	line	1436
	colm	94
	synt	any
	invoke	1
	line	1436
	colm	82
	synt	any
	cat
	line	1436
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1437
	colm	62
	synt	any
	plus
	line	1437
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1437
	colm	98
	synt	any
	field	sig_done
	line	1437
	colm	93
	synt	any
	invoke	1
	line	1437
	colm	81
	synt	any
	cat
	line	1437
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1438
	colm	61
	synt	any
	plus
	line	1438
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1438
	colm	97
	synt	any
	field	gl_list
	line	1438
	colm	92
	synt	any
	invoke	1
	line	1438
	colm	80
	synt	any
	cat
	line	1438
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1440
	colm	1
	synt	any
	pfail
	end
proc LoopDenotationNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,12,147,154,137,154,151,163,164,040,040,040,075,040
	declend
	line	1441
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1443
	colm	6
	synt	any
	field	__m
	line	1443
	colm	10
	synt	any
	field	Node
	line	1443
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1443
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1444
	colm	6
	synt	any
	field	__m
	line	1444
	colm	10
	synt	any
	field	ConsNode
	line	1444
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1444
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1445
	colm	43
	synt	any
	field	signature
	line	1445
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1446
	colm	42
	synt	any
	field	sig_done
	line	1446
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1447
	colm	41
	synt	any
	field	gl_list
	line	1447
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1449
	colm	1
	synt	any
	pfail
	end
proc LoopDenotationNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	1450
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1451
	colm	6
	synt	any
	field	__m
	line	1451
	colm	10
	synt	any
	field	ConsNode
	line	1451
	colm	19
	synt	any
	field	initially
	var	0
	line	1451
	colm	30
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	1452
	colm	5
	synt	any
	field	gl_list
	var	1
	line	1452
	colm	26
	synt	any
	invoke	0
	line	1452
	colm	14
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1453
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1454
	colm	1
	synt	any
	pfail
	end
proc LoopDenotationNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,gl_list
	local	3,001000,kind
	local	4,001000,vlineno
	local	5,001000,pre_num
	local	6,001000,post_num
	local	7,001000,unique_id
	local	8,001000,cn_hd_field
	local	9,001000,cn_tl_field
	local	10,000020,self
	local	11,000020,clone
	local	12,000000,LoopDenotationNode__oprec
	local	13,000000,LoopDenotationNodeinitialize
	local	14,000000,Node__oprec
	local	15,000000,Nodeinitialize
	local	16,000000,ConsNode__oprec
	local	17,000000,ConsNodeinitialize
	local	18,000000,LoopDenotationNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	12
	line	8
	colm	6
	synt	any
	null
	unmark
	var	13
	line	8
	colm	66
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	9
	colm	6
	synt	any
	null
	unmark
	var	15
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	12
	line	10
	colm	28
	synt	any
	field	Node
	var	14
	line	10
	colm	34
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	11
	colm	6
	synt	any
	null
	unmark
	var	17
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	12
	line	12
	colm	28
	synt	any
	field	ConsNode
	var	16
	line	12
	colm	38
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	10
	var	18
	line	14
	colm	37
	synt	any
	keywd	null
	var	12
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	line	14
	colm	36
	synt	any
	invoke	12
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	10
	line	15
	colm	7
	synt	any
	field	__s
	var	10
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	10
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	10
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	10
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc LoopDenotationNodeinitialize
	local	0,000000,LoopDenotationNode__oprec
	local	1,000000,LoopDenotationNode__methods
	local	2,000000,LoopDenotationNode_trace_node
	local	3,000000,LoopDenotationNode_dump
	local	4,000000,LoopDenotationNode_dump_tree
	local	5,000000,LoopDenotationNode_initially
	local	6,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	67
	synt	any
	invoke	5
	line	21
	colm	37
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc GuardedElementNode_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	con	0,010000,1,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	1455
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1456
	colm	6
	synt	any
	field	__m
	line	1456
	colm	10
	synt	any
	field	Node
	line	1456
	colm	15
	synt	any
	field	trace_node
	var	0
	line	1456
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1457
	colm	6
	synt	any
	field	__m
	line	1457
	colm	10
	synt	any
	field	ConsNode
	line	1457
	colm	19
	synt	any
	field	trace_node
	var	0
	line	1457
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1458
	colm	6
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1459
	colm	1
	synt	any
	pfail
	end
proc GuardedElementNode_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,write
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	con	0,010000,13,147,145,137,147,165,141,162,144,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,15,147,145,137,145,154,145,155,145,156,164,040,040,040,075,040
	declend
	line	1460
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1462
	colm	6
	synt	any
	field	__m
	line	1462
	colm	10
	synt	any
	field	Node
	line	1462
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1462
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1463
	colm	6
	synt	any
	field	__m
	line	1463
	colm	10
	synt	any
	field	ConsNode
	line	1463
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1463
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1464
	colm	62
	synt	any
	plus
	line	1464
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1464
	colm	98
	synt	any
	field	ge_guard
	line	1464
	colm	93
	synt	any
	invoke	1
	line	1464
	colm	81
	synt	any
	cat
	line	1464
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1465
	colm	64
	synt	any
	plus
	line	1465
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1465
	colm	100
	synt	any
	field	ge_element
	line	1465
	colm	95
	synt	any
	invoke	1
	line	1465
	colm	83
	synt	any
	cat
	line	1465
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1467
	colm	1
	synt	any
	pfail
	end
proc GuardedElementNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,13,147,145,137,147,165,141,162,144,040,040,040,075,040
	con	1,010000,15,147,145,137,145,154,145,155,145,156,164,040,040,040,075,040
	declend
	line	1468
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1470
	colm	6
	synt	any
	field	__m
	line	1470
	colm	10
	synt	any
	field	Node
	line	1470
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1470
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1471
	colm	6
	synt	any
	field	__m
	line	1471
	colm	10
	synt	any
	field	ConsNode
	line	1471
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1471
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1472
	colm	42
	synt	any
	field	ge_guard
	line	1472
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1473
	colm	44
	synt	any
	field	ge_element
	line	1473
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1475
	colm	1
	synt	any
	pfail
	end
proc GuardedElementNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	1476
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1477
	colm	6
	synt	any
	field	__m
	line	1477
	colm	10
	synt	any
	field	ConsNode
	line	1477
	colm	19
	synt	any
	field	initially
	var	0
	line	1477
	colm	30
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	1478
	colm	5
	synt	any
	field	ge_guard
	var	1
	line	1478
	colm	27
	synt	any
	invoke	0
	line	1478
	colm	15
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	1479
	colm	5
	synt	any
	field	ge_element
	var	1
	line	1479
	colm	29
	synt	any
	invoke	0
	line	1479
	colm	17
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	line	1480
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	1481
	colm	1
	synt	any
	pfail
	end
proc GuardedElementNode
	local	0,001000,ge_guard
	local	1,001000,ge_element
	local	2,001000,kind
	local	3,001000,vlineno
	local	4,001000,pre_num
	local	5,001000,post_num
	local	6,001000,unique_id
	local	7,001000,cn_hd_field
	local	8,001000,cn_tl_field
	local	9,000020,self
	local	10,000020,clone
	local	11,000000,GuardedElementNode__oprec
	local	12,000000,GuardedElementNodeinitialize
	local	13,000000,Node__oprec
	local	14,000000,Nodeinitialize
	local	15,000000,ConsNode__oprec
	local	16,000000,ConsNodeinitialize
	local	17,000000,GuardedElementNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	11
	line	8
	colm	6
	synt	any
	null
	unmark
	var	12
	line	8
	colm	66
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	13
	line	9
	colm	6
	synt	any
	null
	unmark
	var	14
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	11
	line	10
	colm	28
	synt	any
	field	Node
	var	13
	line	10
	colm	34
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	15
	line	11
	colm	6
	synt	any
	null
	unmark
	var	16
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	11
	line	12
	colm	28
	synt	any
	field	ConsNode
	var	15
	line	12
	colm	38
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	9
	var	17
	line	14
	colm	37
	synt	any
	keywd	null
	var	11
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	line	14
	colm	36
	synt	any
	invoke	11
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	9
	line	15
	colm	7
	synt	any
	field	__s
	var	9
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	9
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	9
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	9
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc GuardedElementNodeinitialize
	local	0,000000,GuardedElementNode__oprec
	local	1,000000,GuardedElementNode__methods
	local	2,000000,GuardedElementNode_trace_node
	local	3,000000,GuardedElementNode_dump
	local	4,000000,GuardedElementNode_dump_tree
	local	5,000000,GuardedElementNode_initially
	local	6,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	67
	synt	any
	invoke	5
	line	21
	colm	37
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc OpridNode_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	con	0,010000,1,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	1482
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1483
	colm	6
	synt	any
	field	__m
	line	1483
	colm	10
	synt	any
	field	Node
	line	1483
	colm	15
	synt	any
	field	trace_node
	var	0
	line	1483
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1484
	colm	6
	synt	any
	field	__m
	line	1484
	colm	10
	synt	any
	field	ConsNode
	line	1484
	colm	19
	synt	any
	field	trace_node
	var	0
	line	1484
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1485
	colm	6
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1486
	colm	1
	synt	any
	pfail
	end
proc OpridNode_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,write
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,13,163,145,154,137,164,171,160,145,040,040,040,075,040
	con	4,010000,23,151,144,137,163,164,162,137,164,141,142,154,145,137,151,156,144,145,170,040,040,040,075,040
	con	5,010000,16,151,144,137,165,163,145,137,154,151,163,164,040,040,040,075,040
	con	6,010000,23,151,144,137,154,141,163,164,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	con	7,010000,17,151,144,137,144,145,146,137,146,157,165,156,144,040,040,040,075,040
	con	8,010000,14,163,145,154,137,151,156,144,145,170,040,040,040,075,040
	con	9,010000,12,151,144,137,141,160,160,154,040,040,040,075,040
	con	10,010000,19,151,144,137,146,157,162,167,141,162,144,137,162,145,146,040,040,040,075,040
	declend
	line	1487
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1489
	colm	6
	synt	any
	field	__m
	line	1489
	colm	10
	synt	any
	field	Node
	line	1489
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1489
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1490
	colm	6
	synt	any
	field	__m
	line	1490
	colm	10
	synt	any
	field	ConsNode
	line	1490
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1490
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1491
	colm	63
	synt	any
	plus
	line	1491
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1491
	colm	99
	synt	any
	field	signature
	line	1491
	colm	94
	synt	any
	invoke	1
	line	1491
	colm	82
	synt	any
	cat
	line	1491
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1492
	colm	62
	synt	any
	plus
	line	1492
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1492
	colm	98
	synt	any
	field	sig_done
	line	1492
	colm	93
	synt	any
	invoke	1
	line	1492
	colm	81
	synt	any
	cat
	line	1492
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1493
	colm	62
	synt	any
	plus
	line	1493
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1493
	colm	98
	synt	any
	field	sel_type
	line	1493
	colm	93
	synt	any
	invoke	1
	line	1493
	colm	81
	synt	any
	cat
	line	1493
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	1494
	colm	72
	synt	any
	plus
	line	1494
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1494
	colm	108
	synt	any
	field	id_str_table_index
	line	1494
	colm	103
	synt	any
	invoke	1
	line	1494
	colm	91
	synt	any
	cat
	line	1494
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	1495
	colm	65
	synt	any
	plus
	line	1495
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1495
	colm	101
	synt	any
	field	id_use_list
	line	1495
	colm	96
	synt	any
	invoke	1
	line	1495
	colm	84
	synt	any
	cat
	line	1495
	colm	18
	synt	any
	invoke	2
	unmark
lab L8
	mark	L9
	var	2
	var	1
	pnull
	var	3
	str	6
	pnull
	int	1
	var	4
	line	1496
	colm	72
	synt	any
	plus
	line	1496
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1496
	colm	108
	synt	any
	field	id_last_definition
	line	1496
	colm	103
	synt	any
	invoke	1
	line	1496
	colm	91
	synt	any
	cat
	line	1496
	colm	18
	synt	any
	invoke	2
	unmark
lab L9
	mark	L10
	var	2
	var	1
	pnull
	var	3
	str	7
	pnull
	int	1
	var	4
	line	1497
	colm	66
	synt	any
	plus
	line	1497
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1497
	colm	102
	synt	any
	field	id_def_found
	line	1497
	colm	97
	synt	any
	invoke	1
	line	1497
	colm	85
	synt	any
	cat
	line	1497
	colm	18
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	var	2
	var	1
	pnull
	var	3
	str	8
	pnull
	int	1
	var	4
	line	1498
	colm	63
	synt	any
	plus
	line	1498
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1498
	colm	99
	synt	any
	field	sel_index
	line	1498
	colm	94
	synt	any
	invoke	1
	line	1498
	colm	82
	synt	any
	cat
	line	1498
	colm	18
	synt	any
	invoke	2
	unmark
lab L11
	mark	L12
	var	2
	var	1
	pnull
	var	3
	str	9
	pnull
	int	1
	var	4
	line	1499
	colm	61
	synt	any
	plus
	line	1499
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1499
	colm	97
	synt	any
	field	id_appl
	line	1499
	colm	92
	synt	any
	invoke	1
	line	1499
	colm	80
	synt	any
	cat
	line	1499
	colm	18
	synt	any
	invoke	2
	unmark
lab L12
	var	2
	var	1
	pnull
	var	3
	str	10
	pnull
	int	1
	var	4
	line	1500
	colm	68
	synt	any
	plus
	line	1500
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1500
	colm	104
	synt	any
	field	id_forward_ref
	line	1500
	colm	99
	synt	any
	invoke	1
	line	1500
	colm	87
	synt	any
	cat
	line	1500
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1502
	colm	1
	synt	any
	pfail
	end
proc OpridNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,13,163,145,154,137,164,171,160,145,040,040,040,075,040
	con	3,010000,23,151,144,137,163,164,162,137,164,141,142,154,145,137,151,156,144,145,170,040,040,040,075,040
	con	4,010000,16,151,144,137,165,163,145,137,154,151,163,164,040,040,040,075,040
	con	5,010000,23,151,144,137,154,141,163,164,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	con	6,010000,17,151,144,137,144,145,146,137,146,157,165,156,144,040,040,040,075,040
	con	7,010000,14,163,145,154,137,151,156,144,145,170,040,040,040,075,040
	con	8,010000,12,151,144,137,141,160,160,154,040,040,040,075,040
	con	9,010000,19,151,144,137,146,157,162,167,141,162,144,137,162,145,146,040,040,040,075,040
	declend
	line	1503
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1505
	colm	6
	synt	any
	field	__m
	line	1505
	colm	10
	synt	any
	field	Node
	line	1505
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1505
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1506
	colm	6
	synt	any
	field	__m
	line	1506
	colm	10
	synt	any
	field	ConsNode
	line	1506
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1506
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1507
	colm	43
	synt	any
	field	signature
	line	1507
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1508
	colm	42
	synt	any
	field	sig_done
	line	1508
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1509
	colm	42
	synt	any
	field	sel_type
	line	1509
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	1510
	colm	52
	synt	any
	field	id_str_table_index
	line	1510
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	mark	L8
	var	2
	var	0
	str	4
	pnull
	var	0
	line	1511
	colm	45
	synt	any
	field	id_use_list
	line	1511
	colm	15
	synt	any
	invoke	3
	unmark
lab L8
	mark	L9
	var	2
	var	0
	str	5
	pnull
	var	0
	line	1512
	colm	52
	synt	any
	field	id_last_definition
	line	1512
	colm	15
	synt	any
	invoke	3
	unmark
lab L9
	mark	L10
	var	2
	var	0
	str	6
	pnull
	var	0
	line	1513
	colm	46
	synt	any
	field	id_def_found
	line	1513
	colm	15
	synt	any
	invoke	3
	unmark
lab L10
	mark	L11
	var	2
	var	0
	str	7
	pnull
	var	0
	line	1514
	colm	43
	synt	any
	field	sel_index
	line	1514
	colm	15
	synt	any
	invoke	3
	unmark
lab L11
	mark	L12
	var	2
	var	0
	str	8
	pnull
	var	0
	line	1515
	colm	41
	synt	any
	field	id_appl
	line	1515
	colm	15
	synt	any
	invoke	3
	unmark
lab L12
	var	2
	var	0
	str	9
	pnull
	var	0
	line	1516
	colm	48
	synt	any
	field	id_forward_ref
	line	1516
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1518
	colm	1
	synt	any
	pfail
	end
proc OpridNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	1519
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1520
	colm	6
	synt	any
	field	__m
	line	1520
	colm	10
	synt	any
	field	ConsNode
	line	1520
	colm	19
	synt	any
	field	initially
	var	0
	line	1520
	colm	30
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	1521
	colm	5
	synt	any
	field	id_use_list
	var	1
	line	1521
	colm	30
	synt	any
	invoke	0
	line	1521
	colm	18
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1522
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1523
	colm	1
	synt	any
	pfail
	end
proc OpridNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,sel_type
	local	3,001000,id_str_table_index
	local	4,001000,id_use_list
	local	5,001000,id_last_definition
	local	6,001000,id_def_found
	local	7,001000,sel_index
	local	8,001000,id_appl
	local	9,001000,id_forward_ref
	local	10,001000,kind
	local	11,001000,vlineno
	local	12,001000,pre_num
	local	13,001000,post_num
	local	14,001000,unique_id
	local	15,001000,cn_hd_field
	local	16,001000,cn_tl_field
	local	17,000020,self
	local	18,000020,clone
	local	19,000000,OpridNode__oprec
	local	20,000000,OpridNodeinitialize
	local	21,000000,Node__oprec
	local	22,000000,Nodeinitialize
	local	23,000000,ConsNode__oprec
	local	24,000000,ConsNodeinitialize
	local	25,000000,OpridNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	19
	line	8
	colm	6
	synt	any
	null
	unmark
	var	20
	line	8
	colm	48
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	21
	line	9
	colm	6
	synt	any
	null
	unmark
	var	22
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	19
	line	10
	colm	19
	synt	any
	field	Node
	var	21
	line	10
	colm	25
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	23
	line	11
	colm	6
	synt	any
	null
	unmark
	var	24
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	19
	line	12
	colm	19
	synt	any
	field	ConsNode
	var	23
	line	12
	colm	29
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	17
	var	25
	line	14
	colm	28
	synt	any
	keywd	null
	var	19
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	14
	var	15
	var	16
	line	14
	colm	27
	synt	any
	invoke	19
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	17
	line	15
	colm	7
	synt	any
	field	__s
	var	17
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	17
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	17
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	17
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc OpridNodeinitialize
	local	0,000000,OpridNode__oprec
	local	1,000000,OpridNode__methods
	local	2,000000,OpridNode_trace_node
	local	3,000000,OpridNode_dump
	local	4,000000,OpridNode_dump_tree
	local	5,000000,OpridNode_initially
	local	6,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	49
	synt	any
	invoke	5
	line	21
	colm	28
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc LetterId_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	con	0,010000,1,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	1524
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1525
	colm	6
	synt	any
	field	__m
	line	1525
	colm	10
	synt	any
	field	Node
	line	1525
	colm	15
	synt	any
	field	trace_node
	var	0
	line	1525
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1526
	colm	6
	synt	any
	field	__m
	line	1526
	colm	10
	synt	any
	field	ConsNode
	line	1526
	colm	19
	synt	any
	field	trace_node
	var	0
	line	1526
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1527
	colm	6
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1528
	colm	1
	synt	any
	pfail
	end
proc LetterId_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,write
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,13,163,145,154,137,164,171,160,145,040,040,040,075,040
	con	4,010000,23,151,144,137,163,164,162,137,164,141,142,154,145,137,151,156,144,145,170,040,040,040,075,040
	con	5,010000,16,151,144,137,165,163,145,137,154,151,163,164,040,040,040,075,040
	con	6,010000,23,151,144,137,154,141,163,164,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	con	7,010000,17,151,144,137,144,145,146,137,146,157,165,156,144,040,040,040,075,040
	con	8,010000,14,163,145,154,137,151,156,144,145,170,040,040,040,075,040
	con	9,010000,12,151,144,137,141,160,160,154,040,040,040,075,040
	con	10,010000,19,151,144,137,146,157,162,167,141,162,144,137,162,145,146,040,040,040,075,040
	declend
	line	1529
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1531
	colm	6
	synt	any
	field	__m
	line	1531
	colm	10
	synt	any
	field	Node
	line	1531
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1531
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1532
	colm	6
	synt	any
	field	__m
	line	1532
	colm	10
	synt	any
	field	ConsNode
	line	1532
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1532
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1533
	colm	63
	synt	any
	plus
	line	1533
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1533
	colm	99
	synt	any
	field	signature
	line	1533
	colm	94
	synt	any
	invoke	1
	line	1533
	colm	82
	synt	any
	cat
	line	1533
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1534
	colm	62
	synt	any
	plus
	line	1534
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1534
	colm	98
	synt	any
	field	sig_done
	line	1534
	colm	93
	synt	any
	invoke	1
	line	1534
	colm	81
	synt	any
	cat
	line	1534
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1535
	colm	62
	synt	any
	plus
	line	1535
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1535
	colm	98
	synt	any
	field	sel_type
	line	1535
	colm	93
	synt	any
	invoke	1
	line	1535
	colm	81
	synt	any
	cat
	line	1535
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	1536
	colm	72
	synt	any
	plus
	line	1536
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1536
	colm	108
	synt	any
	field	id_str_table_index
	line	1536
	colm	103
	synt	any
	invoke	1
	line	1536
	colm	91
	synt	any
	cat
	line	1536
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	1537
	colm	65
	synt	any
	plus
	line	1537
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1537
	colm	101
	synt	any
	field	id_use_list
	line	1537
	colm	96
	synt	any
	invoke	1
	line	1537
	colm	84
	synt	any
	cat
	line	1537
	colm	18
	synt	any
	invoke	2
	unmark
lab L8
	mark	L9
	var	2
	var	1
	pnull
	var	3
	str	6
	pnull
	int	1
	var	4
	line	1538
	colm	72
	synt	any
	plus
	line	1538
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1538
	colm	108
	synt	any
	field	id_last_definition
	line	1538
	colm	103
	synt	any
	invoke	1
	line	1538
	colm	91
	synt	any
	cat
	line	1538
	colm	18
	synt	any
	invoke	2
	unmark
lab L9
	mark	L10
	var	2
	var	1
	pnull
	var	3
	str	7
	pnull
	int	1
	var	4
	line	1539
	colm	66
	synt	any
	plus
	line	1539
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1539
	colm	102
	synt	any
	field	id_def_found
	line	1539
	colm	97
	synt	any
	invoke	1
	line	1539
	colm	85
	synt	any
	cat
	line	1539
	colm	18
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	var	2
	var	1
	pnull
	var	3
	str	8
	pnull
	int	1
	var	4
	line	1540
	colm	63
	synt	any
	plus
	line	1540
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1540
	colm	99
	synt	any
	field	sel_index
	line	1540
	colm	94
	synt	any
	invoke	1
	line	1540
	colm	82
	synt	any
	cat
	line	1540
	colm	18
	synt	any
	invoke	2
	unmark
lab L11
	mark	L12
	var	2
	var	1
	pnull
	var	3
	str	9
	pnull
	int	1
	var	4
	line	1541
	colm	61
	synt	any
	plus
	line	1541
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1541
	colm	97
	synt	any
	field	id_appl
	line	1541
	colm	92
	synt	any
	invoke	1
	line	1541
	colm	80
	synt	any
	cat
	line	1541
	colm	18
	synt	any
	invoke	2
	unmark
lab L12
	var	2
	var	1
	pnull
	var	3
	str	10
	pnull
	int	1
	var	4
	line	1542
	colm	68
	synt	any
	plus
	line	1542
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1542
	colm	104
	synt	any
	field	id_forward_ref
	line	1542
	colm	99
	synt	any
	invoke	1
	line	1542
	colm	87
	synt	any
	cat
	line	1542
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1544
	colm	1
	synt	any
	pfail
	end
proc LetterId_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,13,163,145,154,137,164,171,160,145,040,040,040,075,040
	con	3,010000,23,151,144,137,163,164,162,137,164,141,142,154,145,137,151,156,144,145,170,040,040,040,075,040
	con	4,010000,16,151,144,137,165,163,145,137,154,151,163,164,040,040,040,075,040
	con	5,010000,23,151,144,137,154,141,163,164,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	con	6,010000,17,151,144,137,144,145,146,137,146,157,165,156,144,040,040,040,075,040
	con	7,010000,14,163,145,154,137,151,156,144,145,170,040,040,040,075,040
	con	8,010000,12,151,144,137,141,160,160,154,040,040,040,075,040
	con	9,010000,19,151,144,137,146,157,162,167,141,162,144,137,162,145,146,040,040,040,075,040
	declend
	line	1545
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1547
	colm	6
	synt	any
	field	__m
	line	1547
	colm	10
	synt	any
	field	Node
	line	1547
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1547
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1548
	colm	6
	synt	any
	field	__m
	line	1548
	colm	10
	synt	any
	field	ConsNode
	line	1548
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1548
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1549
	colm	43
	synt	any
	field	signature
	line	1549
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1550
	colm	42
	synt	any
	field	sig_done
	line	1550
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1551
	colm	42
	synt	any
	field	sel_type
	line	1551
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	1552
	colm	52
	synt	any
	field	id_str_table_index
	line	1552
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	mark	L8
	var	2
	var	0
	str	4
	pnull
	var	0
	line	1553
	colm	45
	synt	any
	field	id_use_list
	line	1553
	colm	15
	synt	any
	invoke	3
	unmark
lab L8
	mark	L9
	var	2
	var	0
	str	5
	pnull
	var	0
	line	1554
	colm	52
	synt	any
	field	id_last_definition
	line	1554
	colm	15
	synt	any
	invoke	3
	unmark
lab L9
	mark	L10
	var	2
	var	0
	str	6
	pnull
	var	0
	line	1555
	colm	46
	synt	any
	field	id_def_found
	line	1555
	colm	15
	synt	any
	invoke	3
	unmark
lab L10
	mark	L11
	var	2
	var	0
	str	7
	pnull
	var	0
	line	1556
	colm	43
	synt	any
	field	sel_index
	line	1556
	colm	15
	synt	any
	invoke	3
	unmark
lab L11
	mark	L12
	var	2
	var	0
	str	8
	pnull
	var	0
	line	1557
	colm	41
	synt	any
	field	id_appl
	line	1557
	colm	15
	synt	any
	invoke	3
	unmark
lab L12
	var	2
	var	0
	str	9
	pnull
	var	0
	line	1558
	colm	48
	synt	any
	field	id_forward_ref
	line	1558
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1560
	colm	1
	synt	any
	pfail
	end
proc LetterId_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	1561
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1562
	colm	6
	synt	any
	field	__m
	line	1562
	colm	10
	synt	any
	field	ConsNode
	line	1562
	colm	19
	synt	any
	field	initially
	var	0
	line	1562
	colm	30
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	1563
	colm	5
	synt	any
	field	id_use_list
	var	1
	line	1563
	colm	30
	synt	any
	invoke	0
	line	1563
	colm	18
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1564
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1565
	colm	1
	synt	any
	pfail
	end
proc LetterId
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,sel_type
	local	3,001000,id_str_table_index
	local	4,001000,id_use_list
	local	5,001000,id_last_definition
	local	6,001000,id_def_found
	local	7,001000,sel_index
	local	8,001000,id_appl
	local	9,001000,id_forward_ref
	local	10,001000,kind
	local	11,001000,vlineno
	local	12,001000,pre_num
	local	13,001000,post_num
	local	14,001000,unique_id
	local	15,001000,cn_hd_field
	local	16,001000,cn_tl_field
	local	17,000020,self
	local	18,000020,clone
	local	19,000000,LetterId__oprec
	local	20,000000,LetterIdinitialize
	local	21,000000,Node__oprec
	local	22,000000,Nodeinitialize
	local	23,000000,ConsNode__oprec
	local	24,000000,ConsNodeinitialize
	local	25,000000,LetterId__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	19
	line	8
	colm	6
	synt	any
	null
	unmark
	var	20
	line	8
	colm	46
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	21
	line	9
	colm	6
	synt	any
	null
	unmark
	var	22
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	19
	line	10
	colm	18
	synt	any
	field	Node
	var	21
	line	10
	colm	24
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	23
	line	11
	colm	6
	synt	any
	null
	unmark
	var	24
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	19
	line	12
	colm	18
	synt	any
	field	ConsNode
	var	23
	line	12
	colm	28
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	17
	var	25
	line	14
	colm	27
	synt	any
	keywd	null
	var	19
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	14
	var	15
	var	16
	line	14
	colm	26
	synt	any
	invoke	19
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	17
	line	15
	colm	7
	synt	any
	field	__s
	var	17
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	17
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	17
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	17
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc LetterIdinitialize
	local	0,000000,LetterId__oprec
	local	1,000000,LetterId__methods
	local	2,000000,LetterId_trace_node
	local	3,000000,LetterId_dump
	local	4,000000,LetterId_dump_tree
	local	5,000000,LetterId_initially
	local	6,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	47
	synt	any
	invoke	5
	line	21
	colm	27
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc QStrNode_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	con	0,010000,1,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	1566
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1567
	colm	6
	synt	any
	field	__m
	line	1567
	colm	10
	synt	any
	field	Node
	line	1567
	colm	15
	synt	any
	field	trace_node
	var	0
	line	1567
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1568
	colm	6
	synt	any
	field	__m
	line	1568
	colm	10
	synt	any
	field	ConsNode
	line	1568
	colm	19
	synt	any
	field	trace_node
	var	0
	line	1568
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1569
	colm	6
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1570
	colm	1
	synt	any
	pfail
	end
proc QStrNode_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,write
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,13,163,145,154,137,164,171,160,145,040,040,040,075,040
	con	4,010000,15,163,164,162,137,163,164,162,151,156,147,040,040,040,075,040
	con	5,010000,17,163,164,162,137,165,163,145,137,154,151,163,164,040,040,040,075,040
	con	6,010000,18,163,164,162,137,145,170,160,141,156,163,151,157,156,040,040,040,075,040
	declend
	line	1571
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1573
	colm	6
	synt	any
	field	__m
	line	1573
	colm	10
	synt	any
	field	Node
	line	1573
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1573
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1574
	colm	6
	synt	any
	field	__m
	line	1574
	colm	10
	synt	any
	field	ConsNode
	line	1574
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1574
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1575
	colm	63
	synt	any
	plus
	line	1575
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1575
	colm	99
	synt	any
	field	signature
	line	1575
	colm	94
	synt	any
	invoke	1
	line	1575
	colm	82
	synt	any
	cat
	line	1575
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1576
	colm	62
	synt	any
	plus
	line	1576
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1576
	colm	98
	synt	any
	field	sig_done
	line	1576
	colm	93
	synt	any
	invoke	1
	line	1576
	colm	81
	synt	any
	cat
	line	1576
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1577
	colm	62
	synt	any
	plus
	line	1577
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1577
	colm	98
	synt	any
	field	sel_type
	line	1577
	colm	93
	synt	any
	invoke	1
	line	1577
	colm	81
	synt	any
	cat
	line	1577
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	1578
	colm	64
	synt	any
	plus
	line	1578
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1578
	colm	100
	synt	any
	field	str_string
	line	1578
	colm	95
	synt	any
	invoke	1
	line	1578
	colm	83
	synt	any
	cat
	line	1578
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	1579
	colm	66
	synt	any
	plus
	line	1579
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1579
	colm	102
	synt	any
	field	str_use_list
	line	1579
	colm	97
	synt	any
	invoke	1
	line	1579
	colm	85
	synt	any
	cat
	line	1579
	colm	18
	synt	any
	invoke	2
	unmark
lab L8
	var	2
	var	1
	pnull
	var	3
	str	6
	pnull
	int	1
	var	4
	line	1580
	colm	67
	synt	any
	plus
	line	1580
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1580
	colm	103
	synt	any
	field	str_expansion
	line	1580
	colm	98
	synt	any
	invoke	1
	line	1580
	colm	86
	synt	any
	cat
	line	1580
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1582
	colm	1
	synt	any
	pfail
	end
proc QStrNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,13,163,145,154,137,164,171,160,145,040,040,040,075,040
	con	3,010000,15,163,164,162,137,163,164,162,151,156,147,040,040,040,075,040
	con	4,010000,17,163,164,162,137,165,163,145,137,154,151,163,164,040,040,040,075,040
	con	5,010000,18,163,164,162,137,145,170,160,141,156,163,151,157,156,040,040,040,075,040
	declend
	line	1583
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1585
	colm	6
	synt	any
	field	__m
	line	1585
	colm	10
	synt	any
	field	Node
	line	1585
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1585
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1586
	colm	6
	synt	any
	field	__m
	line	1586
	colm	10
	synt	any
	field	ConsNode
	line	1586
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1586
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1587
	colm	43
	synt	any
	field	signature
	line	1587
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1588
	colm	42
	synt	any
	field	sig_done
	line	1588
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1589
	colm	42
	synt	any
	field	sel_type
	line	1589
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	1590
	colm	44
	synt	any
	field	str_string
	line	1590
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	mark	L8
	var	2
	var	0
	str	4
	pnull
	var	0
	line	1591
	colm	46
	synt	any
	field	str_use_list
	line	1591
	colm	15
	synt	any
	invoke	3
	unmark
lab L8
	var	2
	var	0
	str	5
	pnull
	var	0
	line	1592
	colm	47
	synt	any
	field	str_expansion
	line	1592
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1594
	colm	1
	synt	any
	pfail
	end
proc QStrNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	1595
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1596
	colm	6
	synt	any
	field	__m
	line	1596
	colm	10
	synt	any
	field	ConsNode
	line	1596
	colm	19
	synt	any
	field	initially
	var	0
	line	1596
	colm	30
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	1597
	colm	5
	synt	any
	field	str_use_list
	var	1
	line	1597
	colm	31
	synt	any
	invoke	0
	line	1597
	colm	19
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1598
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1599
	colm	1
	synt	any
	pfail
	end
proc QStrNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,sel_type
	local	3,001000,str_string
	local	4,001000,str_use_list
	local	5,001000,str_expansion
	local	6,001000,kind
	local	7,001000,vlineno
	local	8,001000,pre_num
	local	9,001000,post_num
	local	10,001000,unique_id
	local	11,001000,cn_hd_field
	local	12,001000,cn_tl_field
	local	13,000020,self
	local	14,000020,clone
	local	15,000000,QStrNode__oprec
	local	16,000000,QStrNodeinitialize
	local	17,000000,Node__oprec
	local	18,000000,Nodeinitialize
	local	19,000000,ConsNode__oprec
	local	20,000000,ConsNodeinitialize
	local	21,000000,QStrNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	15
	line	8
	colm	6
	synt	any
	null
	unmark
	var	16
	line	8
	colm	46
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	17
	line	9
	colm	6
	synt	any
	null
	unmark
	var	18
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	15
	line	10
	colm	18
	synt	any
	field	Node
	var	17
	line	10
	colm	24
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	19
	line	11
	colm	6
	synt	any
	null
	unmark
	var	20
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	15
	line	12
	colm	18
	synt	any
	field	ConsNode
	var	19
	line	12
	colm	28
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	13
	var	21
	line	14
	colm	27
	synt	any
	keywd	null
	var	15
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	line	14
	colm	26
	synt	any
	invoke	15
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	13
	line	15
	colm	7
	synt	any
	field	__s
	var	13
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	13
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	13
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	13
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc QStrNodeinitialize
	local	0,000000,QStrNode__oprec
	local	1,000000,QStrNode__methods
	local	2,000000,QStrNode_trace_node
	local	3,000000,QStrNode_dump
	local	4,000000,QStrNode_dump_tree
	local	5,000000,QStrNode_initially
	local	6,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	47
	synt	any
	invoke	5
	line	21
	colm	27
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc UQStrNode_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	con	0,010000,1,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	1600
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1601
	colm	6
	synt	any
	field	__m
	line	1601
	colm	10
	synt	any
	field	Node
	line	1601
	colm	15
	synt	any
	field	trace_node
	var	0
	line	1601
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1602
	colm	6
	synt	any
	field	__m
	line	1602
	colm	10
	synt	any
	field	ConsNode
	line	1602
	colm	19
	synt	any
	field	trace_node
	var	0
	line	1602
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1603
	colm	6
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1604
	colm	1
	synt	any
	pfail
	end
proc UQStrNode_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,write
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,13,163,145,154,137,164,171,160,145,040,040,040,075,040
	con	4,010000,15,163,164,162,137,163,164,162,151,156,147,040,040,040,075,040
	con	5,010000,17,163,164,162,137,165,163,145,137,154,151,163,164,040,040,040,075,040
	con	6,010000,18,163,164,162,137,145,170,160,141,156,163,151,157,156,040,040,040,075,040
	declend
	line	1605
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1607
	colm	6
	synt	any
	field	__m
	line	1607
	colm	10
	synt	any
	field	Node
	line	1607
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1607
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1608
	colm	6
	synt	any
	field	__m
	line	1608
	colm	10
	synt	any
	field	ConsNode
	line	1608
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1608
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1609
	colm	63
	synt	any
	plus
	line	1609
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1609
	colm	99
	synt	any
	field	signature
	line	1609
	colm	94
	synt	any
	invoke	1
	line	1609
	colm	82
	synt	any
	cat
	line	1609
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1610
	colm	62
	synt	any
	plus
	line	1610
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1610
	colm	98
	synt	any
	field	sig_done
	line	1610
	colm	93
	synt	any
	invoke	1
	line	1610
	colm	81
	synt	any
	cat
	line	1610
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1611
	colm	62
	synt	any
	plus
	line	1611
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1611
	colm	98
	synt	any
	field	sel_type
	line	1611
	colm	93
	synt	any
	invoke	1
	line	1611
	colm	81
	synt	any
	cat
	line	1611
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	1612
	colm	64
	synt	any
	plus
	line	1612
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1612
	colm	100
	synt	any
	field	str_string
	line	1612
	colm	95
	synt	any
	invoke	1
	line	1612
	colm	83
	synt	any
	cat
	line	1612
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	1613
	colm	66
	synt	any
	plus
	line	1613
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1613
	colm	102
	synt	any
	field	str_use_list
	line	1613
	colm	97
	synt	any
	invoke	1
	line	1613
	colm	85
	synt	any
	cat
	line	1613
	colm	18
	synt	any
	invoke	2
	unmark
lab L8
	var	2
	var	1
	pnull
	var	3
	str	6
	pnull
	int	1
	var	4
	line	1614
	colm	67
	synt	any
	plus
	line	1614
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1614
	colm	103
	synt	any
	field	str_expansion
	line	1614
	colm	98
	synt	any
	invoke	1
	line	1614
	colm	86
	synt	any
	cat
	line	1614
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1616
	colm	1
	synt	any
	pfail
	end
proc UQStrNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,13,163,145,154,137,164,171,160,145,040,040,040,075,040
	con	3,010000,15,163,164,162,137,163,164,162,151,156,147,040,040,040,075,040
	con	4,010000,17,163,164,162,137,165,163,145,137,154,151,163,164,040,040,040,075,040
	con	5,010000,18,163,164,162,137,145,170,160,141,156,163,151,157,156,040,040,040,075,040
	declend
	line	1617
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1619
	colm	6
	synt	any
	field	__m
	line	1619
	colm	10
	synt	any
	field	Node
	line	1619
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1619
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1620
	colm	6
	synt	any
	field	__m
	line	1620
	colm	10
	synt	any
	field	ConsNode
	line	1620
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1620
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1621
	colm	43
	synt	any
	field	signature
	line	1621
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1622
	colm	42
	synt	any
	field	sig_done
	line	1622
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1623
	colm	42
	synt	any
	field	sel_type
	line	1623
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	1624
	colm	44
	synt	any
	field	str_string
	line	1624
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	mark	L8
	var	2
	var	0
	str	4
	pnull
	var	0
	line	1625
	colm	46
	synt	any
	field	str_use_list
	line	1625
	colm	15
	synt	any
	invoke	3
	unmark
lab L8
	var	2
	var	0
	str	5
	pnull
	var	0
	line	1626
	colm	47
	synt	any
	field	str_expansion
	line	1626
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1628
	colm	1
	synt	any
	pfail
	end
proc UQStrNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	1629
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1630
	colm	6
	synt	any
	field	__m
	line	1630
	colm	10
	synt	any
	field	ConsNode
	line	1630
	colm	19
	synt	any
	field	initially
	var	0
	line	1630
	colm	30
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	1631
	colm	5
	synt	any
	field	str_use_list
	var	1
	line	1631
	colm	30
	synt	any
	invoke	0
	line	1631
	colm	18
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1632
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1633
	colm	1
	synt	any
	pfail
	end
proc UQStrNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,sel_type
	local	3,001000,str_string
	local	4,001000,str_use_list
	local	5,001000,str_expansion
	local	6,001000,kind
	local	7,001000,vlineno
	local	8,001000,pre_num
	local	9,001000,post_num
	local	10,001000,unique_id
	local	11,001000,cn_hd_field
	local	12,001000,cn_tl_field
	local	13,000020,self
	local	14,000020,clone
	local	15,000000,UQStrNode__oprec
	local	16,000000,UQStrNodeinitialize
	local	17,000000,Node__oprec
	local	18,000000,Nodeinitialize
	local	19,000000,ConsNode__oprec
	local	20,000000,ConsNodeinitialize
	local	21,000000,UQStrNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	15
	line	8
	colm	6
	synt	any
	null
	unmark
	var	16
	line	8
	colm	48
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	17
	line	9
	colm	6
	synt	any
	null
	unmark
	var	18
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	15
	line	10
	colm	19
	synt	any
	field	Node
	var	17
	line	10
	colm	25
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	19
	line	11
	colm	6
	synt	any
	null
	unmark
	var	20
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	15
	line	12
	colm	19
	synt	any
	field	ConsNode
	var	19
	line	12
	colm	29
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	13
	var	21
	line	14
	colm	28
	synt	any
	keywd	null
	var	15
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	line	14
	colm	27
	synt	any
	invoke	15
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	13
	line	15
	colm	7
	synt	any
	field	__s
	var	13
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	13
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	13
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	13
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc UQStrNodeinitialize
	local	0,000000,UQStrNode__oprec
	local	1,000000,UQStrNode__methods
	local	2,000000,UQStrNode_trace_node
	local	3,000000,UQStrNode_dump
	local	4,000000,UQStrNode_dump_tree
	local	5,000000,UQStrNode_initially
	local	6,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	49
	synt	any
	invoke	5
	line	21
	colm	28
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc FConstruction_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	con	0,010000,1,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	1634
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1635
	colm	6
	synt	any
	field	__m
	line	1635
	colm	10
	synt	any
	field	Node
	line	1635
	colm	15
	synt	any
	field	trace_node
	var	0
	line	1635
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1636
	colm	6
	synt	any
	field	__m
	line	1636
	colm	10
	synt	any
	field	ConsNode
	line	1636
	colm	19
	synt	any
	field	trace_node
	var	0
	line	1636
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1637
	colm	6
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1638
	colm	1
	synt	any
	pfail
	end
proc FConstruction_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,write
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,12,141,162,137,163,151,172,145,040,040,040,075,040
	con	4,010000,19,141,162,137,163,164,141,164,151,143,137,154,151,156,153,040,040,040,075,040
	con	5,010000,20,141,162,137,163,164,141,164,151,143,137,154,145,166,145,154,040,040,040,075,040
	con	6,010000,12,146,143,137,142,157,144,171,040,040,040,075,040
	con	7,010000,18,146,143,137,143,157,155,160,154,145,170,151,164,171,040,040,040,075,040
	con	8,010000,18,146,143,137,143,157,144,145,137,154,141,142,145,154,040,040,040,075,040
	con	9,010000,17,146,143,137,146,162,145,145,137,166,141,162,163,040,040,040,075,040
	con	10,010000,19,146,143,137,142,157,144,171,137,156,145,145,144,145,144,040,040,040,075,040
	declend
	line	1639
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1641
	colm	6
	synt	any
	field	__m
	line	1641
	colm	10
	synt	any
	field	Node
	line	1641
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1641
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1642
	colm	6
	synt	any
	field	__m
	line	1642
	colm	10
	synt	any
	field	ConsNode
	line	1642
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1642
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1643
	colm	63
	synt	any
	plus
	line	1643
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1643
	colm	99
	synt	any
	field	signature
	line	1643
	colm	94
	synt	any
	invoke	1
	line	1643
	colm	82
	synt	any
	cat
	line	1643
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1644
	colm	62
	synt	any
	plus
	line	1644
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1644
	colm	98
	synt	any
	field	sig_done
	line	1644
	colm	93
	synt	any
	invoke	1
	line	1644
	colm	81
	synt	any
	cat
	line	1644
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1645
	colm	61
	synt	any
	plus
	line	1645
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1645
	colm	97
	synt	any
	field	ar_size
	line	1645
	colm	92
	synt	any
	invoke	1
	line	1645
	colm	80
	synt	any
	cat
	line	1645
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	1646
	colm	68
	synt	any
	plus
	line	1646
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1646
	colm	104
	synt	any
	field	ar_static_link
	line	1646
	colm	99
	synt	any
	invoke	1
	line	1646
	colm	87
	synt	any
	cat
	line	1646
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	1647
	colm	69
	synt	any
	plus
	line	1647
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1647
	colm	105
	synt	any
	field	ar_static_level
	line	1647
	colm	100
	synt	any
	invoke	1
	line	1647
	colm	88
	synt	any
	cat
	line	1647
	colm	18
	synt	any
	invoke	2
	unmark
lab L8
	mark	L9
	var	2
	var	1
	pnull
	var	3
	str	6
	pnull
	int	1
	var	4
	line	1648
	colm	61
	synt	any
	plus
	line	1648
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1648
	colm	97
	synt	any
	field	fc_body
	line	1648
	colm	92
	synt	any
	invoke	1
	line	1648
	colm	80
	synt	any
	cat
	line	1648
	colm	18
	synt	any
	invoke	2
	unmark
lab L9
	mark	L10
	var	2
	var	1
	pnull
	var	3
	str	7
	pnull
	int	1
	var	4
	line	1649
	colm	67
	synt	any
	plus
	line	1649
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1649
	colm	103
	synt	any
	field	fc_complexity
	line	1649
	colm	98
	synt	any
	invoke	1
	line	1649
	colm	86
	synt	any
	cat
	line	1649
	colm	18
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	var	2
	var	1
	pnull
	var	3
	str	8
	pnull
	int	1
	var	4
	line	1650
	colm	67
	synt	any
	plus
	line	1650
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1650
	colm	103
	synt	any
	field	fc_code_label
	line	1650
	colm	98
	synt	any
	invoke	1
	line	1650
	colm	86
	synt	any
	cat
	line	1650
	colm	18
	synt	any
	invoke	2
	unmark
lab L11
	mark	L12
	var	2
	var	1
	pnull
	var	3
	str	9
	pnull
	int	1
	var	4
	line	1651
	colm	66
	synt	any
	plus
	line	1651
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1651
	colm	102
	synt	any
	field	fc_free_vars
	line	1651
	colm	97
	synt	any
	invoke	1
	line	1651
	colm	85
	synt	any
	cat
	line	1651
	colm	18
	synt	any
	invoke	2
	unmark
lab L12
	var	2
	var	1
	pnull
	var	3
	str	10
	pnull
	int	1
	var	4
	line	1652
	colm	68
	synt	any
	plus
	line	1652
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1652
	colm	104
	synt	any
	field	fc_body_needed
	line	1652
	colm	99
	synt	any
	invoke	1
	line	1652
	colm	87
	synt	any
	cat
	line	1652
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1654
	colm	1
	synt	any
	pfail
	end
proc FConstruction_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,12,141,162,137,163,151,172,145,040,040,040,075,040
	con	3,010000,19,141,162,137,163,164,141,164,151,143,137,154,151,156,153,040,040,040,075,040
	con	4,010000,20,141,162,137,163,164,141,164,151,143,137,154,145,166,145,154,040,040,040,075,040
	con	5,010000,12,146,143,137,142,157,144,171,040,040,040,075,040
	con	6,010000,18,146,143,137,143,157,155,160,154,145,170,151,164,171,040,040,040,075,040
	con	7,010000,18,146,143,137,143,157,144,145,137,154,141,142,145,154,040,040,040,075,040
	con	8,010000,17,146,143,137,146,162,145,145,137,166,141,162,163,040,040,040,075,040
	con	9,010000,19,146,143,137,142,157,144,171,137,156,145,145,144,145,144,040,040,040,075,040
	declend
	line	1655
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1657
	colm	6
	synt	any
	field	__m
	line	1657
	colm	10
	synt	any
	field	Node
	line	1657
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1657
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1658
	colm	6
	synt	any
	field	__m
	line	1658
	colm	10
	synt	any
	field	ConsNode
	line	1658
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1658
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1659
	colm	43
	synt	any
	field	signature
	line	1659
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1660
	colm	42
	synt	any
	field	sig_done
	line	1660
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1661
	colm	41
	synt	any
	field	ar_size
	line	1661
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	1662
	colm	48
	synt	any
	field	ar_static_link
	line	1662
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	mark	L8
	var	2
	var	0
	str	4
	pnull
	var	0
	line	1663
	colm	49
	synt	any
	field	ar_static_level
	line	1663
	colm	15
	synt	any
	invoke	3
	unmark
lab L8
	mark	L9
	var	2
	var	0
	str	5
	pnull
	var	0
	line	1664
	colm	41
	synt	any
	field	fc_body
	line	1664
	colm	15
	synt	any
	invoke	3
	unmark
lab L9
	mark	L10
	var	2
	var	0
	str	6
	pnull
	var	0
	line	1665
	colm	47
	synt	any
	field	fc_complexity
	line	1665
	colm	15
	synt	any
	invoke	3
	unmark
lab L10
	mark	L11
	var	2
	var	0
	str	7
	pnull
	var	0
	line	1666
	colm	47
	synt	any
	field	fc_code_label
	line	1666
	colm	15
	synt	any
	invoke	3
	unmark
lab L11
	mark	L12
	var	2
	var	0
	str	8
	pnull
	var	0
	line	1667
	colm	46
	synt	any
	field	fc_free_vars
	line	1667
	colm	15
	synt	any
	invoke	3
	unmark
lab L12
	var	2
	var	0
	str	9
	pnull
	var	0
	line	1668
	colm	48
	synt	any
	field	fc_body_needed
	line	1668
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1670
	colm	1
	synt	any
	pfail
	end
proc FConstruction_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	1671
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1672
	colm	6
	synt	any
	field	__m
	line	1672
	colm	10
	synt	any
	field	ConsNode
	line	1672
	colm	19
	synt	any
	field	initially
	var	0
	line	1672
	colm	30
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	1673
	colm	5
	synt	any
	field	signature
	var	1
	line	1673
	colm	27
	synt	any
	invoke	0
	line	1673
	colm	15
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	1674
	colm	5
	synt	any
	field	fc_body
	var	1
	line	1674
	colm	25
	synt	any
	invoke	0
	line	1674
	colm	13
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	pnull
	var	0
	line	1675
	colm	5
	synt	any
	field	fc_complexity
	var	1
	line	1675
	colm	31
	synt	any
	invoke	0
	line	1675
	colm	19
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	0
	line	1676
	colm	5
	synt	any
	field	fc_code_label
	var	1
	line	1676
	colm	32
	synt	any
	invoke	0
	line	1676
	colm	20
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	0
	line	1677
	colm	5
	synt	any
	field	fc_free_vars
	var	1
	line	1677
	colm	31
	synt	any
	invoke	0
	line	1677
	colm	19
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	pnull
	var	0
	line	1678
	colm	5
	synt	any
	field	fc_body_needed
	var	1
	line	1678
	colm	33
	synt	any
	invoke	0
	line	1678
	colm	21
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	mark	L9
	pnull
	line	1679
	colm	7
	synt	any
	pret
lab L9
	synt	any
	pfail
	unmark
lab L8
	pnull
	line	1680
	colm	1
	synt	any
	pfail
	end
proc FConstruction
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,ar_size
	local	3,001000,ar_static_link
	local	4,001000,ar_static_level
	local	5,001000,fc_body
	local	6,001000,fc_complexity
	local	7,001000,fc_code_label
	local	8,001000,fc_free_vars
	local	9,001000,fc_body_needed
	local	10,001000,kind
	local	11,001000,vlineno
	local	12,001000,pre_num
	local	13,001000,post_num
	local	14,001000,unique_id
	local	15,001000,cn_hd_field
	local	16,001000,cn_tl_field
	local	17,000020,self
	local	18,000020,clone
	local	19,000000,FConstruction__oprec
	local	20,000000,FConstructioninitialize
	local	21,000000,Node__oprec
	local	22,000000,Nodeinitialize
	local	23,000000,ConsNode__oprec
	local	24,000000,ConsNodeinitialize
	local	25,000000,FConstruction__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	19
	line	8
	colm	6
	synt	any
	null
	unmark
	var	20
	line	8
	colm	56
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	21
	line	9
	colm	6
	synt	any
	null
	unmark
	var	22
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	19
	line	10
	colm	23
	synt	any
	field	Node
	var	21
	line	10
	colm	29
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	23
	line	11
	colm	6
	synt	any
	null
	unmark
	var	24
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	19
	line	12
	colm	23
	synt	any
	field	ConsNode
	var	23
	line	12
	colm	33
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	17
	var	25
	line	14
	colm	32
	synt	any
	keywd	null
	var	19
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	14
	var	15
	var	16
	line	14
	colm	31
	synt	any
	invoke	19
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	17
	line	15
	colm	7
	synt	any
	field	__s
	var	17
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	17
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	17
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	17
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc FConstructioninitialize
	local	0,000000,FConstruction__oprec
	local	1,000000,FConstruction__methods
	local	2,000000,FConstruction_trace_node
	local	3,000000,FConstruction_dump
	local	4,000000,FConstruction_dump_tree
	local	5,000000,FConstruction_initially
	local	6,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	57
	synt	any
	invoke	5
	line	21
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc FreeVarNode_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	con	0,010000,1,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	1681
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1682
	colm	6
	synt	any
	field	__m
	line	1682
	colm	10
	synt	any
	field	Node
	line	1682
	colm	15
	synt	any
	field	trace_node
	var	0
	line	1682
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1683
	colm	6
	synt	any
	field	__m
	line	1683
	colm	10
	synt	any
	field	ConsNode
	line	1683
	colm	19
	synt	any
	field	trace_node
	var	0
	line	1683
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1684
	colm	6
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1685
	colm	1
	synt	any
	pfail
	end
proc FreeVarNode_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,write
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	con	0,010000,23,146,166,137,154,141,163,164,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,13,146,166,137,163,165,162,162,137,040,040,040,075,040
	con	3,010000,18,146,166,137,163,165,162,162,137,151,156,144,145,170,040,040,040,075,040
	con	4,010000,13,146,166,137,151,156,144,145,170,040,040,040,075,040
	declend
	line	1686
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1688
	colm	6
	synt	any
	field	__m
	line	1688
	colm	10
	synt	any
	field	Node
	line	1688
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1688
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1689
	colm	6
	synt	any
	field	__m
	line	1689
	colm	10
	synt	any
	field	ConsNode
	line	1689
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1689
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1690
	colm	72
	synt	any
	plus
	line	1690
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1690
	colm	108
	synt	any
	field	fv_last_definition
	line	1690
	colm	103
	synt	any
	invoke	1
	line	1690
	colm	91
	synt	any
	cat
	line	1690
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1691
	colm	62
	synt	any
	plus
	line	1691
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1691
	colm	98
	synt	any
	field	fv_surr_
	line	1691
	colm	93
	synt	any
	invoke	1
	line	1691
	colm	81
	synt	any
	cat
	line	1691
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1692
	colm	67
	synt	any
	plus
	line	1692
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1692
	colm	103
	synt	any
	field	fv_surr_index
	line	1692
	colm	98
	synt	any
	invoke	1
	line	1692
	colm	86
	synt	any
	cat
	line	1692
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	1693
	colm	62
	synt	any
	plus
	line	1693
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1693
	colm	98
	synt	any
	field	fv_index
	line	1693
	colm	93
	synt	any
	invoke	1
	line	1693
	colm	81
	synt	any
	cat
	line	1693
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1695
	colm	1
	synt	any
	pfail
	end
proc FreeVarNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,23,146,166,137,154,141,163,164,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	con	1,010000,13,146,166,137,163,165,162,162,137,040,040,040,075,040
	con	2,010000,18,146,166,137,163,165,162,162,137,151,156,144,145,170,040,040,040,075,040
	con	3,010000,13,146,166,137,151,156,144,145,170,040,040,040,075,040
	declend
	line	1696
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1698
	colm	6
	synt	any
	field	__m
	line	1698
	colm	10
	synt	any
	field	Node
	line	1698
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1698
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1699
	colm	6
	synt	any
	field	__m
	line	1699
	colm	10
	synt	any
	field	ConsNode
	line	1699
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1699
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1700
	colm	52
	synt	any
	field	fv_last_definition
	line	1700
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1701
	colm	42
	synt	any
	field	fv_surr_
	line	1701
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1702
	colm	47
	synt	any
	field	fv_surr_index
	line	1702
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	var	2
	var	0
	str	3
	pnull
	var	0
	line	1703
	colm	42
	synt	any
	field	fv_index
	line	1703
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1705
	colm	1
	synt	any
	pfail
	end
proc FreeVarNode_initially
	local	0,001000,self
	declend
	line	1706
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1707
	colm	6
	synt	any
	field	__m
	line	1707
	colm	10
	synt	any
	field	ConsNode
	line	1707
	colm	19
	synt	any
	field	initially
	var	0
	line	1707
	colm	30
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	1708
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	1709
	colm	1
	synt	any
	pfail
	end
proc FreeVarNode
	local	0,001000,fv_last_definition
	local	1,001000,fv_surr_class
	local	2,001000,fv_surr_index
	local	3,001000,fv_index
	local	4,001000,kind
	local	5,001000,vlineno
	local	6,001000,pre_num
	local	7,001000,post_num
	local	8,001000,unique_id
	local	9,001000,cn_hd_field
	local	10,001000,cn_tl_field
	local	11,000020,self
	local	12,000020,clone
	local	13,000000,FreeVarNode__oprec
	local	14,000000,FreeVarNodeinitialize
	local	15,000000,Node__oprec
	local	16,000000,Nodeinitialize
	local	17,000000,ConsNode__oprec
	local	18,000000,ConsNodeinitialize
	local	19,000000,FreeVarNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	13
	line	8
	colm	6
	synt	any
	null
	unmark
	var	14
	line	8
	colm	52
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	15
	line	9
	colm	6
	synt	any
	null
	unmark
	var	16
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	13
	line	10
	colm	21
	synt	any
	field	Node
	var	15
	line	10
	colm	27
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	17
	line	11
	colm	6
	synt	any
	null
	unmark
	var	18
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	13
	line	12
	colm	21
	synt	any
	field	ConsNode
	var	17
	line	12
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	11
	var	19
	line	14
	colm	30
	synt	any
	keywd	null
	var	13
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	line	14
	colm	29
	synt	any
	invoke	13
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	11
	line	15
	colm	7
	synt	any
	field	__s
	var	11
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	11
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	11
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	11
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc FreeVarNodeinitialize
	local	0,000000,FreeVarNode__oprec
	local	1,000000,FreeVarNode__methods
	local	2,000000,FreeVarNode_trace_node
	local	3,000000,FreeVarNode_dump
	local	4,000000,FreeVarNode_dump_tree
	local	5,000000,FreeVarNode_initially
	local	6,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	53
	synt	any
	invoke	5
	line	21
	colm	30
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc ExternDefNode_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	con	0,010000,1,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	1710
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1711
	colm	6
	synt	any
	field	__m
	line	1711
	colm	10
	synt	any
	field	Node
	line	1711
	colm	15
	synt	any
	field	trace_node
	var	0
	line	1711
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1712
	colm	6
	synt	any
	field	__m
	line	1712
	colm	10
	synt	any
	field	ConsNode
	line	1712
	colm	19
	synt	any
	field	trace_node
	var	0
	line	1712
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1713
	colm	6
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1714
	colm	1
	synt	any
	pfail
	end
proc ExternDefNode_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,write
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	con	0,010000,13,145,170,164,137,156,141,155,145,040,040,040,075,040
	con	1,002000,2,20
	declend
	line	1715
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1717
	colm	6
	synt	any
	field	__m
	line	1717
	colm	10
	synt	any
	field	Node
	line	1717
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1717
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1718
	colm	6
	synt	any
	field	__m
	line	1718
	colm	10
	synt	any
	field	ConsNode
	line	1718
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1718
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1719
	colm	62
	synt	any
	plus
	line	1719
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1719
	colm	98
	synt	any
	field	ext_name
	line	1719
	colm	93
	synt	any
	invoke	1
	line	1719
	colm	81
	synt	any
	cat
	line	1719
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1721
	colm	1
	synt	any
	pfail
	end
proc ExternDefNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,13,145,170,164,137,156,141,155,145,040,040,040,075,040
	declend
	line	1722
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1724
	colm	6
	synt	any
	field	__m
	line	1724
	colm	10
	synt	any
	field	Node
	line	1724
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1724
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1725
	colm	6
	synt	any
	field	__m
	line	1725
	colm	10
	synt	any
	field	ConsNode
	line	1725
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1725
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1726
	colm	42
	synt	any
	field	ext_name
	line	1726
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1728
	colm	1
	synt	any
	pfail
	end
proc ExternDefNode_initially
	local	0,001000,self
	declend
	line	1729
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1730
	colm	6
	synt	any
	field	__m
	line	1730
	colm	10
	synt	any
	field	ConsNode
	line	1730
	colm	19
	synt	any
	field	initially
	var	0
	line	1730
	colm	30
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	1731
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	1732
	colm	1
	synt	any
	pfail
	end
proc ExternDefNode
	local	0,001000,ext_name
	local	1,001000,kind
	local	2,001000,vlineno
	local	3,001000,pre_num
	local	4,001000,post_num
	local	5,001000,unique_id
	local	6,001000,cn_hd_field
	local	7,001000,cn_tl_field
	local	8,000020,self
	local	9,000020,clone
	local	10,000000,ExternDefNode__oprec
	local	11,000000,ExternDefNodeinitialize
	local	12,000000,Node__oprec
	local	13,000000,Nodeinitialize
	local	14,000000,ConsNode__oprec
	local	15,000000,ConsNodeinitialize
	local	16,000000,ExternDefNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	10
	line	8
	colm	6
	synt	any
	null
	unmark
	var	11
	line	8
	colm	56
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	12
	line	9
	colm	6
	synt	any
	null
	unmark
	var	13
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	10
	line	10
	colm	23
	synt	any
	field	Node
	var	12
	line	10
	colm	29
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	11
	colm	6
	synt	any
	null
	unmark
	var	15
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	10
	line	12
	colm	23
	synt	any
	field	ConsNode
	var	14
	line	12
	colm	33
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	8
	var	16
	line	14
	colm	32
	synt	any
	keywd	null
	var	10
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	line	14
	colm	31
	synt	any
	invoke	10
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	8
	line	15
	colm	7
	synt	any
	field	__s
	var	8
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	8
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	8
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	8
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc ExternDefNodeinitialize
	local	0,000000,ExternDefNode__oprec
	local	1,000000,ExternDefNode__methods
	local	2,000000,ExternDefNode_trace_node
	local	3,000000,ExternDefNode_dump
	local	4,000000,ExternDefNode_dump_tree
	local	5,000000,ExternDefNode_initially
	local	6,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	57
	synt	any
	invoke	5
	line	21
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc RExternDef_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	con	0,010000,1,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	1733
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1734
	colm	6
	synt	any
	field	__m
	line	1734
	colm	10
	synt	any
	field	Node
	line	1734
	colm	15
	synt	any
	field	trace_node
	var	0
	line	1734
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1735
	colm	6
	synt	any
	field	__m
	line	1735
	colm	10
	synt	any
	field	ConsNode
	line	1735
	colm	19
	synt	any
	field	trace_node
	var	0
	line	1735
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1736
	colm	6
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1737
	colm	1
	synt	any
	pfail
	end
proc RExternDef_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,write
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,15,162,137,145,170,164,137,156,141,155,145,040,040,040,075,040
	declend
	line	1738
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1740
	colm	6
	synt	any
	field	__m
	line	1740
	colm	10
	synt	any
	field	Node
	line	1740
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1740
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1741
	colm	6
	synt	any
	field	__m
	line	1741
	colm	10
	synt	any
	field	ConsNode
	line	1741
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1741
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1742
	colm	63
	synt	any
	plus
	line	1742
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1742
	colm	99
	synt	any
	field	signature
	line	1742
	colm	94
	synt	any
	invoke	1
	line	1742
	colm	82
	synt	any
	cat
	line	1742
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1743
	colm	62
	synt	any
	plus
	line	1743
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1743
	colm	98
	synt	any
	field	sig_done
	line	1743
	colm	93
	synt	any
	invoke	1
	line	1743
	colm	81
	synt	any
	cat
	line	1743
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1744
	colm	64
	synt	any
	plus
	line	1744
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1744
	colm	100
	synt	any
	field	r_ext_name
	line	1744
	colm	95
	synt	any
	invoke	1
	line	1744
	colm	83
	synt	any
	cat
	line	1744
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1746
	colm	1
	synt	any
	pfail
	end
proc RExternDef_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,15,162,137,145,170,164,137,156,141,155,145,040,040,040,075,040
	declend
	line	1747
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1749
	colm	6
	synt	any
	field	__m
	line	1749
	colm	10
	synt	any
	field	Node
	line	1749
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1749
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1750
	colm	6
	synt	any
	field	__m
	line	1750
	colm	10
	synt	any
	field	ConsNode
	line	1750
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1750
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1751
	colm	43
	synt	any
	field	signature
	line	1751
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1752
	colm	42
	synt	any
	field	sig_done
	line	1752
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1753
	colm	44
	synt	any
	field	r_ext_name
	line	1753
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1755
	colm	1
	synt	any
	pfail
	end
proc RExternDef_initially
	local	0,001000,self
	declend
	line	1756
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1757
	colm	6
	synt	any
	field	__m
	line	1757
	colm	10
	synt	any
	field	ConsNode
	line	1757
	colm	19
	synt	any
	field	initially
	var	0
	line	1757
	colm	30
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	1758
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	1759
	colm	1
	synt	any
	pfail
	end
proc RExternDef
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,r_ext_name
	local	3,001000,kind
	local	4,001000,vlineno
	local	5,001000,pre_num
	local	6,001000,post_num
	local	7,001000,unique_id
	local	8,001000,cn_hd_field
	local	9,001000,cn_tl_field
	local	10,000020,self
	local	11,000020,clone
	local	12,000000,RExternDef__oprec
	local	13,000000,RExternDefinitialize
	local	14,000000,Node__oprec
	local	15,000000,Nodeinitialize
	local	16,000000,ConsNode__oprec
	local	17,000000,ConsNodeinitialize
	local	18,000000,RExternDef__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	12
	line	8
	colm	6
	synt	any
	null
	unmark
	var	13
	line	8
	colm	50
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	9
	colm	6
	synt	any
	null
	unmark
	var	15
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	12
	line	10
	colm	20
	synt	any
	field	Node
	var	14
	line	10
	colm	26
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	11
	colm	6
	synt	any
	null
	unmark
	var	17
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	12
	line	12
	colm	20
	synt	any
	field	ConsNode
	var	16
	line	12
	colm	30
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	10
	var	18
	line	14
	colm	29
	synt	any
	keywd	null
	var	12
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	line	14
	colm	28
	synt	any
	invoke	12
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	10
	line	15
	colm	7
	synt	any
	field	__s
	var	10
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	10
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	10
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	10
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc RExternDefinitialize
	local	0,000000,RExternDef__oprec
	local	1,000000,RExternDef__methods
	local	2,000000,RExternDef_trace_node
	local	3,000000,RExternDef_dump
	local	4,000000,RExternDef_dump_tree
	local	5,000000,RExternDef_initially
	local	6,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	51
	synt	any
	invoke	5
	line	21
	colm	29
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc DcsException_trace_node
	local	0,001000,self
	local	1,000000,write
	local	2,000000,nodes_created_trace_file
	con	0,010000,1,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	1760
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1761
	colm	6
	synt	any
	field	__m
	line	1761
	colm	10
	synt	any
	field	Node
	line	1761
	colm	15
	synt	any
	field	trace_node
	var	0
	line	1761
	colm	26
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1762
	colm	6
	synt	any
	field	__m
	line	1762
	colm	10
	synt	any
	field	ConsNode
	line	1762
	colm	19
	synt	any
	field	trace_node
	var	0
	line	1762
	colm	30
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1763
	colm	6
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1764
	colm	1
	synt	any
	pfail
	end
proc DcsException_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,write
	local	3,000000,left
	local	4,000000,dump_tree_depth
	local	5,000000,dump_info
	con	0,010000,14,144,143,163,145,137,143,150,141,162,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,16,144,143,163,145,137,151,156,154,151,156,145,040,040,040,075,040
	con	3,010000,17,144,143,163,145,137,163,160,145,143,151,141,154,040,040,040,075,040
	con	4,010000,22,144,143,163,145,137,143,157,156,163,164,162,165,143,164,151,157,156,040,040,040,075,040
	declend
	line	1765
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1767
	colm	6
	synt	any
	field	__m
	line	1767
	colm	10
	synt	any
	field	Node
	line	1767
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1767
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1768
	colm	6
	synt	any
	field	__m
	line	1768
	colm	10
	synt	any
	field	ConsNode
	line	1768
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1768
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1769
	colm	63
	synt	any
	plus
	line	1769
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1769
	colm	99
	synt	any
	field	dcse_char
	line	1769
	colm	94
	synt	any
	invoke	1
	line	1769
	colm	82
	synt	any
	cat
	line	1769
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1770
	colm	65
	synt	any
	plus
	line	1770
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1770
	colm	101
	synt	any
	field	dcse_inline
	line	1770
	colm	96
	synt	any
	invoke	1
	line	1770
	colm	84
	synt	any
	cat
	line	1770
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1771
	colm	66
	synt	any
	plus
	line	1771
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1771
	colm	102
	synt	any
	field	dcse_special
	line	1771
	colm	97
	synt	any
	invoke	1
	line	1771
	colm	85
	synt	any
	cat
	line	1771
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	1772
	colm	71
	synt	any
	plus
	line	1772
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1772
	colm	107
	synt	any
	field	dcse_construction
	line	1772
	colm	102
	synt	any
	invoke	1
	line	1772
	colm	90
	synt	any
	cat
	line	1772
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1774
	colm	1
	synt	any
	pfail
	end
proc DcsException_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,144,143,163,145,137,143,150,141,162,040,040,040,075,040
	con	1,010000,16,144,143,163,145,137,151,156,154,151,156,145,040,040,040,075,040
	con	2,010000,17,144,143,163,145,137,163,160,145,143,151,141,154,040,040,040,075,040
	con	3,010000,22,144,143,163,145,137,143,157,156,163,164,162,165,143,164,151,157,156,040,040,040,075,040
	declend
	line	1775
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1777
	colm	6
	synt	any
	field	__m
	line	1777
	colm	10
	synt	any
	field	Node
	line	1777
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1777
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1778
	colm	6
	synt	any
	field	__m
	line	1778
	colm	10
	synt	any
	field	ConsNode
	line	1778
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1778
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1779
	colm	43
	synt	any
	field	dcse_char
	line	1779
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1780
	colm	45
	synt	any
	field	dcse_inline
	line	1780
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1781
	colm	46
	synt	any
	field	dcse_special
	line	1781
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	var	2
	var	0
	str	3
	pnull
	var	0
	line	1782
	colm	51
	synt	any
	field	dcse_construction
	line	1782
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1784
	colm	1
	synt	any
	pfail
	end
proc DcsException
	local	0,001000,dcse_char
	local	1,001000,dcse_inline
	local	2,001000,dcse_special
	local	3,001000,dcse_construction
	local	4,001000,kind
	local	5,001000,vlineno
	local	6,001000,pre_num
	local	7,001000,post_num
	local	8,001000,unique_id
	local	9,001000,cn_hd_field
	local	10,001000,cn_tl_field
	local	11,000020,self
	local	12,000020,clone
	local	13,000000,DcsException__oprec
	local	14,000000,DcsExceptioninitialize
	local	15,000000,Node__oprec
	local	16,000000,Nodeinitialize
	local	17,000000,ConsNode__oprec
	local	18,000000,ConsNodeinitialize
	local	19,000000,DcsException__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	13
	line	8
	colm	6
	synt	any
	null
	unmark
	var	14
	line	8
	colm	54
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	15
	line	9
	colm	6
	synt	any
	null
	unmark
	var	16
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	13
	line	10
	colm	22
	synt	any
	field	Node
	var	15
	line	10
	colm	28
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	17
	line	11
	colm	6
	synt	any
	null
	unmark
	var	18
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	13
	line	12
	colm	22
	synt	any
	field	ConsNode
	var	17
	line	12
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	11
	var	19
	line	14
	colm	31
	synt	any
	keywd	null
	var	13
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	line	14
	colm	30
	synt	any
	invoke	13
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	11
	line	15
	colm	7
	synt	any
	field	__s
	var	11
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	11
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	11
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	11
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc DcsExceptioninitialize
	local	0,000000,DcsException__oprec
	local	1,000000,DcsException__methods
	local	2,000000,DcsException_trace_node
	local	3,000000,DcsException_dump
	local	4,000000,DcsException_dump_tree
	local	5,000000,ConsNode_cons_dump
	local	6,000000,ConsNode_initially
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	55
	synt	any
	invoke	5
	line	21
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc dump_info
	local	0,001000,it
	local	1,000000,type
	con	0,010000,7,151,156,164,145,147,145,162
	con	1,010000,6,163,164,162,151,156,147
	con	2,010000,4,162,145,141,154
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	1787
	colm	11
	synt	any
	mark	L1
	line	1788
	colm	1
	synt	ifelse
	mark	L2
	pnull
	var	1
	var	0
	line	1788
	colm	8
	synt	any
	invoke	1
	str	0
	line	1788
	colm	13
	synt	any
	lexeq
	unmark
	mark	L4
	var	0
	line	1788
	colm	31
	synt	any
	pret
lab L4
	synt	any
	pfail
	goto	L3
lab L2
	line	1789
	colm	7
	synt	ifelse
	mark	L5
	pnull
	var	1
	var	0
	line	1789
	colm	14
	synt	any
	invoke	1
	str	1
	line	1789
	colm	19
	synt	any
	lexeq
	unmark
	mark	L7
	var	0
	line	1789
	colm	35
	synt	any
	pret
lab L7
	synt	any
	pfail
	goto	L6
lab L5
	line	1790
	colm	7
	synt	ifelse
	mark	L8
	pnull
	var	1
	var	0
	line	1790
	colm	14
	synt	any
	invoke	1
	str	2
	line	1790
	colm	19
	synt	any
	lexeq
	unmark
	mark	L10
	var	0
	line	1790
	colm	34
	synt	any
	pret
lab L10
	synt	any
	pfail
	goto	L9
lab L8
	mark	L11
	var	1
	var	0
	line	1791
	colm	18
	synt	any
	invoke	1
	line	1791
	colm	7
	synt	any
	pret
lab L11
	synt	any
	pfail
lab L9
	line	1790
	colm	7
	synt	endifelse
lab L6
	line	1789
	colm	7
	synt	endifelse
lab L3
	line	1788
	colm	1
	synt	endifelse
	unmark
lab L1
	pnull
	line	1792
	colm	1
	synt	any
	pfail
	end
proc proc_dump_tree
	local	0,001000,me
	local	1,001000,str
	local	2,001000,it
	local	3,000040,cnt
	local	4,000040,depth
	local	5,000040,ex_fl
	local	6,000040,ex_set
	local	7,000000,open
	local	8,000000,set
	local	9,000000,visited
	local	10,000000,dump_tree_depth
	local	11,000000,type
	local	12,000000,write
	local	13,000000,treefile
	local	14,000000,left
	local	15,000000,member
	local	16,000000,insert
	con	0,010000,6,145,170,056,164,155,160
	con	1,010000,1,167
	con	2,002000,1,0
	con	3,002000,1,1
	con	4,002000,6,100000
	con	5,010000,7,151,156,164,145,147,145,162
	con	6,002000,2,20
	con	7,010000,6,163,164,162,151,156,147
	con	8,010000,4,162,145,141,154
	con	9,010000,13,143,157,055,145,170,160,162,145,163,163,151,157,156
	con	10,010000,4,143,163,145,164
	con	11,010000,4,146,151,154,145
	con	12,010000,4,154,151,163,164
	con	13,010000,4,156,165,154,154
	con	14,010000,9,160,162,157,143,145,144,165,162,145
	con	15,010000,3,163,145,164
	con	16,010000,5,164,141,142,154,145
	con	17,010000,6,167,151,156,144,157,167
	con	18,010000,5,101,162,162,141,171
	con	19,010000,8,145,170,141,155,151,156,145,040
	con	20,010000,18,102,145,147,151,156,040,123,165,142,164,162,145,145,040,146,157,162,040
	con	21,010000,11,105,156,144,040,123,165,142,164,162,145,145
	con	22,010000,34,102,145,147,151,156,040,123,165,142,164,162,145,145,040,141,154,162,145,141,144,171,040,166,151,163,151,164,145,144,040,146,157,162,040
	con	23,010000,33,102,145,147,151,156,040,123,165,142,164,162,145,145,040,141,154,162,145,141,171,040,166,151,163,151,164,145,144,040,146,157,162,040
	con	24,010000,27,105,156,144,040,123,165,142,164,162,145,145,040,141,154,162,145,141,144,171,040,166,151,163,151,164,145,144
	declend
	line	1795
	colm	12
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	pnull
	var	5
	var	7
	str	0
	str	1
	line	1798
	colm	15
	synt	any
	invoke	2
	line	1798
	colm	8
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	6
	var	8
	line	1799
	colm	14
	synt	any
	invoke	0
	line	1799
	colm	8
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	3
	int	2
	line	1800
	colm	5
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	var	9
	var	8
	line	1801
	colm	15
	synt	any
	invoke	0
	line	1801
	colm	9
	synt	any
	asgn
	unmark
lab L7
	pnull
	var	10
	int	2
	line	1802
	colm	17
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	3
	dup
	int	3
	line	1804
	colm	5
	synt	any
	plus
	asgn
	unmark
lab L8
	mark	L9
	line	1805
	colm	2
	synt	if
	mark0
	pnull
	var	3
	int	4
	line	1805
	colm	9
	synt	any
	numgt
	unmark
	mark	L10
	pnull
	line	1805
	colm	23
	synt	any
	pret
lab L10
	synt	any
	pfail
	line	1805
	colm	2
	synt	endif
	unmark
lab L9
	mark	L11
	line	1806
	colm	2
	synt	ifelse
	mark	L12
	pnull
	var	11
	var	2
	line	1806
	colm	9
	synt	any
	invoke	1
	str	5
	line	1806
	colm	14
	synt	any
	lexeq
	unmark
	var	12
	var	13
	pnull
	var	14
	var	1
	pnull
	int	6
	var	10
	line	1806
	colm	59
	synt	any
	plus
	line	1806
	colm	51
	synt	any
	invoke	2
	var	2
	line	1806
	colm	78
	synt	any
	cat
	line	1806
	colm	37
	synt	any
	invoke	2
	goto	L13
lab L12
	line	1807
	colm	6
	synt	ifelse
	mark	L14
	pnull
	var	11
	var	2
	line	1807
	colm	13
	synt	any
	invoke	1
	str	7
	line	1807
	colm	18
	synt	any
	lexeq
	unmark
	var	12
	var	13
	pnull
	var	14
	var	1
	pnull
	int	6
	var	10
	line	1807
	colm	62
	synt	any
	plus
	line	1807
	colm	54
	synt	any
	invoke	2
	var	2
	line	1807
	colm	81
	synt	any
	cat
	line	1807
	colm	40
	synt	any
	invoke	2
	goto	L15
lab L14
	line	1808
	colm	6
	synt	ifelse
	mark	L16
	pnull
	var	11
	var	2
	line	1808
	colm	13
	synt	any
	invoke	1
	str	8
	line	1808
	colm	18
	synt	any
	lexeq
	unmark
	var	12
	var	13
	pnull
	var	14
	var	1
	pnull
	int	6
	var	10
	line	1808
	colm	60
	synt	any
	plus
	line	1808
	colm	52
	synt	any
	invoke	2
	var	2
	line	1808
	colm	79
	synt	any
	cat
	line	1808
	colm	38
	synt	any
	invoke	2
	goto	L17
lab L16
	line	1809
	colm	6
	synt	ifelse
	mark	L18
	pnull
	var	11
	var	2
	line	1809
	colm	13
	synt	any
	invoke	1
	str	9
	line	1809
	colm	18
	synt	any
	lexeq
	unmark
	var	12
	var	13
	pnull
	var	14
	var	1
	pnull
	int	6
	var	10
	line	1809
	colm	69
	synt	any
	plus
	line	1809
	colm	61
	synt	any
	invoke	2
	var	11
	var	2
	line	1809
	colm	95
	synt	any
	invoke	1
	line	1809
	colm	88
	synt	any
	cat
	line	1809
	colm	47
	synt	any
	invoke	2
	goto	L19
lab L18
	line	1810
	colm	6
	synt	ifelse
	mark	L20
	pnull
	var	11
	var	2
	line	1810
	colm	13
	synt	any
	invoke	1
	str	10
	line	1810
	colm	18
	synt	any
	lexeq
	unmark
	var	12
	var	13
	pnull
	var	14
	var	1
	pnull
	int	6
	var	10
	line	1810
	colm	60
	synt	any
	plus
	line	1810
	colm	52
	synt	any
	invoke	2
	var	11
	var	2
	line	1810
	colm	86
	synt	any
	invoke	1
	line	1810
	colm	79
	synt	any
	cat
	line	1810
	colm	38
	synt	any
	invoke	2
	goto	L21
lab L20
	line	1811
	colm	6
	synt	ifelse
	mark	L22
	pnull
	var	11
	var	2
	line	1811
	colm	13
	synt	any
	invoke	1
	str	11
	line	1811
	colm	18
	synt	any
	lexeq
	unmark
	var	12
	var	13
	pnull
	var	14
	var	1
	pnull
	int	6
	var	10
	line	1811
	colm	60
	synt	any
	plus
	line	1811
	colm	52
	synt	any
	invoke	2
	var	11
	var	2
	line	1811
	colm	86
	synt	any
	invoke	1
	line	1811
	colm	79
	synt	any
	cat
	line	1811
	colm	38
	synt	any
	invoke	2
	goto	L23
lab L22
	line	1812
	colm	6
	synt	ifelse
	mark	L24
	pnull
	var	11
	var	2
	line	1812
	colm	13
	synt	any
	invoke	1
	str	12
	line	1812
	colm	18
	synt	any
	lexeq
	unmark
	var	12
	var	13
	pnull
	var	14
	var	1
	pnull
	int	6
	var	10
	line	1812
	colm	60
	synt	any
	plus
	line	1812
	colm	52
	synt	any
	invoke	2
	var	11
	var	2
	line	1812
	colm	86
	synt	any
	invoke	1
	line	1812
	colm	79
	synt	any
	cat
	line	1812
	colm	38
	synt	any
	invoke	2
	goto	L25
lab L24
	line	1813
	colm	6
	synt	ifelse
	mark	L26
	pnull
	var	11
	var	2
	line	1813
	colm	13
	synt	any
	invoke	1
	str	13
	line	1813
	colm	18
	synt	any
	lexeq
	unmark
	var	12
	var	13
	pnull
	var	14
	var	1
	pnull
	int	6
	var	10
	line	1813
	colm	60
	synt	any
	plus
	line	1813
	colm	52
	synt	any
	invoke	2
	var	11
	var	2
	line	1813
	colm	86
	synt	any
	invoke	1
	line	1813
	colm	79
	synt	any
	cat
	line	1813
	colm	38
	synt	any
	invoke	2
	goto	L27
lab L26
	line	1814
	colm	6
	synt	ifelse
	mark	L28
	pnull
	var	11
	var	2
	line	1814
	colm	13
	synt	any
	invoke	1
	str	14
	line	1814
	colm	18
	synt	any
	lexeq
	unmark
	var	12
	var	13
	pnull
	var	14
	var	1
	pnull
	int	6
	var	10
	line	1814
	colm	65
	synt	any
	plus
	line	1814
	colm	57
	synt	any
	invoke	2
	var	11
	var	2
	line	1814
	colm	91
	synt	any
	invoke	1
	line	1814
	colm	84
	synt	any
	cat
	line	1814
	colm	43
	synt	any
	invoke	2
	goto	L29
lab L28
	line	1815
	colm	6
	synt	ifelse
	mark	L30
	pnull
	var	11
	var	2
	line	1815
	colm	13
	synt	any
	invoke	1
	str	15
	line	1815
	colm	18
	synt	any
	lexeq
	unmark
	var	12
	var	13
	pnull
	var	14
	var	1
	pnull
	int	6
	var	10
	line	1815
	colm	59
	synt	any
	plus
	line	1815
	colm	51
	synt	any
	invoke	2
	var	11
	var	2
	line	1815
	colm	85
	synt	any
	invoke	1
	line	1815
	colm	78
	synt	any
	cat
	line	1815
	colm	37
	synt	any
	invoke	2
	goto	L31
lab L30
	line	1816
	colm	6
	synt	ifelse
	mark	L32
	pnull
	var	11
	var	2
	line	1816
	colm	13
	synt	any
	invoke	1
	str	16
	line	1816
	colm	18
	synt	any
	lexeq
	unmark
	var	12
	var	13
	pnull
	var	14
	var	1
	pnull
	int	6
	var	10
	line	1816
	colm	61
	synt	any
	plus
	line	1816
	colm	53
	synt	any
	invoke	2
	var	11
	var	2
	line	1816
	colm	87
	synt	any
	invoke	1
	line	1816
	colm	80
	synt	any
	cat
	line	1816
	colm	39
	synt	any
	invoke	2
	goto	L33
lab L32
	line	1817
	colm	6
	synt	ifelse
	mark	L34
	pnull
	var	11
	var	2
	line	1817
	colm	13
	synt	any
	invoke	1
	str	17
	line	1817
	colm	18
	synt	any
	lexeq
	unmark
	var	12
	var	13
	pnull
	var	14
	var	1
	pnull
	int	6
	var	10
	line	1817
	colm	62
	synt	any
	plus
	line	1817
	colm	54
	synt	any
	invoke	2
	var	11
	var	2
	line	1817
	colm	88
	synt	any
	invoke	1
	line	1817
	colm	81
	synt	any
	cat
	line	1817
	colm	40
	synt	any
	invoke	2
	goto	L35
lab L34
	line	1818
	colm	6
	synt	ifelse
	mark	L36
	pnull
	var	11
	var	2
	line	1818
	colm	13
	synt	any
	invoke	1
	str	18
	line	1818
	colm	18
	synt	any
	lexeq
	unmark
	var	12
	var	13
	pnull
	var	14
	var	1
	pnull
	int	6
	var	10
	line	1818
	colm	61
	synt	any
	plus
	line	1818
	colm	53
	synt	any
	invoke	2
	var	11
	var	2
	line	1818
	colm	87
	synt	any
	invoke	1
	line	1818
	colm	80
	synt	any
	cat
	line	1818
	colm	39
	synt	any
	invoke	2
	goto	L37
lab L36
	mark	L38
	pnull
	var	10
	dup
	int	3
	line	1819
	colm	24
	synt	any
	plus
	asgn
	unmark
lab L38
	mark	L39
	line	1820
	colm	8
	synt	if
	mark0
	mark	L40
	var	15
	var	6
	var	1
	line	1820
	colm	22
	synt	any
	invoke	2
	unmark
	efail
lab L40
	pnull
	unmark
	mark	L41
	var	12
	var	5
	pnull
	pnull
	str	19
	var	1
	line	1821
	colm	31
	synt	any
	cat
	var	11
	var	2
	line	1821
	colm	45
	synt	any
	invoke	1
	line	1821
	colm	38
	synt	any
	cat
	line	1821
	colm	13
	synt	any
	invoke	2
	unmark
lab L41
	var	16
	var	6
	var	1
	line	1822
	colm	14
	synt	any
	invoke	2
	line	1820
	colm	8
	synt	endif
	unmark
lab L39
	mark	L42
	line	1824
	colm	5
	synt	ifelse
	mark	L43
	mark	L45
	var	15
	var	9
	var	2
	line	1824
	colm	19
	synt	any
	invoke	2
	unmark
	efail
lab L45
	pnull
	unmark
	mark	L46
	var	16
	var	9
	var	2
	line	1826
	colm	21
	synt	any
	invoke	2
	unmark
lab L46
	mark	L47
	var	12
	var	13
	pnull
	var	14
	str	20
	pnull
	int	6
	var	10
	line	1827
	colm	59
	synt	any
	plus
	line	1827
	colm	34
	synt	any
	invoke	2
	var	1
	line	1827
	colm	78
	synt	any
	cat
	line	1827
	colm	20
	synt	any
	invoke	2
	unmark
lab L47
	mark	L48
	var	12
	var	13
	pnull
	var	14
	str	20
	pnull
	int	6
	var	10
	line	1828
	colm	60
	synt	any
	plus
	line	1828
	colm	34
	synt	any
	invoke	2
	var	11
	var	2
	line	1828
	colm	86
	synt	any
	invoke	1
	line	1828
	colm	79
	synt	any
	cat
	line	1828
	colm	20
	synt	any
	invoke	2
	unmark
lab L48
	mark	L49
	pnull
	var	2
	line	1829
	colm	17
	synt	any
	field	dump_tree
	var	13
	line	1829
	colm	27
	synt	any
	invoke	1
	unmark
lab L49
	var	12
	var	13
	pnull
	var	14
	str	21
	pnull
	int	6
	var	10
	line	1830
	colm	52
	synt	any
	plus
	line	1830
	colm	34
	synt	any
	invoke	2
	var	11
	var	2
	line	1830
	colm	78
	synt	any
	invoke	1
	line	1830
	colm	71
	synt	any
	cat
	line	1830
	colm	20
	synt	any
	invoke	2
	goto	L44
lab L43
	mark	L50
	var	12
	var	13
	pnull
	var	14
	str	22
	pnull
	int	6
	var	10
	line	1834
	colm	75
	synt	any
	plus
	line	1834
	colm	34
	synt	any
	invoke	2
	var	1
	line	1834
	colm	94
	synt	any
	cat
	line	1834
	colm	20
	synt	any
	invoke	2
	unmark
lab L50
	mark	L51
	var	12
	var	13
	pnull
	var	14
	str	23
	pnull
	int	6
	var	10
	line	1835
	colm	75
	synt	any
	plus
	line	1835
	colm	34
	synt	any
	invoke	2
	var	11
	var	2
	line	1835
	colm	101
	synt	any
	invoke	1
	line	1835
	colm	94
	synt	any
	cat
	line	1835
	colm	20
	synt	any
	invoke	2
	unmark
lab L51
	mark	L52
	pnull
	var	2
	line	1836
	colm	17
	synt	any
	field	dump
	var	13
	line	1836
	colm	22
	synt	any
	invoke	1
	unmark
lab L52
	var	12
	var	13
	pnull
	var	14
	str	24
	pnull
	int	6
	var	10
	line	1837
	colm	68
	synt	any
	plus
	line	1837
	colm	34
	synt	any
	invoke	2
	var	11
	var	2
	line	1837
	colm	93
	synt	any
	invoke	1
	line	1837
	colm	87
	synt	any
	cat
	line	1837
	colm	20
	synt	any
	invoke	2
lab L44
	line	1824
	colm	5
	synt	endifelse
	unmark
lab L42
	pnull
	var	10
	dup
	int	3
	line	1839
	colm	24
	synt	any
	minus
	asgn
lab L37
	line	1818
	colm	6
	synt	endifelse
lab L35
	line	1817
	colm	6
	synt	endifelse
lab L33
	line	1816
	colm	6
	synt	endifelse
lab L31
	line	1815
	colm	6
	synt	endifelse
lab L29
	line	1814
	colm	6
	synt	endifelse
lab L27
	line	1813
	colm	6
	synt	endifelse
lab L25
	line	1812
	colm	6
	synt	endifelse
lab L23
	line	1811
	colm	6
	synt	endifelse
lab L21
	line	1810
	colm	6
	synt	endifelse
lab L19
	line	1809
	colm	6
	synt	endifelse
lab L17
	line	1808
	colm	6
	synt	endifelse
lab L15
	line	1807
	colm	6
	synt	endifelse
lab L13
	line	1806
	colm	2
	synt	endifelse
	unmark
lab L11
	pnull
	line	1841
	colm	1
	synt	any
	pfail
	end
