version	U12.1.00
uid	ststructs_cls.tmp.u1-1465100067-0
record	Node__state,6
	0,__s
	1,__m
	2,kind
	3,vlineno
	4,pre_num
	5,post_num
record	Node__methods,4
	0,dump
	1,dump_tree
	2,trace_node
	3,initially
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,21
	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,lh_first
	13,lh_last
	14,kind
	15,vlineno
	16,pre_num
	17,post_num
	18,unique_id
	19,cn_hd_field
	20,cn_tl_field
record	BlDenotationNode__methods,16
	0,trace_node
	1,dump
	2,dump_tree
	3,initially
	4,list_dump
	5,first
	6,last
	7,setfirst
	8,setlast
	9,conc
	10,length
	11,list_to_array
	12,cons_dump
	13,ListHeaderNode
	14,Node
	15,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,12
	0,__s
	1,__m
	2,ge_guard
	3,ge_element
	4,bld_precedence
	5,kind
	6,vlineno
	7,pre_num
	8,post_num
	9,unique_id
	10,cn_hd_field
	11,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,initially
	4,cons_dump
	5,Node
	6,ConsNode
impl	error
global	651
	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,next_pre,0
	212,000001,next_post,0
	213,000001,visited,0
	214,000001,Gfc_list,0
	215,000001,Glevel,0
	216,000001,Gcurrent,0
	217,000001,Goutfile,0
	218,000001,finished_accessible,0
	219,000001,all_fcs,0
	220,000001,all_fcs_tail,0
	221,000001,outer_fc,0
	222,000001,whole_program,0
	223,000001,currect_fcs,0
	224,000001,Vcurrent_func,0
	225,000001,Vcurrent_ar,0
	226,000001,Vstatic_level,0
	227,000001,Vnext_free,0
	228,000001,Vhigh_water,0
	229,000001,Vextent_limited,0
	230,000001,Vallocate_on_stack,0
	231,000001,Vcallcc,0
	232,000001,max_addr_regs,0
	233,000001,max_int_regs,0
	234,000001,n_addr_regs,0
	235,000001,n_int_regs,0
	236,000001,Vcurrent_blocks,0
	237,000001,found_non_vacuous,0
	238,000001,n_vacuous,0
	239,000001,avail_loc,0
	240,000001,compile_fcs,0
	241,000001,sl_available,0
	242,000001,stplinks,0
	243,000001,fld_table,0
	244,000001,surr_loop,0
	245,000001,callcc_call,0
	246,000001,catchsigs,0
	247,000001,Gspcl_to_inline,0
	248,000001,htable,0
	249,000001,NodeTypeName,0
	250,000001,dump__tree_depth,0
	251,000001,trash_id,0
	252,000005,special,2
	253,000005,mklist,1
	254,000005,emptylist,0
	255,000005,is_list,1
	256,000005,should_examine,1
	257,000005,is_empty,1
	258,000005,split,12
	259,000005,conc,2
	260,000005,addleft,2
	261,000005,addright,2
	262,000005,Node_dump,2
	263,000005,Node_dump_tree,4
	264,000005,Node_trace_node,1
	265,000005,Node_initially,5
	266,000011,Node__state,6
	267,000011,Node__methods,4
	268,000001,Node__oprec,0
	269,000005,Node,4
	270,000005,Nodeinitialize,0
	271,000005,ConsNode_dump,2
	272,000005,ConsNode_dump_tree,4
	273,000005,ConsNode_cons_dump,1
	274,000005,ConsNode_trace_node,1
	275,000005,ConsNode_initially,3
	276,000011,ConsNode__state,5
	277,000011,ConsNode__methods,5
	278,000001,ConsNode__oprec,0
	279,000005,ConsNode,2
	280,000005,ConsNodeinitialize,0
	281,000005,ListHeaderNode_trace_node,1
	282,000005,ListHeaderNode_dump,2
	283,000005,ListHeaderNode_dump_tree,4
	284,000005,ListHeaderNode_list_dump,1
	285,000005,ListHeaderNode_first,1
	286,000005,ListHeaderNode_last,1
	287,000005,ListHeaderNode_setfirst,2
	288,000005,ListHeaderNode_setlast,2
	289,000005,ListHeaderNode_conc,2
	290,000005,ListHeaderNode_length,1
	291,000005,ListHeaderNode_list_to_array,1
	292,000005,ListHeaderNode_initially,9
	293,000011,ListHeaderNode__state,11
	294,000011,ListHeaderNode__methods,15
	295,000001,ListHeaderNode__oprec,0
	296,000005,ListHeaderNode,8
	297,000005,ListHeaderNodeinitialize,0
	298,000005,DeclarationNode_trace_node,1
	299,000005,DeclarationNode_dump,2
	300,000005,DeclarationNode_dump_tree,4
	301,000005,DeclarationNode_initially,22
	302,000011,DeclarationNode__state,24
	303,000011,DeclarationNode__methods,7
	304,000001,DeclarationNode__oprec,0
	305,000005,DeclarationNode,21
	306,000005,DeclarationNodeinitialize,0
	307,000005,ParameterNode_trace_node,1
	308,000005,ParameterNode_dump,2
	309,000005,ParameterNode_dump_tree,4
	310,000005,ParameterNode_initially,14
	311,000011,ParameterNode__state,16
	312,000011,ParameterNode__methods,7
	313,000001,ParameterNode__oprec,0
	314,000005,ParameterNode,13
	315,000005,ParameterNodeinitialize,0
	316,000005,RElementNode_trace_node,1
	317,000005,RElementNode_dump,2
	318,000005,RElementNode_dump_tree,4
	319,000005,RElementNode_initially,12
	320,000011,RElementNode__state,14
	321,000011,RElementNode__methods,7
	322,000001,RElementNode__oprec,0
	323,000005,RElementNode,11
	324,000005,RElementNodeinitialize,0
	325,000005,VarSignature_trace_node,1
	326,000005,VarSignature_dump,2
	327,000005,VarSignature_dump_tree,4
	328,000005,VarSignature_initially,10
	329,000011,VarSignature__state,12
	330,000011,VarSignature__methods,7
	331,000001,VarSignature__oprec,0
	332,000005,VarSignature,9
	333,000005,VarSignatureinitialize,0
	334,000005,ValSignature_trace_node,1
	335,000005,ValSignature_dump,2
	336,000005,ValSignature_dump_tree,4
	337,000005,ValSignature_initially,10
	338,000011,ValSignature__state,12
	339,000011,ValSignature__methods,7
	340,000001,ValSignature__oprec,0
	341,000005,ValSignature,9
	342,000005,ValSignatureinitialize,0
	343,000005,FSignature_trace_node,1
	344,000005,FSignature_dump,2
	345,000005,FSignature_dump_tree,4
	346,000005,FSignature_initially,16
	347,000011,FSignature__state,18
	348,000011,FSignature__methods,7
	349,000001,FSignature__oprec,0
	350,000005,FSignature,15
	351,000005,FSignatureinitialize,0
	352,000005,TSignature_trace_node,1
	353,000005,TSignature_dump,2
	354,000005,TSignature_dump_tree,4
	355,000005,TSignature_initially,18
	356,000011,TSignature__state,20
	357,000011,TSignature__methods,7
	358,000001,TSignature__oprec,0
	359,000005,TSignature,17
	360,000005,TSignatureinitialize,0
	361,000005,TSComponentNode_trace_node,1
	362,000005,TSComponentNode_dump,2
	363,000005,TSComponentNode_dump_tree,4
	364,000005,TSComponentNode_initially,9
	365,000011,TSComponentNode__state,11
	366,000011,TSComponentNode__methods,7
	367,000001,TSComponentNode__oprec,0
	368,000005,TSComponentNode,8
	369,000005,TSComponentNodeinitialize,0
	370,000005,DefCharSigNode_trace_node,1
	371,000005,DefCharSigNode_dump,2
	372,000005,DefCharSigNode_dump_tree,4
	373,000005,DefCharSigNode_initially,12
	374,000011,DefCharSigNode__state,14
	375,000011,DefCharSigNode__methods,7
	376,000001,DefCharSigNode__oprec,0
	377,000005,DefCharSigNode,11
	378,000005,DefCharSigNodeinitialize,0
	379,000005,SignatureSigNode_trace_node,1
	380,000005,SignatureSigNode_dump,2
	381,000005,SignatureSigNode_dump_tree,4
	382,000005,SignatureSigNode_initially,9
	383,000011,SignatureSigNode__state,11
	384,000011,SignatureSigNode__methods,7
	385,000001,SignatureSigNode__oprec,0
	386,000005,SignatureSigNode,8
	387,000005,SignatureSigNodeinitialize,0
	388,000005,BlDenotationNode_trace_node,1
	389,000005,BlDenotationNode_dump,2
	390,000005,BlDenotationNode_dump_tree,4
	391,000005,BlDenotationNode_initially,19
	392,000011,BlDenotationNode__state,21
	393,000011,BlDenotationNode__methods,16
	394,000001,BlDenotationNode__oprec,0
	395,000005,BlDenotationNode,18
	396,000005,BlDenotationNodeinitialize,0
	397,000005,UseListNode_trace_node,1
	398,000005,UseListNode_dump,2
	399,000005,UseListNode_dump_tree,4
	400,000005,UseListNode_initially,13
	401,000011,UseListNode__state,15
	402,000011,UseListNode__methods,7
	403,000001,UseListNode__oprec,0
	404,000005,UseListNode,12
	405,000005,UseListNodeinitialize,0
	406,000005,ApplicationNode_trace_node,1
	407,000005,ApplicationNode_dump,2
	408,000005,ApplicationNode_dump_tree,4
	409,000005,ApplicationNode_initially,12
	410,000011,ApplicationNode__state,14
	411,000011,ApplicationNode__methods,7
	412,000001,ApplicationNode__oprec,0
	413,000005,ApplicationNode,11
	414,000005,ApplicationNodeinitialize,0
	415,000005,EnumerationNode_trace_node,1
	416,000005,EnumerationNode_dump,2
	417,000005,EnumerationNode_dump_tree,4
	418,000005,EnumerationNode_initially,10
	419,000011,EnumerationNode__state,12
	420,000011,EnumerationNode__methods,7
	421,000001,EnumerationNode__oprec,0
	422,000005,EnumerationNode,9
	423,000005,EnumerationNodeinitialize,0
	424,000005,ExtensionNode_trace_node,1
	425,000005,ExtensionNode_dump,2
	426,000005,ExtensionNode_dump_tree,4
	427,000005,ExtensionNode_initially,12
	428,000011,ExtensionNode__state,14
	429,000011,ExtensionNode__methods,7
	430,000001,ExtensionNode__oprec,0
	431,000005,ExtensionNode,11
	432,000005,ExtensionNodeinitialize,0
	433,000005,ProductNode_trace_node,1
	434,000005,ProductNode_dump,2
	435,000005,ProductNode_dump_tree,4
	436,000005,ProductNode_initially,12
	437,000011,ProductNode__state,14
	438,000011,ProductNode__methods,7
	439,000001,ProductNode__oprec,0
	440,000005,ProductNode,11
	441,000005,ProductNodeinitialize,0
	442,000005,RecordConstructionNode_trace_node,1
	443,000005,RecordConstructionNode_dump,2
	444,000005,RecordConstructionNode_dump_tree,4
	445,000005,RecordConstructionNode_initially,11
	446,000011,RecordConstructionNode__state,13
	447,000011,RecordConstructionNode__methods,7
	448,000001,RecordConstructionNode__oprec,0
	449,000005,RecordConstructionNode,10
	450,000005,RecordConstructionNodeinitialize,0
	451,000005,UnionConstructionNode_trace_node,1
	452,000005,UnionConstructionNode_dump,2
	453,000005,UnionConstructionNode_dump_tree,4
	454,000005,UnionConstructionNode_initially,12
	455,000011,UnionConstructionNode__state,14
	456,000011,UnionConstructionNode__methods,7
	457,000001,UnionConstructionNode__oprec,0
	458,000005,UnionConstructionNode,11
	459,000005,UnionConstructionNodeinitialize,0
	460,000005,WithListNode_trace_node,1
	461,000005,WithListNode_dump,2
	462,000005,WithListNode_dump_tree,4
	463,000005,WithListNode_initially,10
	464,000011,WithListNode__state,12
	465,000011,WithListNode__methods,7
	466,000001,WithListNode__oprec,0
	467,000005,WithListNode,9
	468,000005,WithListNodeinitialize,0
	469,000005,ModPrimaryNode_trace_node,1
	470,000005,ModPrimaryNode_dump,2
	471,000005,ModPrimaryNode_dump_tree,4
	472,000005,ModPrimaryNode_initially,17
	473,000011,ModPrimaryNode__state,19
	474,000011,ModPrimaryNode__methods,7
	475,000001,ModPrimaryNode__oprec,0
	476,000005,ModPrimaryNode,16
	477,000005,ModPrimaryNodeinitialize,0
	478,000005,ExportListNode_trace_node,1
	479,000005,ExportListNode_dump,2
	480,000005,ExportListNode_dump_tree,4
	481,000005,ExportListNode_initially,10
	482,000011,ExportListNode__state,12
	483,000011,ExportListNode__methods,7
	484,000001,ExportListNode__oprec,0
	485,000005,ExportListNode,9
	486,000005,ExportListNodeinitialize,0
	487,000005,HideListNode_trace_node,1
	488,000005,HideListNode_dump,2
	489,000005,HideListNode_dump_tree,4
	490,000005,HideListNode_initially,10
	491,000011,HideListNode__state,12
	492,000011,HideListNode__methods,7
	493,000001,HideListNode__oprec,0
	494,000005,HideListNode,9
	495,000005,HideListNodeinitialize,0
	496,000005,ExportElementNode_trace_node,1
	497,000005,ExportElementNode_dump,2
	498,000005,ExportElementNode_dump_tree,4
	499,000005,ExportElementNode_initially,10
	500,000011,ExportElementNode__state,12
	501,000011,ExportElementNode__methods,7
	502,000001,ExportElementNode__oprec,0
	503,000005,ExportElementNode,9
	504,000005,ExportElementNodeinitialize,0
	505,000005,AllConstantsNode_trace_node,1
	506,000005,AllConstantsNode_dump,2
	507,000005,AllConstantsNode_dump_tree,4
	508,000005,AllConstantsNode_initially,7
	509,000011,AllConstantsNode__state,9
	510,000011,AllConstantsNode__methods,7
	511,000001,AllConstantsNode__oprec,0
	512,000005,AllConstantsNode,6
	513,000005,AllConstantsNodeinitialize,0
	514,000005,WordElseNode_trace_node,1
	515,000005,WordElseNode_dump,2
	516,000005,WordElseNode_dump_tree,4
	517,000005,WordElseNode_initially,9
	518,000011,WordElseNode__state,11
	519,000011,WordElseNode__methods,7
	520,000001,WordElseNode__oprec,0
	521,000005,WordElseNode,8
	522,000005,WordElseNodeinitialize,0
	523,000005,WordCandNode_trace_node,1
	524,000005,WordCandNode_dump,1
	525,000005,WordCandNode_dump_tree,4
	526,000005,WordCandNode_initially,7
	527,000011,WordCandNode__state,9
	528,000011,WordCandNode__methods,7
	529,000001,WordCandNode__oprec,0
	530,000005,WordCandNode,6
	531,000005,WordCandNodeinitialize,0
	532,000005,WordCorNode_trace_node,1
	533,000005,WordCorNode_dump,2
	534,000005,WordCorNode_dump_tree,4
	535,000005,WordCorNode_initially,7
	536,000011,WordCorNode__state,9
	537,000011,WordCorNode__methods,7
	538,000001,WordCorNode__oprec,0
	539,000005,WordCorNode,6
	540,000005,WordCorNodeinitialize,0
	541,000005,GuardedListNode_trace_node,1
	542,000005,GuardedListNode_dump,2
	543,000005,GuardedListNode_dump_tree,4
	544,000005,GuardedListNode_initially,10
	545,000011,GuardedListNode__state,12
	546,000011,GuardedListNode__methods,7
	547,000001,GuardedListNode__oprec,0
	548,000005,GuardedListNode,9
	549,000005,GuardedListNodeinitialize,0
	550,000005,LoopDenotationNode_trace_node,1
	551,000005,LoopDenotationNode_dump,2
	552,000005,LoopDenotationNode_dump_tree,4
	553,000005,LoopDenotationNode_initially,10
	554,000011,LoopDenotationNode__state,12
	555,000011,LoopDenotationNode__methods,7
	556,000001,LoopDenotationNode__oprec,0
	557,000005,LoopDenotationNode,9
	558,000005,LoopDenotationNodeinitialize,0
	559,000005,GuardedElementNode_trace_node,1
	560,000005,GuardedElementNode_dump,2
	561,000005,GuardedElementNode_dump_tree,4
	562,000005,GuardedElementNode_initially,10
	563,000011,GuardedElementNode__state,12
	564,000011,GuardedElementNode__methods,7
	565,000001,GuardedElementNode__oprec,0
	566,000005,GuardedElementNode,9
	567,000005,GuardedElementNodeinitialize,0
	568,000005,OpridNode_trace_node,1
	569,000005,OpridNode_dump,2
	570,000005,OpridNode_dump_tree,4
	571,000005,OpridNode_initially,17
	572,000011,OpridNode__state,19
	573,000011,OpridNode__methods,7
	574,000001,OpridNode__oprec,0
	575,000005,OpridNode,16
	576,000005,OpridNodeinitialize,0
	577,000005,LetterId_trace_node,1
	578,000005,LetterId_dump,2
	579,000005,LetterId_dump_tree,4
	580,000005,LetterId_initially,17
	581,000011,LetterId__state,19
	582,000011,LetterId__methods,7
	583,000001,LetterId__oprec,0
	584,000005,LetterId,16
	585,000005,LetterIdinitialize,0
	586,000005,QStrNode_trace_node,1
	587,000005,QStrNode_dump,2
	588,000005,QStrNode_dump_tree,4
	589,000005,QStrNode_initially,13
	590,000011,QStrNode__state,15
	591,000011,QStrNode__methods,7
	592,000001,QStrNode__oprec,0
	593,000005,QStrNode,12
	594,000005,QStrNodeinitialize,0
	595,000005,UQStrNode_trace_node,1
	596,000005,UQStrNode_dump,2
	597,000005,UQStrNode_dump_tree,4
	598,000005,UQStrNode_initially,13
	599,000011,UQStrNode__state,15
	600,000011,UQStrNode__methods,7
	601,000001,UQStrNode__oprec,0
	602,000005,UQStrNode,12
	603,000005,UQStrNodeinitialize,0
	604,000005,FConstruction_trace_node,1
	605,000005,FConstruction_dump,2
	606,000005,FConstruction_dump_tree,4
	607,000005,FConstruction_initially,17
	608,000011,FConstruction__state,19
	609,000011,FConstruction__methods,7
	610,000001,FConstruction__oprec,0
	611,000005,FConstruction,16
	612,000005,FConstructioninitialize,0
	613,000005,FreeVarNode_trace_node,1
	614,000005,FreeVarNode_dump,2
	615,000005,FreeVarNode_dump_tree,4
	616,000005,FreeVarNode_initially,11
	617,000011,FreeVarNode__state,13
	618,000011,FreeVarNode__methods,7
	619,000001,FreeVarNode__oprec,0
	620,000005,FreeVarNode,10
	621,000005,FreeVarNodeinitialize,0
	622,000005,ExternDefNode_trace_node,1
	623,000005,ExternDefNode_dump,2
	624,000005,ExternDefNode_dump_tree,4
	625,000005,ExternDefNode_initially,8
	626,000011,ExternDefNode__state,10
	627,000011,ExternDefNode__methods,7
	628,000001,ExternDefNode__oprec,0
	629,000005,ExternDefNode,7
	630,000005,ExternDefNodeinitialize,0
	631,000005,RExternDef_trace_node,1
	632,000005,RExternDef_dump,2
	633,000005,RExternDef_dump_tree,4
	634,000005,RExternDef_initially,10
	635,000011,RExternDef__state,12
	636,000011,RExternDef__methods,7
	637,000001,RExternDef__oprec,0
	638,000005,RExternDef,9
	639,000005,RExternDefinitialize,0
	640,000005,DcsException_trace_node,1
	641,000005,DcsException_dump,2
	642,000005,DcsException_dump_tree,4
	643,000005,DcsException_initially,11
	644,000011,DcsException__state,13
	645,000011,DcsException__methods,7
	646,000001,DcsException__oprec,0
	647,000005,DcsException,10
	648,000005,DcsExceptioninitialize,0
	649,000005,dump_info,1
	650,000005,proc_dump_tree,5

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	5
	synt	ifelse
	mark	L28
	pnull
	var	3
	line	97
	colm	8
	synt	any
	nonnull
	unmark
	pnull
	var	3
	line	98
	colm	10
	synt	any
	field	cons_dump
	line	98
	colm	20
	synt	any
	invoke	0
	goto	L29
lab L28
	var	7
	str	4
	line	100
	colm	17
	synt	any
	invoke	1
lab L29
	line	97
	colm	5
	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	4
	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
	local	4,000000,write
	local	5,000000,nodes_created_trace_file
	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,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	4,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	142
	colm	12
	synt	any
	mark	L1
	line	143
	colm	5
	synt	if
	mark0
	mark	L2
	var	1
	var	0
	line	143
	colm	19
	synt	any
	invoke	1
	unmark
	efail
lab L2
	pnull
	unmark
	mark	L3
	var	2
	str	0
	line	144
	colm	17
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	3
	str	1
	line	145
	colm	17
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	var	4
	var	5
	str	1
	line	146
	colm	14
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	int	2
	line	147
	colm	9
	synt	any
	pret
lab L6
	synt	any
	pfail
	line	143
	colm	5
	synt	endif
	unmark
lab L1
	mark	L7
	line	157
	colm	5
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	157
	colm	10
	synt	any
	field	lh_first
	line	157
	colm	8
	synt	any
	null
	unmark
	mark	L8
	var	2
	str	3
	line	158
	colm	17
	synt	any
	invoke	1
	unmark
lab L8
	mark	L9
	var	3
	str	3
	line	159
	colm	17
	synt	any
	invoke	1
	unmark
lab L9
	mark	L10
	var	4
	var	5
	str	3
	line	160
	colm	14
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	int	2
	line	161
	colm	9
	synt	any
	pret
lab L11
	synt	any
	pfail
	line	157
	colm	5
	synt	endif
	unmark
lab L7
	mark	L12
	var	2
	str	4
	line	163
	colm	13
	synt	any
	invoke	1
	unmark
lab L12
	mark	L13
	var	3
	str	4
	line	164
	colm	13
	synt	any
	invoke	1
	unmark
lab L13
	mark	L14
	var	4
	var	5
	str	4
	line	165
	colm	10
	synt	any
	invoke	2
	unmark
lab L14
	mark	L15
	line	166
	colm	5
	synt	any
	pfail
	unmark
lab L15
	pnull
	line	167
	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,listinfo
	local	18,000000,nodeinfo
	local	19,000000,yyinfo
	local	20,000000,argcnt_from_kind
	local	21,000000,mknode
	local	22,000000,rpt_err
	local	23,000000,addright
	con	0,010000,8,111,116,040,123,120,114,111,124
	con	1,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	2,002000,1,1
	con	3,002000,1,2
	con	4,002000,1,3
	con	5,002000,1,4
	con	6,002000,1,5
	con	7,002000,1,6
	con	8,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	9,010000,5,123,160,154,151,164
	declend
	line	169
	colm	12
	synt	any
	mark	L1
	pnull
	var	13
	var	16
	line	173
	colm	24
	synt	any
	invoke	0
	line	173
	colm	12
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	var	17
	str	0
	line	174
	colm	13
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	18
	str	0
	line	175
	colm	13
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	pnull
	var	15
	pnull
	var	1
	line	176
	colm	19
	synt	any
	field	cn_hd_field
	line	176
	colm	9
	synt	any
	asgn
	unmark
lab L4
	mark	L5
lab L6
	line	177
	colm	5
	synt	while
	mark0
	pnull
	var	15
	line	177
	colm	11
	synt	any
	nonnull
	unmark
	mark	L6
	mark	L9
	pnull
	var	14
	pnull
	var	15
	line	178
	colm	18
	synt	any
	field	cn_hd_field
	line	178
	colm	11
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	var	19
	pnull
	str	1
	var	0
	line	180
	colm	42
	synt	any
	cat
	line	180
	colm	15
	synt	any
	invoke	1
	unmark
lab L11
	mark	L12
	line	181
	colm	9
	synt	case
	mark0
	pnull
	var	20
	pnull
	var	0
	int	2
	line	181
	colm	40
	synt	any
	plus
	line	181
	colm	32
	synt	any
	subsc
	eret
	mark	L14
	ccase
	int	3
	line	182
	colm	14
	synt	any
	eqv
	unmark
	pop
	pnull
	var	12
	var	21
	pnull
	var	0
	var	14
	var	2
	line	182
	colm	31
	synt	any
	llist	3
	line	182
	colm	30
	synt	any
	invoke	1
	line	182
	colm	21
	synt	any
	asgn
	goto	L13
lab L14
	mark	L15
	ccase
	int	4
	line	183
	colm	14
	synt	any
	eqv
	unmark
	pop
	pnull
	var	12
	var	21
	pnull
	var	0
	var	14
	var	2
	var	3
	line	183
	colm	31
	synt	any
	llist	4
	line	183
	colm	30
	synt	any
	invoke	1
	line	183
	colm	21
	synt	any
	asgn
	goto	L13
lab L15
	mark	L16
	ccase
	int	5
	line	184
	colm	14
	synt	any
	eqv
	unmark
	pop
	pnull
	var	12
	var	21
	pnull
	var	0
	var	14
	var	2
	var	3
	var	4
	line	184
	colm	31
	synt	any
	llist	5
	line	184
	colm	30
	synt	any
	invoke	1
	line	184
	colm	21
	synt	any
	asgn
	goto	L13
lab L16
	mark	L17
	ccase
	int	6
	line	185
	colm	14
	synt	any
	eqv
	unmark
	pop
	pnull
	var	12
	var	21
	pnull
	var	0
	var	14
	var	2
	var	3
	var	4
	var	5
	line	185
	colm	31
	synt	any
	llist	6
	line	185
	colm	30
	synt	any
	invoke	1
	line	185
	colm	21
	synt	any
	asgn
	goto	L13
lab L17
	mark	L18
	ccase
	int	7
	line	186
	colm	14
	synt	any
	eqv
	unmark
	pop
	pnull
	var	12
	var	21
	pnull
	var	0
	var	14
	var	2
	var	3
	var	4
	var	5
	var	6
	line	186
	colm	31
	synt	any
	llist	7
	line	186
	colm	30
	synt	any
	invoke	1
	line	186
	colm	21
	synt	any
	asgn
	goto	L13
lab L18
	pop
	var	22
	pnull
	str	8
	var	0
	line	187
	colm	63
	synt	any
	cat
	line	187
	colm	29
	synt	any
	invoke	1
lab L13
	line	181
	colm	9
	synt	endcase
	unmark
lab L12
	pnull
	var	13
	var	23
	var	13
	var	12
	line	189
	colm	27
	synt	any
	invoke	2
	line	189
	colm	16
	synt	any
	asgn
	unmark
lab L10
	pnull
	var	15
	pnull
	var	14
	line	192
	colm	17
	synt	any
	field	cn_tl_field
	line	192
	colm	13
	synt	any
	asgn
lab L7
	unmark
	goto	L6
lab L8
	line	177
	colm	5
	synt	endwhile
	unmark
lab L5
	mark	L19
	var	18
	str	9
	line	195
	colm	13
	synt	any
	invoke	1
	unmark
lab L19
	mark	L20
	mark	L21
	var	13
	line	197
	colm	5
	synt	any
	pret
lab L21
	synt	any
	pfail
	unmark
lab L20
	pnull
	line	198
	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	199
	colm	12
	synt	any
	mark	L1
	line	200
	colm	5
	synt	if
	mark0
	var	2
	var	0
	line	200
	colm	18
	synt	any
	invoke	1
	unmark
	mark	L2
	var	3
	var	0
	line	202
	colm	14
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	line	203
	colm	9
	synt	any
	pret
lab L3
	synt	any
	pfail
	line	200
	colm	5
	synt	endif
	unmark
lab L1
	mark	L4
	line	205
	colm	5
	synt	if
	mark0
	mark	L5
	var	2
	var	1
	line	205
	colm	22
	synt	any
	invoke	1
	unmark
	efail
lab L5
	pnull
	unmark
	mark	L6
	pnull
	pnull
	pnull
	var	0
	line	207
	colm	11
	synt	any
	field	lh_last
	line	207
	colm	19
	synt	any
	field	cn_tl_field
	pnull
	var	1
	line	207
	colm	37
	synt	any
	field	lh_first
	line	207
	colm	32
	synt	any
	asgn
	unmark
lab L6
	pnull
	pnull
	var	0
	line	208
	colm	11
	synt	any
	field	lh_last
	pnull
	var	1
	line	208
	colm	25
	synt	any
	field	lh_last
	line	208
	colm	20
	synt	any
	asgn
	line	205
	colm	5
	synt	endif
	unmark
lab L4
	mark	L7
	pnull
	pnull
	var	1
	line	212
	colm	8
	synt	any
	field	lh_last
	pnull
	pnull
	var	1
	line	212
	colm	23
	synt	any
	field	lh_first
	var	4
	line	212
	colm	33
	synt	any
	asgn
	line	212
	colm	17
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	var	3
	var	1
	line	213
	colm	10
	synt	any
	invoke	1
	unmark
lab L8
	mark	L9
	mark	L10
	var	0
	line	214
	colm	5
	synt	any
	pret
lab L10
	synt	any
	pfail
	unmark
lab L9
	pnull
	line	215
	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	220
	colm	12
	synt	any
	mark	L1
	var	3
	pnull
	str	0
	var	4
	var	1
	line	222
	colm	52
	synt	any
	invoke	1
	line	222
	colm	40
	synt	any
	cat
	line	222
	colm	13
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	var	5
	pnull
	str	0
	var	4
	var	1
	line	223
	colm	52
	synt	any
	invoke	1
	line	223
	colm	40
	synt	any
	cat
	line	223
	colm	13
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	line	225
	colm	5
	synt	if
	mark0
	pnull
	var	1
	line	225
	colm	10
	synt	any
	null
	unmark
	mark	L4
	var	0
	line	225
	colm	20
	synt	any
	pret
lab L4
	synt	any
	pfail
	line	225
	colm	5
	synt	endif
	unmark
lab L3
	mark	L5
	line	227
	colm	5
	synt	ifelse
	mark	L6
	var	6
	var	0
	line	227
	colm	17
	synt	any
	invoke	1
	unmark
	mark	L8
	pnull
	var	2
	var	7
	var	8
	var	1
	line	228
	colm	27
	synt	any
	invoke	1
	var	9
	line	228
	colm	22
	synt	any
	invoke	2
	line	228
	colm	11
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	0
	line	229
	colm	10
	synt	any
	field	lh_first
	var	2
	line	229
	colm	20
	synt	any
	asgn
	unmark
lab L9
	pnull
	pnull
	var	0
	line	230
	colm	10
	synt	any
	field	lh_last
	var	2
	line	230
	colm	19
	synt	any
	asgn
	goto	L7
lab L6
	pnull
	pnull
	var	0
	line	232
	colm	10
	synt	any
	field	lh_first
	var	7
	var	8
	var	1
	line	232
	colm	36
	synt	any
	invoke	1
	pnull
	var	0
	line	232
	colm	41
	synt	any
	field	lh_first
	line	232
	colm	31
	synt	any
	invoke	2
	line	232
	colm	20
	synt	any
	asgn
lab L7
	line	227
	colm	5
	synt	endifelse
	unmark
lab L5
	mark	L10
	var	10
	str	1
	line	234
	colm	13
	synt	any
	invoke	1
	unmark
lab L10
	mark	L11
	pnull
	var	0
	line	235
	colm	6
	synt	any
	field	cons_dump
	line	235
	colm	16
	synt	any
	invoke	0
	unmark
lab L11
	mark	L12
	mark	L13
	var	0
	line	236
	colm	5
	synt	any
	pret
lab L13
	synt	any
	pfail
	unmark
lab L12
	pnull
	line	237
	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	243
	colm	12
	synt	any
	mark	L1
	var	3
	pnull
	str	0
	var	4
	var	1
	line	245
	colm	53
	synt	any
	invoke	1
	line	245
	colm	41
	synt	any
	cat
	line	245
	colm	13
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	var	5
	pnull
	str	0
	var	4
	var	1
	line	246
	colm	53
	synt	any
	invoke	1
	line	246
	colm	41
	synt	any
	cat
	line	246
	colm	13
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	line	247
	colm	5
	synt	if
	mark0
	pnull
	var	1
	line	247
	colm	9
	synt	any
	null
	unmark
	mark	L4
	var	5
	pnull
	str	1
	var	4
	var	0
	line	248
	colm	62
	synt	any
	invoke	1
	line	248
	colm	50
	synt	any
	cat
	line	248
	colm	17
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	var	3
	pnull
	str	1
	var	4
	var	0
	line	249
	colm	62
	synt	any
	invoke	1
	line	249
	colm	50
	synt	any
	cat
	line	249
	colm	17
	synt	any
	invoke	1
	unmark
lab L5
	mark	L6
	var	0
	line	250
	colm	9
	synt	any
	pret
lab L6
	synt	any
	pfail
	line	247
	colm	5
	synt	endif
	unmark
lab L3
	mark	L7
	pnull
	var	2
	var	6
	var	7
	var	1
	line	252
	colm	23
	synt	any
	invoke	1
	var	8
	line	252
	colm	18
	synt	any
	invoke	2
	line	252
	colm	7
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	var	5
	pnull
	str	2
	var	4
	var	2
	line	253
	colm	44
	synt	any
	invoke	1
	line	253
	colm	32
	synt	any
	cat
	line	253
	colm	13
	synt	any
	invoke	1
	unmark
lab L8
	mark	L9
	var	3
	pnull
	str	2
	var	4
	var	2
	line	254
	colm	44
	synt	any
	invoke	1
	line	254
	colm	32
	synt	any
	cat
	line	254
	colm	13
	synt	any
	invoke	1
	unmark
lab L9
	mark	L10
	line	256
	colm	5
	synt	ifelse
	mark	L11
	var	9
	var	0
	line	256
	colm	18
	synt	any
	invoke	1
	unmark
	mark	L13
	var	5
	pnull
	str	3
	var	4
	var	0
	line	257
	colm	53
	synt	any
	invoke	1
	line	257
	colm	41
	synt	any
	cat
	line	257
	colm	17
	synt	any
	invoke	1
	unmark
lab L13
	mark	L14
	var	3
	pnull
	str	3
	var	4
	var	0
	line	258
	colm	53
	synt	any
	invoke	1
	line	258
	colm	41
	synt	any
	cat
	line	258
	colm	17
	synt	any
	invoke	1
	unmark
lab L14
	mark	L15
	pnull
	pnull
	var	0
	line	259
	colm	10
	synt	any
	field	lh_first
	var	2
	line	259
	colm	20
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	pnull
	pnull
	var	0
	line	260
	colm	10
	synt	any
	field	lh_last
	var	2
	line	260
	colm	19
	synt	any
	asgn
	unmark
lab L16
	mark	L17
	var	5
	str	4
	line	261
	colm	17
	synt	any
	invoke	1
	unmark
lab L17
	var	3
	str	4
	line	262
	colm	17
	synt	any
	invoke	1
	goto	L12
lab L11
	mark	L18
	pnull
	pnull
	pnull
	var	0
	line	266
	colm	10
	synt	any
	field	lh_last
	line	266
	colm	18
	synt	any
	field	cn_tl_field
	var	2
	line	266
	colm	31
	synt	any
	asgn
	unmark
lab L18
	mark	L19
	pnull
	pnull
	var	0
	line	267
	colm	10
	synt	any
	field	lh_last
	var	2
	line	267
	colm	19
	synt	any
	asgn
	unmark
lab L19
	mark	L20
	var	3
	str	5
	line	268
	colm	17
	synt	any
	invoke	1
	unmark
lab L20
	mark	L21
	var	5
	str	5
	line	269
	colm	17
	synt	any
	invoke	1
	unmark
lab L21
	var	5
	str	6
	line	271
	colm	17
	synt	any
	invoke	1
lab L12
	line	256
	colm	5
	synt	endifelse
	unmark
lab L10
	mark	L22
	var	10
	str	7
	line	277
	colm	13
	synt	any
	invoke	1
	unmark
lab L22
	mark	L23
	mark	L24
	var	0
	line	279
	colm	5
	synt	any
	pret
lab L24
	synt	any
	pfail
	unmark
lab L23
	pnull
	line	280
	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	284
	colm	11
	synt	any
	mark	L1
	line	286
	colm	9
	synt	ifelse
	mark	L2
	pnull
	pnull
	var	0
	line	286
	colm	17
	synt	any
	field	kind
	line	286
	colm	12
	synt	any
	null
	unmark
	var	2
	var	1
	str	0
	line	287
	colm	19
	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	290
	colm	59
	synt	any
	plus
	line	290
	colm	43
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	290
	colm	96
	synt	any
	field	kind
	line	290
	colm	91
	synt	any
	invoke	1
	line	290
	colm	79
	synt	any
	cat
	line	290
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	line	291
	colm	13
	synt	ifelse
	mark	L6
	var	6
	pnull
	var	0
	line	291
	colm	28
	synt	any
	field	kind
	line	291
	colm	23
	synt	any
	invoke	1
	unmark
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	2
	var	4
	line	292
	colm	66
	synt	any
	plus
	line	292
	colm	47
	synt	any
	invoke	2
	pnull
	var	7
	pnull
	pnull
	var	0
	line	292
	colm	106
	synt	any
	field	kind
	int	4
	line	292
	colm	112
	synt	any
	plus
	line	292
	colm	101
	synt	any
	subsc
	line	292
	colm	86
	synt	any
	cat
	line	292
	colm	22
	synt	any
	invoke	2
	goto	L7
lab L6
	var	2
	var	1
	var	5
	pnull
	var	0
	line	294
	colm	56
	synt	any
	field	kind
	line	294
	colm	51
	synt	any
	invoke	1
	line	294
	colm	22
	synt	any
	invoke	2
lab L7
	line	291
	colm	13
	synt	endifelse
	unmark
lab L5
	mark	L8
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	2
	var	4
	line	295
	colm	62
	synt	any
	plus
	line	295
	colm	43
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	295
	colm	99
	synt	any
	field	vlineno
	line	295
	colm	94
	synt	any
	invoke	1
	line	295
	colm	82
	synt	any
	cat
	line	295
	colm	18
	synt	any
	invoke	2
	unmark
lab L8
	mark	L9
	var	2
	var	1
	pnull
	var	3
	str	6
	pnull
	int	2
	var	4
	line	296
	colm	62
	synt	any
	plus
	line	296
	colm	43
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	296
	colm	99
	synt	any
	field	pre_num
	line	296
	colm	94
	synt	any
	invoke	1
	line	296
	colm	82
	synt	any
	cat
	line	296
	colm	18
	synt	any
	invoke	2
	unmark
lab L9
	var	2
	var	1
	pnull
	var	3
	str	7
	pnull
	int	2
	var	4
	line	297
	colm	63
	synt	any
	plus
	line	297
	colm	43
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	297
	colm	100
	synt	any
	field	post_num
	line	297
	colm	95
	synt	any
	invoke	1
	line	297
	colm	83
	synt	any
	cat
	line	297
	colm	18
	synt	any
	invoke	2
lab L3
	line	286
	colm	9
	synt	endifelse
	unmark
lab L1
	pnull
	line	300
	colm	1
	synt	any
	pfail
	end
proc Node_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	local	4,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	301
	colm	11
	synt	any
	mark	L1
	var	4
	var	2
	var	3
	var	1
	str	0
	pnull
	var	0
	line	303
	colm	74
	synt	any
	field	kind
	line	303
	colm	23
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	var	4
	var	2
	var	3
	var	1
	str	1
	pnull
	var	0
	line	304
	colm	76
	synt	any
	field	vlineno
	line	304
	colm	23
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	var	4
	var	2
	var	3
	var	1
	str	2
	pnull
	var	0
	line	305
	colm	76
	synt	any
	field	pre_num
	line	305
	colm	23
	synt	any
	invoke	5
	unmark
lab L3
	mark	L4
	var	4
	var	2
	var	3
	var	1
	str	3
	pnull
	var	0
	line	306
	colm	77
	synt	any
	field	post_num
	line	306
	colm	23
	synt	any
	invoke	5
	unmark
lab L4
	pnull
	line	307
	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,16
	con	2,002000,1,6
	con	3,002000,2,10
	con	4,010000,8,102,101,104,040,113,111,116,104
	declend
	line	308
	colm	11
	synt	any
	mark	L1
	line	310
	colm	9
	synt	ifelse
	mark	L2
	pnull
	pnull
	var	0
	line	310
	colm	17
	synt	any
	field	kind
	line	310
	colm	12
	synt	any
	nonnull
	pop
	var	1
	pnull
	var	0
	line	310
	colm	35
	synt	any
	field	kind
	line	310
	colm	30
	synt	any
	invoke	1
	unmark
	var	2
	var	3
	var	4
	pnull
	var	5
	pnull
	pnull
	var	0
	line	311
	colm	67
	synt	any
	field	kind
	int	0
	line	311
	colm	72
	synt	any
	plus
	line	311
	colm	62
	synt	any
	subsc
	int	1
	line	311
	colm	49
	synt	any
	invoke	2
	var	6
	var	7
	pnull
	var	0
	line	311
	colm	100
	synt	any
	field	kind
	line	311
	colm	95
	synt	any
	invoke	1
	int	2
	line	311
	colm	85
	synt	any
	invoke	2
	var	6
	var	7
	pnull
	var	0
	line	311
	colm	130
	synt	any
	field	vlineno
	line	311
	colm	125
	synt	any
	invoke	1
	int	3
	line	311
	colm	115
	synt	any
	invoke	2
	var	6
	var	7
	pnull
	var	0
	line	311
	colm	164
	synt	any
	field	pre_num
	line	311
	colm	159
	synt	any
	invoke	1
	int	3
	line	311
	colm	149
	synt	any
	invoke	2
	var	6
	var	7
	pnull
	var	0
	line	311
	colm	198
	synt	any
	field	post_num
	line	311
	colm	193
	synt	any
	invoke	1
	int	3
	line	311
	colm	183
	synt	any
	invoke	2
	line	311
	colm	19
	synt	any
	invoke	6
	goto	L3
lab L2
	var	2
	var	3
	var	4
	str	4
	int	1
	line	313
	colm	49
	synt	any
	invoke	2
	var	4
	var	7
	pnull
	var	0
	line	313
	colm	84
	synt	any
	field	kind
	line	313
	colm	79
	synt	any
	invoke	1
	int	2
	line	313
	colm	69
	synt	any
	invoke	2
	var	6
	var	7
	pnull
	var	0
	line	313
	colm	114
	synt	any
	field	vlineno
	line	313
	colm	109
	synt	any
	invoke	1
	int	3
	line	313
	colm	99
	synt	any
	invoke	2
	var	6
	var	7
	pnull
	var	0
	line	313
	colm	148
	synt	any
	field	pre_num
	line	313
	colm	143
	synt	any
	invoke	1
	int	3
	line	313
	colm	133
	synt	any
	invoke	2
	var	6
	var	7
	pnull
	var	0
	line	313
	colm	182
	synt	any
	field	post_num
	line	313
	colm	177
	synt	any
	invoke	1
	int	3
	line	313
	colm	167
	synt	any
	invoke	2
	line	313
	colm	19
	synt	any
	invoke	6
lab L3
	line	310
	colm	9
	synt	endifelse
	unmark
lab L1
	pnull
	line	315
	colm	1
	synt	any
	pfail
	end
proc Node_initially
	local	0,001000,self
	local	1,001000,knd
	local	2,001000,line
	local	3,001000,pre
	local	4,001000,post
	declend
	line	317
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	319
	colm	13
	synt	any
	field	kind
	var	1
	line	319
	colm	18
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	320
	colm	13
	synt	any
	field	vlineno
	var	2
	line	320
	colm	21
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	pnull
	var	0
	line	321
	colm	13
	synt	any
	field	pre_num
	var	3
	line	321
	colm	21
	synt	any
	asgn
	unmark
lab L4
	pnull
	pnull
	var	0
	line	322
	colm	13
	synt	any
	field	post_num
	var	4
	line	322
	colm	22
	synt	any
	asgn
	unmark
lab L1
	mark	L5
	mark	L6
	pnull
	line	324
	colm	7
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	325
	colm	1
	synt	any
	pfail
	end
proc Node
	local	0,001000,knd
	local	1,001000,line
	local	2,001000,pre
	local	3,001000,post
	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
	line	10
	colm	22
	synt	any
	invoke	2
	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
	pnull
	pnull
	var	4
	line	12
	colm	7
	synt	any
	field	__m
	line	12
	colm	11
	synt	any
	field	initially
	var	4
	var	0
	var	1
	var	2
	var	3
	line	12
	colm	21
	synt	any
	invoke	5
	line	12
	colm	46
	synt	any
	esusp
	goto	L8
lab L7
	line	12
	colm	48
	synt	any
	pfail
lab L8
	unmark
lab L6
	mark	L9
	mark	L10
	var	4
	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 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
	local	5,000000,Node_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
	line	17
	colm	39
	synt	any
	invoke	4
	line	17
	colm	23
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	18
	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	330
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	332
	colm	62
	synt	any
	plus
	line	332
	colm	39
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	332
	colm	99
	synt	any
	field	cn_hd_field
	line	332
	colm	94
	synt	any
	invoke	1
	line	332
	colm	82
	synt	any
	cat
	line	332
	colm	14
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	333
	colm	62
	synt	any
	plus
	line	333
	colm	39
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	333
	colm	99
	synt	any
	field	cn_tl_field
	line	333
	colm	94
	synt	any
	invoke	1
	line	333
	colm	82
	synt	any
	cat
	line	333
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	334
	colm	60
	synt	any
	plus
	line	334
	colm	39
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	334
	colm	97
	synt	any
	field	unique_id
	line	334
	colm	92
	synt	any
	invoke	1
	line	334
	colm	80
	synt	any
	cat
	line	334
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	336
	colm	1
	synt	any
	pfail
	end
proc ConsNode_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	local	4,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	337
	colm	11
	synt	any
	mark	L1
	var	4
	var	2
	var	3
	var	1
	str	0
	pnull
	var	0
	line	338
	colm	80
	synt	any
	field	cn_hd_field
	line	338
	colm	23
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	var	4
	var	2
	var	3
	var	1
	str	1
	pnull
	var	0
	line	339
	colm	80
	synt	any
	field	cn_tl_field
	line	339
	colm	23
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	var	4
	var	2
	var	3
	var	1
	str	2
	pnull
	var	0
	line	340
	colm	78
	synt	any
	field	unique_id
	line	340
	colm	23
	synt	any
	invoke	5
	unmark
lab L3
	pnull
	line	341
	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	342
	colm	11
	synt	any
	mark	L1
	var	1
	var	2
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	344
	colm	53
	synt	any
	plus
	line	344
	colm	30
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	344
	colm	90
	synt	any
	field	cn_hd_field
	line	344
	colm	85
	synt	any
	invoke	1
	line	344
	colm	73
	synt	any
	cat
	line	344
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	mark	L2
	var	1
	var	2
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	345
	colm	53
	synt	any
	plus
	line	345
	colm	30
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	345
	colm	90
	synt	any
	field	cn_tl_field
	line	345
	colm	85
	synt	any
	invoke	1
	line	345
	colm	73
	synt	any
	cat
	line	345
	colm	14
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	var	1
	var	2
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	346
	colm	51
	synt	any
	plus
	line	346
	colm	30
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	346
	colm	88
	synt	any
	field	unique_id
	line	346
	colm	83
	synt	any
	invoke	1
	line	346
	colm	71
	synt	any
	cat
	line	346
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	347
	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
	local	5,000000,left
	con	0,002000,2,12
	con	1,010000,5,040,040,040,040,040
	con	2,002000,2,20
	declend
	line	349
	colm	11
	synt	any
	mark	L1
	var	1
	var	2
	var	3
	var	4
	pnull
	var	0
	line	351
	colm	61
	synt	any
	field	unique_id
	line	351
	colm	56
	synt	any
	invoke	1
	int	0
	line	351
	colm	46
	synt	any
	invoke	2
	str	1
	var	5
	var	4
	pnull
	var	0
	line	351
	colm	104
	synt	any
	field	cn_hd_field
	line	351
	colm	99
	synt	any
	invoke	1
	int	2
	line	351
	colm	89
	synt	any
	invoke	2
	var	5
	var	4
	pnull
	var	0
	line	351
	colm	141
	synt	any
	field	cn_tl_field
	line	351
	colm	136
	synt	any
	invoke	1
	int	2
	line	351
	colm	126
	synt	any
	invoke	2
	line	351
	colm	15
	synt	any
	invoke	5
	unmark
lab L1
	pnull
	line	353
	colm	1
	synt	any
	pfail
	end
proc ConsNode_initially
	local	0,001000,self
	local	1,001000,hd
	local	2,001000,tl
	local	3,000000,unique_node_id
	con	0,002000,1,1
	declend
	line	387
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	388
	colm	9
	synt	any
	field	cn_tl_field
	var	2
	line	388
	colm	21
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	389
	colm	9
	synt	any
	field	cn_hd_field
	var	1
	line	389
	colm	21
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	3
	dup
	int	0
	line	391
	colm	20
	synt	any
	plus
	asgn
	unmark
lab L3
	mark	L4
	pnull
	pnull
	var	0
	line	392
	colm	9
	synt	any
	field	unique_id
	var	3
	line	392
	colm	19
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	mark	L6
	pnull
	line	393
	colm	7
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	394
	colm	1
	synt	any
	pfail
	end
proc ConsNode
	local	0,001000,hd
	local	1,001000,tl
	local	2,000020,self
	local	3,000020,clone
	local	4,000000,ConsNode__oprec
	local	5,000000,ConsNodeinitialize
	local	6,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	4
	line	8
	colm	6
	synt	any
	null
	unmark
	var	5
	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	2
	var	6
	line	10
	colm	27
	synt	any
	keywd	null
	var	4
	line	10
	colm	26
	synt	any
	invoke	2
	line	10
	colm	8
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	2
	line	11
	colm	7
	synt	any
	field	__s
	var	2
	line	11
	colm	12
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	mark	L7
	pnull
	pnull
	var	2
	line	12
	colm	7
	synt	any
	field	__m
	line	12
	colm	11
	synt	any
	field	initially
	var	2
	var	0
	var	1
	line	12
	colm	21
	synt	any
	invoke	3
	line	12
	colm	34
	synt	any
	esusp
	goto	L8
lab L7
	line	12
	colm	36
	synt	any
	pfail
lab L8
	unmark
lab L6
	mark	L9
	mark	L10
	var	2
	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	399
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	400
	colm	14
	synt	any
	field	__m
	line	400
	colm	18
	synt	any
	field	Node
	line	400
	colm	23
	synt	any
	field	trace_node
	var	0
	line	400
	colm	34
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	401
	colm	14
	synt	any
	field	__m
	line	401
	colm	18
	synt	any
	field	ConsNode
	line	401
	colm	27
	synt	any
	field	trace_node
	var	0
	line	401
	colm	38
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	var	3
	var	4
	pnull
	var	0
	line	402
	colm	59
	synt	any
	field	lh_first
	line	402
	colm	54
	synt	any
	invoke	1
	int	0
	line	402
	colm	44
	synt	any
	invoke	2
	var	3
	var	4
	pnull
	var	0
	line	402
	colm	93
	synt	any
	field	lh_last
	line	402
	colm	88
	synt	any
	invoke	1
	int	0
	line	402
	colm	78
	synt	any
	invoke	2
	line	402
	colm	14
	synt	any
	invoke	3
	unmark
lab L3
	pnull
	line	403
	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	406
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	408
	colm	14
	synt	any
	field	__m
	line	408
	colm	18
	synt	any
	field	Node
	line	408
	colm	23
	synt	any
	field	dump
	var	0
	var	1
	line	408
	colm	28
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	410
	colm	59
	synt	any
	plus
	line	410
	colm	39
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	410
	colm	96
	synt	any
	field	lh_first
	line	410
	colm	91
	synt	any
	invoke	1
	line	410
	colm	79
	synt	any
	cat
	line	410
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	411
	colm	58
	synt	any
	plus
	line	411
	colm	39
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	411
	colm	95
	synt	any
	field	lh_last
	line	411
	colm	90
	synt	any
	invoke	1
	line	411
	colm	78
	synt	any
	cat
	line	411
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	413
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNode_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	local	4,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	414
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	416
	colm	14
	synt	any
	field	__m
	line	416
	colm	18
	synt	any
	field	Node
	line	416
	colm	23
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	416
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	417
	colm	14
	synt	any
	field	__m
	line	417
	colm	18
	synt	any
	field	ConsNode
	line	417
	colm	27
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	417
	colm	37
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	var	4
	var	2
	var	3
	var	1
	str	0
	pnull
	var	0
	line	418
	colm	78
	synt	any
	field	lh_first
	line	418
	colm	23
	synt	any
	invoke	5
	unmark
lab L3
	mark	L4
	var	4
	var	2
	var	3
	var	1
	str	1
	pnull
	var	0
	line	419
	colm	77
	synt	any
	field	lh_last
	line	419
	colm	23
	synt	any
	invoke	5
	unmark
lab L4
	pnull
	line	420
	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	421
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	423
	colm	14
	synt	any
	field	__m
	line	423
	colm	18
	synt	any
	field	Node
	line	423
	colm	23
	synt	any
	field	dump
	var	0
	line	423
	colm	28
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	425
	colm	59
	synt	any
	plus
	line	425
	colm	39
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	425
	colm	96
	synt	any
	field	lh_first
	line	425
	colm	91
	synt	any
	invoke	1
	line	425
	colm	79
	synt	any
	cat
	line	425
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	var	1
	var	2
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	426
	colm	58
	synt	any
	plus
	line	426
	colm	39
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	426
	colm	95
	synt	any
	field	lh_last
	line	426
	colm	90
	synt	any
	invoke	1
	line	426
	colm	78
	synt	any
	cat
	line	426
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	428
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNode_first
	local	0,001000,self
	declend
	line	430
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	431
	colm	20
	synt	any
	field	lh_first
	line	431
	colm	9
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	432
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNode_last
	local	0,001000,self
	declend
	line	435
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	436
	colm	20
	synt	any
	field	lh_last
	line	436
	colm	9
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	437
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNode_setfirst
	local	0,001000,self
	local	1,001000,p
	declend
	line	439
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	440
	colm	13
	synt	any
	field	lh_first
	var	1
	line	440
	colm	22
	synt	any
	asgn
	unmark
lab L1
	pnull
	line	441
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNode_setlast
	local	0,001000,self
	local	1,001000,p
	declend
	line	442
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	443
	colm	13
	synt	any
	field	lh_last
	var	1
	line	443
	colm	21
	synt	any
	asgn
	unmark
lab L1
	pnull
	line	444
	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	455
	colm	11
	synt	any
	mark	L1
	line	456
	colm	9
	synt	if
	mark0
	var	2
	var	0
	line	456
	colm	21
	synt	any
	invoke	1
	unmark
	mark	L2
	var	1
	line	458
	colm	13
	synt	any
	pret
lab L2
	synt	any
	pfail
	line	456
	colm	9
	synt	endif
	unmark
lab L1
	mark	L3
	line	460
	colm	9
	synt	if
	mark0
	mark	L4
	var	2
	var	1
	line	460
	colm	26
	synt	any
	invoke	1
	unmark
	efail
lab L4
	pnull
	unmark
	mark	L5
	pnull
	pnull
	var	0
	line	462
	colm	17
	synt	any
	field	cn_tl_field
	line	462
	colm	29
	synt	any
	field	cn_settail
	pnull
	var	1
	line	462
	colm	43
	synt	any
	field	cn_hd_field
	line	462
	colm	40
	synt	any
	invoke	1
	unmark
lab L5
	pnull
	var	0
	line	463
	colm	17
	synt	any
	field	cn_settail
	pnull
	var	1
	line	463
	colm	31
	synt	any
	field	cn_tl_field
	line	463
	colm	28
	synt	any
	invoke	1
	line	460
	colm	9
	synt	endif
	unmark
lab L3
	mark	L6
	pnull
	var	1
	pnull
	pnull
	var	1
	line	465
	colm	17
	synt	any
	field	hd_field
	pnull
	pnull
	var	1
	line	465
	colm	32
	synt	any
	field	tl_field
	var	3
	line	465
	colm	42
	synt	any
	asgn
	line	465
	colm	27
	synt	any
	asgn
	line	465
	colm	12
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	pnull
	var	1
	line	468
	colm	11
	synt	any
	field	lh_last
	pnull
	pnull
	var	1
	line	468
	colm	25
	synt	any
	field	lh_first
	var	3
	line	468
	colm	35
	synt	any
	asgn
	line	468
	colm	20
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	var	4
	var	1
	line	469
	colm	14
	synt	any
	invoke	1
	unmark
lab L8
	mark	L9
	mark	L10
	var	0
	line	470
	colm	9
	synt	any
	pret
lab L10
	synt	any
	pfail
	unmark
lab L9
	pnull
	line	471
	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	479
	colm	11
	synt	any
	mark	L1
	var	4
	str	0
	line	481
	colm	17
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	var	1
	int	1
	line	482
	colm	15
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	var	4
	pnull
	pnull
	pnull
	str	2
	var	1
	line	483
	colm	36
	synt	any
	cat
	str	3
	line	483
	colm	45
	synt	any
	cat
	var	5
	pnull
	var	0
	line	483
	colm	96
	synt	any
	field	lh_first
	line	483
	colm	91
	synt	any
	invoke	1
	line	483
	colm	78
	synt	any
	cat
	line	483
	colm	17
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	pnull
	var	3
	pnull
	var	0
	line	485
	colm	20
	synt	any
	field	lh_first
	line	485
	colm	13
	synt	any
	asgn
	unmark
lab L4
	mark	L5
lab L6
	line	486
	colm	2
	synt	while
	mark0
	pnull
	var	3
	line	486
	colm	8
	synt	any
	nonnull
	unmark
	mark	L6
	mark	L9
	pnull
	var	2
	pnull
	var	3
	line	487
	colm	13
	synt	any
	field	cn_hd_field
	line	487
	colm	7
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	pnull
	var	1
	dup
	int	4
	line	488
	colm	11
	synt	any
	plus
	asgn
	unmark
lab L10
	mark	L11
	pnull
	var	3
	pnull
	var	3
	line	489
	colm	15
	synt	any
	field	cn_tl_field
	line	489
	colm	9
	synt	any
	asgn
	unmark
lab L11
	var	4
	pnull
	pnull
	pnull
	str	2
	var	1
	line	490
	colm	32
	synt	any
	cat
	str	5
	line	490
	colm	41
	synt	any
	cat
	var	5
	var	2
	line	490
	colm	74
	synt	any
	invoke	1
	line	490
	colm	62
	synt	any
	cat
	line	490
	colm	13
	synt	any
	invoke	1
lab L7
	unmark
	goto	L6
lab L8
	line	486
	colm	2
	synt	endwhile
	unmark
lab L5
	mark	L12
	mark	L13
	var	1
	line	492
	colm	9
	synt	any
	pret
lab L13
	synt	any
	pfail
	unmark
lab L12
	pnull
	line	493
	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	503
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	pnull
	var	0
	line	505
	colm	20
	synt	any
	field	length
	line	505
	colm	27
	synt	any
	invoke	0
	line	505
	colm	13
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	5
	var	7
	pnull
	var	2
	int	0
	line	506
	colm	23
	synt	any
	plus
	line	506
	colm	19
	synt	any
	invoke	1
	line	506
	colm	12
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	6
	int	1
	line	507
	colm	15
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	var	8
	pnull
	pnull
	pnull
	str	2
	var	6
	line	508
	colm	43
	synt	any
	cat
	str	3
	line	508
	colm	52
	synt	any
	cat
	var	9
	pnull
	var	0
	line	508
	colm	103
	synt	any
	field	lh_first
	line	508
	colm	98
	synt	any
	invoke	1
	line	508
	colm	85
	synt	any
	cat
	line	508
	colm	17
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	pnull
	var	3
	pnull
	var	0
	line	509
	colm	20
	synt	any
	field	lh_first
	line	509
	colm	13
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	var	8
	pnull
	pnull
	pnull
	str	4
	var	2
	line	510
	colm	41
	synt	any
	cat
	str	5
	line	510
	colm	48
	synt	any
	cat
	var	9
	var	3
	line	510
	colm	73
	synt	any
	invoke	1
	line	510
	colm	61
	synt	any
	cat
	line	510
	colm	17
	synt	any
	invoke	1
	unmark
lab L6
	mark	L7
lab L8
	line	511
	colm	9
	synt	while
	mark0
	pnull
	var	3
	line	511
	colm	15
	synt	any
	nonnull
	unmark
	mark	L8
	mark	L11
	pnull
	var	4
	pnull
	var	3
	line	512
	colm	21
	synt	any
	field	cn_hd_field
	line	512
	colm	15
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	pnull
	var	6
	dup
	int	0
	line	513
	colm	19
	synt	any
	plus
	asgn
	unmark
lab L12
	mark	L13
	var	8
	pnull
	pnull
	pnull
	str	6
	var	6
	line	514
	colm	47
	synt	any
	cat
	str	7
	line	514
	colm	56
	synt	any
	cat
	var	9
	var	4
	line	514
	colm	79
	synt	any
	invoke	1
	line	514
	colm	67
	synt	any
	cat
	line	514
	colm	21
	synt	any
	invoke	1
	unmark
lab L13
	mark	L14
	pnull
	pnull
	var	5
	var	6
	line	515
	colm	15
	synt	any
	subsc
	var	4
	line	515
	colm	23
	synt	any
	asgn
	unmark
lab L14
	pnull
	var	3
	pnull
	var	3
	line	516
	colm	23
	synt	any
	field	cn_tl_field
	line	516
	colm	17
	synt	any
	asgn
lab L9
	unmark
	goto	L8
lab L10
	line	511
	colm	9
	synt	endwhile
	unmark
lab L7
	mark	L15
	mark	L16
	var	10
	var	2
	var	5
	line	518
	colm	22
	synt	any
	invoke	2
	line	518
	colm	9
	synt	any
	pret
lab L16
	synt	any
	pfail
	unmark
lab L15
	pnull
	line	519
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNode_initially
	local	0,001000,self
	local	1,001000,first
	local	2,001000,last
	local	3,001000,kind
	local	4,001000,vlineno
	local	5,001000,pre_num
	local	6,001000,post_num
	local	7,001000,cn_hd
	local	8,001000,cn_tl
	declend
	line	520
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	521
	colm	13
	synt	any
	field	lh_first
	var	1
	line	521
	colm	22
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	522
	colm	13
	synt	any
	field	lh_last
	var	2
	line	522
	colm	21
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	523
	colm	14
	synt	any
	field	__m
	line	523
	colm	18
	synt	any
	field	ConsNode
	line	523
	colm	27
	synt	any
	field	initially
	var	0
	var	7
	var	8
	line	523
	colm	38
	synt	any
	invoke	3
	unmark
lab L3
	mark	L4
	pnull
	pnull
	pnull
	var	0
	line	524
	colm	14
	synt	any
	field	__m
	line	524
	colm	18
	synt	any
	field	Node
	line	524
	colm	23
	synt	any
	field	initially
	var	0
	var	3
	var	4
	var	5
	var	6
	line	524
	colm	34
	synt	any
	invoke	5
	unmark
lab L4
	mark	L5
	mark	L6
	pnull
	line	525
	colm	7
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	526
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNode
	local	0,001000,first
	local	1,001000,last
	local	2,001000,kind
	local	3,001000,vlineno
	local	4,001000,pre_num
	local	5,001000,post_num
	local	6,001000,cn_hd
	local	7,001000,cn_tl
	local	8,000020,self
	local	9,000020,clone
	local	10,000000,ListHeaderNode__oprec
	local	11,000000,ListHeaderNodeinitialize
	local	12,000000,Node__oprec
	local	13,000000,Nodeinitialize
	local	14,000000,ConsNode__oprec
	local	15,000000,ConsNodeinitialize
	local	16,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	10
	line	8
	colm	6
	synt	any
	null
	unmark
	var	11
	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	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	24
	synt	any
	field	Node
	var	12
	line	10
	colm	30
	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	24
	synt	any
	field	ConsNode
	var	14
	line	12
	colm	34
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	8
	var	16
	line	14
	colm	33
	synt	any
	keywd	null
	var	10
	line	14
	colm	32
	synt	any
	invoke	2
	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
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	line	16
	colm	21
	synt	any
	invoke	9
	line	16
	colm	81
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	83
	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 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	528
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	529
	colm	14
	synt	any
	field	__m
	line	529
	colm	18
	synt	any
	field	Node
	line	529
	colm	23
	synt	any
	field	trace_node
	var	0
	line	529
	colm	34
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	530
	colm	14
	synt	any
	field	__m
	line	530
	colm	18
	synt	any
	field	ConsNode
	line	530
	colm	27
	synt	any
	field	trace_node
	var	0
	line	530
	colm	38
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	531
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	532
	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	533
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	535
	colm	14
	synt	any
	field	__m
	line	535
	colm	18
	synt	any
	field	Node
	line	535
	colm	23
	synt	any
	field	dump
	var	0
	var	1
	line	535
	colm	28
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	536
	colm	14
	synt	any
	field	__m
	line	536
	colm	18
	synt	any
	field	ConsNode
	line	536
	colm	27
	synt	any
	field	dump
	var	0
	var	1
	line	536
	colm	32
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	537
	colm	57
	synt	any
	plus
	line	537
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	537
	colm	94
	synt	any
	field	decl_id
	line	537
	colm	89
	synt	any
	invoke	1
	line	537
	colm	77
	synt	any
	cat
	line	537
	colm	14
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	538
	colm	65
	synt	any
	plus
	line	538
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	538
	colm	102
	synt	any
	field	decl_denotation
	line	538
	colm	97
	synt	any
	invoke	1
	line	538
	colm	85
	synt	any
	cat
	line	538
	colm	14
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	539
	colm	62
	synt	any
	plus
	line	539
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	539
	colm	99
	synt	any
	field	displacement
	line	539
	colm	94
	synt	any
	invoke	1
	line	539
	colm	82
	synt	any
	cat
	line	539
	colm	14
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	540
	colm	55
	synt	any
	plus
	line	540
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	540
	colm	92
	synt	any
	field	level
	line	540
	colm	87
	synt	any
	invoke	1
	line	540
	colm	75
	synt	any
	cat
	line	540
	colm	14
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	541
	colm	64
	synt	any
	plus
	line	541
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	541
	colm	101
	synt	any
	field	decl_signature
	line	541
	colm	96
	synt	any
	invoke	1
	line	541
	colm	84
	synt	any
	cat
	line	541
	colm	14
	synt	any
	invoke	2
	unmark
lab L8
	mark	L9
	var	2
	var	1
	pnull
	var	3
	str	6
	pnull
	int	1
	var	4
	line	542
	colm	59
	synt	any
	plus
	line	542
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	542
	colm	96
	synt	any
	field	decl_done
	line	542
	colm	91
	synt	any
	invoke	1
	line	542
	colm	79
	synt	any
	cat
	line	542
	colm	14
	synt	any
	invoke	2
	unmark
lab L9
	mark	L10
	var	2
	var	1
	pnull
	var	3
	str	7
	pnull
	int	1
	var	4
	line	543
	colm	65
	synt	any
	plus
	line	543
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	543
	colm	102
	synt	any
	field	decl_sig_transp
	line	543
	colm	97
	synt	any
	invoke	1
	line	543
	colm	85
	synt	any
	cat
	line	543
	colm	14
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	var	2
	var	1
	pnull
	var	3
	str	8
	pnull
	int	1
	var	4
	line	544
	colm	67
	synt	any
	plus
	line	544
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	544
	colm	104
	synt	any
	field	decl_innermost_id
	line	544
	colm	99
	synt	any
	invoke	1
	line	544
	colm	87
	synt	any
	cat
	line	544
	colm	14
	synt	any
	invoke	2
	unmark
lab L11
	mark	L12
	var	2
	var	1
	pnull
	var	3
	str	9
	pnull
	int	1
	var	4
	line	545
	colm	74
	synt	any
	plus
	line	545
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	545
	colm	111
	synt	any
	field	decl_previous_definition
	line	545
	colm	106
	synt	any
	invoke	1
	line	545
	colm	94
	synt	any
	cat
	line	545
	colm	14
	synt	any
	invoke	2
	unmark
lab L12
	mark	L13
	var	2
	var	1
	pnull
	var	3
	str	10
	pnull
	int	1
	var	4
	line	546
	colm	60
	synt	any
	plus
	line	546
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	546
	colm	97
	synt	any
	field	decl_scope
	line	546
	colm	92
	synt	any
	invoke	1
	line	546
	colm	80
	synt	any
	cat
	line	546
	colm	14
	synt	any
	invoke	2
	unmark
lab L13
	mark	L14
	var	2
	var	1
	pnull
	var	3
	str	11
	pnull
	int	1
	var	4
	line	547
	colm	66
	synt	any
	plus
	line	547
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	547
	colm	103
	synt	any
	field	decl_can_be_refd
	line	547
	colm	98
	synt	any
	invoke	1
	line	547
	colm	86
	synt	any
	cat
	line	547
	colm	14
	synt	any
	invoke	2
	unmark
lab L14
	mark	L15
	var	2
	var	1
	pnull
	var	3
	str	12
	pnull
	int	1
	var	4
	line	548
	colm	62
	synt	any
	plus
	line	548
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	548
	colm	99
	synt	any
	field	decl_special
	line	548
	colm	94
	synt	any
	invoke	1
	line	548
	colm	82
	synt	any
	cat
	line	548
	colm	14
	synt	any
	invoke	2
	unmark
lab L15
	mark	L16
	var	2
	var	1
	pnull
	var	3
	str	13
	pnull
	int	1
	var	4
	line	549
	colm	64
	synt	any
	plus
	line	549
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	549
	colm	101
	synt	any
	field	decl_sel_index
	line	549
	colm	96
	synt	any
	invoke	1
	line	549
	colm	84
	synt	any
	cat
	line	549
	colm	14
	synt	any
	invoke	2
	unmark
lab L16
	mark	L17
	var	2
	var	1
	pnull
	var	3
	str	14
	pnull
	int	1
	var	4
	line	550
	colm	61
	synt	any
	plus
	line	550
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	550
	colm	98
	synt	any
	field	decl_needed
	line	550
	colm	93
	synt	any
	invoke	1
	line	550
	colm	81
	synt	any
	cat
	line	550
	colm	14
	synt	any
	invoke	2
	unmark
lab L17
	var	2
	var	1
	pnull
	var	3
	str	15
	pnull
	int	1
	var	4
	line	551
	colm	64
	synt	any
	plus
	line	551
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	551
	colm	101
	synt	any
	field	decl_const_val
	line	551
	colm	96
	synt	any
	invoke	1
	line	551
	colm	84
	synt	any
	cat
	line	551
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	553
	colm	1
	synt	any
	pfail
	end
proc DeclarationNode_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	local	4,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	554
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	556
	colm	14
	synt	any
	field	__m
	line	556
	colm	18
	synt	any
	field	Node
	line	556
	colm	23
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	556
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	557
	colm	14
	synt	any
	field	__m
	line	557
	colm	18
	synt	any
	field	ConsNode
	line	557
	colm	27
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	557
	colm	37
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	var	4
	var	2
	var	3
	var	1
	str	0
	pnull
	var	0
	line	558
	colm	77
	synt	any
	field	decl_id
	line	558
	colm	23
	synt	any
	invoke	5
	unmark
lab L3
	mark	L4
	var	4
	var	2
	var	3
	var	1
	str	1
	pnull
	var	0
	line	559
	colm	85
	synt	any
	field	decl_denotation
	line	559
	colm	23
	synt	any
	invoke	5
	unmark
lab L4
	mark	L5
	var	4
	var	2
	var	3
	var	1
	str	2
	pnull
	var	0
	line	560
	colm	82
	synt	any
	field	displacement
	line	560
	colm	23
	synt	any
	invoke	5
	unmark
lab L5
	mark	L6
	var	4
	var	2
	var	3
	var	1
	str	3
	pnull
	var	0
	line	561
	colm	75
	synt	any
	field	level
	line	561
	colm	23
	synt	any
	invoke	5
	unmark
lab L6
	mark	L7
	var	4
	var	2
	var	3
	var	1
	str	4
	pnull
	var	0
	line	562
	colm	84
	synt	any
	field	decl_signature
	line	562
	colm	23
	synt	any
	invoke	5
	unmark
lab L7
	mark	L8
	var	4
	var	2
	var	3
	var	1
	str	5
	pnull
	var	0
	line	563
	colm	79
	synt	any
	field	decl_done
	line	563
	colm	23
	synt	any
	invoke	5
	unmark
lab L8
	mark	L9
	var	4
	var	2
	var	3
	var	1
	str	6
	pnull
	var	0
	line	564
	colm	85
	synt	any
	field	decl_sig_transp
	line	564
	colm	23
	synt	any
	invoke	5
	unmark
lab L9
	mark	L10
	var	4
	var	2
	var	3
	var	1
	str	7
	pnull
	var	0
	line	565
	colm	87
	synt	any
	field	decl_innermost_id
	line	565
	colm	23
	synt	any
	invoke	5
	unmark
lab L10
	mark	L11
	var	4
	var	2
	var	3
	var	1
	str	8
	pnull
	var	0
	line	566
	colm	94
	synt	any
	field	decl_previous_definition
	line	566
	colm	23
	synt	any
	invoke	5
	unmark
lab L11
	mark	L12
	var	4
	var	2
	var	3
	var	1
	str	9
	pnull
	var	0
	line	567
	colm	80
	synt	any
	field	decl_scope
	line	567
	colm	23
	synt	any
	invoke	5
	unmark
lab L12
	mark	L13
	var	4
	var	2
	var	3
	var	1
	str	10
	pnull
	var	0
	line	568
	colm	86
	synt	any
	field	decl_can_be_refd
	line	568
	colm	23
	synt	any
	invoke	5
	unmark
lab L13
	mark	L14
	var	4
	var	2
	var	3
	var	1
	str	11
	pnull
	var	0
	line	569
	colm	82
	synt	any
	field	decl_special
	line	569
	colm	23
	synt	any
	invoke	5
	unmark
lab L14
	mark	L15
	var	4
	var	2
	var	3
	var	1
	str	12
	pnull
	var	0
	line	570
	colm	84
	synt	any
	field	decl_sel_index
	line	570
	colm	23
	synt	any
	invoke	5
	unmark
lab L15
	mark	L16
	var	4
	var	2
	var	3
	var	1
	str	13
	pnull
	var	0
	line	571
	colm	81
	synt	any
	field	decl_needed
	line	571
	colm	23
	synt	any
	invoke	5
	unmark
lab L16
	mark	L17
	var	4
	var	2
	var	3
	var	1
	str	14
	pnull
	var	0
	line	572
	colm	84
	synt	any
	field	decl_const_val
	line	572
	colm	23
	synt	any
	invoke	5
	unmark
lab L17
	pnull
	line	573
	colm	1
	synt	any
	pfail
	end
proc DeclarationNode_initially
	local	0,001000,self
	local	1,001000,decl_id
	local	2,001000,decl_denotation
	local	3,001000,displacement
	local	4,001000,level
	local	5,001000,decl_signature
	local	6,001000,decl_done
	local	7,001000,decl_sig_transp
	local	8,001000,decl_innermost_id
	local	9,001000,decl_previous_definition
	local	10,001000,decl_scope
	local	11,001000,decl_can_be_refd
	local	12,001000,decl_special
	local	13,001000,decl_sel_index
	local	14,001000,decl_needed
	local	15,001000,decl_const_val
	local	16,001000,kind
	local	17,001000,vlineno
	local	18,001000,pre_num
	local	19,001000,post_num
	local	20,001000,cn_hd
	local	21,001000,cn_tl
	declend
	line	574
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	576
	colm	14
	synt	any
	field	__m
	line	576
	colm	18
	synt	any
	field	ConsNode
	line	576
	colm	27
	synt	any
	field	initially
	var	0
	var	20
	var	21
	line	576
	colm	38
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	577
	colm	14
	synt	any
	field	__m
	line	577
	colm	18
	synt	any
	field	Node
	line	577
	colm	23
	synt	any
	field	initially
	var	0
	var	16
	var	17
	var	18
	var	19
	line	577
	colm	34
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	578
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	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,cn_hd
	local	20,001000,cn_tl
	local	21,000020,self
	local	22,000020,clone
	local	23,000000,DeclarationNode__oprec
	local	24,000000,DeclarationNodeinitialize
	local	25,000000,Node__oprec
	local	26,000000,Nodeinitialize
	local	27,000000,ConsNode__oprec
	local	28,000000,ConsNodeinitialize
	local	29,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	23
	line	8
	colm	6
	synt	any
	null
	unmark
	var	24
	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	25
	line	9
	colm	6
	synt	any
	null
	unmark
	var	26
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	23
	line	10
	colm	25
	synt	any
	field	Node
	var	25
	line	10
	colm	31
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	27
	line	11
	colm	6
	synt	any
	null
	unmark
	var	28
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	23
	line	12
	colm	25
	synt	any
	field	ConsNode
	var	27
	line	12
	colm	35
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	21
	var	29
	line	14
	colm	34
	synt	any
	keywd	null
	var	23
	line	14
	colm	33
	synt	any
	invoke	2
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	21
	line	15
	colm	7
	synt	any
	field	__s
	var	21
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	21
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	21
	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
	line	16
	colm	21
	synt	any
	invoke	22
	line	16
	colm	280
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	282
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	21
	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	581
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	582
	colm	14
	synt	any
	field	__m
	line	582
	colm	18
	synt	any
	field	Node
	line	582
	colm	23
	synt	any
	field	trace_node
	var	0
	line	582
	colm	34
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	583
	colm	14
	synt	any
	field	__m
	line	583
	colm	18
	synt	any
	field	ConsNode
	line	583
	colm	27
	synt	any
	field	trace_node
	var	0
	line	583
	colm	38
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	584
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	585
	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	586
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	588
	colm	14
	synt	any
	field	__m
	line	588
	colm	18
	synt	any
	field	Node
	line	588
	colm	23
	synt	any
	field	dump
	var	0
	var	1
	line	588
	colm	28
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	589
	colm	14
	synt	any
	field	__m
	line	589
	colm	18
	synt	any
	field	ConsNode
	line	589
	colm	27
	synt	any
	field	dump
	var	0
	var	1
	line	589
	colm	32
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	591
	colm	56
	synt	any
	plus
	line	591
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	591
	colm	93
	synt	any
	field	par_id
	line	591
	colm	88
	synt	any
	invoke	1
	line	591
	colm	76
	synt	any
	cat
	line	591
	colm	14
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	592
	colm	63
	synt	any
	plus
	line	592
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	592
	colm	100
	synt	any
	field	par_signature
	line	592
	colm	95
	synt	any
	invoke	1
	line	592
	colm	83
	synt	any
	cat
	line	592
	colm	14
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	593
	colm	62
	synt	any
	plus
	line	593
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	593
	colm	99
	synt	any
	field	displacement
	line	593
	colm	94
	synt	any
	invoke	1
	line	593
	colm	82
	synt	any
	cat
	line	593
	colm	14
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	594
	colm	55
	synt	any
	plus
	line	594
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	594
	colm	92
	synt	any
	field	level
	line	594
	colm	87
	synt	any
	invoke	1
	line	594
	colm	75
	synt	any
	cat
	line	594
	colm	14
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	595
	colm	73
	synt	any
	plus
	line	595
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	595
	colm	110
	synt	any
	field	par_previous_definition
	line	595
	colm	105
	synt	any
	invoke	1
	line	595
	colm	93
	synt	any
	cat
	line	595
	colm	14
	synt	any
	invoke	2
	unmark
lab L8
	mark	L9
	var	2
	var	1
	pnull
	var	3
	str	6
	pnull
	int	1
	var	4
	line	596
	colm	59
	synt	any
	plus
	line	596
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	596
	colm	96
	synt	any
	field	par_scope
	line	596
	colm	91
	synt	any
	invoke	1
	line	596
	colm	79
	synt	any
	cat
	line	596
	colm	14
	synt	any
	invoke	2
	unmark
lab L9
	var	2
	var	1
	pnull
	var	3
	str	7
	pnull
	int	1
	var	4
	line	597
	colm	62
	synt	any
	plus
	line	597
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	597
	colm	99
	synt	any
	field	par_only_def
	line	597
	colm	94
	synt	any
	invoke	1
	line	597
	colm	82
	synt	any
	cat
	line	597
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	599
	colm	1
	synt	any
	pfail
	end
proc ParameterNode_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	local	4,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	600
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	602
	colm	14
	synt	any
	field	__m
	line	602
	colm	18
	synt	any
	field	Node
	line	602
	colm	23
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	602
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	603
	colm	14
	synt	any
	field	__m
	line	603
	colm	18
	synt	any
	field	ConsNode
	line	603
	colm	27
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	603
	colm	37
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	var	4
	var	2
	var	3
	var	1
	str	0
	pnull
	var	0
	line	605
	colm	76
	synt	any
	field	par_id
	line	605
	colm	23
	synt	any
	invoke	5
	unmark
lab L3
	mark	L4
	var	4
	var	2
	var	3
	var	1
	str	1
	pnull
	var	0
	line	606
	colm	83
	synt	any
	field	par_signature
	line	606
	colm	23
	synt	any
	invoke	5
	unmark
lab L4
	mark	L5
	var	4
	var	2
	var	3
	var	1
	str	2
	pnull
	var	0
	line	607
	colm	82
	synt	any
	field	displacement
	line	607
	colm	23
	synt	any
	invoke	5
	unmark
lab L5
	mark	L6
	var	4
	var	2
	var	3
	var	1
	str	3
	pnull
	var	0
	line	608
	colm	75
	synt	any
	field	level
	line	608
	colm	23
	synt	any
	invoke	5
	unmark
lab L6
	mark	L7
	var	4
	var	2
	var	3
	var	1
	str	4
	pnull
	var	0
	line	609
	colm	93
	synt	any
	field	par_previous_definition
	line	609
	colm	23
	synt	any
	invoke	5
	unmark
lab L7
	mark	L8
	var	4
	var	2
	var	3
	var	1
	str	5
	pnull
	var	0
	line	610
	colm	79
	synt	any
	field	par_scope
	line	610
	colm	23
	synt	any
	invoke	5
	unmark
lab L8
	mark	L9
	var	4
	var	2
	var	3
	var	1
	str	6
	pnull
	var	0
	line	611
	colm	82
	synt	any
	field	par_only_def
	line	611
	colm	23
	synt	any
	invoke	5
	unmark
lab L9
	pnull
	line	612
	colm	1
	synt	any
	pfail
	end
proc ParameterNode_initially
	local	0,001000,self
	local	1,001000,par_id
	local	2,001000,par_signature
	local	3,001000,displacement
	local	4,001000,level
	local	5,001000,par_previous_definition
	local	6,001000,par_scope
	local	7,001000,par_only_def
	local	8,001000,kind
	local	9,001000,vlineno
	local	10,001000,pre_num
	local	11,001000,post_num
	local	12,001000,cn_hd
	local	13,001000,cn_tl
	local	14,000000,emptylist
	declend
	line	613
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	615
	colm	14
	synt	any
	field	__m
	line	615
	colm	18
	synt	any
	field	ConsNode
	line	615
	colm	27
	synt	any
	field	initially
	var	0
	var	12
	var	13
	line	615
	colm	38
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	616
	colm	14
	synt	any
	field	__m
	line	616
	colm	18
	synt	any
	field	Node
	line	616
	colm	23
	synt	any
	field	initially
	var	0
	var	8
	var	9
	var	10
	var	11
	line	616
	colm	34
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	618
	colm	13
	synt	any
	field	par_signature
	var	14
	line	618
	colm	40
	synt	any
	invoke	0
	line	618
	colm	28
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	pnull
	var	0
	line	619
	colm	13
	synt	any
	field	par_previous_definition
	var	14
	line	619
	colm	50
	synt	any
	invoke	0
	line	619
	colm	38
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	0
	line	620
	colm	13
	synt	any
	field	par_scope
	var	14
	line	620
	colm	37
	synt	any
	invoke	0
	line	620
	colm	25
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	0
	line	621
	colm	13
	synt	any
	field	par_only_def
	var	14
	line	621
	colm	39
	synt	any
	invoke	0
	line	621
	colm	27
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	mark	L8
	pnull
	line	622
	colm	7
	synt	any
	pret
lab L8
	synt	any
	pfail
	unmark
lab L7
	pnull
	line	623
	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,cn_hd
	local	12,001000,cn_tl
	local	13,000020,self
	local	14,000020,clone
	local	15,000000,ParameterNode__oprec
	local	16,000000,ParameterNodeinitialize
	local	17,000000,Node__oprec
	local	18,000000,Nodeinitialize
	local	19,000000,ConsNode__oprec
	local	20,000000,ConsNodeinitialize
	local	21,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	15
	line	8
	colm	6
	synt	any
	null
	unmark
	var	16
	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	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	23
	synt	any
	field	Node
	var	17
	line	10
	colm	29
	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	23
	synt	any
	field	ConsNode
	var	19
	line	12
	colm	33
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	13
	var	21
	line	14
	colm	32
	synt	any
	keywd	null
	var	15
	line	14
	colm	31
	synt	any
	invoke	2
	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
	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	16
	colm	21
	synt	any
	invoke	14
	line	16
	colm	157
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	159
	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 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	624
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	625
	colm	14
	synt	any
	field	__m
	line	625
	colm	18
	synt	any
	field	Node
	line	625
	colm	23
	synt	any
	field	trace_node
	var	0
	line	625
	colm	34
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	626
	colm	14
	synt	any
	field	__m
	line	626
	colm	18
	synt	any
	field	ConsNode
	line	626
	colm	27
	synt	any
	field	trace_node
	var	0
	line	626
	colm	38
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	627
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	628
	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	630
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	632
	colm	14
	synt	any
	field	__m
	line	632
	colm	18
	synt	any
	field	Node
	line	632
	colm	23
	synt	any
	field	dump
	var	0
	var	1
	line	632
	colm	28
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	633
	colm	14
	synt	any
	field	__m
	line	633
	colm	18
	synt	any
	field	ConsNode
	line	633
	colm	27
	synt	any
	field	dump
	var	0
	var	1
	line	633
	colm	32
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	635
	colm	55
	synt	any
	plus
	line	635
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	635
	colm	92
	synt	any
	field	re_id
	line	635
	colm	87
	synt	any
	invoke	1
	line	635
	colm	75
	synt	any
	cat
	line	635
	colm	14
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	636
	colm	63
	synt	any
	plus
	line	636
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	636
	colm	100
	synt	any
	field	re_denotation
	line	636
	colm	95
	synt	any
	invoke	1
	line	636
	colm	83
	synt	any
	cat
	line	636
	colm	14
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	637
	colm	62
	synt	any
	plus
	line	637
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	637
	colm	99
	synt	any
	field	re_New_index
	line	637
	colm	94
	synt	any
	invoke	1
	line	637
	colm	82
	synt	any
	cat
	line	637
	colm	14
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	638
	colm	66
	synt	any
	plus
	line	638
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	638
	colm	103
	synt	any
	field	re_ValueOf_index
	line	638
	colm	98
	synt	any
	invoke	1
	line	638
	colm	86
	synt	any
	cat
	line	638
	colm	14
	synt	any
	invoke	2
	unmark
lab L7
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	639
	colm	65
	synt	any
	plus
	line	639
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	639
	colm	102
	synt	any
	field	re_assign_index
	line	639
	colm	97
	synt	any
	invoke	1
	line	639
	colm	85
	synt	any
	cat
	line	639
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	641
	colm	1
	synt	any
	pfail
	end
proc RElementNode_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	local	4,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	642
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	644
	colm	14
	synt	any
	field	__m
	line	644
	colm	18
	synt	any
	field	Node
	line	644
	colm	23
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	644
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	645
	colm	14
	synt	any
	field	__m
	line	645
	colm	18
	synt	any
	field	ConsNode
	line	645
	colm	27
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	645
	colm	37
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	var	4
	var	2
	var	3
	var	1
	str	0
	pnull
	var	0
	line	647
	colm	75
	synt	any
	field	re_id
	line	647
	colm	23
	synt	any
	invoke	5
	unmark
lab L3
	mark	L4
	var	4
	var	2
	var	3
	var	1
	str	1
	pnull
	var	0
	line	648
	colm	83
	synt	any
	field	re_denotation
	line	648
	colm	23
	synt	any
	invoke	5
	unmark
lab L4
	mark	L5
	var	4
	var	2
	var	3
	var	1
	str	2
	pnull
	var	0
	line	649
	colm	82
	synt	any
	field	re_New_index
	line	649
	colm	23
	synt	any
	invoke	5
	unmark
lab L5
	mark	L6
	var	4
	var	2
	var	3
	var	1
	str	3
	pnull
	var	0
	line	650
	colm	86
	synt	any
	field	re_ValueOf_index
	line	650
	colm	23
	synt	any
	invoke	5
	unmark
lab L6
	mark	L7
	var	4
	var	2
	var	3
	var	1
	str	4
	pnull
	var	0
	line	651
	colm	85
	synt	any
	field	re_assign_index
	line	651
	colm	23
	synt	any
	invoke	5
	unmark
lab L7
	pnull
	line	652
	colm	1
	synt	any
	pfail
	end
proc RElementNode_initially
	local	0,001000,self
	local	1,001000,re_id
	local	2,001000,re_denotation
	local	3,001000,re_New_index
	local	4,001000,re_ValueOf_index
	local	5,001000,re_assign_index
	local	6,001000,kind
	local	7,001000,vlineno
	local	8,001000,pre_num
	local	9,001000,post_num
	local	10,001000,cn_hd
	local	11,001000,cn_tl
	declend
	line	653
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	655
	colm	14
	synt	any
	field	__m
	line	655
	colm	18
	synt	any
	field	ConsNode
	line	655
	colm	27
	synt	any
	field	initially
	var	0
	var	10
	var	11
	line	655
	colm	38
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	656
	colm	14
	synt	any
	field	__m
	line	656
	colm	18
	synt	any
	field	Node
	line	656
	colm	23
	synt	any
	field	initially
	var	0
	var	6
	var	7
	var	8
	var	9
	line	656
	colm	34
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	657
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	658
	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,cn_hd
	local	10,001000,cn_tl
	local	11,000020,self
	local	12,000020,clone
	local	13,000000,RElementNode__oprec
	local	14,000000,RElementNodeinitialize
	local	15,000000,Node__oprec
	local	16,000000,Nodeinitialize
	local	17,000000,ConsNode__oprec
	local	18,000000,ConsNodeinitialize
	local	19,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	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
	line	14
	colm	30
	synt	any
	invoke	2
	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
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	line	16
	colm	21
	synt	any
	invoke	12
	line	16
	colm	136
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	138
	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 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	660
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	661
	colm	14
	synt	any
	field	__m
	line	661
	colm	18
	synt	any
	field	Node
	line	661
	colm	23
	synt	any
	field	trace_node
	var	0
	line	661
	colm	34
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	662
	colm	14
	synt	any
	field	__m
	line	662
	colm	18
	synt	any
	field	ConsNode
	line	662
	colm	27
	synt	any
	field	trace_node
	var	0
	line	662
	colm	38
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	663
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	664
	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	665
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	667
	colm	14
	synt	any
	field	__m
	line	667
	colm	18
	synt	any
	field	Node
	line	667
	colm	23
	synt	any
	field	dump
	var	0
	var	1
	line	667
	colm	28
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	668
	colm	14
	synt	any
	field	__m
	line	668
	colm	18
	synt	any
	field	ConsNode
	line	668
	colm	27
	synt	any
	field	dump
	var	0
	var	1
	line	668
	colm	32
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	669
	colm	59
	synt	any
	plus
	line	669
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	669
	colm	96
	synt	any
	field	signature
	line	669
	colm	91
	synt	any
	invoke	1
	line	669
	colm	79
	synt	any
	cat
	line	669
	colm	14
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	670
	colm	58
	synt	any
	plus
	line	670
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	670
	colm	95
	synt	any
	field	sig_done
	line	670
	colm	90
	synt	any
	invoke	1
	line	670
	colm	78
	synt	any
	cat
	line	670
	colm	14
	synt	any
	invoke	2
	unmark
lab L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	671
	colm	64
	synt	any
	plus
	line	671
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	671
	colm	101
	synt	any
	field	var_denotation
	line	671
	colm	96
	synt	any
	invoke	1
	line	671
	colm	84
	synt	any
	cat
	line	671
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	673
	colm	1
	synt	any
	pfail
	end
proc VarSignature_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	local	4,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	674
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	676
	colm	14
	synt	any
	field	__m
	line	676
	colm	18
	synt	any
	field	Node
	line	676
	colm	23
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	676
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	677
	colm	14
	synt	any
	field	__m
	line	677
	colm	18
	synt	any
	field	ConsNode
	line	677
	colm	27
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	677
	colm	37
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	var	4
	var	2
	var	3
	var	1
	str	0
	pnull
	var	0
	line	678
	colm	79
	synt	any
	field	signature
	line	678
	colm	23
	synt	any
	invoke	5
	unmark
lab L3
	mark	L4
	var	4
	var	2
	var	3
	var	1
	str	1
	pnull
	var	0
	line	679
	colm	78
	synt	any
	field	sig_done
	line	679
	colm	23
	synt	any
	invoke	5
	unmark
lab L4
	mark	L5
	var	4
	var	2
	var	3
	var	1
	str	2
	pnull
	var	0
	line	680
	colm	84
	synt	any
	field	var_denotation
	line	680
	colm	23
	synt	any
	invoke	5
	unmark
lab L5
	pnull
	line	681
	colm	1
	synt	any
	pfail
	end
proc VarSignature_initially
	local	0,001000,self
	local	1,001000,signature
	local	2,001000,sig_done
	local	3,001000,var_denotation
	local	4,001000,kind
	local	5,001000,vlineno
	local	6,001000,pre_num
	local	7,001000,post_num
	local	8,001000,cn_hd
	local	9,001000,cn_tl
	local	10,000000,emptylist
	declend
	line	682
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	684
	colm	14
	synt	any
	field	__m
	line	684
	colm	18
	synt	any
	field	ConsNode
	line	684
	colm	27
	synt	any
	field	initially
	var	0
	var	8
	var	9
	line	684
	colm	38
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	685
	colm	14
	synt	any
	field	__m
	line	685
	colm	18
	synt	any
	field	Node
	line	685
	colm	23
	synt	any
	field	initially
	var	0
	var	4
	var	5
	var	6
	var	7
	line	685
	colm	34
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	687
	colm	13
	synt	any
	field	signature
	var	10
	line	687
	colm	36
	synt	any
	invoke	0
	line	687
	colm	24
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	pnull
	var	0
	line	688
	colm	13
	synt	any
	field	var_denotation
	var	10
	line	688
	colm	41
	synt	any
	invoke	0
	line	688
	colm	29
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	mark	L6
	pnull
	line	689
	colm	7
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	690
	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,cn_hd
	local	8,001000,cn_tl
	local	9,000020,self
	local	10,000020,clone
	local	11,000000,VarSignature__oprec
	local	12,000000,VarSignatureinitialize
	local	13,000000,Node__oprec
	local	14,000000,Nodeinitialize
	local	15,000000,ConsNode__oprec
	local	16,000000,ConsNodeinitialize
	local	17,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	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
	line	14
	colm	30
	synt	any
	invoke	2
	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
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	line	16
	colm	21
	synt	any
	invoke	10
	line	16
	colm	104
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	106
	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 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	691
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	692
	colm	14
	synt	any
	field	__m
	line	692
	colm	18
	synt	any
	field	Node
	line	692
	colm	23
	synt	any
	field	trace_node
	var	0
	line	692
	colm	34
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	693
	colm	14
	synt	any
	field	__m
	line	693
	colm	18
	synt	any
	field	ConsNode
	line	693
	colm	27
	synt	any
	field	trace_node
	var	0
	line	693
	colm	38
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	694
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	695
	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	697
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	699
	colm	14
	synt	any
	field	__m
	line	699
	colm	18
	synt	any
	field	Node
	line	699
	colm	23
	synt	any
	field	dump
	var	0
	var	1
	line	699
	colm	28
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	700
	colm	14
	synt	any
	field	__m
	line	700
	colm	18
	synt	any
	field	ConsNode
	line	700
	colm	27
	synt	any
	field	dump
	var	0
	var	1
	line	700
	colm	32
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	702
	colm	59
	synt	any
	plus
	line	702
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	702
	colm	96
	synt	any
	field	signature
	line	702
	colm	91
	synt	any
	invoke	1
	line	702
	colm	79
	synt	any
	cat
	line	702
	colm	14
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	703
	colm	58
	synt	any
	plus
	line	703
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	703
	colm	95
	synt	any
	field	sig_done
	line	703
	colm	90
	synt	any
	invoke	1
	line	703
	colm	78
	synt	any
	cat
	line	703
	colm	14
	synt	any
	invoke	2
	unmark
lab L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	704
	colm	64
	synt	any
	plus
	line	704
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	704
	colm	101
	synt	any
	field	val_denotation
	line	704
	colm	96
	synt	any
	invoke	1
	line	704
	colm	84
	synt	any
	cat
	line	704
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	706
	colm	1
	synt	any
	pfail
	end
proc ValSignature_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	local	4,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	707
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	709
	colm	14
	synt	any
	field	__m
	line	709
	colm	18
	synt	any
	field	Node
	line	709
	colm	23
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	709
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	710
	colm	14
	synt	any
	field	__m
	line	710
	colm	18
	synt	any
	field	ConsNode
	line	710
	colm	27
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	710
	colm	37
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	var	4
	var	2
	var	3
	var	1
	str	0
	pnull
	var	0
	line	712
	colm	79
	synt	any
	field	signature
	line	712
	colm	23
	synt	any
	invoke	5
	unmark
lab L3
	mark	L4
	var	4
	var	2
	var	3
	var	1
	str	1
	pnull
	var	0
	line	713
	colm	78
	synt	any
	field	sig_done
	line	713
	colm	23
	synt	any
	invoke	5
	unmark
lab L4
	mark	L5
	var	4
	var	2
	var	3
	var	1
	str	2
	pnull
	var	0
	line	714
	colm	84
	synt	any
	field	val_denotation
	line	714
	colm	23
	synt	any
	invoke	5
	unmark
lab L5
	pnull
	line	715
	colm	1
	synt	any
	pfail
	end
proc ValSignature_initially
	local	0,001000,self
	local	1,001000,signature
	local	2,001000,sig_done
	local	3,001000,val_denotation
	local	4,001000,kind
	local	5,001000,vlineno
	local	6,001000,pre_num
	local	7,001000,post_num
	local	8,001000,cn_hd
	local	9,001000,cn_tl
	local	10,000000,emptylist
	declend
	line	716
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	718
	colm	14
	synt	any
	field	__m
	line	718
	colm	18
	synt	any
	field	ConsNode
	line	718
	colm	27
	synt	any
	field	initially
	var	0
	var	8
	var	9
	line	718
	colm	38
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	719
	colm	14
	synt	any
	field	__m
	line	719
	colm	18
	synt	any
	field	Node
	line	719
	colm	23
	synt	any
	field	initially
	var	0
	var	4
	var	5
	var	6
	var	7
	line	719
	colm	34
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	721
	colm	13
	synt	any
	field	signature
	var	10
	line	721
	colm	36
	synt	any
	invoke	0
	line	721
	colm	24
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	pnull
	var	0
	line	722
	colm	13
	synt	any
	field	val_denotation
	var	10
	line	722
	colm	41
	synt	any
	invoke	0
	line	722
	colm	29
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	mark	L6
	pnull
	line	723
	colm	7
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	724
	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,cn_hd
	local	8,001000,cn_tl
	local	9,000020,self
	local	10,000020,clone
	local	11,000000,ValSignature__oprec
	local	12,000000,ValSignatureinitialize
	local	13,000000,Node__oprec
	local	14,000000,Nodeinitialize
	local	15,000000,ConsNode__oprec
	local	16,000000,ConsNodeinitialize
	local	17,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	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
	line	14
	colm	30
	synt	any
	invoke	2
	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
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	line	16
	colm	21
	synt	any
	invoke	10
	line	16
	colm	104
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	106
	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 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	725
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	726
	colm	14
	synt	any
	field	__m
	line	726
	colm	18
	synt	any
	field	Node
	line	726
	colm	23
	synt	any
	field	trace_node
	var	0
	line	726
	colm	34
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	727
	colm	14
	synt	any
	field	__m
	line	727
	colm	18
	synt	any
	field	ConsNode
	line	727
	colm	27
	synt	any
	field	trace_node
	var	0
	line	727
	colm	38
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	728
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	729
	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	730
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	732
	colm	14
	synt	any
	field	__m
	line	732
	colm	18
	synt	any
	field	Node
	line	732
	colm	23
	synt	any
	field	dump
	var	0
	var	1
	line	732
	colm	28
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	733
	colm	14
	synt	any
	field	__m
	line	733
	colm	18
	synt	any
	field	ConsNode
	line	733
	colm	27
	synt	any
	field	dump
	var	0
	var	1
	line	733
	colm	32
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	734
	colm	59
	synt	any
	plus
	line	734
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	734
	colm	96
	synt	any
	field	signature
	line	734
	colm	91
	synt	any
	invoke	1
	line	734
	colm	79
	synt	any
	cat
	line	734
	colm	14
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	735
	colm	58
	synt	any
	plus
	line	735
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	735
	colm	95
	synt	any
	field	sig_done
	line	735
	colm	90
	synt	any
	invoke	1
	line	735
	colm	78
	synt	any
	cat
	line	735
	colm	14
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	736
	colm	67
	synt	any
	plus
	line	736
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	736
	colm	104
	synt	any
	field	fsig_construction
	line	736
	colm	99
	synt	any
	invoke	1
	line	736
	colm	87
	synt	any
	cat
	line	736
	colm	14
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	737
	colm	62
	synt	any
	plus
	line	737
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	737
	colm	99
	synt	any
	field	fsig_special
	line	737
	colm	94
	synt	any
	invoke	1
	line	737
	colm	82
	synt	any
	cat
	line	737
	colm	14
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	738
	colm	66
	synt	any
	plus
	line	738
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	738
	colm	103
	synt	any
	field	fsig_slink_known
	line	738
	colm	98
	synt	any
	invoke	1
	line	738
	colm	86
	synt	any
	cat
	line	738
	colm	14
	synt	any
	invoke	2
	unmark
lab L8
	mark	L9
	var	2
	var	1
	pnull
	var	3
	str	6
	pnull
	int	1
	var	4
	line	739
	colm	66
	synt	any
	plus
	line	739
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	739
	colm	103
	synt	any
	field	fsig_inline_code
	line	739
	colm	98
	synt	any
	invoke	1
	line	739
	colm	86
	synt	any
	cat
	line	739
	colm	14
	synt	any
	invoke	2
	unmark
lab L9
	mark	L10
	var	2
	var	1
	pnull
	var	3
	str	7
	pnull
	int	1
	var	4
	line	740
	colm	65
	synt	any
	plus
	line	740
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	740
	colm	102
	synt	any
	field	fsig_param_list
	line	740
	colm	97
	synt	any
	invoke	1
	line	740
	colm	85
	synt	any
	cat
	line	740
	colm	14
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	var	2
	var	1
	pnull
	var	3
	str	8
	pnull
	int	1
	var	4
	line	741
	colm	65
	synt	any
	plus
	line	741
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	741
	colm	102
	synt	any
	field	fsig_result_sig
	line	741
	colm	97
	synt	any
	invoke	1
	line	741
	colm	85
	synt	any
	cat
	line	741
	colm	14
	synt	any
	invoke	2
	unmark
lab L11
	var	2
	var	1
	pnull
	var	3
	str	9
	pnull
	int	1
	var	4
	line	742
	colm	63
	synt	any
	plus
	line	742
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	742
	colm	100
	synt	any
	field	fc_code_label
	line	742
	colm	95
	synt	any
	invoke	1
	line	742
	colm	83
	synt	any
	cat
	line	742
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	744
	colm	1
	synt	any
	pfail
	end
proc FSignature_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	local	4,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	745
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	747
	colm	14
	synt	any
	field	__m
	line	747
	colm	18
	synt	any
	field	Node
	line	747
	colm	23
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	747
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	748
	colm	14
	synt	any
	field	__m
	line	748
	colm	18
	synt	any
	field	ConsNode
	line	748
	colm	27
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	748
	colm	37
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	var	4
	var	2
	var	3
	var	1
	str	0
	pnull
	var	0
	line	749
	colm	79
	synt	any
	field	signature
	line	749
	colm	23
	synt	any
	invoke	5
	unmark
lab L3
	mark	L4
	var	4
	var	2
	var	3
	var	1
	str	1
	pnull
	var	0
	line	750
	colm	78
	synt	any
	field	sig_done
	line	750
	colm	23
	synt	any
	invoke	5
	unmark
lab L4
	mark	L5
	var	4
	var	2
	var	3
	var	1
	str	2
	pnull
	var	0
	line	751
	colm	87
	synt	any
	field	fsig_construction
	line	751
	colm	23
	synt	any
	invoke	5
	unmark
lab L5
	mark	L6
	var	4
	var	2
	var	3
	var	1
	str	3
	pnull
	var	0
	line	752
	colm	82
	synt	any
	field	fsig_special
	line	752
	colm	23
	synt	any
	invoke	5
	unmark
lab L6
	mark	L7
	var	4
	var	2
	var	3
	var	1
	str	4
	pnull
	var	0
	line	753
	colm	86
	synt	any
	field	fsig_slink_known
	line	753
	colm	23
	synt	any
	invoke	5
	unmark
lab L7
	mark	L8
	var	4
	var	2
	var	3
	var	1
	str	5
	pnull
	var	0
	line	754
	colm	86
	synt	any
	field	fsig_inline_code
	line	754
	colm	23
	synt	any
	invoke	5
	unmark
lab L8
	mark	L9
	var	4
	var	2
	var	3
	var	1
	str	6
	pnull
	var	0
	line	755
	colm	85
	synt	any
	field	fsig_param_list
	line	755
	colm	23
	synt	any
	invoke	5
	unmark
lab L9
	mark	L10
	var	4
	var	2
	var	3
	var	1
	str	7
	pnull
	var	0
	line	756
	colm	85
	synt	any
	field	fsig_result_sig
	line	756
	colm	23
	synt	any
	invoke	5
	unmark
lab L10
	mark	L11
	var	4
	var	2
	var	3
	var	1
	str	8
	pnull
	var	0
	line	757
	colm	83
	synt	any
	field	fc_code_label
	line	757
	colm	23
	synt	any
	invoke	5
	unmark
lab L11
	pnull
	line	758
	colm	1
	synt	any
	pfail
	end
proc FSignature_initially
	local	0,001000,self
	local	1,001000,signature
	local	2,001000,sig_done
	local	3,001000,fsig_construction
	local	4,001000,fsig_special
	local	5,001000,fsig_slink_known
	local	6,001000,fsig_inline_code
	local	7,001000,fsig_param_list
	local	8,001000,fsig_result_sig
	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,cn_hd
	local	15,001000,cn_tl
	local	16,000000,emptylist
	declend
	line	759
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	761
	colm	14
	synt	any
	field	__m
	line	761
	colm	18
	synt	any
	field	ConsNode
	line	761
	colm	27
	synt	any
	field	initially
	var	0
	var	14
	var	15
	line	761
	colm	38
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	762
	colm	14
	synt	any
	field	__m
	line	762
	colm	18
	synt	any
	field	Node
	line	762
	colm	23
	synt	any
	field	initially
	var	0
	var	10
	var	11
	var	12
	var	13
	line	762
	colm	34
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	764
	colm	13
	synt	any
	field	fsig_param_list
	var	16
	line	764
	colm	42
	synt	any
	invoke	0
	line	764
	colm	30
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	line	765
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	766
	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,cn_hd
	local	14,001000,cn_tl
	local	15,000020,self
	local	16,000020,clone
	local	17,000000,FSignature__oprec
	local	18,000000,FSignatureinitialize
	local	19,000000,Node__oprec
	local	20,000000,Nodeinitialize
	local	21,000000,ConsNode__oprec
	local	22,000000,ConsNodeinitialize
	local	23,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	17
	line	8
	colm	6
	synt	any
	null
	unmark
	var	18
	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	19
	line	9
	colm	6
	synt	any
	null
	unmark
	var	20
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	17
	line	10
	colm	20
	synt	any
	field	Node
	var	19
	line	10
	colm	26
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	21
	line	11
	colm	6
	synt	any
	null
	unmark
	var	22
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	17
	line	12
	colm	20
	synt	any
	field	ConsNode
	var	21
	line	12
	colm	30
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	15
	var	23
	line	14
	colm	29
	synt	any
	keywd	null
	var	17
	line	14
	colm	28
	synt	any
	invoke	2
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	15
	line	15
	colm	7
	synt	any
	field	__s
	var	15
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	15
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	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
	var	13
	var	14
	line	16
	colm	21
	synt	any
	invoke	16
	line	16
	colm	200
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	202
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	15
	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	767
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	768
	colm	14
	synt	any
	field	__m
	line	768
	colm	18
	synt	any
	field	Node
	line	768
	colm	23
	synt	any
	field	trace_node
	var	0
	line	768
	colm	34
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	769
	colm	14
	synt	any
	field	__m
	line	769
	colm	18
	synt	any
	field	ConsNode
	line	769
	colm	27
	synt	any
	field	trace_node
	var	0
	line	769
	colm	38
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	770
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	771
	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	772
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	774
	colm	14
	synt	any
	field	__m
	line	774
	colm	18
	synt	any
	field	Node
	line	774
	colm	23
	synt	any
	field	dump
	var	0
	var	1
	line	774
	colm	28
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	775
	colm	14
	synt	any
	field	__m
	line	775
	colm	18
	synt	any
	field	ConsNode
	line	775
	colm	27
	synt	any
	field	dump
	var	0
	var	1
	line	775
	colm	32
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	776
	colm	59
	synt	any
	plus
	line	776
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	776
	colm	96
	synt	any
	field	signature
	line	776
	colm	91
	synt	any
	invoke	1
	line	776
	colm	79
	synt	any
	cat
	line	776
	colm	14
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	777
	colm	58
	synt	any
	plus
	line	777
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	777
	colm	95
	synt	any
	field	sig_done
	line	777
	colm	90
	synt	any
	invoke	1
	line	777
	colm	78
	synt	any
	cat
	line	777
	colm	14
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	778
	colm	64
	synt	any
	plus
	line	778
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	778
	colm	101
	synt	any
	field	ts_simple_type
	line	778
	colm	96
	synt	any
	invoke	1
	line	778
	colm	84
	synt	any
	cat
	line	778
	colm	14
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	779
	colm	66
	synt	any
	plus
	line	779
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	779
	colm	103
	synt	any
	field	ts_local_type_id
	line	779
	colm	98
	synt	any
	invoke	1
	line	779
	colm	86
	synt	any
	cat
	line	779
	colm	14
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	780
	colm	58
	synt	any
	plus
	line	780
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	780
	colm	95
	synt	any
	field	ts_clist
	line	780
	colm	90
	synt	any
	invoke	1
	line	780
	colm	78
	synt	any
	cat
	line	780
	colm	14
	synt	any
	invoke	2
	unmark
lab L8
	mark	L9
	var	2
	var	1
	pnull
	var	3
	str	6
	pnull
	int	1
	var	4
	line	781
	colm	72
	synt	any
	plus
	line	781
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	781
	colm	109
	synt	any
	field	ts_previous_definition
	line	781
	colm	104
	synt	any
	invoke	1
	line	781
	colm	92
	synt	any
	cat
	line	781
	colm	14
	synt	any
	invoke	2
	unmark
lab L9
	mark	L10
	var	2
	var	1
	pnull
	var	3
	str	7
	pnull
	int	1
	var	4
	line	782
	colm	63
	synt	any
	plus
	line	782
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	782
	colm	100
	synt	any
	field	ts_const_code
	line	782
	colm	95
	synt	any
	invoke	1
	line	782
	colm	83
	synt	any
	cat
	line	782
	colm	14
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	var	2
	var	1
	pnull
	var	3
	str	8
	pnull
	int	1
	var	4
	line	783
	colm	64
	synt	any
	plus
	line	783
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	783
	colm	101
	synt	any
	field	ts_string_code
	line	783
	colm	96
	synt	any
	invoke	1
	line	783
	colm	84
	synt	any
	cat
	line	783
	colm	14
	synt	any
	invoke	2
	unmark
lab L11
	mark	L12
	var	2
	var	1
	pnull
	var	3
	str	9
	pnull
	int	1
	var	4
	line	784
	colm	65
	synt	any
	plus
	line	784
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	784
	colm	102
	synt	any
	field	ts_element_code
	line	784
	colm	97
	synt	any
	invoke	1
	line	784
	colm	85
	synt	any
	cat
	line	784
	colm	14
	synt	any
	invoke	2
	unmark
lab L12
	mark	L13
	var	2
	var	1
	pnull
	var	3
	str	10
	pnull
	int	1
	var	4
	line	785
	colm	63
	synt	any
	plus
	line	785
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	785
	colm	100
	synt	any
	field	ts_string_max
	line	785
	colm	95
	synt	any
	invoke	1
	line	785
	colm	83
	synt	any
	cat
	line	785
	colm	14
	synt	any
	invoke	2
	unmark
lab L13
	var	2
	var	1
	pnull
	var	3
	str	11
	pnull
	int	1
	var	4
	line	786
	colm	64
	synt	any
	plus
	line	786
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	786
	colm	101
	synt	any
	field	ts_meta_concat
	line	786
	colm	96
	synt	any
	invoke	1
	line	786
	colm	84
	synt	any
	cat
	line	786
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	788
	colm	1
	synt	any
	pfail
	end
proc TSignature_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	local	4,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	789
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	791
	colm	14
	synt	any
	field	__m
	line	791
	colm	18
	synt	any
	field	Node
	line	791
	colm	23
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	791
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	792
	colm	14
	synt	any
	field	__m
	line	792
	colm	18
	synt	any
	field	ConsNode
	line	792
	colm	27
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	792
	colm	37
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	var	4
	var	2
	var	3
	var	1
	str	0
	pnull
	var	0
	line	793
	colm	79
	synt	any
	field	signature
	line	793
	colm	23
	synt	any
	invoke	5
	unmark
lab L3
	mark	L4
	var	4
	var	2
	var	3
	var	1
	str	1
	pnull
	var	0
	line	794
	colm	78
	synt	any
	field	sig_done
	line	794
	colm	23
	synt	any
	invoke	5
	unmark
lab L4
	mark	L5
	var	4
	var	2
	var	3
	var	1
	str	2
	pnull
	var	0
	line	795
	colm	84
	synt	any
	field	ts_simple_type
	line	795
	colm	23
	synt	any
	invoke	5
	unmark
lab L5
	mark	L6
	var	4
	var	2
	var	3
	var	1
	str	3
	pnull
	var	0
	line	796
	colm	86
	synt	any
	field	ts_local_type_id
	line	796
	colm	23
	synt	any
	invoke	5
	unmark
lab L6
	mark	L7
	var	4
	var	2
	var	3
	var	1
	str	4
	pnull
	var	0
	line	797
	colm	78
	synt	any
	field	ts_clist
	line	797
	colm	23
	synt	any
	invoke	5
	unmark
lab L7
	mark	L8
	var	4
	var	2
	var	3
	var	1
	str	5
	pnull
	var	0
	line	798
	colm	92
	synt	any
	field	ts_previous_definition
	line	798
	colm	23
	synt	any
	invoke	5
	unmark
lab L8
	mark	L9
	var	4
	var	2
	var	3
	var	1
	str	6
	pnull
	var	0
	line	799
	colm	83
	synt	any
	field	ts_const_code
	line	799
	colm	23
	synt	any
	invoke	5
	unmark
lab L9
	mark	L10
	var	4
	var	2
	var	3
	var	1
	str	7
	pnull
	var	0
	line	800
	colm	84
	synt	any
	field	ts_string_code
	line	800
	colm	23
	synt	any
	invoke	5
	unmark
lab L10
	mark	L11
	var	4
	var	2
	var	3
	var	1
	str	8
	pnull
	var	0
	line	801
	colm	85
	synt	any
	field	ts_element_code
	line	801
	colm	23
	synt	any
	invoke	5
	unmark
lab L11
	mark	L12
	var	4
	var	2
	var	3
	var	1
	str	9
	pnull
	var	0
	line	802
	colm	83
	synt	any
	field	ts_string_max
	line	802
	colm	23
	synt	any
	invoke	5
	unmark
lab L12
	mark	L13
	var	4
	var	2
	var	3
	var	1
	str	10
	pnull
	var	0
	line	803
	colm	84
	synt	any
	field	ts_meta_concat
	line	803
	colm	23
	synt	any
	invoke	5
	unmark
lab L13
	pnull
	line	804
	colm	1
	synt	any
	pfail
	end
proc TSignature_initially
	local	0,001000,self
	local	1,001000,signature
	local	2,001000,sig_done
	local	3,001000,ts_simple_type
	local	4,001000,ts_local_type_id
	local	5,001000,ts_clist
	local	6,001000,ts_previous_definition
	local	7,001000,ts_const_code
	local	8,001000,ts_string_code
	local	9,001000,ts_element_code
	local	10,001000,ts_string_max
	local	11,001000,ts_meta_concat
	local	12,001000,kind
	local	13,001000,vlineno
	local	14,001000,pre_num
	local	15,001000,post_num
	local	16,001000,cn_hd
	local	17,001000,cn_tl
	local	18,000000,emptylist
	declend
	line	805
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	807
	colm	14
	synt	any
	field	__m
	line	807
	colm	18
	synt	any
	field	ConsNode
	line	807
	colm	27
	synt	any
	field	initially
	var	0
	var	16
	var	17
	line	807
	colm	38
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	808
	colm	14
	synt	any
	field	__m
	line	808
	colm	18
	synt	any
	field	Node
	line	808
	colm	23
	synt	any
	field	initially
	var	0
	var	12
	var	13
	var	14
	var	15
	line	808
	colm	34
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	810
	colm	13
	synt	any
	field	ts_clist
	var	18
	line	810
	colm	35
	synt	any
	invoke	0
	line	810
	colm	23
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	line	811
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	812
	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,cn_hd
	local	16,001000,cn_tl
	local	17,000020,self
	local	18,000020,clone
	local	19,000000,TSignature__oprec
	local	20,000000,TSignatureinitialize
	local	21,000000,Node__oprec
	local	22,000000,Nodeinitialize
	local	23,000000,ConsNode__oprec
	local	24,000000,ConsNodeinitialize
	local	25,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	19
	line	8
	colm	6
	synt	any
	null
	unmark
	var	20
	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	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	20
	synt	any
	field	Node
	var	21
	line	10
	colm	26
	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	20
	synt	any
	field	ConsNode
	var	23
	line	12
	colm	30
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	17
	var	25
	line	14
	colm	29
	synt	any
	keywd	null
	var	19
	line	14
	colm	28
	synt	any
	invoke	2
	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
	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	16
	colm	21
	synt	any
	invoke	18
	line	16
	colm	227
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	229
	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 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	813
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	814
	colm	14
	synt	any
	field	__m
	line	814
	colm	18
	synt	any
	field	Node
	line	814
	colm	23
	synt	any
	field	trace_node
	var	0
	line	814
	colm	34
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	815
	colm	14
	synt	any
	field	__m
	line	815
	colm	18
	synt	any
	field	ConsNode
	line	815
	colm	27
	synt	any
	field	trace_node
	var	0
	line	815
	colm	38
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	816
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	817
	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	818
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	820
	colm	14
	synt	any
	field	__m
	line	820
	colm	18
	synt	any
	field	Node
	line	820
	colm	23
	synt	any
	field	dump
	var	0
	var	1
	line	820
	colm	28
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	821
	colm	14
	synt	any
	field	__m
	line	821
	colm	18
	synt	any
	field	ConsNode
	line	821
	colm	27
	synt	any
	field	dump
	var	0
	var	1
	line	821
	colm	32
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	823
	colm	56
	synt	any
	plus
	line	823
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	823
	colm	93
	synt	any
	field	tsc_id
	line	823
	colm	88
	synt	any
	invoke	1
	line	823
	colm	76
	synt	any
	cat
	line	823
	colm	14
	synt	any
	invoke	2
	unmark
lab L4
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	824
	colm	63
	synt	any
	plus
	line	824
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	824
	colm	100
	synt	any
	field	tsc_signature
	line	824
	colm	95
	synt	any
	invoke	1
	line	824
	colm	83
	synt	any
	cat
	line	824
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	826
	colm	1
	synt	any
	pfail
	end
proc TSComponentNode_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	local	4,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	827
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	829
	colm	14
	synt	any
	field	__m
	line	829
	colm	18
	synt	any
	field	Node
	line	829
	colm	23
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	829
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	830
	colm	14
	synt	any
	field	__m
	line	830
	colm	18
	synt	any
	field	ConsNode
	line	830
	colm	27
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	830
	colm	37
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	var	4
	var	2
	var	3
	var	1
	str	0
	pnull
	var	0
	line	832
	colm	76
	synt	any
	field	tsc_id
	line	832
	colm	23
	synt	any
	invoke	5
	unmark
lab L3
	mark	L4
	var	4
	var	2
	var	3
	var	1
	str	1
	pnull
	var	0
	line	833
	colm	83
	synt	any
	field	tsc_signature
	line	833
	colm	23
	synt	any
	invoke	5
	unmark
lab L4
	pnull
	line	834
	colm	1
	synt	any
	pfail
	end
proc TSComponentNode_initially
	local	0,001000,self
	local	1,001000,tsc_id
	local	2,001000,tsc_signature
	local	3,001000,kind
	local	4,001000,vlineno
	local	5,001000,pre_num
	local	6,001000,post_num
	local	7,001000,cn_hd
	local	8,001000,cn_tl
	declend
	line	835
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	837
	colm	14
	synt	any
	field	__m
	line	837
	colm	18
	synt	any
	field	ConsNode
	line	837
	colm	27
	synt	any
	field	initially
	var	0
	var	7
	var	8
	line	837
	colm	38
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	838
	colm	14
	synt	any
	field	__m
	line	838
	colm	18
	synt	any
	field	Node
	line	838
	colm	23
	synt	any
	field	initially
	var	0
	var	3
	var	4
	var	5
	var	6
	line	838
	colm	34
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	839
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	840
	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,cn_hd
	local	7,001000,cn_tl
	local	8,000020,self
	local	9,000020,clone
	local	10,000000,TSComponentNode__oprec
	local	11,000000,TSComponentNodeinitialize
	local	12,000000,Node__oprec
	local	13,000000,Nodeinitialize
	local	14,000000,ConsNode__oprec
	local	15,000000,ConsNodeinitialize
	local	16,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	10
	line	8
	colm	6
	synt	any
	null
	unmark
	var	11
	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	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	25
	synt	any
	field	Node
	var	12
	line	10
	colm	31
	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	25
	synt	any
	field	ConsNode
	var	14
	line	12
	colm	35
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	8
	var	16
	line	14
	colm	34
	synt	any
	keywd	null
	var	10
	line	14
	colm	33
	synt	any
	invoke	2
	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
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	line	16
	colm	21
	synt	any
	invoke	9
	line	16
	colm	91
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	93
	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 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	842
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	843
	colm	14
	synt	any
	field	__m
	line	843
	colm	18
	synt	any
	field	Node
	line	843
	colm	23
	synt	any
	field	trace_node
	var	0
	line	843
	colm	34
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	844
	colm	14
	synt	any
	field	__m
	line	844
	colm	18
	synt	any
	field	ConsNode
	line	844
	colm	27
	synt	any
	field	trace_node
	var	0
	line	844
	colm	38
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	845
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	846
	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	847
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	849
	colm	14
	synt	any
	field	__m
	line	849
	colm	18
	synt	any
	field	Node
	line	849
	colm	23
	synt	any
	field	dump
	var	0
	var	1
	line	849
	colm	28
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	850
	colm	14
	synt	any
	field	__m
	line	850
	colm	18
	synt	any
	field	ConsNode
	line	850
	colm	27
	synt	any
	field	dump
	var	0
	var	1
	line	850
	colm	32
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	852
	colm	55
	synt	any
	plus
	line	852
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	852
	colm	92
	synt	any
	field	dcs_0
	line	852
	colm	87
	synt	any
	invoke	1
	line	852
	colm	75
	synt	any
	cat
	line	852
	colm	14
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	853
	colm	55
	synt	any
	plus
	line	853
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	853
	colm	92
	synt	any
	field	dcs_1
	line	853
	colm	87
	synt	any
	invoke	1
	line	853
	colm	75
	synt	any
	cat
	line	853
	colm	14
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	854
	colm	55
	synt	any
	plus
	line	854
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	854
	colm	92
	synt	any
	field	dcs_2
	line	854
	colm	87
	synt	any
	invoke	1
	line	854
	colm	75
	synt	any
	cat
	line	854
	colm	14
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	855
	colm	55
	synt	any
	plus
	line	855
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	855
	colm	92
	synt	any
	field	dcs_3
	line	855
	colm	87
	synt	any
	invoke	1
	line	855
	colm	75
	synt	any
	cat
	line	855
	colm	14
	synt	any
	invoke	2
	unmark
lab L7
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	856
	colm	63
	synt	any
	plus
	line	856
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	856
	colm	100
	synt	any
	field	dcsexceptions
	line	856
	colm	95
	synt	any
	invoke	1
	line	856
	colm	83
	synt	any
	cat
	line	856
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	858
	colm	1
	synt	any
	pfail
	end
proc DefCharSigNode_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	local	4,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	859
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	861
	colm	14
	synt	any
	field	__m
	line	861
	colm	18
	synt	any
	field	Node
	line	861
	colm	23
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	861
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	862
	colm	14
	synt	any
	field	__m
	line	862
	colm	18
	synt	any
	field	ConsNode
	line	862
	colm	27
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	862
	colm	37
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	var	4
	var	2
	var	3
	var	1
	str	0
	pnull
	var	0
	line	864
	colm	75
	synt	any
	field	dcs_0
	line	864
	colm	23
	synt	any
	invoke	5
	unmark
lab L3
	mark	L4
	var	4
	var	2
	var	3
	var	1
	str	1
	pnull
	var	0
	line	865
	colm	75
	synt	any
	field	dcs_1
	line	865
	colm	23
	synt	any
	invoke	5
	unmark
lab L4
	mark	L5
	var	4
	var	2
	var	3
	var	1
	str	2
	pnull
	var	0
	line	866
	colm	75
	synt	any
	field	dcs_2
	line	866
	colm	23
	synt	any
	invoke	5
	unmark
lab L5
	mark	L6
	var	4
	var	2
	var	3
	var	1
	str	3
	pnull
	var	0
	line	867
	colm	75
	synt	any
	field	dcs_3
	line	867
	colm	23
	synt	any
	invoke	5
	unmark
lab L6
	mark	L7
	var	4
	var	2
	var	3
	var	1
	str	4
	pnull
	var	0
	line	868
	colm	83
	synt	any
	field	dcsexceptions
	line	868
	colm	23
	synt	any
	invoke	5
	unmark
lab L7
	pnull
	line	869
	colm	1
	synt	any
	pfail
	end
proc DefCharSigNode_initially
	local	0,001000,self
	local	1,001000,dcs_0
	local	2,001000,dcs_1
	local	3,001000,dcs_2
	local	4,001000,dcs_3
	local	5,001000,dcsexceptions
	local	6,001000,kind
	local	7,001000,vlineno
	local	8,001000,pre_num
	local	9,001000,post_num
	local	10,001000,cn_hd
	local	11,001000,cn_tl
	declend
	line	870
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	872
	colm	14
	synt	any
	field	__m
	line	872
	colm	18
	synt	any
	field	ConsNode
	line	872
	colm	27
	synt	any
	field	initially
	var	0
	var	10
	var	11
	line	872
	colm	38
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	873
	colm	14
	synt	any
	field	__m
	line	873
	colm	18
	synt	any
	field	Node
	line	873
	colm	23
	synt	any
	field	initially
	var	0
	var	6
	var	7
	var	8
	var	9
	line	873
	colm	34
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	874
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	875
	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,cn_hd
	local	10,001000,cn_tl
	local	11,000020,self
	local	12,000020,clone
	local	13,000000,DefCharSigNode__oprec
	local	14,000000,DefCharSigNodeinitialize
	local	15,000000,Node__oprec
	local	16,000000,Nodeinitialize
	local	17,000000,ConsNode__oprec
	local	18,000000,ConsNodeinitialize
	local	19,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	13
	line	8
	colm	6
	synt	any
	null
	unmark
	var	14
	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	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	24
	synt	any
	field	Node
	var	15
	line	10
	colm	30
	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	24
	synt	any
	field	ConsNode
	var	17
	line	12
	colm	34
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	11
	var	19
	line	14
	colm	33
	synt	any
	keywd	null
	var	13
	line	14
	colm	32
	synt	any
	invoke	2
	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
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	line	16
	colm	21
	synt	any
	invoke	12
	line	16
	colm	108
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	110
	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 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	878
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	879
	colm	14
	synt	any
	field	__m
	line	879
	colm	18
	synt	any
	field	Node
	line	879
	colm	23
	synt	any
	field	trace_node
	var	0
	line	879
	colm	34
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	880
	colm	14
	synt	any
	field	__m
	line	880
	colm	18
	synt	any
	field	ConsNode
	line	880
	colm	27
	synt	any
	field	trace_node
	var	0
	line	880
	colm	38
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	881
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	882
	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	883
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	885
	colm	14
	synt	any
	field	__m
	line	885
	colm	18
	synt	any
	field	Node
	line	885
	colm	23
	synt	any
	field	dump
	var	0
	var	1
	line	885
	colm	28
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	886
	colm	14
	synt	any
	field	__m
	line	886
	colm	18
	synt	any
	field	ConsNode
	line	886
	colm	27
	synt	any
	field	dump
	var	0
	var	1
	line	886
	colm	32
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	888
	colm	59
	synt	any
	plus
	line	888
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	888
	colm	96
	synt	any
	field	signature
	line	888
	colm	91
	synt	any
	invoke	1
	line	888
	colm	79
	synt	any
	cat
	line	888
	colm	14
	synt	any
	invoke	2
	unmark
lab L4
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	889
	colm	58
	synt	any
	plus
	line	889
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	889
	colm	95
	synt	any
	field	sig_done
	line	889
	colm	90
	synt	any
	invoke	1
	line	889
	colm	78
	synt	any
	cat
	line	889
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	891
	colm	1
	synt	any
	pfail
	end
proc SignatureSigNode_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	local	4,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	892
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	894
	colm	14
	synt	any
	field	__m
	line	894
	colm	18
	synt	any
	field	Node
	line	894
	colm	23
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	894
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	895
	colm	14
	synt	any
	field	__m
	line	895
	colm	18
	synt	any
	field	ConsNode
	line	895
	colm	27
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	895
	colm	37
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	var	4
	var	2
	var	3
	var	1
	str	0
	pnull
	var	0
	line	897
	colm	79
	synt	any
	field	signature
	line	897
	colm	23
	synt	any
	invoke	5
	unmark
lab L3
	mark	L4
	var	4
	var	2
	var	3
	var	1
	str	1
	pnull
	var	0
	line	898
	colm	78
	synt	any
	field	sig_done
	line	898
	colm	23
	synt	any
	invoke	5
	unmark
lab L4
	pnull
	line	899
	colm	1
	synt	any
	pfail
	end
proc SignatureSigNode_initially
	local	0,001000,self
	local	1,001000,signature
	local	2,001000,sig_done
	local	3,001000,kind
	local	4,001000,vlineno
	local	5,001000,pre_num
	local	6,001000,post_num
	local	7,001000,cn_hd
	local	8,001000,cn_tl
	local	9,000000,emptylist
	declend
	line	900
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	902
	colm	14
	synt	any
	field	__m
	line	902
	colm	18
	synt	any
	field	ConsNode
	line	902
	colm	27
	synt	any
	field	initially
	var	0
	var	7
	var	8
	line	902
	colm	38
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	903
	colm	14
	synt	any
	field	__m
	line	903
	colm	18
	synt	any
	field	Node
	line	903
	colm	23
	synt	any
	field	initially
	var	0
	var	3
	var	4
	var	5
	var	6
	line	903
	colm	34
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	905
	colm	13
	synt	any
	field	signature
	var	9
	line	905
	colm	36
	synt	any
	invoke	0
	line	905
	colm	24
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	line	906
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	907
	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,cn_hd
	local	7,001000,cn_tl
	local	8,000020,self
	local	9,000020,clone
	local	10,000000,SignatureSigNode__oprec
	local	11,000000,SignatureSigNodeinitialize
	local	12,000000,Node__oprec
	local	13,000000,Nodeinitialize
	local	14,000000,ConsNode__oprec
	local	15,000000,ConsNodeinitialize
	local	16,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	10
	line	8
	colm	6
	synt	any
	null
	unmark
	var	11
	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	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	26
	synt	any
	field	Node
	var	12
	line	10
	colm	32
	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	26
	synt	any
	field	ConsNode
	var	14
	line	12
	colm	36
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	8
	var	16
	line	14
	colm	35
	synt	any
	keywd	null
	var	10
	line	14
	colm	34
	synt	any
	invoke	2
	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
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	line	16
	colm	21
	synt	any
	invoke	9
	line	16
	colm	89
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	91
	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 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	908
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	909
	colm	14
	synt	any
	field	__m
	line	909
	colm	18
	synt	any
	field	ListHeaderNode
	line	909
	colm	33
	synt	any
	field	trace_node
	var	0
	line	909
	colm	44
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	var	1
	var	2
	str	0
	line	912
	colm	14
	synt	any
	invoke	2
	unmark
lab L2
	pnull
	line	913
	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	914
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	916
	colm	14
	synt	any
	field	__m
	line	916
	colm	18
	synt	any
	field	ListHeaderNode
	line	916
	colm	33
	synt	any
	field	dump
	var	0
	var	1
	line	916
	colm	38
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	920
	colm	59
	synt	any
	plus
	line	920
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	920
	colm	96
	synt	any
	field	signature
	line	920
	colm	91
	synt	any
	invoke	1
	line	920
	colm	79
	synt	any
	cat
	line	920
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	921
	colm	58
	synt	any
	plus
	line	921
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	921
	colm	95
	synt	any
	field	sig_done
	line	921
	colm	90
	synt	any
	invoke	1
	line	921
	colm	78
	synt	any
	cat
	line	921
	colm	14
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	922
	colm	57
	synt	any
	plus
	line	922
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	922
	colm	94
	synt	any
	field	ar_size
	line	922
	colm	89
	synt	any
	invoke	1
	line	922
	colm	77
	synt	any
	cat
	line	922
	colm	14
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	923
	colm	64
	synt	any
	plus
	line	923
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	923
	colm	101
	synt	any
	field	ar_static_link
	line	923
	colm	96
	synt	any
	invoke	1
	line	923
	colm	84
	synt	any
	cat
	line	923
	colm	14
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	924
	colm	65
	synt	any
	plus
	line	924
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	924
	colm	102
	synt	any
	field	ar_static_level
	line	924
	colm	97
	synt	any
	invoke	1
	line	924
	colm	85
	synt	any
	cat
	line	924
	colm	14
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	var	2
	var	1
	pnull
	var	3
	str	6
	pnull
	int	1
	var	4
	line	925
	colm	70
	synt	any
	plus
	line	925
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	925
	colm	107
	synt	any
	field	bld_declaration_list
	line	925
	colm	102
	synt	any
	invoke	1
	line	925
	colm	90
	synt	any
	cat
	line	925
	colm	14
	synt	any
	invoke	2
	unmark
lab L8
	mark	L9
	var	2
	var	1
	pnull
	var	3
	str	7
	pnull
	int	1
	var	4
	line	926
	colm	61
	synt	any
	plus
	line	926
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	926
	colm	98
	synt	any
	field	bld_den_seq
	line	926
	colm	93
	synt	any
	invoke	1
	line	926
	colm	81
	synt	any
	cat
	line	926
	colm	14
	synt	any
	invoke	2
	unmark
lab L9
	mark	L10
	var	2
	var	1
	pnull
	var	3
	str	8
	pnull
	int	1
	var	4
	line	927
	colm	64
	synt	any
	plus
	line	927
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	927
	colm	101
	synt	any
	field	bld_precedence
	line	927
	colm	96
	synt	any
	invoke	1
	line	927
	colm	84
	synt	any
	cat
	line	927
	colm	14
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	var	2
	var	1
	pnull
	var	3
	str	9
	pnull
	int	1
	var	4
	line	928
	colm	59
	synt	any
	plus
	line	928
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	928
	colm	96
	synt	any
	field	bld_flags
	line	928
	colm	91
	synt	any
	invoke	1
	line	928
	colm	79
	synt	any
	cat
	line	928
	colm	14
	synt	any
	invoke	2
	unmark
lab L11
	var	2
	var	1
	pnull
	var	3
	str	10
	pnull
	int	1
	var	4
	line	929
	colm	62
	synt	any
	plus
	line	929
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	929
	colm	99
	synt	any
	field	fc_code_label
	line	929
	colm	94
	synt	any
	invoke	1
	line	929
	colm	82
	synt	any
	cat
	line	929
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	931
	colm	1
	synt	any
	pfail
	end
proc BlDenotationNode_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	local	4,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	932
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	934
	colm	14
	synt	any
	field	__m
	line	934
	colm	18
	synt	any
	field	ListHeaderNode
	line	934
	colm	33
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	934
	colm	43
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	var	4
	var	2
	var	3
	var	1
	str	0
	pnull
	var	0
	line	938
	colm	78
	synt	any
	field	signature
	line	938
	colm	23
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	var	4
	var	2
	var	3
	var	1
	str	1
	pnull
	var	0
	line	939
	colm	77
	synt	any
	field	sig_done
	line	939
	colm	23
	synt	any
	invoke	5
	unmark
lab L3
	mark	L4
	var	4
	var	2
	var	3
	var	1
	str	2
	pnull
	var	0
	line	940
	colm	76
	synt	any
	field	ar_size
	line	940
	colm	23
	synt	any
	invoke	5
	unmark
lab L4
	mark	L5
	var	4
	var	2
	var	3
	var	1
	str	3
	pnull
	var	0
	line	941
	colm	83
	synt	any
	field	ar_static_link
	line	941
	colm	23
	synt	any
	invoke	5
	unmark
lab L5
	mark	L6
	var	4
	var	2
	var	3
	var	1
	str	4
	pnull
	var	0
	line	942
	colm	84
	synt	any
	field	ar_static_level
	line	942
	colm	23
	synt	any
	invoke	5
	unmark
lab L6
	mark	L7
	var	4
	var	2
	var	3
	var	1
	str	5
	pnull
	var	0
	line	943
	colm	89
	synt	any
	field	bld_declaration_list
	line	943
	colm	23
	synt	any
	invoke	5
	unmark
lab L7
	mark	L8
	var	4
	var	2
	var	3
	var	1
	str	6
	pnull
	var	0
	line	944
	colm	80
	synt	any
	field	bld_den_seq
	line	944
	colm	23
	synt	any
	invoke	5
	unmark
lab L8
	mark	L9
	var	4
	var	2
	var	3
	var	1
	str	7
	pnull
	var	0
	line	945
	colm	83
	synt	any
	field	bld_precedence
	line	945
	colm	23
	synt	any
	invoke	5
	unmark
lab L9
	mark	L10
	var	4
	var	2
	var	3
	var	1
	str	8
	pnull
	var	0
	line	946
	colm	78
	synt	any
	field	bld_flags
	line	946
	colm	23
	synt	any
	invoke	5
	unmark
lab L10
	mark	L11
	var	4
	var	2
	var	3
	var	1
	str	9
	pnull
	var	0
	line	947
	colm	82
	synt	any
	field	fc_code_label
	line	947
	colm	23
	synt	any
	invoke	5
	unmark
lab L11
	pnull
	line	948
	colm	1
	synt	any
	pfail
	end
proc BlDenotationNode_initially
	local	0,001000,self
	local	1,001000,signature
	local	2,001000,sig_done
	local	3,001000,ar_size
	local	4,001000,ar_static_link
	local	5,001000,ar_static_level
	local	6,001000,bld_declaration_list
	local	7,001000,bld_den_seq
	local	8,001000,bld_precedence
	local	9,001000,bld_flags
	local	10,001000,fc_code_label
	local	11,001000,kind
	local	12,001000,vlineno
	local	13,001000,pre_num
	local	14,001000,post_num
	local	15,001000,cn_hd
	local	16,001000,cn_tl
	local	17,001000,lh_first
	local	18,001000,lh_last
	local	19,000000,emptylist
	con	0,002000,1,0
	declend
	line	949
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	950
	colm	14
	synt	any
	field	__m
	line	950
	colm	18
	synt	any
	field	ListHeaderNode
	line	950
	colm	33
	synt	any
	field	initially
	var	0
	var	17
	var	18
	var	11
	var	12
	var	13
	var	14
	var	15
	var	16
	line	950
	colm	44
	synt	any
	invoke	9
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	954
	colm	13
	synt	any
	field	bld_flags
	int	0
	line	954
	colm	24
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	955
	colm	13
	synt	any
	field	bld_declaration_list
	var	19
	line	955
	colm	47
	synt	any
	invoke	0
	line	955
	colm	35
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	pnull
	var	0
	line	956
	colm	13
	synt	any
	field	bld_den_seq
	var	19
	line	956
	colm	38
	synt	any
	invoke	0
	line	956
	colm	26
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	mark	L6
	pnull
	line	957
	colm	7
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	958
	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,cn_hd
	local	15,001000,cn_tl
	local	16,001000,lh_first
	local	17,001000,lh_last
	local	18,000020,self
	local	19,000020,clone
	local	20,000000,BlDenotationNode__oprec
	local	21,000000,BlDenotationNodeinitialize
	local	22,000000,ListHeaderNode__oprec
	local	23,000000,ListHeaderNodeinitialize
	local	24,000000,Node__oprec
	local	25,000000,Nodeinitialize
	local	26,000000,ConsNode__oprec
	local	27,000000,ConsNodeinitialize
	local	28,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	20
	line	8
	colm	6
	synt	any
	null
	unmark
	var	21
	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	22
	line	9
	colm	6
	synt	any
	null
	unmark
	var	23
	line	9
	colm	58
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	20
	line	10
	colm	26
	synt	any
	field	ListHeaderNode
	var	22
	line	10
	colm	42
	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	38
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	mark	L8
	pnull
	pnull
	var	20
	line	12
	colm	26
	synt	any
	field	Node
	var	24
	line	12
	colm	32
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	line	13
	colm	3
	synt	if
	mark0
	pnull
	var	26
	line	13
	colm	6
	synt	any
	null
	unmark
	var	27
	line	13
	colm	46
	synt	any
	invoke	0
	line	13
	colm	3
	synt	endif
	unmark
lab L9
	pnull
	pnull
	var	20
	line	14
	colm	26
	synt	any
	field	ConsNode
	var	26
	line	14
	colm	36
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L10
	pnull
	var	18
	var	28
	line	16
	colm	35
	synt	any
	keywd	null
	var	20
	line	16
	colm	34
	synt	any
	invoke	2
	line	16
	colm	8
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	pnull
	pnull
	var	18
	line	17
	colm	7
	synt	any
	field	__s
	var	18
	line	17
	colm	12
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	mark	L13
	pnull
	pnull
	var	18
	line	18
	colm	7
	synt	any
	field	__m
	line	18
	colm	11
	synt	any
	field	initially
	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
	var	16
	var	17
	line	18
	colm	21
	synt	any
	invoke	19
	line	18
	colm	217
	synt	any
	esusp
	goto	L14
lab L13
	line	18
	colm	219
	synt	any
	pfail
lab L14
	unmark
lab L12
	mark	L15
	mark	L16
	var	18
	line	19
	colm	3
	synt	any
	pret
lab L16
	synt	any
	pfail
	unmark
lab L15
	pnull
	line	20
	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,ListHeaderNode_list_dump
	local	7,000000,ListHeaderNode_first
	local	8,000000,ListHeaderNode_last
	local	9,000000,ListHeaderNode_setfirst
	local	10,000000,ListHeaderNode_setlast
	local	11,000000,ListHeaderNode_conc
	local	12,000000,ListHeaderNode_length
	local	13,000000,ListHeaderNode_list_to_array
	local	14,000000,ConsNode_cons_dump
	declend
	line	22
	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	23
	colm	63
	synt	any
	invoke	13
	line	23
	colm	35
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	24
	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	959
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	960
	colm	14
	synt	any
	field	__m
	line	960
	colm	18
	synt	any
	field	Node
	line	960
	colm	23
	synt	any
	field	trace_node
	var	0
	line	960
	colm	34
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	961
	colm	14
	synt	any
	field	__m
	line	961
	colm	18
	synt	any
	field	ConsNode
	line	961
	colm	27
	synt	any
	field	trace_node
	var	0
	line	961
	colm	38
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	962
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	963
	colm	1
	synt	any
	pfail
	end
proc UseListNode_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,pos_no
	local	3,000000,dump_file
	local	4,000000,dump_file_sav
	local	5,000000,write
	local	6,000000,left
	local	7,000000,dump__tree_depth
	local	8,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	964
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	966
	colm	14
	synt	any
	field	__m
	line	966
	colm	18
	synt	any
	field	Node
	line	966
	colm	23
	synt	any
	field	dump_tree
	var	0
	var	2
	var	3
	var	4
	line	966
	colm	33
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	967
	colm	14
	synt	any
	field	__m
	line	967
	colm	18
	synt	any
	field	ConsNode
	line	967
	colm	27
	synt	any
	field	dump
	var	0
	var	1
	line	967
	colm	32
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	5
	var	1
	pnull
	var	6
	str	0
	pnull
	int	1
	var	7
	line	968
	colm	59
	synt	any
	plus
	line	968
	colm	38
	synt	any
	invoke	2
	var	8
	pnull
	var	0
	line	968
	colm	96
	synt	any
	field	signature
	line	968
	colm	91
	synt	any
	invoke	1
	line	968
	colm	79
	synt	any
	cat
	line	968
	colm	14
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	5
	var	1
	pnull
	var	6
	str	2
	pnull
	int	1
	var	7
	line	969
	colm	58
	synt	any
	plus
	line	969
	colm	38
	synt	any
	invoke	2
	var	8
	pnull
	var	0
	line	969
	colm	95
	synt	any
	field	sig_done
	line	969
	colm	90
	synt	any
	invoke	1
	line	969
	colm	78
	synt	any
	cat
	line	969
	colm	14
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	5
	var	1
	pnull
	var	6
	str	3
	pnull
	int	1
	var	7
	line	970
	colm	63
	synt	any
	plus
	line	970
	colm	38
	synt	any
	invoke	2
	var	8
	pnull
	var	0
	line	970
	colm	100
	synt	any
	field	usl_type_list
	line	970
	colm	95
	synt	any
	invoke	1
	line	970
	colm	83
	synt	any
	cat
	line	970
	colm	14
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	5
	var	1
	pnull
	var	6
	str	4
	pnull
	int	1
	var	7
	line	971
	colm	61
	synt	any
	plus
	line	971
	colm	38
	synt	any
	invoke	2
	var	8
	pnull
	var	0
	line	971
	colm	98
	synt	any
	field	usl_den_seq
	line	971
	colm	93
	synt	any
	invoke	1
	line	971
	colm	81
	synt	any
	cat
	line	971
	colm	14
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	var	5
	var	1
	pnull
	var	6
	str	5
	pnull
	int	1
	var	7
	line	972
	colm	67
	synt	any
	plus
	line	972
	colm	38
	synt	any
	invoke	2
	var	8
	pnull
	var	0
	line	972
	colm	104
	synt	any
	field	usl_previous_list
	line	972
	colm	99
	synt	any
	invoke	1
	line	972
	colm	87
	synt	any
	cat
	line	972
	colm	14
	synt	any
	invoke	2
	unmark
lab L8
	var	5
	var	1
	pnull
	var	6
	str	6
	pnull
	int	1
	var	7
	line	973
	colm	64
	synt	any
	plus
	line	973
	colm	38
	synt	any
	invoke	2
	var	8
	pnull
	var	0
	line	973
	colm	101
	synt	any
	field	usl_precedence
	line	973
	colm	96
	synt	any
	invoke	1
	line	973
	colm	84
	synt	any
	cat
	line	973
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	975
	colm	1
	synt	any
	pfail
	end
proc UseListNode_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	local	4,000000,nodes_created_file
	local	5,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	976
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	978
	colm	14
	synt	any
	field	__m
	line	978
	colm	18
	synt	any
	field	Node
	line	978
	colm	23
	synt	any
	field	dump
	var	0
	var	4
	line	978
	colm	28
	synt	any
	invoke	2
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	979
	colm	14
	synt	any
	field	__m
	line	979
	colm	18
	synt	any
	field	ConsNode
	line	979
	colm	27
	synt	any
	field	dump
	var	0
	var	4
	line	979
	colm	32
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	var	5
	var	2
	var	3
	var	1
	str	0
	pnull
	var	0
	line	980
	colm	79
	synt	any
	field	signature
	line	980
	colm	23
	synt	any
	invoke	5
	unmark
lab L3
	mark	L4
	var	5
	var	2
	var	3
	var	1
	str	1
	pnull
	var	0
	line	981
	colm	78
	synt	any
	field	sig_done
	line	981
	colm	23
	synt	any
	invoke	5
	unmark
lab L4
	mark	L5
	var	5
	var	2
	var	3
	var	1
	str	2
	pnull
	var	0
	line	982
	colm	83
	synt	any
	field	usl_type_list
	line	982
	colm	23
	synt	any
	invoke	5
	unmark
lab L5
	mark	L6
	var	5
	var	2
	var	3
	var	1
	str	3
	pnull
	var	0
	line	983
	colm	81
	synt	any
	field	usl_den_seq
	line	983
	colm	23
	synt	any
	invoke	5
	unmark
lab L6
	mark	L7
	var	5
	var	2
	var	3
	var	1
	str	4
	pnull
	var	0
	line	984
	colm	87
	synt	any
	field	usl_previous_list
	line	984
	colm	23
	synt	any
	invoke	5
	unmark
lab L7
	mark	L8
	var	5
	var	2
	var	3
	var	1
	str	5
	pnull
	var	0
	line	985
	colm	84
	synt	any
	field	usl_precedence
	line	985
	colm	23
	synt	any
	invoke	5
	unmark
lab L8
	pnull
	line	986
	colm	1
	synt	any
	pfail
	end
proc UseListNode_initially
	local	0,001000,self
	local	1,001000,signature
	local	2,001000,sig_done
	local	3,001000,usl_type_list
	local	4,001000,usl_den_seq
	local	5,001000,usl_previous_list
	local	6,001000,usl_precedence
	local	7,001000,kind
	local	8,001000,vlineno
	local	9,001000,pre_num
	local	10,001000,post_num
	local	11,001000,cn_hd
	local	12,001000,cn_tl
	local	13,000000,emptylist
	declend
	line	987
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	989
	colm	14
	synt	any
	field	__m
	line	989
	colm	18
	synt	any
	field	ConsNode
	line	989
	colm	27
	synt	any
	field	initially
	var	0
	var	11
	var	12
	line	989
	colm	38
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	990
	colm	14
	synt	any
	field	__m
	line	990
	colm	18
	synt	any
	field	Node
	line	990
	colm	23
	synt	any
	field	initially
	var	0
	var	7
	var	8
	var	9
	var	10
	line	990
	colm	34
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	992
	colm	13
	synt	any
	field	usl_type_list
	var	13
	line	992
	colm	40
	synt	any
	invoke	0
	line	992
	colm	28
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	pnull
	var	0
	line	993
	colm	13
	synt	any
	field	usl_previous_list
	var	13
	line	993
	colm	44
	synt	any
	invoke	0
	line	993
	colm	32
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	mark	L6
	pnull
	line	994
	colm	7
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	995
	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,cn_hd
	local	11,001000,cn_tl
	local	12,000020,self
	local	13,000020,clone
	local	14,000000,UseListNode__oprec
	local	15,000000,UseListNodeinitialize
	local	16,000000,Node__oprec
	local	17,000000,Nodeinitialize
	local	18,000000,ConsNode__oprec
	local	19,000000,ConsNodeinitialize
	local	20,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	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
	line	14
	colm	29
	synt	any
	invoke	2
	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
	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	16
	colm	21
	synt	any
	invoke	13
	line	16
	colm	148
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	150
	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 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	996
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	997
	colm	14
	synt	any
	field	__m
	line	997
	colm	18
	synt	any
	field	Node
	line	997
	colm	23
	synt	any
	field	trace_node
	var	0
	line	997
	colm	34
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	998
	colm	14
	synt	any
	field	__m
	line	998
	colm	18
	synt	any
	field	ConsNode
	line	998
	colm	27
	synt	any
	field	trace_node
	var	0
	line	998
	colm	38
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	999
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1000
	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	1001
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1003
	colm	14
	synt	any
	field	__m
	line	1003
	colm	18
	synt	any
	field	Node
	line	1003
	colm	23
	synt	any
	field	dump
	var	0
	var	1
	line	1003
	colm	28
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1004
	colm	14
	synt	any
	field	__m
	line	1004
	colm	18
	synt	any
	field	ConsNode
	line	1004
	colm	27
	synt	any
	field	dump
	var	0
	var	1
	line	1004
	colm	32
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1005
	colm	59
	synt	any
	plus
	line	1005
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1005
	colm	96
	synt	any
	field	signature
	line	1005
	colm	91
	synt	any
	invoke	1
	line	1005
	colm	79
	synt	any
	cat
	line	1005
	colm	14
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1006
	colm	58
	synt	any
	plus
	line	1006
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1006
	colm	95
	synt	any
	field	sig_done
	line	1006
	colm	90
	synt	any
	invoke	1
	line	1006
	colm	78
	synt	any
	cat
	line	1006
	colm	14
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1007
	colm	61
	synt	any
	plus
	line	1007
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1007
	colm	98
	synt	any
	field	ap_operator
	line	1007
	colm	93
	synt	any
	invoke	1
	line	1007
	colm	81
	synt	any
	cat
	line	1007
	colm	14
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	1008
	colm	57
	synt	any
	plus
	line	1008
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1008
	colm	94
	synt	any
	field	ap_args
	line	1008
	colm	89
	synt	any
	invoke	1
	line	1008
	colm	77
	synt	any
	cat
	line	1008
	colm	14
	synt	any
	invoke	2
	unmark
lab L7
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	1009
	colm	62
	synt	any
	plus
	line	1009
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1009
	colm	99
	synt	any
	field	ap_void_decl
	line	1009
	colm	94
	synt	any
	invoke	1
	line	1009
	colm	82
	synt	any
	cat
	line	1009
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1011
	colm	1
	synt	any
	pfail
	end
proc ApplicationNode_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	local	4,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	1012
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1014
	colm	14
	synt	any
	field	__m
	line	1014
	colm	18
	synt	any
	field	Node
	line	1014
	colm	23
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1014
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1015
	colm	14
	synt	any
	field	__m
	line	1015
	colm	18
	synt	any
	field	ConsNode
	line	1015
	colm	27
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1015
	colm	37
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	var	4
	var	2
	var	3
	var	1
	str	0
	pnull
	var	0
	line	1016
	colm	79
	synt	any
	field	signature
	line	1016
	colm	23
	synt	any
	invoke	5
	unmark
lab L3
	mark	L4
	var	4
	var	2
	var	3
	var	1
	str	1
	pnull
	var	0
	line	1017
	colm	78
	synt	any
	field	sig_done
	line	1017
	colm	23
	synt	any
	invoke	5
	unmark
lab L4
	mark	L5
	var	4
	var	2
	var	3
	var	1
	str	2
	pnull
	var	0
	line	1018
	colm	81
	synt	any
	field	ap_operator
	line	1018
	colm	23
	synt	any
	invoke	5
	unmark
lab L5
	mark	L6
	var	4
	var	2
	var	3
	var	1
	str	3
	pnull
	var	0
	line	1019
	colm	77
	synt	any
	field	ap_args
	line	1019
	colm	23
	synt	any
	invoke	5
	unmark
lab L6
	mark	L7
	var	4
	var	2
	var	3
	var	1
	str	4
	pnull
	var	0
	line	1020
	colm	82
	synt	any
	field	ap_void_decl
	line	1020
	colm	23
	synt	any
	invoke	5
	unmark
lab L7
	pnull
	line	1021
	colm	1
	synt	any
	pfail
	end
proc ApplicationNode_initially
	local	0,001000,self
	local	1,001000,signature
	local	2,001000,sig_done
	local	3,001000,ap_operator
	local	4,001000,ap_args
	local	5,001000,ap_void_decl
	local	6,001000,kind
	local	7,001000,vlineno
	local	8,001000,pre_num
	local	9,001000,post_num
	local	10,001000,cn_hd
	local	11,001000,cn_tl
	local	12,000000,emptylist
	declend
	line	1022
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1024
	colm	14
	synt	any
	field	__m
	line	1024
	colm	18
	synt	any
	field	ConsNode
	line	1024
	colm	27
	synt	any
	field	initially
	var	0
	var	10
	var	11
	line	1024
	colm	38
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1025
	colm	14
	synt	any
	field	__m
	line	1025
	colm	18
	synt	any
	field	Node
	line	1025
	colm	23
	synt	any
	field	initially
	var	0
	var	6
	var	7
	var	8
	var	9
	line	1025
	colm	34
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	1027
	colm	13
	synt	any
	field	ap_args
	var	12
	line	1027
	colm	34
	synt	any
	invoke	0
	line	1027
	colm	22
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	line	1028
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	1029
	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,cn_hd
	local	10,001000,cn_tl
	local	11,000020,self
	local	12,000020,clone
	local	13,000000,ApplicationNode__oprec
	local	14,000000,ApplicationNodeinitialize
	local	15,000000,Node__oprec
	local	16,000000,Nodeinitialize
	local	17,000000,ConsNode__oprec
	local	18,000000,ConsNodeinitialize
	local	19,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	13
	line	8
	colm	6
	synt	any
	null
	unmark
	var	14
	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	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	25
	synt	any
	field	Node
	var	15
	line	10
	colm	31
	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	25
	synt	any
	field	ConsNode
	var	17
	line	12
	colm	35
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	11
	var	19
	line	14
	colm	34
	synt	any
	keywd	null
	var	13
	line	14
	colm	33
	synt	any
	invoke	2
	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
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	line	16
	colm	21
	synt	any
	invoke	12
	line	16
	colm	122
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	124
	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 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	1030
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1031
	colm	14
	synt	any
	field	__m
	line	1031
	colm	18
	synt	any
	field	Node
	line	1031
	colm	23
	synt	any
	field	trace_node
	var	0
	line	1031
	colm	34
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1032
	colm	14
	synt	any
	field	__m
	line	1032
	colm	18
	synt	any
	field	ConsNode
	line	1032
	colm	27
	synt	any
	field	trace_node
	var	0
	line	1032
	colm	38
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1033
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1034
	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	1035
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1037
	colm	14
	synt	any
	field	__m
	line	1037
	colm	18
	synt	any
	field	Node
	line	1037
	colm	23
	synt	any
	field	dump
	var	0
	var	1
	line	1037
	colm	28
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1038
	colm	14
	synt	any
	field	__m
	line	1038
	colm	18
	synt	any
	field	ConsNode
	line	1038
	colm	27
	synt	any
	field	dump
	var	0
	var	1
	line	1038
	colm	32
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1039
	colm	59
	synt	any
	plus
	line	1039
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1039
	colm	96
	synt	any
	field	signature
	line	1039
	colm	91
	synt	any
	invoke	1
	line	1039
	colm	79
	synt	any
	cat
	line	1039
	colm	14
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1040
	colm	58
	synt	any
	plus
	line	1040
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1040
	colm	95
	synt	any
	field	sig_done
	line	1040
	colm	90
	synt	any
	invoke	1
	line	1040
	colm	78
	synt	any
	cat
	line	1040
	colm	14
	synt	any
	invoke	2
	unmark
lab L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1041
	colm	62
	synt	any
	plus
	line	1041
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1041
	colm	99
	synt	any
	field	enum_id_list
	line	1041
	colm	94
	synt	any
	invoke	1
	line	1041
	colm	82
	synt	any
	cat
	line	1041
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1043
	colm	1
	synt	any
	pfail
	end
proc EnumerationNode_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	local	4,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	1044
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1046
	colm	14
	synt	any
	field	__m
	line	1046
	colm	18
	synt	any
	field	Node
	line	1046
	colm	23
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1046
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1047
	colm	14
	synt	any
	field	__m
	line	1047
	colm	18
	synt	any
	field	ConsNode
	line	1047
	colm	27
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1047
	colm	37
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	var	4
	var	2
	var	3
	var	1
	str	0
	pnull
	var	0
	line	1048
	colm	79
	synt	any
	field	signature
	line	1048
	colm	23
	synt	any
	invoke	5
	unmark
lab L3
	mark	L4
	var	4
	var	2
	var	3
	var	1
	str	1
	pnull
	var	0
	line	1049
	colm	78
	synt	any
	field	sig_done
	line	1049
	colm	23
	synt	any
	invoke	5
	unmark
lab L4
	mark	L5
	var	4
	var	2
	var	3
	var	1
	str	2
	pnull
	var	0
	line	1050
	colm	82
	synt	any
	field	enum_id_list
	line	1050
	colm	23
	synt	any
	invoke	5
	unmark
lab L5
	pnull
	line	1051
	colm	1
	synt	any
	pfail
	end
proc EnumerationNode_initially
	local	0,001000,self
	local	1,001000,signature
	local	2,001000,sig_done
	local	3,001000,enum_id_list
	local	4,001000,kind
	local	5,001000,vlineno
	local	6,001000,pre_num
	local	7,001000,post_num
	local	8,001000,cn_hd
	local	9,001000,cn_tl
	local	10,000000,emptylist
	declend
	line	1052
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1054
	colm	14
	synt	any
	field	__m
	line	1054
	colm	18
	synt	any
	field	ConsNode
	line	1054
	colm	27
	synt	any
	field	initially
	var	0
	var	8
	var	9
	line	1054
	colm	38
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1055
	colm	14
	synt	any
	field	__m
	line	1055
	colm	18
	synt	any
	field	Node
	line	1055
	colm	23
	synt	any
	field	initially
	var	0
	var	4
	var	5
	var	6
	var	7
	line	1055
	colm	34
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	1057
	colm	13
	synt	any
	field	enum_id_list
	var	10
	line	1057
	colm	39
	synt	any
	invoke	0
	line	1057
	colm	27
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	line	1058
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	1059
	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,cn_hd
	local	8,001000,cn_tl
	local	9,000020,self
	local	10,000020,clone
	local	11,000000,EnumerationNode__oprec
	local	12,000000,EnumerationNodeinitialize
	local	13,000000,Node__oprec
	local	14,000000,Nodeinitialize
	local	15,000000,ConsNode__oprec
	local	16,000000,ConsNodeinitialize
	local	17,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	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
	line	14
	colm	33
	synt	any
	invoke	2
	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
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	line	16
	colm	21
	synt	any
	invoke	10
	line	16
	colm	102
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	104
	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 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	1060
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1061
	colm	14
	synt	any
	field	__m
	line	1061
	colm	18
	synt	any
	field	Node
	line	1061
	colm	23
	synt	any
	field	trace_node
	var	0
	line	1061
	colm	34
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1062
	colm	14
	synt	any
	field	__m
	line	1062
	colm	18
	synt	any
	field	ConsNode
	line	1062
	colm	27
	synt	any
	field	trace_node
	var	0
	line	1062
	colm	38
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1063
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1064
	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	1065
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1067
	colm	14
	synt	any
	field	__m
	line	1067
	colm	18
	synt	any
	field	Node
	line	1067
	colm	23
	synt	any
	field	dump
	var	0
	var	1
	line	1067
	colm	28
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1068
	colm	14
	synt	any
	field	__m
	line	1068
	colm	18
	synt	any
	field	ConsNode
	line	1068
	colm	27
	synt	any
	field	dump
	var	0
	var	1
	line	1068
	colm	32
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1069
	colm	59
	synt	any
	plus
	line	1069
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1069
	colm	96
	synt	any
	field	signature
	line	1069
	colm	91
	synt	any
	invoke	1
	line	1069
	colm	79
	synt	any
	cat
	line	1069
	colm	14
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1070
	colm	58
	synt	any
	plus
	line	1070
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1070
	colm	95
	synt	any
	field	sig_done
	line	1070
	colm	90
	synt	any
	invoke	1
	line	1070
	colm	78
	synt	any
	cat
	line	1070
	colm	14
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1071
	colm	64
	synt	any
	plus
	line	1071
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1071
	colm	101
	synt	any
	field	ext_denotation
	line	1071
	colm	96
	synt	any
	invoke	1
	line	1071
	colm	84
	synt	any
	cat
	line	1071
	colm	14
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	1072
	colm	58
	synt	any
	plus
	line	1072
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1072
	colm	95
	synt	any
	field	In_index
	line	1072
	colm	90
	synt	any
	invoke	1
	line	1072
	colm	78
	synt	any
	cat
	line	1072
	colm	14
	synt	any
	invoke	2
	unmark
lab L7
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	1073
	colm	59
	synt	any
	plus
	line	1073
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1073
	colm	96
	synt	any
	field	Out_index
	line	1073
	colm	91
	synt	any
	invoke	1
	line	1073
	colm	79
	synt	any
	cat
	line	1073
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1075
	colm	1
	synt	any
	pfail
	end
proc ExtensionNode_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	local	4,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	1076
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1078
	colm	14
	synt	any
	field	__m
	line	1078
	colm	18
	synt	any
	field	Node
	line	1078
	colm	23
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1078
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1079
	colm	14
	synt	any
	field	__m
	line	1079
	colm	18
	synt	any
	field	ConsNode
	line	1079
	colm	27
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1079
	colm	37
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	var	4
	var	2
	var	3
	var	1
	str	0
	pnull
	var	0
	line	1080
	colm	79
	synt	any
	field	signature
	line	1080
	colm	23
	synt	any
	invoke	5
	unmark
lab L3
	mark	L4
	var	4
	var	2
	var	3
	var	1
	str	1
	pnull
	var	0
	line	1081
	colm	78
	synt	any
	field	sig_done
	line	1081
	colm	23
	synt	any
	invoke	5
	unmark
lab L4
	mark	L5
	var	4
	var	2
	var	3
	var	1
	str	2
	pnull
	var	0
	line	1082
	colm	84
	synt	any
	field	ext_denotation
	line	1082
	colm	23
	synt	any
	invoke	5
	unmark
lab L5
	mark	L6
	var	4
	var	2
	var	3
	var	1
	str	3
	pnull
	var	0
	line	1083
	colm	78
	synt	any
	field	In_index
	line	1083
	colm	23
	synt	any
	invoke	5
	unmark
lab L6
	mark	L7
	var	4
	var	2
	var	3
	var	1
	str	4
	pnull
	var	0
	line	1084
	colm	79
	synt	any
	field	Out_index
	line	1084
	colm	23
	synt	any
	invoke	5
	unmark
lab L7
	pnull
	line	1085
	colm	1
	synt	any
	pfail
	end
proc ExtensionNode_initially
	local	0,001000,self
	local	1,001000,signature
	local	2,001000,sig_done
	local	3,001000,ext_denotation
	local	4,001000,In_index
	local	5,001000,Out_index
	local	6,001000,kind
	local	7,001000,vlineno
	local	8,001000,pre_num
	local	9,001000,post_num
	local	10,001000,cn_hd
	local	11,001000,cn_tl
	declend
	line	1086
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1088
	colm	14
	synt	any
	field	__m
	line	1088
	colm	18
	synt	any
	field	ConsNode
	line	1088
	colm	27
	synt	any
	field	initially
	var	0
	var	10
	var	11
	line	1088
	colm	38
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1089
	colm	14
	synt	any
	field	__m
	line	1089
	colm	18
	synt	any
	field	Node
	line	1089
	colm	23
	synt	any
	field	initially
	var	0
	var	6
	var	7
	var	8
	var	9
	line	1089
	colm	34
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1090
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1091
	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,cn_hd
	local	10,001000,cn_tl
	local	11,000020,self
	local	12,000020,clone
	local	13,000000,ExtensionNode__oprec
	local	14,000000,ExtensionNodeinitialize
	local	15,000000,Node__oprec
	local	16,000000,Nodeinitialize
	local	17,000000,ConsNode__oprec
	local	18,000000,ConsNodeinitialize
	local	19,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	13
	line	8
	colm	6
	synt	any
	null
	unmark
	var	14
	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	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	23
	synt	any
	field	Node
	var	15
	line	10
	colm	29
	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	23
	synt	any
	field	ConsNode
	var	17
	line	12
	colm	33
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	11
	var	19
	line	14
	colm	32
	synt	any
	keywd	null
	var	13
	line	14
	colm	31
	synt	any
	invoke	2
	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
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	line	16
	colm	21
	synt	any
	invoke	12
	line	16
	colm	123
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	125
	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 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	1093
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1094
	colm	14
	synt	any
	field	__m
	line	1094
	colm	18
	synt	any
	field	Node
	line	1094
	colm	23
	synt	any
	field	trace_node
	var	0
	line	1094
	colm	34
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1095
	colm	14
	synt	any
	field	__m
	line	1095
	colm	18
	synt	any
	field	ConsNode
	line	1095
	colm	27
	synt	any
	field	trace_node
	var	0
	line	1095
	colm	38
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1096
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1097
	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	1098
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1100
	colm	14
	synt	any
	field	__m
	line	1100
	colm	18
	synt	any
	field	Node
	line	1100
	colm	23
	synt	any
	field	dump
	var	0
	var	1
	line	1100
	colm	28
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1101
	colm	14
	synt	any
	field	__m
	line	1101
	colm	18
	synt	any
	field	ConsNode
	line	1101
	colm	27
	synt	any
	field	dump
	var	0
	var	1
	line	1101
	colm	32
	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	59
	synt	any
	plus
	line	1102
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1102
	colm	96
	synt	any
	field	signature
	line	1102
	colm	91
	synt	any
	invoke	1
	line	1102
	colm	79
	synt	any
	cat
	line	1102
	colm	14
	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	58
	synt	any
	plus
	line	1103
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1103
	colm	95
	synt	any
	field	sig_done
	line	1103
	colm	90
	synt	any
	invoke	1
	line	1103
	colm	78
	synt	any
	cat
	line	1103
	colm	14
	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	68
	synt	any
	plus
	line	1104
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1104
	colm	105
	synt	any
	field	prod_local_type_id
	line	1104
	colm	100
	synt	any
	invoke	1
	line	1104
	colm	88
	synt	any
	cat
	line	1104
	colm	14
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	1105
	colm	65
	synt	any
	plus
	line	1105
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1105
	colm	102
	synt	any
	field	prod_components
	line	1105
	colm	97
	synt	any
	invoke	1
	line	1105
	colm	85
	synt	any
	cat
	line	1105
	colm	14
	synt	any
	invoke	2
	unmark
lab L7
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	1106
	colm	74
	synt	any
	plus
	line	1106
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1106
	colm	111
	synt	any
	field	prod_previous_definition
	line	1106
	colm	106
	synt	any
	invoke	1
	line	1106
	colm	94
	synt	any
	cat
	line	1106
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1108
	colm	1
	synt	any
	pfail
	end
proc ProductNode_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	local	4,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	1109
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1111
	colm	14
	synt	any
	field	__m
	line	1111
	colm	18
	synt	any
	field	Node
	line	1111
	colm	23
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1111
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1112
	colm	14
	synt	any
	field	__m
	line	1112
	colm	18
	synt	any
	field	ConsNode
	line	1112
	colm	27
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1112
	colm	37
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	var	4
	var	2
	var	3
	var	1
	str	0
	pnull
	var	0
	line	1113
	colm	79
	synt	any
	field	signature
	line	1113
	colm	23
	synt	any
	invoke	5
	unmark
lab L3
	mark	L4
	var	4
	var	2
	var	3
	var	1
	str	1
	pnull
	var	0
	line	1114
	colm	78
	synt	any
	field	sig_done
	line	1114
	colm	23
	synt	any
	invoke	5
	unmark
lab L4
	mark	L5
	var	4
	var	2
	var	3
	var	1
	str	2
	pnull
	var	0
	line	1115
	colm	88
	synt	any
	field	prod_local_type_id
	line	1115
	colm	23
	synt	any
	invoke	5
	unmark
lab L5
	mark	L6
	var	4
	var	2
	var	3
	var	1
	str	3
	pnull
	var	0
	line	1116
	colm	85
	synt	any
	field	prod_components
	line	1116
	colm	23
	synt	any
	invoke	5
	unmark
lab L6
	mark	L7
	var	4
	var	2
	var	3
	var	1
	str	4
	pnull
	var	0
	line	1117
	colm	94
	synt	any
	field	prod_previous_definition
	line	1117
	colm	23
	synt	any
	invoke	5
	unmark
lab L7
	pnull
	line	1118
	colm	1
	synt	any
	pfail
	end
proc ProductNode_initially
	local	0,001000,self
	local	1,001000,signature
	local	2,001000,sig_done
	local	3,001000,prod_local_type_id
	local	4,001000,prod_components
	local	5,001000,prod_previous_definition
	local	6,001000,kind
	local	7,001000,vlineno
	local	8,001000,pre_num
	local	9,001000,post_num
	local	10,001000,cn_hd
	local	11,001000,cn_tl
	declend
	line	1119
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1121
	colm	14
	synt	any
	field	__m
	line	1121
	colm	18
	synt	any
	field	ConsNode
	line	1121
	colm	27
	synt	any
	field	initially
	var	0
	var	10
	var	11
	line	1121
	colm	38
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1122
	colm	14
	synt	any
	field	__m
	line	1122
	colm	18
	synt	any
	field	Node
	line	1122
	colm	23
	synt	any
	field	initially
	var	0
	var	6
	var	7
	var	8
	var	9
	line	1122
	colm	34
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1123
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1124
	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,cn_hd
	local	10,001000,cn_tl
	local	11,000020,self
	local	12,000020,clone
	local	13,000000,ProductNode__oprec
	local	14,000000,ProductNodeinitialize
	local	15,000000,Node__oprec
	local	16,000000,Nodeinitialize
	local	17,000000,ConsNode__oprec
	local	18,000000,ConsNodeinitialize
	local	19,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	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
	line	14
	colm	29
	synt	any
	invoke	2
	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
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	line	16
	colm	21
	synt	any
	invoke	12
	line	16
	colm	149
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	151
	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 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	1126
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1127
	colm	14
	synt	any
	field	__m
	line	1127
	colm	18
	synt	any
	field	Node
	line	1127
	colm	23
	synt	any
	field	trace_node
	var	0
	line	1127
	colm	34
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1128
	colm	14
	synt	any
	field	__m
	line	1128
	colm	18
	synt	any
	field	ConsNode
	line	1128
	colm	27
	synt	any
	field	trace_node
	var	0
	line	1128
	colm	38
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1129
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1130
	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	1131
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1133
	colm	14
	synt	any
	field	__m
	line	1133
	colm	18
	synt	any
	field	Node
	line	1133
	colm	23
	synt	any
	field	dump
	var	0
	var	1
	line	1133
	colm	28
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1134
	colm	14
	synt	any
	field	__m
	line	1134
	colm	18
	synt	any
	field	ConsNode
	line	1134
	colm	27
	synt	any
	field	dump
	var	0
	var	1
	line	1134
	colm	32
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1135
	colm	59
	synt	any
	plus
	line	1135
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1135
	colm	96
	synt	any
	field	signature
	line	1135
	colm	91
	synt	any
	invoke	1
	line	1135
	colm	79
	synt	any
	cat
	line	1135
	colm	14
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1136
	colm	58
	synt	any
	plus
	line	1136
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1136
	colm	95
	synt	any
	field	sig_done
	line	1136
	colm	90
	synt	any
	invoke	1
	line	1136
	colm	78
	synt	any
	cat
	line	1136
	colm	14
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1137
	colm	68
	synt	any
	plus
	line	1137
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1137
	colm	105
	synt	any
	field	rec_component_list
	line	1137
	colm	100
	synt	any
	invoke	1
	line	1137
	colm	88
	synt	any
	cat
	line	1137
	colm	14
	synt	any
	invoke	2
	unmark
lab L6
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	1138
	colm	73
	synt	any
	plus
	line	1138
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1138
	colm	110
	synt	any
	field	rec_previous_definition
	line	1138
	colm	105
	synt	any
	invoke	1
	line	1138
	colm	93
	synt	any
	cat
	line	1138
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1140
	colm	1
	synt	any
	pfail
	end
proc RecordConstructionNode_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	local	4,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	1141
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1143
	colm	14
	synt	any
	field	__m
	line	1143
	colm	18
	synt	any
	field	Node
	line	1143
	colm	23
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1143
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1144
	colm	14
	synt	any
	field	__m
	line	1144
	colm	18
	synt	any
	field	ConsNode
	line	1144
	colm	27
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1144
	colm	37
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	var	4
	var	2
	var	3
	var	1
	str	0
	pnull
	var	0
	line	1145
	colm	79
	synt	any
	field	signature
	line	1145
	colm	23
	synt	any
	invoke	5
	unmark
lab L3
	mark	L4
	var	4
	var	2
	var	3
	var	1
	str	1
	pnull
	var	0
	line	1146
	colm	78
	synt	any
	field	sig_done
	line	1146
	colm	23
	synt	any
	invoke	5
	unmark
lab L4
	mark	L5
	var	4
	var	2
	var	3
	var	1
	str	2
	pnull
	var	0
	line	1147
	colm	88
	synt	any
	field	rec_component_list
	line	1147
	colm	23
	synt	any
	invoke	5
	unmark
lab L5
	mark	L6
	var	4
	var	2
	var	3
	var	1
	str	3
	pnull
	var	0
	line	1148
	colm	93
	synt	any
	field	rec_previous_definition
	line	1148
	colm	23
	synt	any
	invoke	5
	unmark
lab L6
	pnull
	line	1149
	colm	1
	synt	any
	pfail
	end
proc RecordConstructionNode_initially
	local	0,001000,self
	local	1,001000,signature
	local	2,001000,sig_done
	local	3,001000,rec_component_list
	local	4,001000,rec_previous_definition
	local	5,001000,kind
	local	6,001000,vlineno
	local	7,001000,pre_num
	local	8,001000,post_num
	local	9,001000,cn_hd
	local	10,001000,cn_tl
	local	11,000000,emptylist
	declend
	line	1150
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1152
	colm	14
	synt	any
	field	__m
	line	1152
	colm	18
	synt	any
	field	ConsNode
	line	1152
	colm	27
	synt	any
	field	initially
	var	0
	var	9
	var	10
	line	1152
	colm	38
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1153
	colm	14
	synt	any
	field	__m
	line	1153
	colm	18
	synt	any
	field	Node
	line	1153
	colm	23
	synt	any
	field	initially
	var	0
	var	5
	var	6
	var	7
	var	8
	line	1153
	colm	34
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	1155
	colm	13
	synt	any
	field	rec_component_list
	var	11
	line	1155
	colm	45
	synt	any
	invoke	0
	line	1155
	colm	33
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	line	1156
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	1157
	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,cn_hd
	local	9,001000,cn_tl
	local	10,000020,self
	local	11,000020,clone
	local	12,000000,RecordConstructionNode__oprec
	local	13,000000,RecordConstructionNodeinitialize
	local	14,000000,Node__oprec
	local	15,000000,Nodeinitialize
	local	16,000000,ConsNode__oprec
	local	17,000000,ConsNodeinitialize
	local	18,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	12
	line	8
	colm	6
	synt	any
	null
	unmark
	var	13
	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	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	32
	synt	any
	field	Node
	var	14
	line	10
	colm	38
	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	32
	synt	any
	field	ConsNode
	var	16
	line	12
	colm	42
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	10
	var	18
	line	14
	colm	41
	synt	any
	keywd	null
	var	12
	line	14
	colm	40
	synt	any
	invoke	2
	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
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	line	16
	colm	21
	synt	any
	invoke	11
	line	16
	colm	132
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	134
	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 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	1158
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1159
	colm	14
	synt	any
	field	__m
	line	1159
	colm	18
	synt	any
	field	Node
	line	1159
	colm	23
	synt	any
	field	trace_node
	var	0
	line	1159
	colm	34
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1160
	colm	14
	synt	any
	field	__m
	line	1160
	colm	18
	synt	any
	field	ConsNode
	line	1160
	colm	27
	synt	any
	field	trace_node
	var	0
	line	1160
	colm	38
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1161
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1162
	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	1163
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1165
	colm	14
	synt	any
	field	__m
	line	1165
	colm	18
	synt	any
	field	Node
	line	1165
	colm	23
	synt	any
	field	dump
	var	0
	var	1
	line	1165
	colm	28
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1166
	colm	14
	synt	any
	field	__m
	line	1166
	colm	18
	synt	any
	field	ConsNode
	line	1166
	colm	27
	synt	any
	field	dump
	var	0
	var	1
	line	1166
	colm	32
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1167
	colm	59
	synt	any
	plus
	line	1167
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1167
	colm	96
	synt	any
	field	signature
	line	1167
	colm	91
	synt	any
	invoke	1
	line	1167
	colm	79
	synt	any
	cat
	line	1167
	colm	14
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1168
	colm	58
	synt	any
	plus
	line	1168
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1168
	colm	95
	synt	any
	field	sig_done
	line	1168
	colm	90
	synt	any
	invoke	1
	line	1168
	colm	78
	synt	any
	cat
	line	1168
	colm	14
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1169
	colm	68
	synt	any
	plus
	line	1169
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1169
	colm	105
	synt	any
	field	prod_local_type_id
	line	1169
	colm	100
	synt	any
	invoke	1
	line	1169
	colm	88
	synt	any
	cat
	line	1169
	colm	14
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	1170
	colm	65
	synt	any
	plus
	line	1170
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1170
	colm	102
	synt	any
	field	prod_components
	line	1170
	colm	97
	synt	any
	invoke	1
	line	1170
	colm	85
	synt	any
	cat
	line	1170
	colm	14
	synt	any
	invoke	2
	unmark
lab L7
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	1171
	colm	74
	synt	any
	plus
	line	1171
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1171
	colm	111
	synt	any
	field	prod_previous_definition
	line	1171
	colm	106
	synt	any
	invoke	1
	line	1171
	colm	94
	synt	any
	cat
	line	1171
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1173
	colm	1
	synt	any
	pfail
	end
proc UnionConstructionNode_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	local	4,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	1174
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1176
	colm	14
	synt	any
	field	__m
	line	1176
	colm	18
	synt	any
	field	Node
	line	1176
	colm	23
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1176
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1177
	colm	14
	synt	any
	field	__m
	line	1177
	colm	18
	synt	any
	field	ConsNode
	line	1177
	colm	27
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1177
	colm	37
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	var	4
	var	2
	var	3
	var	1
	str	0
	pnull
	var	0
	line	1178
	colm	79
	synt	any
	field	signature
	line	1178
	colm	23
	synt	any
	invoke	5
	unmark
lab L3
	mark	L4
	var	4
	var	2
	var	3
	var	1
	str	1
	pnull
	var	0
	line	1179
	colm	78
	synt	any
	field	sig_done
	line	1179
	colm	23
	synt	any
	invoke	5
	unmark
lab L4
	mark	L5
	var	4
	var	2
	var	3
	var	1
	str	2
	pnull
	var	0
	line	1180
	colm	88
	synt	any
	field	prod_local_type_id
	line	1180
	colm	23
	synt	any
	invoke	5
	unmark
lab L5
	mark	L6
	var	4
	var	2
	var	3
	var	1
	str	3
	pnull
	var	0
	line	1181
	colm	85
	synt	any
	field	prod_components
	line	1181
	colm	23
	synt	any
	invoke	5
	unmark
lab L6
	mark	L7
	var	4
	var	2
	var	3
	var	1
	str	4
	pnull
	var	0
	line	1182
	colm	94
	synt	any
	field	prod_previous_definition
	line	1182
	colm	23
	synt	any
	invoke	5
	unmark
lab L7
	pnull
	line	1183
	colm	1
	synt	any
	pfail
	end
proc UnionConstructionNode_initially
	local	0,001000,self
	local	1,001000,signature
	local	2,001000,sig_done
	local	3,001000,prod_local_type_id
	local	4,001000,prod_components
	local	5,001000,prod_previous_definition
	local	6,001000,kind
	local	7,001000,vlineno
	local	8,001000,pre_num
	local	9,001000,post_num
	local	10,001000,cn_hd
	local	11,001000,cn_tl
	declend
	line	1184
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1186
	colm	14
	synt	any
	field	__m
	line	1186
	colm	18
	synt	any
	field	ConsNode
	line	1186
	colm	27
	synt	any
	field	initially
	var	0
	var	10
	var	11
	line	1186
	colm	38
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1187
	colm	14
	synt	any
	field	__m
	line	1187
	colm	18
	synt	any
	field	Node
	line	1187
	colm	23
	synt	any
	field	initially
	var	0
	var	6
	var	7
	var	8
	var	9
	line	1187
	colm	34
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1188
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1189
	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,cn_hd
	local	10,001000,cn_tl
	local	11,000020,self
	local	12,000020,clone
	local	13,000000,UnionConstructionNode__oprec
	local	14,000000,UnionConstructionNodeinitialize
	local	15,000000,Node__oprec
	local	16,000000,Nodeinitialize
	local	17,000000,ConsNode__oprec
	local	18,000000,ConsNodeinitialize
	local	19,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	13
	line	8
	colm	6
	synt	any
	null
	unmark
	var	14
	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	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	31
	synt	any
	field	Node
	var	15
	line	10
	colm	37
	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	31
	synt	any
	field	ConsNode
	var	17
	line	12
	colm	41
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	11
	var	19
	line	14
	colm	40
	synt	any
	keywd	null
	var	13
	line	14
	colm	39
	synt	any
	invoke	2
	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
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	line	16
	colm	21
	synt	any
	invoke	12
	line	16
	colm	149
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	151
	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 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	1191
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1192
	colm	14
	synt	any
	field	__m
	line	1192
	colm	18
	synt	any
	field	Node
	line	1192
	colm	23
	synt	any
	field	trace_node
	var	0
	line	1192
	colm	34
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1193
	colm	14
	synt	any
	field	__m
	line	1193
	colm	18
	synt	any
	field	ConsNode
	line	1193
	colm	27
	synt	any
	field	trace_node
	var	0
	line	1193
	colm	38
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1194
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1195
	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	1196
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1199
	colm	14
	synt	any
	field	__m
	line	1199
	colm	18
	synt	any
	field	Node
	line	1199
	colm	23
	synt	any
	field	dump
	var	0
	var	1
	line	1199
	colm	28
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1200
	colm	14
	synt	any
	field	__m
	line	1200
	colm	18
	synt	any
	field	ConsNode
	line	1200
	colm	27
	synt	any
	field	dump
	var	0
	var	1
	line	1200
	colm	32
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1201
	colm	66
	synt	any
	plus
	line	1201
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1201
	colm	103
	synt	any
	field	wl_local_type_id
	line	1201
	colm	98
	synt	any
	invoke	1
	line	1201
	colm	86
	synt	any
	cat
	line	1201
	colm	14
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1202
	colm	67
	synt	any
	plus
	line	1202
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1202
	colm	104
	synt	any
	field	wl_component_list
	line	1202
	colm	99
	synt	any
	invoke	1
	line	1202
	colm	87
	synt	any
	cat
	line	1202
	colm	14
	synt	any
	invoke	2
	unmark
lab L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1203
	colm	72
	synt	any
	plus
	line	1203
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1203
	colm	109
	synt	any
	field	wl_previous_definition
	line	1203
	colm	104
	synt	any
	invoke	1
	line	1203
	colm	92
	synt	any
	cat
	line	1203
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1205
	colm	1
	synt	any
	pfail
	end
proc WithListNode_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	local	4,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	1206
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1209
	colm	14
	synt	any
	field	__m
	line	1209
	colm	18
	synt	any
	field	Node
	line	1209
	colm	23
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1209
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1210
	colm	14
	synt	any
	field	__m
	line	1210
	colm	18
	synt	any
	field	ConsNode
	line	1210
	colm	27
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1210
	colm	37
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	var	4
	var	2
	var	3
	var	1
	str	0
	pnull
	var	0
	line	1211
	colm	86
	synt	any
	field	wl_local_type_id
	line	1211
	colm	23
	synt	any
	invoke	5
	unmark
lab L3
	mark	L4
	var	4
	var	2
	var	3
	var	1
	str	1
	pnull
	var	0
	line	1212
	colm	87
	synt	any
	field	wl_component_list
	line	1212
	colm	23
	synt	any
	invoke	5
	unmark
lab L4
	mark	L5
	var	4
	var	2
	var	3
	var	1
	str	2
	pnull
	var	0
	line	1213
	colm	92
	synt	any
	field	wl_previous_definition
	line	1213
	colm	23
	synt	any
	invoke	5
	unmark
lab L5
	pnull
	line	1214
	colm	1
	synt	any
	pfail
	end
proc WithListNode_initially
	local	0,001000,self
	local	1,001000,wl_local_type_id
	local	2,001000,wl_component_list
	local	3,001000,wl_previous_definition
	local	4,001000,kind
	local	5,001000,vlineno
	local	6,001000,pre_num
	local	7,001000,post_num
	local	8,001000,cn_hd
	local	9,001000,cn_tl
	local	10,000000,emptylist
	declend
	line	1215
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1217
	colm	14
	synt	any
	field	__m
	line	1217
	colm	18
	synt	any
	field	ConsNode
	line	1217
	colm	27
	synt	any
	field	initially
	var	0
	var	8
	var	9
	line	1217
	colm	38
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1218
	colm	14
	synt	any
	field	__m
	line	1218
	colm	18
	synt	any
	field	Node
	line	1218
	colm	23
	synt	any
	field	initially
	var	0
	var	4
	var	5
	var	6
	var	7
	line	1218
	colm	34
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	1220
	colm	13
	synt	any
	field	wl_component_list
	var	10
	line	1220
	colm	44
	synt	any
	invoke	0
	line	1220
	colm	32
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	line	1221
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	1222
	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,cn_hd
	local	8,001000,cn_tl
	local	9,000020,self
	local	10,000020,clone
	local	11,000000,WithListNode__oprec
	local	12,000000,WithListNodeinitialize
	local	13,000000,Node__oprec
	local	14,000000,Nodeinitialize
	local	15,000000,ConsNode__oprec
	local	16,000000,ConsNodeinitialize
	local	17,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	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
	line	14
	colm	30
	synt	any
	invoke	2
	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
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	line	16
	colm	21
	synt	any
	invoke	10
	line	16
	colm	128
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	130
	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 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	1223
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1224
	colm	14
	synt	any
	field	__m
	line	1224
	colm	18
	synt	any
	field	Node
	line	1224
	colm	23
	synt	any
	field	trace_node
	var	0
	line	1224
	colm	34
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1225
	colm	14
	synt	any
	field	__m
	line	1225
	colm	18
	synt	any
	field	ConsNode
	line	1225
	colm	27
	synt	any
	field	trace_node
	var	0
	line	1225
	colm	38
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1226
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1227
	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	1228
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1230
	colm	14
	synt	any
	field	__m
	line	1230
	colm	18
	synt	any
	field	Node
	line	1230
	colm	23
	synt	any
	field	dump
	var	0
	var	1
	line	1230
	colm	28
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1231
	colm	14
	synt	any
	field	__m
	line	1231
	colm	18
	synt	any
	field	ConsNode
	line	1231
	colm	27
	synt	any
	field	dump
	var	0
	var	1
	line	1231
	colm	32
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1232
	colm	59
	synt	any
	plus
	line	1232
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1232
	colm	96
	synt	any
	field	signature
	line	1232
	colm	91
	synt	any
	invoke	1
	line	1232
	colm	79
	synt	any
	cat
	line	1232
	colm	14
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1233
	colm	58
	synt	any
	plus
	line	1233
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1233
	colm	95
	synt	any
	field	sig_done
	line	1233
	colm	90
	synt	any
	invoke	1
	line	1233
	colm	78
	synt	any
	cat
	line	1233
	colm	14
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1234
	colm	62
	synt	any
	plus
	line	1234
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1234
	colm	99
	synt	any
	field	displacement
	line	1234
	colm	94
	synt	any
	invoke	1
	line	1234
	colm	82
	synt	any
	cat
	line	1234
	colm	14
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	1235
	colm	55
	synt	any
	plus
	line	1235
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1235
	colm	92
	synt	any
	field	level
	line	1235
	colm	87
	synt	any
	invoke	1
	line	1235
	colm	75
	synt	any
	cat
	line	1235
	colm	14
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	1236
	colm	60
	synt	any
	plus
	line	1236
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1236
	colm	97
	synt	any
	field	mp_primary
	line	1236
	colm	92
	synt	any
	invoke	1
	line	1236
	colm	80
	synt	any
	cat
	line	1236
	colm	14
	synt	any
	invoke	2
	unmark
lab L8
	mark	L9
	var	2
	var	1
	pnull
	var	3
	str	6
	pnull
	int	1
	var	4
	line	1237
	colm	66
	synt	any
	plus
	line	1237
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1237
	colm	103
	synt	any
	field	mp_type_modifier
	line	1237
	colm	98
	synt	any
	invoke	1
	line	1237
	colm	86
	synt	any
	cat
	line	1237
	colm	14
	synt	any
	invoke	2
	unmark
lab L9
	mark	L10
	var	2
	var	1
	pnull
	var	3
	str	7
	pnull
	int	1
	var	4
	line	1238
	colm	61
	synt	any
	plus
	line	1238
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1238
	colm	98
	synt	any
	field	mp_delete_v
	line	1238
	colm	93
	synt	any
	invoke	1
	line	1238
	colm	81
	synt	any
	cat
	line	1238
	colm	14
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	var	2
	var	1
	pnull
	var	3
	str	8
	pnull
	int	1
	var	4
	line	1239
	colm	64
	synt	any
	plus
	line	1239
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1239
	colm	101
	synt	any
	field	mp_orig_length
	line	1239
	colm	96
	synt	any
	invoke	1
	line	1239
	colm	84
	synt	any
	cat
	line	1239
	colm	14
	synt	any
	invoke	2
	unmark
lab L11
	mark	L12
	var	2
	var	1
	pnull
	var	3
	str	9
	pnull
	int	1
	var	4
	line	1240
	colm	59
	synt	any
	plus
	line	1240
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1240
	colm	96
	synt	any
	field	mp_needed
	line	1240
	colm	91
	synt	any
	invoke	1
	line	1240
	colm	79
	synt	any
	cat
	line	1240
	colm	14
	synt	any
	invoke	2
	unmark
lab L12
	var	2
	var	1
	pnull
	var	3
	str	10
	pnull
	int	1
	var	4
	line	1241
	colm	65
	synt	any
	plus
	line	1241
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1241
	colm	102
	synt	any
	field	mp_no_surr_loop
	line	1241
	colm	97
	synt	any
	invoke	1
	line	1241
	colm	85
	synt	any
	cat
	line	1241
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1243
	colm	1
	synt	any
	pfail
	end
proc ModPrimaryNode_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	local	4,000000,proc_dump_tree
	local	5,000000,end_html
	local	6,000000,close
	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	1244
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1246
	colm	14
	synt	any
	field	__m
	line	1246
	colm	18
	synt	any
	field	Node
	line	1246
	colm	23
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1246
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1247
	colm	14
	synt	any
	field	__m
	line	1247
	colm	18
	synt	any
	field	ConsNode
	line	1247
	colm	27
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1247
	colm	37
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	var	4
	var	2
	var	3
	var	1
	str	0
	pnull
	var	0
	line	1248
	colm	79
	synt	any
	field	signature
	line	1248
	colm	23
	synt	any
	invoke	5
	unmark
lab L3
	mark	L4
	var	4
	var	2
	var	3
	var	1
	str	1
	pnull
	var	0
	line	1249
	colm	78
	synt	any
	field	sig_done
	line	1249
	colm	23
	synt	any
	invoke	5
	unmark
lab L4
	mark	L5
	var	4
	var	2
	var	3
	var	1
	str	2
	pnull
	var	0
	line	1250
	colm	82
	synt	any
	field	displacement
	line	1250
	colm	23
	synt	any
	invoke	5
	unmark
lab L5
	mark	L6
	var	4
	var	2
	var	3
	var	1
	str	3
	pnull
	var	0
	line	1251
	colm	75
	synt	any
	field	level
	line	1251
	colm	23
	synt	any
	invoke	5
	unmark
lab L6
	mark	L7
	var	4
	var	2
	var	3
	var	1
	str	4
	pnull
	var	0
	line	1252
	colm	80
	synt	any
	field	mp_primary
	line	1252
	colm	23
	synt	any
	invoke	5
	unmark
lab L7
	mark	L8
	var	4
	var	2
	var	3
	var	1
	str	5
	pnull
	var	0
	line	1253
	colm	86
	synt	any
	field	mp_type_modifier
	line	1253
	colm	23
	synt	any
	invoke	5
	unmark
lab L8
	mark	L9
	var	4
	var	2
	var	3
	var	1
	str	6
	pnull
	var	0
	line	1254
	colm	81
	synt	any
	field	mp_delete_v
	line	1254
	colm	23
	synt	any
	invoke	5
	unmark
lab L9
	mark	L10
	var	4
	var	2
	var	3
	var	1
	str	7
	pnull
	var	0
	line	1255
	colm	84
	synt	any
	field	mp_orig_length
	line	1255
	colm	23
	synt	any
	invoke	5
	unmark
lab L10
	mark	L11
	var	4
	var	2
	var	3
	var	1
	str	8
	pnull
	var	0
	line	1256
	colm	79
	synt	any
	field	mp_needed
	line	1256
	colm	23
	synt	any
	invoke	5
	unmark
lab L11
	mark	L12
	var	4
	var	2
	var	3
	var	1
	str	9
	pnull
	var	0
	line	1257
	colm	85
	synt	any
	field	mp_no_surr_loop
	line	1257
	colm	23
	synt	any
	invoke	5
	unmark
lab L12
	mark	L13
	var	5
	var	3
	var	0
	line	1258
	colm	17
	synt	any
	invoke	2
	unmark
lab L13
	mark	L14
	var	6
	var	2
	line	1259
	colm	14
	synt	any
	invoke	1
	unmark
lab L14
	pnull
	line	1260
	colm	1
	synt	any
	pfail
	end
proc ModPrimaryNode_initially
	local	0,001000,self
	local	1,001000,signature
	local	2,001000,sig_done
	local	3,001000,displacement
	local	4,001000,level
	local	5,001000,mp_primary
	local	6,001000,mp_type_modifier
	local	7,001000,mp_delete_v
	local	8,001000,mp_orig_length
	local	9,001000,mp_needed
	local	10,001000,mp_no_surr_loop
	local	11,001000,kind
	local	12,001000,vlineno
	local	13,001000,pre_num
	local	14,001000,post_num
	local	15,001000,cn_hd
	local	16,001000,cn_tl
	declend
	line	1263
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1265
	colm	14
	synt	any
	field	__m
	line	1265
	colm	18
	synt	any
	field	ConsNode
	line	1265
	colm	27
	synt	any
	field	initially
	var	0
	var	15
	var	16
	line	1265
	colm	38
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1266
	colm	14
	synt	any
	field	__m
	line	1266
	colm	18
	synt	any
	field	Node
	line	1266
	colm	23
	synt	any
	field	initially
	var	0
	var	11
	var	12
	var	13
	var	14
	line	1266
	colm	34
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1267
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1268
	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,cn_hd
	local	15,001000,cn_tl
	local	16,000020,self
	local	17,000020,clone
	local	18,000000,ModPrimaryNode__oprec
	local	19,000000,ModPrimaryNodeinitialize
	local	20,000000,Node__oprec
	local	21,000000,Nodeinitialize
	local	22,000000,ConsNode__oprec
	local	23,000000,ConsNodeinitialize
	local	24,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	18
	line	8
	colm	6
	synt	any
	null
	unmark
	var	19
	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	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	24
	synt	any
	field	Node
	var	20
	line	10
	colm	30
	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	24
	synt	any
	field	ConsNode
	var	22
	line	12
	colm	34
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	16
	var	24
	line	14
	colm	33
	synt	any
	keywd	null
	var	18
	line	14
	colm	32
	synt	any
	invoke	2
	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
	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	16
	colm	21
	synt	any
	invoke	17
	line	16
	colm	189
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	191
	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 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	1270
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1271
	colm	14
	synt	any
	field	__m
	line	1271
	colm	18
	synt	any
	field	Node
	line	1271
	colm	23
	synt	any
	field	trace_node
	var	0
	line	1271
	colm	34
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1272
	colm	14
	synt	any
	field	__m
	line	1272
	colm	18
	synt	any
	field	ConsNode
	line	1272
	colm	27
	synt	any
	field	trace_node
	var	0
	line	1272
	colm	38
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1273
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1274
	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	1275
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1277
	colm	14
	synt	any
	field	__m
	line	1277
	colm	18
	synt	any
	field	Node
	line	1277
	colm	23
	synt	any
	field	dump
	var	0
	var	1
	line	1277
	colm	28
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1278
	colm	14
	synt	any
	field	__m
	line	1278
	colm	18
	synt	any
	field	ConsNode
	line	1278
	colm	27
	synt	any
	field	dump
	var	0
	var	1
	line	1278
	colm	32
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1279
	colm	66
	synt	any
	plus
	line	1279
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1279
	colm	103
	synt	any
	field	el_local_type_id
	line	1279
	colm	98
	synt	any
	invoke	1
	line	1279
	colm	86
	synt	any
	cat
	line	1279
	colm	14
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1280
	colm	72
	synt	any
	plus
	line	1280
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1280
	colm	109
	synt	any
	field	el_export_element_list
	line	1280
	colm	104
	synt	any
	invoke	1
	line	1280
	colm	92
	synt	any
	cat
	line	1280
	colm	14
	synt	any
	invoke	2
	unmark
lab L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1281
	colm	72
	synt	any
	plus
	line	1281
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1281
	colm	109
	synt	any
	field	el_previous_definition
	line	1281
	colm	104
	synt	any
	invoke	1
	line	1281
	colm	92
	synt	any
	cat
	line	1281
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1283
	colm	1
	synt	any
	pfail
	end
proc ExportListNode_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	local	4,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	1284
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1286
	colm	14
	synt	any
	field	__m
	line	1286
	colm	18
	synt	any
	field	Node
	line	1286
	colm	23
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1286
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1287
	colm	14
	synt	any
	field	__m
	line	1287
	colm	18
	synt	any
	field	ConsNode
	line	1287
	colm	27
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1287
	colm	37
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	var	4
	var	2
	var	3
	var	1
	str	0
	pnull
	var	0
	line	1288
	colm	86
	synt	any
	field	el_local_type_id
	line	1288
	colm	23
	synt	any
	invoke	5
	unmark
lab L3
	mark	L4
	var	4
	var	2
	var	3
	var	1
	str	1
	pnull
	var	0
	line	1289
	colm	92
	synt	any
	field	el_export_element_list
	line	1289
	colm	23
	synt	any
	invoke	5
	unmark
lab L4
	mark	L5
	var	4
	var	2
	var	3
	var	1
	str	2
	pnull
	var	0
	line	1290
	colm	92
	synt	any
	field	el_previous_definition
	line	1290
	colm	23
	synt	any
	invoke	5
	unmark
lab L5
	pnull
	line	1291
	colm	1
	synt	any
	pfail
	end
proc ExportListNode_initially
	local	0,001000,self
	local	1,001000,el_local_type_id
	local	2,001000,el_export_element_list
	local	3,001000,el_previous_definition
	local	4,001000,kind
	local	5,001000,vlineno
	local	6,001000,pre_num
	local	7,001000,post_num
	local	8,001000,cn_hd
	local	9,001000,cn_tl
	local	10,000000,emptylist
	declend
	line	1292
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1294
	colm	14
	synt	any
	field	__m
	line	1294
	colm	18
	synt	any
	field	ConsNode
	line	1294
	colm	27
	synt	any
	field	initially
	var	0
	var	8
	var	9
	line	1294
	colm	38
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1295
	colm	14
	synt	any
	field	__m
	line	1295
	colm	18
	synt	any
	field	Node
	line	1295
	colm	23
	synt	any
	field	initially
	var	0
	var	4
	var	5
	var	6
	var	7
	line	1295
	colm	34
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	1297
	colm	13
	synt	any
	field	el_export_element_list
	var	10
	line	1297
	colm	49
	synt	any
	invoke	0
	line	1297
	colm	37
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	line	1298
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	1299
	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,cn_hd
	local	8,001000,cn_tl
	local	9,000020,self
	local	10,000020,clone
	local	11,000000,ExportListNode__oprec
	local	12,000000,ExportListNodeinitialize
	local	13,000000,Node__oprec
	local	14,000000,Nodeinitialize
	local	15,000000,ConsNode__oprec
	local	16,000000,ConsNodeinitialize
	local	17,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	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
	line	14
	colm	32
	synt	any
	invoke	2
	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
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	line	16
	colm	21
	synt	any
	invoke	10
	line	16
	colm	133
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	135
	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 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	1300
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1301
	colm	14
	synt	any
	field	__m
	line	1301
	colm	18
	synt	any
	field	Node
	line	1301
	colm	23
	synt	any
	field	trace_node
	var	0
	line	1301
	colm	34
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1302
	colm	14
	synt	any
	field	__m
	line	1302
	colm	18
	synt	any
	field	ConsNode
	line	1302
	colm	27
	synt	any
	field	trace_node
	var	0
	line	1302
	colm	38
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1303
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1304
	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	1305
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1307
	colm	14
	synt	any
	field	__m
	line	1307
	colm	18
	synt	any
	field	Node
	line	1307
	colm	23
	synt	any
	field	dump
	var	0
	var	1
	line	1307
	colm	28
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1308
	colm	14
	synt	any
	field	__m
	line	1308
	colm	18
	synt	any
	field	ConsNode
	line	1308
	colm	27
	synt	any
	field	dump
	var	0
	var	1
	line	1308
	colm	32
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1309
	colm	66
	synt	any
	plus
	line	1309
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1309
	colm	103
	synt	any
	field	el_local_type_id
	line	1309
	colm	98
	synt	any
	invoke	1
	line	1309
	colm	86
	synt	any
	cat
	line	1309
	colm	14
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1310
	colm	72
	synt	any
	plus
	line	1310
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1310
	colm	109
	synt	any
	field	el_export_element_list
	line	1310
	colm	104
	synt	any
	invoke	1
	line	1310
	colm	92
	synt	any
	cat
	line	1310
	colm	14
	synt	any
	invoke	2
	unmark
lab L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1311
	colm	72
	synt	any
	plus
	line	1311
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1311
	colm	109
	synt	any
	field	el_previous_definition
	line	1311
	colm	104
	synt	any
	invoke	1
	line	1311
	colm	92
	synt	any
	cat
	line	1311
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1313
	colm	1
	synt	any
	pfail
	end
proc HideListNode_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	local	4,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	1314
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1316
	colm	14
	synt	any
	field	__m
	line	1316
	colm	18
	synt	any
	field	Node
	line	1316
	colm	23
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1316
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1317
	colm	14
	synt	any
	field	__m
	line	1317
	colm	18
	synt	any
	field	ConsNode
	line	1317
	colm	27
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1317
	colm	37
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	var	4
	var	2
	var	3
	var	1
	str	0
	pnull
	var	0
	line	1318
	colm	86
	synt	any
	field	el_local_type_id
	line	1318
	colm	23
	synt	any
	invoke	5
	unmark
lab L3
	mark	L4
	var	4
	var	2
	var	3
	var	1
	str	1
	pnull
	var	0
	line	1319
	colm	92
	synt	any
	field	el_export_element_list
	line	1319
	colm	23
	synt	any
	invoke	5
	unmark
lab L4
	mark	L5
	var	4
	var	2
	var	3
	var	1
	str	2
	pnull
	var	0
	line	1320
	colm	92
	synt	any
	field	el_previous_definition
	line	1320
	colm	23
	synt	any
	invoke	5
	unmark
lab L5
	pnull
	line	1321
	colm	1
	synt	any
	pfail
	end
proc HideListNode_initially
	local	0,001000,self
	local	1,001000,el_local_type_id
	local	2,001000,el_export_element_list
	local	3,001000,el_previous_definition
	local	4,001000,kind
	local	5,001000,vlineno
	local	6,001000,pre_num
	local	7,001000,post_num
	local	8,001000,cn_hd
	local	9,001000,cn_tl
	local	10,000000,emptylist
	declend
	line	1322
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1324
	colm	14
	synt	any
	field	__m
	line	1324
	colm	18
	synt	any
	field	ConsNode
	line	1324
	colm	27
	synt	any
	field	initially
	var	0
	var	8
	var	9
	line	1324
	colm	38
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1325
	colm	14
	synt	any
	field	__m
	line	1325
	colm	18
	synt	any
	field	Node
	line	1325
	colm	23
	synt	any
	field	initially
	var	0
	var	4
	var	5
	var	6
	var	7
	line	1325
	colm	34
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	1327
	colm	13
	synt	any
	field	el_export_element_list
	var	10
	line	1327
	colm	49
	synt	any
	invoke	0
	line	1327
	colm	37
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	line	1328
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	1329
	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,cn_hd
	local	8,001000,cn_tl
	local	9,000020,self
	local	10,000020,clone
	local	11,000000,HideListNode__oprec
	local	12,000000,HideListNodeinitialize
	local	13,000000,Node__oprec
	local	14,000000,Nodeinitialize
	local	15,000000,ConsNode__oprec
	local	16,000000,ConsNodeinitialize
	local	17,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	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
	line	14
	colm	30
	synt	any
	invoke	2
	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
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	line	16
	colm	21
	synt	any
	invoke	10
	line	16
	colm	133
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	135
	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 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	1330
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1331
	colm	14
	synt	any
	field	__m
	line	1331
	colm	18
	synt	any
	field	Node
	line	1331
	colm	23
	synt	any
	field	trace_node
	var	0
	line	1331
	colm	34
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1332
	colm	14
	synt	any
	field	__m
	line	1332
	colm	18
	synt	any
	field	ConsNode
	line	1332
	colm	27
	synt	any
	field	trace_node
	var	0
	line	1332
	colm	38
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1333
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1334
	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	1335
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1337
	colm	14
	synt	any
	field	__m
	line	1337
	colm	18
	synt	any
	field	Node
	line	1337
	colm	23
	synt	any
	field	dump
	var	0
	var	1
	line	1337
	colm	28
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1338
	colm	14
	synt	any
	field	__m
	line	1338
	colm	18
	synt	any
	field	ConsNode
	line	1338
	colm	27
	synt	any
	field	dump
	var	0
	var	1
	line	1338
	colm	32
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1339
	colm	55
	synt	any
	plus
	line	1339
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1339
	colm	92
	synt	any
	field	ee_id
	line	1339
	colm	87
	synt	any
	invoke	1
	line	1339
	colm	75
	synt	any
	cat
	line	1339
	colm	14
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1340
	colm	62
	synt	any
	plus
	line	1340
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1340
	colm	99
	synt	any
	field	ee_signature
	line	1340
	colm	94
	synt	any
	invoke	1
	line	1340
	colm	82
	synt	any
	cat
	line	1340
	colm	14
	synt	any
	invoke	2
	unmark
lab L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1341
	colm	64
	synt	any
	plus
	line	1341
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1341
	colm	101
	synt	any
	field	ee_export_list
	line	1341
	colm	96
	synt	any
	invoke	1
	line	1341
	colm	84
	synt	any
	cat
	line	1341
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1343
	colm	1
	synt	any
	pfail
	end
proc ExportElementNode_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	local	4,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	1345
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1347
	colm	14
	synt	any
	field	__m
	line	1347
	colm	18
	synt	any
	field	Node
	line	1347
	colm	23
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1347
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1348
	colm	14
	synt	any
	field	__m
	line	1348
	colm	18
	synt	any
	field	ConsNode
	line	1348
	colm	27
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1348
	colm	37
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	var	4
	var	2
	var	3
	var	1
	str	0
	pnull
	var	0
	line	1349
	colm	75
	synt	any
	field	ee_id
	line	1349
	colm	23
	synt	any
	invoke	5
	unmark
lab L3
	mark	L4
	var	4
	var	2
	var	3
	var	1
	str	1
	pnull
	var	0
	line	1350
	colm	82
	synt	any
	field	ee_signature
	line	1350
	colm	23
	synt	any
	invoke	5
	unmark
lab L4
	mark	L5
	var	4
	var	2
	var	3
	var	1
	str	2
	pnull
	var	0
	line	1351
	colm	84
	synt	any
	field	ee_export_list
	line	1351
	colm	23
	synt	any
	invoke	5
	unmark
lab L5
	pnull
	line	1352
	colm	1
	synt	any
	pfail
	end
proc ExportElementNode_initially
	local	0,001000,self
	local	1,001000,ee_id
	local	2,001000,ee_signature
	local	3,001000,ee_export_list
	local	4,001000,kind
	local	5,001000,vlineno
	local	6,001000,pre_num
	local	7,001000,post_num
	local	8,001000,cn_hd
	local	9,001000,cn_tl
	local	10,000000,emptylist
	declend
	line	1354
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1356
	colm	14
	synt	any
	field	__m
	line	1356
	colm	18
	synt	any
	field	ConsNode
	line	1356
	colm	27
	synt	any
	field	initially
	var	0
	var	8
	var	9
	line	1356
	colm	38
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1357
	colm	14
	synt	any
	field	__m
	line	1357
	colm	18
	synt	any
	field	Node
	line	1357
	colm	23
	synt	any
	field	initially
	var	0
	var	4
	var	5
	var	6
	var	7
	line	1357
	colm	34
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	1359
	colm	13
	synt	any
	field	ee_export_list
	var	10
	line	1359
	colm	41
	synt	any
	invoke	0
	line	1359
	colm	29
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	line	1360
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	1361
	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,cn_hd
	local	8,001000,cn_tl
	local	9,000020,self
	local	10,000020,clone
	local	11,000000,ExportElementNode__oprec
	local	12,000000,ExportElementNodeinitialize
	local	13,000000,Node__oprec
	local	14,000000,Nodeinitialize
	local	15,000000,ConsNode__oprec
	local	16,000000,ConsNodeinitialize
	local	17,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	11
	line	8
	colm	6
	synt	any
	null
	unmark
	var	12
	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	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	27
	synt	any
	field	Node
	var	13
	line	10
	colm	33
	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	27
	synt	any
	field	ConsNode
	var	15
	line	12
	colm	37
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	9
	var	17
	line	14
	colm	36
	synt	any
	keywd	null
	var	11
	line	14
	colm	35
	synt	any
	invoke	2
	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
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	line	16
	colm	21
	synt	any
	invoke	10
	line	16
	colm	104
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	106
	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 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	1362
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1363
	colm	14
	synt	any
	field	__m
	line	1363
	colm	18
	synt	any
	field	Node
	line	1363
	colm	23
	synt	any
	field	trace_node
	var	0
	line	1363
	colm	34
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1364
	colm	14
	synt	any
	field	__m
	line	1364
	colm	18
	synt	any
	field	ConsNode
	line	1364
	colm	27
	synt	any
	field	trace_node
	var	0
	line	1364
	colm	38
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1365
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1366
	colm	1
	synt	any
	pfail
	end
proc AllConstantsNode_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	declend
	line	1367
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1369
	colm	14
	synt	any
	field	__m
	line	1369
	colm	18
	synt	any
	field	Node
	line	1369
	colm	23
	synt	any
	field	dump
	var	0
	var	1
	line	1369
	colm	28
	synt	any
	invoke	2
	unmark
lab L2
	pnull
	pnull
	pnull
	var	0
	line	1370
	colm	14
	synt	any
	field	__m
	line	1370
	colm	18
	synt	any
	field	ConsNode
	line	1370
	colm	27
	synt	any
	field	dump
	var	0
	var	1
	line	1370
	colm	32
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1372
	colm	1
	synt	any
	pfail
	end
proc AllConstantsNode_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	declend
	line	1373
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1375
	colm	14
	synt	any
	field	__m
	line	1375
	colm	18
	synt	any
	field	Node
	line	1375
	colm	23
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1375
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1376
	colm	14
	synt	any
	field	__m
	line	1376
	colm	18
	synt	any
	field	ConsNode
	line	1376
	colm	27
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1376
	colm	37
	synt	any
	invoke	4
	unmark
lab L2
	pnull
	line	1377
	colm	1
	synt	any
	pfail
	end
proc AllConstantsNode_initially
	local	0,001000,self
	local	1,001000,kind
	local	2,001000,vlineno
	local	3,001000,pre_num
	local	4,001000,post_num
	local	5,001000,cn_hd
	local	6,001000,cn_tl
	declend
	line	1378
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1380
	colm	14
	synt	any
	field	__m
	line	1380
	colm	18
	synt	any
	field	ConsNode
	line	1380
	colm	27
	synt	any
	field	initially
	var	0
	var	5
	var	6
	line	1380
	colm	38
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1381
	colm	14
	synt	any
	field	__m
	line	1381
	colm	18
	synt	any
	field	Node
	line	1381
	colm	23
	synt	any
	field	initially
	var	0
	var	1
	var	2
	var	3
	var	4
	line	1381
	colm	34
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1382
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1383
	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,cn_hd
	local	5,001000,cn_tl
	local	6,000020,self
	local	7,000020,clone
	local	8,000000,AllConstantsNode__oprec
	local	9,000000,AllConstantsNodeinitialize
	local	10,000000,Node__oprec
	local	11,000000,Nodeinitialize
	local	12,000000,ConsNode__oprec
	local	13,000000,ConsNodeinitialize
	local	14,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	8
	line	8
	colm	6
	synt	any
	null
	unmark
	var	9
	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	10
	line	9
	colm	6
	synt	any
	null
	unmark
	var	11
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	8
	line	10
	colm	26
	synt	any
	field	Node
	var	10
	line	10
	colm	32
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	12
	line	11
	colm	6
	synt	any
	null
	unmark
	var	13
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	8
	line	12
	colm	26
	synt	any
	field	ConsNode
	var	12
	line	12
	colm	36
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	6
	var	14
	line	14
	colm	35
	synt	any
	keywd	null
	var	8
	line	14
	colm	34
	synt	any
	invoke	2
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	6
	line	15
	colm	7
	synt	any
	field	__s
	var	6
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	6
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	6
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	line	16
	colm	21
	synt	any
	invoke	7
	line	16
	colm	70
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	72
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	6
	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	1385
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1386
	colm	14
	synt	any
	field	__m
	line	1386
	colm	18
	synt	any
	field	Node
	line	1386
	colm	23
	synt	any
	field	trace_node
	var	0
	line	1386
	colm	34
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1387
	colm	14
	synt	any
	field	__m
	line	1387
	colm	18
	synt	any
	field	ConsNode
	line	1387
	colm	27
	synt	any
	field	trace_node
	var	0
	line	1387
	colm	38
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1388
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1389
	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	1390
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1392
	colm	14
	synt	any
	field	__m
	line	1392
	colm	18
	synt	any
	field	Node
	line	1392
	colm	23
	synt	any
	field	dump
	var	0
	var	1
	line	1392
	colm	28
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1393
	colm	14
	synt	any
	field	__m
	line	1393
	colm	18
	synt	any
	field	ConsNode
	line	1393
	colm	27
	synt	any
	field	dump
	var	0
	var	1
	line	1393
	colm	32
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1394
	colm	59
	synt	any
	plus
	line	1394
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1394
	colm	96
	synt	any
	field	signature
	line	1394
	colm	91
	synt	any
	invoke	1
	line	1394
	colm	79
	synt	any
	cat
	line	1394
	colm	14
	synt	any
	invoke	2
	unmark
lab L4
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1395
	colm	58
	synt	any
	plus
	line	1395
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1395
	colm	95
	synt	any
	field	sig_done
	line	1395
	colm	90
	synt	any
	invoke	1
	line	1395
	colm	78
	synt	any
	cat
	line	1395
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1397
	colm	1
	synt	any
	pfail
	end
proc WordElseNode_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	local	4,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	1398
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1400
	colm	14
	synt	any
	field	__m
	line	1400
	colm	18
	synt	any
	field	Node
	line	1400
	colm	23
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1400
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1401
	colm	14
	synt	any
	field	__m
	line	1401
	colm	18
	synt	any
	field	ConsNode
	line	1401
	colm	27
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1401
	colm	37
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	var	4
	var	2
	var	3
	var	1
	str	0
	pnull
	var	0
	line	1402
	colm	79
	synt	any
	field	signature
	line	1402
	colm	23
	synt	any
	invoke	5
	unmark
lab L3
	mark	L4
	var	4
	var	2
	var	3
	var	1
	str	1
	pnull
	var	0
	line	1403
	colm	78
	synt	any
	field	sig_done
	line	1403
	colm	23
	synt	any
	invoke	5
	unmark
lab L4
	pnull
	line	1404
	colm	1
	synt	any
	pfail
	end
proc WordElseNode_initially
	local	0,001000,self
	local	1,001000,signature
	local	2,001000,sig_done
	local	3,001000,kind
	local	4,001000,vlineno
	local	5,001000,pre_num
	local	6,001000,post_num
	local	7,001000,cn_hd
	local	8,001000,cn_tl
	declend
	line	1405
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1407
	colm	14
	synt	any
	field	__m
	line	1407
	colm	18
	synt	any
	field	ConsNode
	line	1407
	colm	27
	synt	any
	field	initially
	var	0
	var	7
	var	8
	line	1407
	colm	38
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1408
	colm	14
	synt	any
	field	__m
	line	1408
	colm	18
	synt	any
	field	Node
	line	1408
	colm	23
	synt	any
	field	initially
	var	0
	var	3
	var	4
	var	5
	var	6
	line	1408
	colm	34
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1409
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1410
	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,cn_hd
	local	7,001000,cn_tl
	local	8,000020,self
	local	9,000020,clone
	local	10,000000,WordElseNode__oprec
	local	11,000000,WordElseNodeinitialize
	local	12,000000,Node__oprec
	local	13,000000,Nodeinitialize
	local	14,000000,ConsNode__oprec
	local	15,000000,ConsNodeinitialize
	local	16,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	10
	line	8
	colm	6
	synt	any
	null
	unmark
	var	11
	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	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	22
	synt	any
	field	Node
	var	12
	line	10
	colm	28
	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	22
	synt	any
	field	ConsNode
	var	14
	line	12
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	8
	var	16
	line	14
	colm	31
	synt	any
	keywd	null
	var	10
	line	14
	colm	30
	synt	any
	invoke	2
	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
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	line	16
	colm	21
	synt	any
	invoke	9
	line	16
	colm	89
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	91
	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 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	1412
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1413
	colm	14
	synt	any
	field	__m
	line	1413
	colm	18
	synt	any
	field	Node
	line	1413
	colm	23
	synt	any
	field	trace_node
	var	0
	line	1413
	colm	34
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1414
	colm	14
	synt	any
	field	__m
	line	1414
	colm	18
	synt	any
	field	ConsNode
	line	1414
	colm	27
	synt	any
	field	trace_node
	var	0
	line	1414
	colm	38
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1415
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1416
	colm	1
	synt	any
	pfail
	end
proc WordCandNode_dump
	local	0,001000,self
	local	1,000000,nodes_created_file
	declend
	line	1417
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1419
	colm	14
	synt	any
	field	__m
	line	1419
	colm	18
	synt	any
	field	Node
	line	1419
	colm	23
	synt	any
	field	dump
	var	0
	var	1
	line	1419
	colm	28
	synt	any
	invoke	2
	unmark
lab L2
	pnull
	pnull
	pnull
	var	0
	line	1420
	colm	14
	synt	any
	field	__m
	line	1420
	colm	18
	synt	any
	field	ConsNode
	line	1420
	colm	27
	synt	any
	field	dump
	var	0
	var	1
	line	1420
	colm	32
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1422
	colm	1
	synt	any
	pfail
	end
proc WordCandNode_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	declend
	line	1423
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1425
	colm	14
	synt	any
	field	__m
	line	1425
	colm	18
	synt	any
	field	Node
	line	1425
	colm	23
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1425
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1426
	colm	14
	synt	any
	field	__m
	line	1426
	colm	18
	synt	any
	field	ConsNode
	line	1426
	colm	27
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1426
	colm	37
	synt	any
	invoke	4
	unmark
lab L2
	pnull
	line	1427
	colm	1
	synt	any
	pfail
	end
proc WordCandNode_initially
	local	0,001000,self
	local	1,001000,kind
	local	2,001000,vlineno
	local	3,001000,pre_num
	local	4,001000,post_num
	local	5,001000,cn_hd
	local	6,001000,cn_tl
	declend
	line	1428
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1430
	colm	14
	synt	any
	field	__m
	line	1430
	colm	18
	synt	any
	field	ConsNode
	line	1430
	colm	27
	synt	any
	field	initially
	var	0
	var	5
	var	6
	line	1430
	colm	38
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1431
	colm	14
	synt	any
	field	__m
	line	1431
	colm	18
	synt	any
	field	Node
	line	1431
	colm	23
	synt	any
	field	initially
	var	0
	var	1
	var	2
	var	3
	var	4
	line	1431
	colm	34
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1432
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1433
	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,cn_hd
	local	5,001000,cn_tl
	local	6,000020,self
	local	7,000020,clone
	local	8,000000,WordCandNode__oprec
	local	9,000000,WordCandNodeinitialize
	local	10,000000,Node__oprec
	local	11,000000,Nodeinitialize
	local	12,000000,ConsNode__oprec
	local	13,000000,ConsNodeinitialize
	local	14,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	8
	line	8
	colm	6
	synt	any
	null
	unmark
	var	9
	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	10
	line	9
	colm	6
	synt	any
	null
	unmark
	var	11
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	8
	line	10
	colm	22
	synt	any
	field	Node
	var	10
	line	10
	colm	28
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	12
	line	11
	colm	6
	synt	any
	null
	unmark
	var	13
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	8
	line	12
	colm	22
	synt	any
	field	ConsNode
	var	12
	line	12
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	6
	var	14
	line	14
	colm	31
	synt	any
	keywd	null
	var	8
	line	14
	colm	30
	synt	any
	invoke	2
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	6
	line	15
	colm	7
	synt	any
	field	__s
	var	6
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	6
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	6
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	line	16
	colm	21
	synt	any
	invoke	7
	line	16
	colm	70
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	72
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	6
	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	1435
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1436
	colm	14
	synt	any
	field	__m
	line	1436
	colm	18
	synt	any
	field	Node
	line	1436
	colm	23
	synt	any
	field	trace_node
	var	0
	line	1436
	colm	34
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1437
	colm	14
	synt	any
	field	__m
	line	1437
	colm	18
	synt	any
	field	ConsNode
	line	1437
	colm	27
	synt	any
	field	trace_node
	var	0
	line	1437
	colm	38
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1438
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1439
	colm	1
	synt	any
	pfail
	end
proc WordCorNode_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	declend
	line	1440
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1442
	colm	14
	synt	any
	field	__m
	line	1442
	colm	18
	synt	any
	field	Node
	line	1442
	colm	23
	synt	any
	field	dump
	var	0
	var	1
	line	1442
	colm	28
	synt	any
	invoke	2
	unmark
lab L2
	pnull
	pnull
	pnull
	var	0
	line	1443
	colm	14
	synt	any
	field	__m
	line	1443
	colm	18
	synt	any
	field	ConsNode
	line	1443
	colm	27
	synt	any
	field	dump
	var	0
	var	1
	line	1443
	colm	32
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1445
	colm	1
	synt	any
	pfail
	end
proc WordCorNode_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	declend
	line	1446
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1448
	colm	14
	synt	any
	field	__m
	line	1448
	colm	18
	synt	any
	field	Node
	line	1448
	colm	23
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1448
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1449
	colm	14
	synt	any
	field	__m
	line	1449
	colm	18
	synt	any
	field	ConsNode
	line	1449
	colm	27
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1449
	colm	37
	synt	any
	invoke	4
	unmark
lab L2
	pnull
	line	1450
	colm	1
	synt	any
	pfail
	end
proc WordCorNode_initially
	local	0,001000,self
	local	1,001000,kind
	local	2,001000,vlineno
	local	3,001000,pre_num
	local	4,001000,post_num
	local	5,001000,cn_hd
	local	6,001000,cn_tl
	declend
	line	1451
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1453
	colm	14
	synt	any
	field	__m
	line	1453
	colm	18
	synt	any
	field	ConsNode
	line	1453
	colm	27
	synt	any
	field	initially
	var	0
	var	5
	var	6
	line	1453
	colm	38
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1454
	colm	14
	synt	any
	field	__m
	line	1454
	colm	18
	synt	any
	field	Node
	line	1454
	colm	23
	synt	any
	field	initially
	var	0
	var	1
	var	2
	var	3
	var	4
	line	1454
	colm	34
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1455
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1456
	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,cn_hd
	local	5,001000,cn_tl
	local	6,000020,self
	local	7,000020,clone
	local	8,000000,WordCorNode__oprec
	local	9,000000,WordCorNodeinitialize
	local	10,000000,Node__oprec
	local	11,000000,Nodeinitialize
	local	12,000000,ConsNode__oprec
	local	13,000000,ConsNodeinitialize
	local	14,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	8
	line	8
	colm	6
	synt	any
	null
	unmark
	var	9
	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	10
	line	9
	colm	6
	synt	any
	null
	unmark
	var	11
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	8
	line	10
	colm	21
	synt	any
	field	Node
	var	10
	line	10
	colm	27
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	12
	line	11
	colm	6
	synt	any
	null
	unmark
	var	13
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	8
	line	12
	colm	21
	synt	any
	field	ConsNode
	var	12
	line	12
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	6
	var	14
	line	14
	colm	30
	synt	any
	keywd	null
	var	8
	line	14
	colm	29
	synt	any
	invoke	2
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	6
	line	15
	colm	7
	synt	any
	field	__s
	var	6
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	6
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	6
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	line	16
	colm	21
	synt	any
	invoke	7
	line	16
	colm	70
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	72
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	6
	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	1458
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1459
	colm	14
	synt	any
	field	__m
	line	1459
	colm	18
	synt	any
	field	Node
	line	1459
	colm	23
	synt	any
	field	trace_node
	var	0
	line	1459
	colm	34
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1460
	colm	14
	synt	any
	field	__m
	line	1460
	colm	18
	synt	any
	field	ConsNode
	line	1460
	colm	27
	synt	any
	field	trace_node
	var	0
	line	1460
	colm	38
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1461
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1462
	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	1463
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1465
	colm	14
	synt	any
	field	__m
	line	1465
	colm	18
	synt	any
	field	Node
	line	1465
	colm	23
	synt	any
	field	dump
	var	0
	var	1
	line	1465
	colm	28
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1466
	colm	14
	synt	any
	field	__m
	line	1466
	colm	18
	synt	any
	field	ConsNode
	line	1466
	colm	27
	synt	any
	field	dump
	var	0
	var	1
	line	1466
	colm	32
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1467
	colm	59
	synt	any
	plus
	line	1467
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1467
	colm	96
	synt	any
	field	signature
	line	1467
	colm	91
	synt	any
	invoke	1
	line	1467
	colm	79
	synt	any
	cat
	line	1467
	colm	14
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1468
	colm	58
	synt	any
	plus
	line	1468
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1468
	colm	95
	synt	any
	field	sig_done
	line	1468
	colm	90
	synt	any
	invoke	1
	line	1468
	colm	78
	synt	any
	cat
	line	1468
	colm	14
	synt	any
	invoke	2
	unmark
lab L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1469
	colm	57
	synt	any
	plus
	line	1469
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1469
	colm	94
	synt	any
	field	gl_list
	line	1469
	colm	89
	synt	any
	invoke	1
	line	1469
	colm	77
	synt	any
	cat
	line	1469
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1471
	colm	1
	synt	any
	pfail
	end
proc GuardedListNode_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	local	4,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	1472
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1474
	colm	14
	synt	any
	field	__m
	line	1474
	colm	18
	synt	any
	field	Node
	line	1474
	colm	23
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1474
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1475
	colm	14
	synt	any
	field	__m
	line	1475
	colm	18
	synt	any
	field	ConsNode
	line	1475
	colm	27
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1475
	colm	37
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	var	4
	var	2
	var	3
	var	1
	str	0
	pnull
	var	0
	line	1476
	colm	79
	synt	any
	field	signature
	line	1476
	colm	23
	synt	any
	invoke	5
	unmark
lab L3
	mark	L4
	var	4
	var	2
	var	3
	var	1
	str	1
	pnull
	var	0
	line	1477
	colm	78
	synt	any
	field	sig_done
	line	1477
	colm	23
	synt	any
	invoke	5
	unmark
lab L4
	mark	L5
	var	4
	var	2
	var	3
	var	1
	str	2
	pnull
	var	0
	line	1478
	colm	77
	synt	any
	field	gl_list
	line	1478
	colm	23
	synt	any
	invoke	5
	unmark
lab L5
	pnull
	line	1479
	colm	1
	synt	any
	pfail
	end
proc GuardedListNode_initially
	local	0,001000,self
	local	1,001000,signature
	local	2,001000,sig_done
	local	3,001000,gl_list
	local	4,001000,kind
	local	5,001000,vlineno
	local	6,001000,pre_num
	local	7,001000,post_num
	local	8,001000,cn_hd
	local	9,001000,cn_tl
	local	10,000000,emptylist
	declend
	line	1480
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1482
	colm	14
	synt	any
	field	__m
	line	1482
	colm	18
	synt	any
	field	ConsNode
	line	1482
	colm	27
	synt	any
	field	initially
	var	0
	var	8
	var	9
	line	1482
	colm	38
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1483
	colm	14
	synt	any
	field	__m
	line	1483
	colm	18
	synt	any
	field	Node
	line	1483
	colm	23
	synt	any
	field	initially
	var	0
	var	4
	var	5
	var	6
	var	7
	line	1483
	colm	34
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	1485
	colm	13
	synt	any
	field	gl_list
	var	10
	line	1485
	colm	34
	synt	any
	invoke	0
	line	1485
	colm	22
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	line	1486
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	1487
	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,cn_hd
	local	8,001000,cn_tl
	local	9,000020,self
	local	10,000020,clone
	local	11,000000,GuardedListNode__oprec
	local	12,000000,GuardedListNodeinitialize
	local	13,000000,Node__oprec
	local	14,000000,Nodeinitialize
	local	15,000000,ConsNode__oprec
	local	16,000000,ConsNodeinitialize
	local	17,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	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
	line	14
	colm	33
	synt	any
	invoke	2
	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
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	line	16
	colm	21
	synt	any
	invoke	10
	line	16
	colm	97
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	99
	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 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	1488
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1489
	colm	14
	synt	any
	field	__m
	line	1489
	colm	18
	synt	any
	field	Node
	line	1489
	colm	23
	synt	any
	field	trace_node
	var	0
	line	1489
	colm	34
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1490
	colm	14
	synt	any
	field	__m
	line	1490
	colm	18
	synt	any
	field	ConsNode
	line	1490
	colm	27
	synt	any
	field	trace_node
	var	0
	line	1490
	colm	38
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1491
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1492
	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	1493
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1495
	colm	14
	synt	any
	field	__m
	line	1495
	colm	18
	synt	any
	field	Node
	line	1495
	colm	23
	synt	any
	field	dump
	var	0
	var	1
	line	1495
	colm	28
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1496
	colm	14
	synt	any
	field	__m
	line	1496
	colm	18
	synt	any
	field	ConsNode
	line	1496
	colm	27
	synt	any
	field	dump
	var	0
	var	1
	line	1496
	colm	32
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1497
	colm	59
	synt	any
	plus
	line	1497
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1497
	colm	96
	synt	any
	field	signature
	line	1497
	colm	91
	synt	any
	invoke	1
	line	1497
	colm	79
	synt	any
	cat
	line	1497
	colm	14
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1498
	colm	58
	synt	any
	plus
	line	1498
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1498
	colm	95
	synt	any
	field	sig_done
	line	1498
	colm	90
	synt	any
	invoke	1
	line	1498
	colm	78
	synt	any
	cat
	line	1498
	colm	14
	synt	any
	invoke	2
	unmark
lab L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1499
	colm	57
	synt	any
	plus
	line	1499
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1499
	colm	94
	synt	any
	field	gl_list
	line	1499
	colm	89
	synt	any
	invoke	1
	line	1499
	colm	77
	synt	any
	cat
	line	1499
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1501
	colm	1
	synt	any
	pfail
	end
proc LoopDenotationNode_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	local	4,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	1502
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1504
	colm	14
	synt	any
	field	__m
	line	1504
	colm	18
	synt	any
	field	Node
	line	1504
	colm	23
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1504
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1505
	colm	14
	synt	any
	field	__m
	line	1505
	colm	18
	synt	any
	field	ConsNode
	line	1505
	colm	27
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1505
	colm	37
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	var	4
	var	2
	var	3
	var	1
	str	0
	pnull
	var	0
	line	1506
	colm	79
	synt	any
	field	signature
	line	1506
	colm	23
	synt	any
	invoke	5
	unmark
lab L3
	mark	L4
	var	4
	var	2
	var	3
	var	1
	str	1
	pnull
	var	0
	line	1507
	colm	78
	synt	any
	field	sig_done
	line	1507
	colm	23
	synt	any
	invoke	5
	unmark
lab L4
	mark	L5
	var	4
	var	2
	var	3
	var	1
	str	2
	pnull
	var	0
	line	1508
	colm	77
	synt	any
	field	gl_list
	line	1508
	colm	23
	synt	any
	invoke	5
	unmark
lab L5
	pnull
	line	1509
	colm	1
	synt	any
	pfail
	end
proc LoopDenotationNode_initially
	local	0,001000,self
	local	1,001000,signature
	local	2,001000,sig_done
	local	3,001000,gl_list
	local	4,001000,kind
	local	5,001000,vlineno
	local	6,001000,pre_num
	local	7,001000,post_num
	local	8,001000,cn_hd
	local	9,001000,cn_tl
	local	10,000000,emptylist
	declend
	line	1510
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1512
	colm	14
	synt	any
	field	__m
	line	1512
	colm	18
	synt	any
	field	ConsNode
	line	1512
	colm	27
	synt	any
	field	initially
	var	0
	var	8
	var	9
	line	1512
	colm	38
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1513
	colm	14
	synt	any
	field	__m
	line	1513
	colm	18
	synt	any
	field	Node
	line	1513
	colm	23
	synt	any
	field	initially
	var	0
	var	4
	var	5
	var	6
	var	7
	line	1513
	colm	34
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	1515
	colm	13
	synt	any
	field	gl_list
	var	10
	line	1515
	colm	34
	synt	any
	invoke	0
	line	1515
	colm	22
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	line	1516
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	1517
	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,cn_hd
	local	8,001000,cn_tl
	local	9,000020,self
	local	10,000020,clone
	local	11,000000,LoopDenotationNode__oprec
	local	12,000000,LoopDenotationNodeinitialize
	local	13,000000,Node__oprec
	local	14,000000,Nodeinitialize
	local	15,000000,ConsNode__oprec
	local	16,000000,ConsNodeinitialize
	local	17,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	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
	line	14
	colm	36
	synt	any
	invoke	2
	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
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	line	16
	colm	21
	synt	any
	invoke	10
	line	16
	colm	97
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	99
	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 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	1518
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1519
	colm	14
	synt	any
	field	__m
	line	1519
	colm	18
	synt	any
	field	Node
	line	1519
	colm	23
	synt	any
	field	trace_node
	var	0
	line	1519
	colm	34
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1520
	colm	14
	synt	any
	field	__m
	line	1520
	colm	18
	synt	any
	field	ConsNode
	line	1520
	colm	27
	synt	any
	field	trace_node
	var	0
	line	1520
	colm	38
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1521
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1522
	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	1523
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1525
	colm	14
	synt	any
	field	__m
	line	1525
	colm	18
	synt	any
	field	Node
	line	1525
	colm	23
	synt	any
	field	dump
	var	0
	var	1
	line	1525
	colm	28
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1526
	colm	14
	synt	any
	field	__m
	line	1526
	colm	18
	synt	any
	field	ConsNode
	line	1526
	colm	27
	synt	any
	field	dump
	var	0
	var	1
	line	1526
	colm	32
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1527
	colm	58
	synt	any
	plus
	line	1527
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1527
	colm	95
	synt	any
	field	ge_guard
	line	1527
	colm	90
	synt	any
	invoke	1
	line	1527
	colm	78
	synt	any
	cat
	line	1527
	colm	14
	synt	any
	invoke	2
	unmark
lab L4
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1528
	colm	60
	synt	any
	plus
	line	1528
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1528
	colm	97
	synt	any
	field	ge_element
	line	1528
	colm	92
	synt	any
	invoke	1
	line	1528
	colm	80
	synt	any
	cat
	line	1528
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1530
	colm	1
	synt	any
	pfail
	end
proc GuardedElementNode_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	local	4,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	1531
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1533
	colm	14
	synt	any
	field	__m
	line	1533
	colm	18
	synt	any
	field	Node
	line	1533
	colm	23
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1533
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1534
	colm	14
	synt	any
	field	__m
	line	1534
	colm	18
	synt	any
	field	ConsNode
	line	1534
	colm	27
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1534
	colm	37
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	var	4
	var	2
	var	3
	var	1
	str	0
	pnull
	var	0
	line	1535
	colm	78
	synt	any
	field	ge_guard
	line	1535
	colm	23
	synt	any
	invoke	5
	unmark
lab L3
	mark	L4
	var	4
	var	2
	var	3
	var	1
	str	1
	pnull
	var	0
	line	1536
	colm	80
	synt	any
	field	ge_element
	line	1536
	colm	23
	synt	any
	invoke	5
	unmark
lab L4
	pnull
	line	1537
	colm	1
	synt	any
	pfail
	end
proc GuardedElementNode_initially
	local	0,001000,self
	local	1,001000,ge_guard
	local	2,001000,ge_element
	local	3,001000,bld_precedence
	local	4,001000,kind
	local	5,001000,vlineno
	local	6,001000,pre_num
	local	7,001000,post_num
	local	8,001000,cn_hd
	local	9,001000,cn_tl
	local	10,000000,emptylist
	declend
	line	1538
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1540
	colm	14
	synt	any
	field	__m
	line	1540
	colm	18
	synt	any
	field	ConsNode
	line	1540
	colm	27
	synt	any
	field	initially
	var	0
	var	8
	var	9
	line	1540
	colm	38
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1541
	colm	14
	synt	any
	field	__m
	line	1541
	colm	18
	synt	any
	field	Node
	line	1541
	colm	23
	synt	any
	field	initially
	var	0
	var	4
	var	5
	var	6
	var	7
	line	1541
	colm	34
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	1543
	colm	13
	synt	any
	field	ge_guard
	var	10
	line	1543
	colm	35
	synt	any
	invoke	0
	line	1543
	colm	23
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	pnull
	var	0
	line	1544
	colm	13
	synt	any
	field	ge_element
	var	10
	line	1544
	colm	37
	synt	any
	invoke	0
	line	1544
	colm	25
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	mark	L6
	pnull
	line	1545
	colm	7
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	1546
	colm	1
	synt	any
	pfail
	end
proc GuardedElementNode
	local	0,001000,ge_guard
	local	1,001000,ge_element
	local	2,001000,bld_precedence
	local	3,001000,kind
	local	4,001000,vlineno
	local	5,001000,pre_num
	local	6,001000,post_num
	local	7,001000,cn_hd
	local	8,001000,cn_tl
	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
	line	14
	colm	36
	synt	any
	invoke	2
	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
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	line	16
	colm	21
	synt	any
	invoke	10
	line	16
	colm	105
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	107
	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	1547
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1548
	colm	14
	synt	any
	field	__m
	line	1548
	colm	18
	synt	any
	field	Node
	line	1548
	colm	23
	synt	any
	field	trace_node
	var	0
	line	1548
	colm	34
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1549
	colm	14
	synt	any
	field	__m
	line	1549
	colm	18
	synt	any
	field	ConsNode
	line	1549
	colm	27
	synt	any
	field	trace_node
	var	0
	line	1549
	colm	38
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1550
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1551
	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	1552
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1554
	colm	14
	synt	any
	field	__m
	line	1554
	colm	18
	synt	any
	field	Node
	line	1554
	colm	23
	synt	any
	field	dump
	var	0
	var	1
	line	1554
	colm	28
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1555
	colm	14
	synt	any
	field	__m
	line	1555
	colm	18
	synt	any
	field	ConsNode
	line	1555
	colm	27
	synt	any
	field	dump
	var	0
	var	1
	line	1555
	colm	32
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1556
	colm	59
	synt	any
	plus
	line	1556
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1556
	colm	96
	synt	any
	field	signature
	line	1556
	colm	91
	synt	any
	invoke	1
	line	1556
	colm	79
	synt	any
	cat
	line	1556
	colm	14
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1557
	colm	58
	synt	any
	plus
	line	1557
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1557
	colm	95
	synt	any
	field	sig_done
	line	1557
	colm	90
	synt	any
	invoke	1
	line	1557
	colm	78
	synt	any
	cat
	line	1557
	colm	14
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1558
	colm	58
	synt	any
	plus
	line	1558
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1558
	colm	95
	synt	any
	field	sel_type
	line	1558
	colm	90
	synt	any
	invoke	1
	line	1558
	colm	78
	synt	any
	cat
	line	1558
	colm	14
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	1559
	colm	68
	synt	any
	plus
	line	1559
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1559
	colm	105
	synt	any
	field	id_str_table_index
	line	1559
	colm	100
	synt	any
	invoke	1
	line	1559
	colm	88
	synt	any
	cat
	line	1559
	colm	14
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	1560
	colm	61
	synt	any
	plus
	line	1560
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1560
	colm	98
	synt	any
	field	id_use_list
	line	1560
	colm	93
	synt	any
	invoke	1
	line	1560
	colm	81
	synt	any
	cat
	line	1560
	colm	14
	synt	any
	invoke	2
	unmark
lab L8
	mark	L9
	var	2
	var	1
	pnull
	var	3
	str	6
	pnull
	int	1
	var	4
	line	1561
	colm	68
	synt	any
	plus
	line	1561
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1561
	colm	105
	synt	any
	field	id_last_definition
	line	1561
	colm	100
	synt	any
	invoke	1
	line	1561
	colm	88
	synt	any
	cat
	line	1561
	colm	14
	synt	any
	invoke	2
	unmark
lab L9
	mark	L10
	var	2
	var	1
	pnull
	var	3
	str	7
	pnull
	int	1
	var	4
	line	1562
	colm	62
	synt	any
	plus
	line	1562
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1562
	colm	99
	synt	any
	field	id_def_found
	line	1562
	colm	94
	synt	any
	invoke	1
	line	1562
	colm	82
	synt	any
	cat
	line	1562
	colm	14
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	var	2
	var	1
	pnull
	var	3
	str	8
	pnull
	int	1
	var	4
	line	1563
	colm	59
	synt	any
	plus
	line	1563
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1563
	colm	96
	synt	any
	field	sel_index
	line	1563
	colm	91
	synt	any
	invoke	1
	line	1563
	colm	79
	synt	any
	cat
	line	1563
	colm	14
	synt	any
	invoke	2
	unmark
lab L11
	mark	L12
	var	2
	var	1
	pnull
	var	3
	str	9
	pnull
	int	1
	var	4
	line	1564
	colm	57
	synt	any
	plus
	line	1564
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1564
	colm	94
	synt	any
	field	id_appl
	line	1564
	colm	89
	synt	any
	invoke	1
	line	1564
	colm	77
	synt	any
	cat
	line	1564
	colm	14
	synt	any
	invoke	2
	unmark
lab L12
	var	2
	var	1
	pnull
	var	3
	str	10
	pnull
	int	1
	var	4
	line	1565
	colm	64
	synt	any
	plus
	line	1565
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1565
	colm	101
	synt	any
	field	id_forward_ref
	line	1565
	colm	96
	synt	any
	invoke	1
	line	1565
	colm	84
	synt	any
	cat
	line	1565
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1567
	colm	1
	synt	any
	pfail
	end
proc OpridNode_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	local	4,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	1568
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1570
	colm	14
	synt	any
	field	__m
	line	1570
	colm	18
	synt	any
	field	Node
	line	1570
	colm	23
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1570
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1571
	colm	14
	synt	any
	field	__m
	line	1571
	colm	18
	synt	any
	field	ConsNode
	line	1571
	colm	27
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1571
	colm	37
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	var	4
	var	2
	var	3
	var	1
	str	0
	pnull
	var	0
	line	1572
	colm	79
	synt	any
	field	signature
	line	1572
	colm	23
	synt	any
	invoke	5
	unmark
lab L3
	mark	L4
	var	4
	var	2
	var	3
	var	1
	str	1
	pnull
	var	0
	line	1573
	colm	78
	synt	any
	field	sig_done
	line	1573
	colm	23
	synt	any
	invoke	5
	unmark
lab L4
	mark	L5
	var	4
	var	2
	var	3
	var	1
	str	2
	pnull
	var	0
	line	1574
	colm	78
	synt	any
	field	sel_type
	line	1574
	colm	23
	synt	any
	invoke	5
	unmark
lab L5
	mark	L6
	var	4
	var	2
	var	3
	var	1
	str	3
	pnull
	var	0
	line	1575
	colm	88
	synt	any
	field	id_str_table_index
	line	1575
	colm	23
	synt	any
	invoke	5
	unmark
lab L6
	mark	L7
	var	4
	var	2
	var	3
	var	1
	str	4
	pnull
	var	0
	line	1576
	colm	81
	synt	any
	field	id_use_list
	line	1576
	colm	23
	synt	any
	invoke	5
	unmark
lab L7
	mark	L8
	var	4
	var	2
	var	3
	var	1
	str	5
	pnull
	var	0
	line	1577
	colm	88
	synt	any
	field	id_last_definition
	line	1577
	colm	23
	synt	any
	invoke	5
	unmark
lab L8
	mark	L9
	var	4
	var	2
	var	3
	var	1
	str	6
	pnull
	var	0
	line	1578
	colm	82
	synt	any
	field	id_def_found
	line	1578
	colm	23
	synt	any
	invoke	5
	unmark
lab L9
	mark	L10
	var	4
	var	2
	var	3
	var	1
	str	7
	pnull
	var	0
	line	1579
	colm	79
	synt	any
	field	sel_index
	line	1579
	colm	23
	synt	any
	invoke	5
	unmark
lab L10
	mark	L11
	var	4
	var	2
	var	3
	var	1
	str	8
	pnull
	var	0
	line	1580
	colm	77
	synt	any
	field	id_appl
	line	1580
	colm	23
	synt	any
	invoke	5
	unmark
lab L11
	mark	L12
	var	4
	var	2
	var	3
	var	1
	str	9
	pnull
	var	0
	line	1581
	colm	84
	synt	any
	field	id_forward_ref
	line	1581
	colm	23
	synt	any
	invoke	5
	unmark
lab L12
	pnull
	line	1582
	colm	1
	synt	any
	pfail
	end
proc OpridNode_initially
	local	0,001000,self
	local	1,001000,signature
	local	2,001000,sig_done
	local	3,001000,sel_type
	local	4,001000,id_str_table_index
	local	5,001000,id_use_list
	local	6,001000,id_last_definition
	local	7,001000,id_def_found
	local	8,001000,sel_index
	local	9,001000,id_appl
	local	10,001000,id_forward_ref
	local	11,001000,kind
	local	12,001000,vlineno
	local	13,001000,pre_num
	local	14,001000,post_num
	local	15,001000,cn_hd
	local	16,001000,cn_tl
	local	17,000000,emptylist
	declend
	line	1583
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1585
	colm	14
	synt	any
	field	__m
	line	1585
	colm	18
	synt	any
	field	ConsNode
	line	1585
	colm	27
	synt	any
	field	initially
	var	0
	var	15
	var	16
	line	1585
	colm	38
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1586
	colm	14
	synt	any
	field	__m
	line	1586
	colm	18
	synt	any
	field	Node
	line	1586
	colm	23
	synt	any
	field	initially
	var	0
	var	11
	var	12
	var	13
	var	14
	line	1586
	colm	34
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	1588
	colm	13
	synt	any
	field	id_use_list
	var	17
	line	1588
	colm	38
	synt	any
	invoke	0
	line	1588
	colm	26
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	line	1589
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	1590
	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,cn_hd
	local	15,001000,cn_tl
	local	16,000020,self
	local	17,000020,clone
	local	18,000000,OpridNode__oprec
	local	19,000000,OpridNodeinitialize
	local	20,000000,Node__oprec
	local	21,000000,Nodeinitialize
	local	22,000000,ConsNode__oprec
	local	23,000000,ConsNodeinitialize
	local	24,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	18
	line	8
	colm	6
	synt	any
	null
	unmark
	var	19
	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	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	19
	synt	any
	field	Node
	var	20
	line	10
	colm	25
	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	19
	synt	any
	field	ConsNode
	var	22
	line	12
	colm	29
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	16
	var	24
	line	14
	colm	28
	synt	any
	keywd	null
	var	18
	line	14
	colm	27
	synt	any
	invoke	2
	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
	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	16
	colm	21
	synt	any
	invoke	17
	line	16
	colm	194
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	196
	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 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	1591
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1592
	colm	14
	synt	any
	field	__m
	line	1592
	colm	18
	synt	any
	field	Node
	line	1592
	colm	23
	synt	any
	field	trace_node
	var	0
	line	1592
	colm	34
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1593
	colm	14
	synt	any
	field	__m
	line	1593
	colm	18
	synt	any
	field	ConsNode
	line	1593
	colm	27
	synt	any
	field	trace_node
	var	0
	line	1593
	colm	38
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1594
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1595
	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	1596
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1598
	colm	14
	synt	any
	field	__m
	line	1598
	colm	18
	synt	any
	field	Node
	line	1598
	colm	23
	synt	any
	field	dump
	var	0
	var	1
	line	1598
	colm	28
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1599
	colm	14
	synt	any
	field	__m
	line	1599
	colm	18
	synt	any
	field	ConsNode
	line	1599
	colm	27
	synt	any
	field	dump
	var	0
	var	1
	line	1599
	colm	32
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1600
	colm	59
	synt	any
	plus
	line	1600
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1600
	colm	96
	synt	any
	field	signature
	line	1600
	colm	91
	synt	any
	invoke	1
	line	1600
	colm	79
	synt	any
	cat
	line	1600
	colm	14
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1601
	colm	58
	synt	any
	plus
	line	1601
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1601
	colm	95
	synt	any
	field	sig_done
	line	1601
	colm	90
	synt	any
	invoke	1
	line	1601
	colm	78
	synt	any
	cat
	line	1601
	colm	14
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1602
	colm	58
	synt	any
	plus
	line	1602
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1602
	colm	95
	synt	any
	field	sel_type
	line	1602
	colm	90
	synt	any
	invoke	1
	line	1602
	colm	78
	synt	any
	cat
	line	1602
	colm	14
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	1603
	colm	68
	synt	any
	plus
	line	1603
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1603
	colm	105
	synt	any
	field	id_str_table_index
	line	1603
	colm	100
	synt	any
	invoke	1
	line	1603
	colm	88
	synt	any
	cat
	line	1603
	colm	14
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	1604
	colm	61
	synt	any
	plus
	line	1604
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1604
	colm	98
	synt	any
	field	id_use_list
	line	1604
	colm	93
	synt	any
	invoke	1
	line	1604
	colm	81
	synt	any
	cat
	line	1604
	colm	14
	synt	any
	invoke	2
	unmark
lab L8
	mark	L9
	var	2
	var	1
	pnull
	var	3
	str	6
	pnull
	int	1
	var	4
	line	1605
	colm	68
	synt	any
	plus
	line	1605
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1605
	colm	105
	synt	any
	field	id_last_definition
	line	1605
	colm	100
	synt	any
	invoke	1
	line	1605
	colm	88
	synt	any
	cat
	line	1605
	colm	14
	synt	any
	invoke	2
	unmark
lab L9
	mark	L10
	var	2
	var	1
	pnull
	var	3
	str	7
	pnull
	int	1
	var	4
	line	1606
	colm	62
	synt	any
	plus
	line	1606
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1606
	colm	99
	synt	any
	field	id_def_found
	line	1606
	colm	94
	synt	any
	invoke	1
	line	1606
	colm	82
	synt	any
	cat
	line	1606
	colm	14
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	var	2
	var	1
	pnull
	var	3
	str	8
	pnull
	int	1
	var	4
	line	1607
	colm	59
	synt	any
	plus
	line	1607
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1607
	colm	96
	synt	any
	field	sel_index
	line	1607
	colm	91
	synt	any
	invoke	1
	line	1607
	colm	79
	synt	any
	cat
	line	1607
	colm	14
	synt	any
	invoke	2
	unmark
lab L11
	mark	L12
	var	2
	var	1
	pnull
	var	3
	str	9
	pnull
	int	1
	var	4
	line	1608
	colm	57
	synt	any
	plus
	line	1608
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1608
	colm	94
	synt	any
	field	id_appl
	line	1608
	colm	89
	synt	any
	invoke	1
	line	1608
	colm	77
	synt	any
	cat
	line	1608
	colm	14
	synt	any
	invoke	2
	unmark
lab L12
	var	2
	var	1
	pnull
	var	3
	str	10
	pnull
	int	1
	var	4
	line	1609
	colm	64
	synt	any
	plus
	line	1609
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1609
	colm	101
	synt	any
	field	id_forward_ref
	line	1609
	colm	96
	synt	any
	invoke	1
	line	1609
	colm	84
	synt	any
	cat
	line	1609
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1611
	colm	1
	synt	any
	pfail
	end
proc LetterId_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	local	4,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	1612
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1614
	colm	14
	synt	any
	field	__m
	line	1614
	colm	18
	synt	any
	field	Node
	line	1614
	colm	23
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1614
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1615
	colm	14
	synt	any
	field	__m
	line	1615
	colm	18
	synt	any
	field	ConsNode
	line	1615
	colm	27
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1615
	colm	37
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	var	4
	var	2
	var	3
	var	1
	str	0
	pnull
	var	0
	line	1616
	colm	79
	synt	any
	field	signature
	line	1616
	colm	23
	synt	any
	invoke	5
	unmark
lab L3
	mark	L4
	var	4
	var	2
	var	3
	var	1
	str	1
	pnull
	var	0
	line	1617
	colm	78
	synt	any
	field	sig_done
	line	1617
	colm	23
	synt	any
	invoke	5
	unmark
lab L4
	mark	L5
	var	4
	var	2
	var	3
	var	1
	str	2
	pnull
	var	0
	line	1618
	colm	78
	synt	any
	field	sel_type
	line	1618
	colm	23
	synt	any
	invoke	5
	unmark
lab L5
	mark	L6
	var	4
	var	2
	var	3
	var	1
	str	3
	pnull
	var	0
	line	1619
	colm	88
	synt	any
	field	id_str_table_index
	line	1619
	colm	23
	synt	any
	invoke	5
	unmark
lab L6
	mark	L7
	var	4
	var	2
	var	3
	var	1
	str	4
	pnull
	var	0
	line	1620
	colm	81
	synt	any
	field	id_use_list
	line	1620
	colm	23
	synt	any
	invoke	5
	unmark
lab L7
	mark	L8
	var	4
	var	2
	var	3
	var	1
	str	5
	pnull
	var	0
	line	1621
	colm	88
	synt	any
	field	id_last_definition
	line	1621
	colm	23
	synt	any
	invoke	5
	unmark
lab L8
	mark	L9
	var	4
	var	2
	var	3
	var	1
	str	6
	pnull
	var	0
	line	1622
	colm	82
	synt	any
	field	id_def_found
	line	1622
	colm	23
	synt	any
	invoke	5
	unmark
lab L9
	mark	L10
	var	4
	var	2
	var	3
	var	1
	str	7
	pnull
	var	0
	line	1623
	colm	79
	synt	any
	field	sel_index
	line	1623
	colm	23
	synt	any
	invoke	5
	unmark
lab L10
	mark	L11
	var	4
	var	2
	var	3
	var	1
	str	8
	pnull
	var	0
	line	1624
	colm	77
	synt	any
	field	id_appl
	line	1624
	colm	23
	synt	any
	invoke	5
	unmark
lab L11
	mark	L12
	var	4
	var	2
	var	3
	var	1
	str	9
	pnull
	var	0
	line	1625
	colm	84
	synt	any
	field	id_forward_ref
	line	1625
	colm	23
	synt	any
	invoke	5
	unmark
lab L12
	pnull
	line	1626
	colm	1
	synt	any
	pfail
	end
proc LetterId_initially
	local	0,001000,self
	local	1,001000,signature
	local	2,001000,sig_done
	local	3,001000,sel_type
	local	4,001000,id_str_table_index
	local	5,001000,id_use_list
	local	6,001000,id_last_definition
	local	7,001000,id_def_found
	local	8,001000,sel_index
	local	9,001000,id_appl
	local	10,001000,id_forward_ref
	local	11,001000,kind
	local	12,001000,vlineno
	local	13,001000,pre_num
	local	14,001000,post_num
	local	15,001000,cn_hd
	local	16,001000,cn_tl
	local	17,000000,emptylist
	declend
	line	1627
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1628
	colm	14
	synt	any
	field	__m
	line	1628
	colm	18
	synt	any
	field	Node
	line	1628
	colm	23
	synt	any
	field	initially
	var	0
	var	11
	var	12
	var	13
	var	14
	line	1628
	colm	34
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1629
	colm	14
	synt	any
	field	__m
	line	1629
	colm	18
	synt	any
	field	ConsNode
	line	1629
	colm	27
	synt	any
	field	initially
	var	0
	var	15
	var	16
	line	1629
	colm	38
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	1631
	colm	13
	synt	any
	field	id_use_list
	var	17
	line	1631
	colm	38
	synt	any
	invoke	0
	line	1631
	colm	26
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	line	1632
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	1633
	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,cn_hd
	local	15,001000,cn_tl
	local	16,000020,self
	local	17,000020,clone
	local	18,000000,LetterId__oprec
	local	19,000000,LetterIdinitialize
	local	20,000000,Node__oprec
	local	21,000000,Nodeinitialize
	local	22,000000,ConsNode__oprec
	local	23,000000,ConsNodeinitialize
	local	24,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	18
	line	8
	colm	6
	synt	any
	null
	unmark
	var	19
	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	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	18
	synt	any
	field	Node
	var	20
	line	10
	colm	24
	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	18
	synt	any
	field	ConsNode
	var	22
	line	12
	colm	28
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	16
	var	24
	line	14
	colm	27
	synt	any
	keywd	null
	var	18
	line	14
	colm	26
	synt	any
	invoke	2
	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
	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	16
	colm	21
	synt	any
	invoke	17
	line	16
	colm	194
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	196
	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 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	1634
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1635
	colm	14
	synt	any
	field	__m
	line	1635
	colm	18
	synt	any
	field	Node
	line	1635
	colm	23
	synt	any
	field	trace_node
	var	0
	line	1635
	colm	34
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1636
	colm	14
	synt	any
	field	__m
	line	1636
	colm	18
	synt	any
	field	ConsNode
	line	1636
	colm	27
	synt	any
	field	trace_node
	var	0
	line	1636
	colm	38
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1637
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1638
	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	1639
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1641
	colm	14
	synt	any
	field	__m
	line	1641
	colm	18
	synt	any
	field	Node
	line	1641
	colm	23
	synt	any
	field	dump
	var	0
	var	1
	line	1641
	colm	28
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1642
	colm	14
	synt	any
	field	__m
	line	1642
	colm	18
	synt	any
	field	ConsNode
	line	1642
	colm	27
	synt	any
	field	dump
	var	0
	var	1
	line	1642
	colm	32
	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	59
	synt	any
	plus
	line	1643
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1643
	colm	96
	synt	any
	field	signature
	line	1643
	colm	91
	synt	any
	invoke	1
	line	1643
	colm	79
	synt	any
	cat
	line	1643
	colm	14
	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	58
	synt	any
	plus
	line	1644
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1644
	colm	95
	synt	any
	field	sig_done
	line	1644
	colm	90
	synt	any
	invoke	1
	line	1644
	colm	78
	synt	any
	cat
	line	1644
	colm	14
	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	58
	synt	any
	plus
	line	1645
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1645
	colm	95
	synt	any
	field	sel_type
	line	1645
	colm	90
	synt	any
	invoke	1
	line	1645
	colm	78
	synt	any
	cat
	line	1645
	colm	14
	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	60
	synt	any
	plus
	line	1646
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1646
	colm	97
	synt	any
	field	str_string
	line	1646
	colm	92
	synt	any
	invoke	1
	line	1646
	colm	80
	synt	any
	cat
	line	1646
	colm	14
	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	62
	synt	any
	plus
	line	1647
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1647
	colm	99
	synt	any
	field	str_use_list
	line	1647
	colm	94
	synt	any
	invoke	1
	line	1647
	colm	82
	synt	any
	cat
	line	1647
	colm	14
	synt	any
	invoke	2
	unmark
lab L8
	var	2
	var	1
	pnull
	var	3
	str	6
	pnull
	int	1
	var	4
	line	1648
	colm	63
	synt	any
	plus
	line	1648
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1648
	colm	100
	synt	any
	field	str_expansion
	line	1648
	colm	95
	synt	any
	invoke	1
	line	1648
	colm	83
	synt	any
	cat
	line	1648
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1650
	colm	1
	synt	any
	pfail
	end
proc QStrNode_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	local	4,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	1651
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1653
	colm	14
	synt	any
	field	__m
	line	1653
	colm	18
	synt	any
	field	Node
	line	1653
	colm	23
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1653
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1654
	colm	14
	synt	any
	field	__m
	line	1654
	colm	18
	synt	any
	field	ConsNode
	line	1654
	colm	27
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1654
	colm	37
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	var	4
	var	2
	var	3
	var	1
	str	0
	pnull
	var	0
	line	1655
	colm	79
	synt	any
	field	signature
	line	1655
	colm	23
	synt	any
	invoke	5
	unmark
lab L3
	mark	L4
	var	4
	var	2
	var	3
	var	1
	str	1
	pnull
	var	0
	line	1656
	colm	78
	synt	any
	field	sig_done
	line	1656
	colm	23
	synt	any
	invoke	5
	unmark
lab L4
	mark	L5
	var	4
	var	2
	var	3
	var	1
	str	2
	pnull
	var	0
	line	1657
	colm	78
	synt	any
	field	sel_type
	line	1657
	colm	23
	synt	any
	invoke	5
	unmark
lab L5
	mark	L6
	var	4
	var	2
	var	3
	var	1
	str	3
	pnull
	var	0
	line	1658
	colm	80
	synt	any
	field	str_string
	line	1658
	colm	23
	synt	any
	invoke	5
	unmark
lab L6
	mark	L7
	var	4
	var	2
	var	3
	var	1
	str	4
	pnull
	var	0
	line	1659
	colm	82
	synt	any
	field	str_use_list
	line	1659
	colm	23
	synt	any
	invoke	5
	unmark
lab L7
	mark	L8
	var	4
	var	2
	var	3
	var	1
	str	5
	pnull
	var	0
	line	1660
	colm	83
	synt	any
	field	str_expansion
	line	1660
	colm	23
	synt	any
	invoke	5
	unmark
lab L8
	pnull
	line	1661
	colm	1
	synt	any
	pfail
	end
proc QStrNode_initially
	local	0,001000,self
	local	1,001000,signature
	local	2,001000,sig_done
	local	3,001000,sel_type
	local	4,001000,str_string
	local	5,001000,str_use_list
	local	6,001000,str_expansion
	local	7,001000,kind
	local	8,001000,vlineno
	local	9,001000,pre_num
	local	10,001000,post_num
	local	11,001000,cn_hd
	local	12,001000,cn_tl
	local	13,000000,emptylist
	declend
	line	1662
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1664
	colm	14
	synt	any
	field	__m
	line	1664
	colm	18
	synt	any
	field	ConsNode
	line	1664
	colm	27
	synt	any
	field	initially
	var	0
	var	11
	var	12
	line	1664
	colm	38
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1665
	colm	14
	synt	any
	field	__m
	line	1665
	colm	18
	synt	any
	field	Node
	line	1665
	colm	23
	synt	any
	field	initially
	var	0
	var	7
	var	8
	var	9
	var	10
	line	1665
	colm	34
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	1667
	colm	13
	synt	any
	field	str_use_list
	var	13
	line	1667
	colm	39
	synt	any
	invoke	0
	line	1667
	colm	27
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	line	1668
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	1669
	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,cn_hd
	local	11,001000,cn_tl
	local	12,000020,self
	local	13,000020,clone
	local	14,000000,QStrNode__oprec
	local	15,000000,QStrNodeinitialize
	local	16,000000,Node__oprec
	local	17,000000,Nodeinitialize
	local	18,000000,ConsNode__oprec
	local	19,000000,ConsNodeinitialize
	local	20,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	14
	line	8
	colm	6
	synt	any
	null
	unmark
	var	15
	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	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	18
	synt	any
	field	Node
	var	16
	line	10
	colm	24
	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	18
	synt	any
	field	ConsNode
	var	18
	line	12
	colm	28
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	12
	var	20
	line	14
	colm	27
	synt	any
	keywd	null
	var	14
	line	14
	colm	26
	synt	any
	invoke	2
	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
	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	16
	colm	21
	synt	any
	invoke	13
	line	16
	colm	136
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	138
	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 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	1670
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1671
	colm	14
	synt	any
	field	__m
	line	1671
	colm	18
	synt	any
	field	Node
	line	1671
	colm	23
	synt	any
	field	trace_node
	var	0
	line	1671
	colm	34
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1672
	colm	14
	synt	any
	field	__m
	line	1672
	colm	18
	synt	any
	field	ConsNode
	line	1672
	colm	27
	synt	any
	field	trace_node
	var	0
	line	1672
	colm	38
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1673
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1674
	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	1675
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1677
	colm	14
	synt	any
	field	__m
	line	1677
	colm	18
	synt	any
	field	Node
	line	1677
	colm	23
	synt	any
	field	dump
	var	0
	var	1
	line	1677
	colm	28
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1678
	colm	14
	synt	any
	field	__m
	line	1678
	colm	18
	synt	any
	field	ConsNode
	line	1678
	colm	27
	synt	any
	field	dump
	var	0
	var	1
	line	1678
	colm	32
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1679
	colm	59
	synt	any
	plus
	line	1679
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1679
	colm	96
	synt	any
	field	signature
	line	1679
	colm	91
	synt	any
	invoke	1
	line	1679
	colm	79
	synt	any
	cat
	line	1679
	colm	14
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1680
	colm	58
	synt	any
	plus
	line	1680
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1680
	colm	95
	synt	any
	field	sig_done
	line	1680
	colm	90
	synt	any
	invoke	1
	line	1680
	colm	78
	synt	any
	cat
	line	1680
	colm	14
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1681
	colm	58
	synt	any
	plus
	line	1681
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1681
	colm	95
	synt	any
	field	sel_type
	line	1681
	colm	90
	synt	any
	invoke	1
	line	1681
	colm	78
	synt	any
	cat
	line	1681
	colm	14
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	1682
	colm	60
	synt	any
	plus
	line	1682
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1682
	colm	97
	synt	any
	field	str_string
	line	1682
	colm	92
	synt	any
	invoke	1
	line	1682
	colm	80
	synt	any
	cat
	line	1682
	colm	14
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	1683
	colm	62
	synt	any
	plus
	line	1683
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1683
	colm	99
	synt	any
	field	str_use_list
	line	1683
	colm	94
	synt	any
	invoke	1
	line	1683
	colm	82
	synt	any
	cat
	line	1683
	colm	14
	synt	any
	invoke	2
	unmark
lab L8
	var	2
	var	1
	pnull
	var	3
	str	6
	pnull
	int	1
	var	4
	line	1684
	colm	63
	synt	any
	plus
	line	1684
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1684
	colm	100
	synt	any
	field	str_expansion
	line	1684
	colm	95
	synt	any
	invoke	1
	line	1684
	colm	83
	synt	any
	cat
	line	1684
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1686
	colm	1
	synt	any
	pfail
	end
proc UQStrNode_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	local	4,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	1687
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1689
	colm	14
	synt	any
	field	__m
	line	1689
	colm	18
	synt	any
	field	Node
	line	1689
	colm	23
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1689
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1690
	colm	14
	synt	any
	field	__m
	line	1690
	colm	18
	synt	any
	field	ConsNode
	line	1690
	colm	27
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1690
	colm	37
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	var	4
	var	2
	var	3
	var	1
	str	0
	pnull
	var	0
	line	1691
	colm	79
	synt	any
	field	signature
	line	1691
	colm	23
	synt	any
	invoke	5
	unmark
lab L3
	mark	L4
	var	4
	var	2
	var	3
	var	1
	str	1
	pnull
	var	0
	line	1692
	colm	78
	synt	any
	field	sig_done
	line	1692
	colm	23
	synt	any
	invoke	5
	unmark
lab L4
	mark	L5
	var	4
	var	2
	var	3
	var	1
	str	2
	pnull
	var	0
	line	1693
	colm	78
	synt	any
	field	sel_type
	line	1693
	colm	23
	synt	any
	invoke	5
	unmark
lab L5
	mark	L6
	var	4
	var	2
	var	3
	var	1
	str	3
	pnull
	var	0
	line	1694
	colm	80
	synt	any
	field	str_string
	line	1694
	colm	23
	synt	any
	invoke	5
	unmark
lab L6
	mark	L7
	var	4
	var	2
	var	3
	var	1
	str	4
	pnull
	var	0
	line	1695
	colm	82
	synt	any
	field	str_use_list
	line	1695
	colm	23
	synt	any
	invoke	5
	unmark
lab L7
	mark	L8
	var	4
	var	2
	var	3
	var	1
	str	5
	pnull
	var	0
	line	1696
	colm	83
	synt	any
	field	str_expansion
	line	1696
	colm	23
	synt	any
	invoke	5
	unmark
lab L8
	pnull
	line	1697
	colm	1
	synt	any
	pfail
	end
proc UQStrNode_initially
	local	0,001000,self
	local	1,001000,signature
	local	2,001000,sig_done
	local	3,001000,sel_type
	local	4,001000,str_string
	local	5,001000,str_use_list
	local	6,001000,str_expansion
	local	7,001000,kind
	local	8,001000,vlineno
	local	9,001000,pre_num
	local	10,001000,post_num
	local	11,001000,cn_hd
	local	12,001000,cn_tl
	local	13,000000,emptylist
	declend
	line	1698
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1700
	colm	14
	synt	any
	field	__m
	line	1700
	colm	18
	synt	any
	field	ConsNode
	line	1700
	colm	27
	synt	any
	field	initially
	var	0
	var	11
	var	12
	line	1700
	colm	38
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1701
	colm	14
	synt	any
	field	__m
	line	1701
	colm	18
	synt	any
	field	Node
	line	1701
	colm	23
	synt	any
	field	initially
	var	0
	var	7
	var	8
	var	9
	var	10
	line	1701
	colm	34
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	1703
	colm	13
	synt	any
	field	str_use_list
	var	13
	line	1703
	colm	38
	synt	any
	invoke	0
	line	1703
	colm	26
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	line	1704
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	1705
	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,cn_hd
	local	11,001000,cn_tl
	local	12,000020,self
	local	13,000020,clone
	local	14,000000,UQStrNode__oprec
	local	15,000000,UQStrNodeinitialize
	local	16,000000,Node__oprec
	local	17,000000,Nodeinitialize
	local	18,000000,ConsNode__oprec
	local	19,000000,ConsNodeinitialize
	local	20,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	14
	line	8
	colm	6
	synt	any
	null
	unmark
	var	15
	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	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	19
	synt	any
	field	Node
	var	16
	line	10
	colm	25
	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	19
	synt	any
	field	ConsNode
	var	18
	line	12
	colm	29
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	12
	var	20
	line	14
	colm	28
	synt	any
	keywd	null
	var	14
	line	14
	colm	27
	synt	any
	invoke	2
	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
	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	16
	colm	21
	synt	any
	invoke	13
	line	16
	colm	136
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	138
	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 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	1706
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1707
	colm	14
	synt	any
	field	__m
	line	1707
	colm	18
	synt	any
	field	Node
	line	1707
	colm	23
	synt	any
	field	trace_node
	var	0
	line	1707
	colm	34
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1708
	colm	14
	synt	any
	field	__m
	line	1708
	colm	18
	synt	any
	field	ConsNode
	line	1708
	colm	27
	synt	any
	field	trace_node
	var	0
	line	1708
	colm	38
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1709
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1710
	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	1711
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1713
	colm	14
	synt	any
	field	__m
	line	1713
	colm	18
	synt	any
	field	Node
	line	1713
	colm	23
	synt	any
	field	dump
	var	0
	var	1
	line	1713
	colm	28
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1714
	colm	14
	synt	any
	field	__m
	line	1714
	colm	18
	synt	any
	field	ConsNode
	line	1714
	colm	27
	synt	any
	field	dump
	var	0
	var	1
	line	1714
	colm	32
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1715
	colm	59
	synt	any
	plus
	line	1715
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1715
	colm	96
	synt	any
	field	signature
	line	1715
	colm	91
	synt	any
	invoke	1
	line	1715
	colm	79
	synt	any
	cat
	line	1715
	colm	14
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1716
	colm	58
	synt	any
	plus
	line	1716
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1716
	colm	95
	synt	any
	field	sig_done
	line	1716
	colm	90
	synt	any
	invoke	1
	line	1716
	colm	78
	synt	any
	cat
	line	1716
	colm	14
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1717
	colm	57
	synt	any
	plus
	line	1717
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1717
	colm	94
	synt	any
	field	ar_size
	line	1717
	colm	89
	synt	any
	invoke	1
	line	1717
	colm	77
	synt	any
	cat
	line	1717
	colm	14
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	1718
	colm	64
	synt	any
	plus
	line	1718
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1718
	colm	101
	synt	any
	field	ar_static_link
	line	1718
	colm	96
	synt	any
	invoke	1
	line	1718
	colm	84
	synt	any
	cat
	line	1718
	colm	14
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	1719
	colm	65
	synt	any
	plus
	line	1719
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1719
	colm	102
	synt	any
	field	ar_static_level
	line	1719
	colm	97
	synt	any
	invoke	1
	line	1719
	colm	85
	synt	any
	cat
	line	1719
	colm	14
	synt	any
	invoke	2
	unmark
lab L8
	mark	L9
	var	2
	var	1
	pnull
	var	3
	str	6
	pnull
	int	1
	var	4
	line	1720
	colm	57
	synt	any
	plus
	line	1720
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1720
	colm	94
	synt	any
	field	fc_body
	line	1720
	colm	89
	synt	any
	invoke	1
	line	1720
	colm	77
	synt	any
	cat
	line	1720
	colm	14
	synt	any
	invoke	2
	unmark
lab L9
	mark	L10
	var	2
	var	1
	pnull
	var	3
	str	7
	pnull
	int	1
	var	4
	line	1721
	colm	63
	synt	any
	plus
	line	1721
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1721
	colm	100
	synt	any
	field	fc_complexity
	line	1721
	colm	95
	synt	any
	invoke	1
	line	1721
	colm	83
	synt	any
	cat
	line	1721
	colm	14
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	var	2
	var	1
	pnull
	var	3
	str	8
	pnull
	int	1
	var	4
	line	1722
	colm	63
	synt	any
	plus
	line	1722
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1722
	colm	100
	synt	any
	field	fc_code_label
	line	1722
	colm	95
	synt	any
	invoke	1
	line	1722
	colm	83
	synt	any
	cat
	line	1722
	colm	14
	synt	any
	invoke	2
	unmark
lab L11
	mark	L12
	var	2
	var	1
	pnull
	var	3
	str	9
	pnull
	int	1
	var	4
	line	1723
	colm	62
	synt	any
	plus
	line	1723
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1723
	colm	99
	synt	any
	field	fc_free_vars
	line	1723
	colm	94
	synt	any
	invoke	1
	line	1723
	colm	82
	synt	any
	cat
	line	1723
	colm	14
	synt	any
	invoke	2
	unmark
lab L12
	var	2
	var	1
	pnull
	var	3
	str	10
	pnull
	int	1
	var	4
	line	1724
	colm	64
	synt	any
	plus
	line	1724
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1724
	colm	101
	synt	any
	field	fc_body_needed
	line	1724
	colm	96
	synt	any
	invoke	1
	line	1724
	colm	84
	synt	any
	cat
	line	1724
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1726
	colm	1
	synt	any
	pfail
	end
proc FConstruction_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	local	4,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	1727
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1729
	colm	14
	synt	any
	field	__m
	line	1729
	colm	18
	synt	any
	field	Node
	line	1729
	colm	23
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1729
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1730
	colm	14
	synt	any
	field	__m
	line	1730
	colm	18
	synt	any
	field	ConsNode
	line	1730
	colm	27
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1730
	colm	37
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	var	4
	var	2
	var	3
	var	1
	str	0
	pnull
	var	0
	line	1731
	colm	79
	synt	any
	field	signature
	line	1731
	colm	23
	synt	any
	invoke	5
	unmark
lab L3
	mark	L4
	var	4
	var	2
	var	3
	var	1
	str	1
	pnull
	var	0
	line	1732
	colm	78
	synt	any
	field	sig_done
	line	1732
	colm	23
	synt	any
	invoke	5
	unmark
lab L4
	mark	L5
	var	4
	var	2
	var	3
	var	1
	str	2
	pnull
	var	0
	line	1733
	colm	77
	synt	any
	field	ar_size
	line	1733
	colm	23
	synt	any
	invoke	5
	unmark
lab L5
	mark	L6
	var	4
	var	2
	var	3
	var	1
	str	3
	pnull
	var	0
	line	1734
	colm	84
	synt	any
	field	ar_static_link
	line	1734
	colm	23
	synt	any
	invoke	5
	unmark
lab L6
	mark	L7
	var	4
	var	2
	var	3
	var	1
	str	4
	pnull
	var	0
	line	1735
	colm	85
	synt	any
	field	ar_static_level
	line	1735
	colm	23
	synt	any
	invoke	5
	unmark
lab L7
	mark	L8
	var	4
	var	2
	var	3
	var	1
	str	5
	pnull
	var	0
	line	1736
	colm	77
	synt	any
	field	fc_body
	line	1736
	colm	23
	synt	any
	invoke	5
	unmark
lab L8
	mark	L9
	var	4
	var	2
	var	3
	var	1
	str	6
	pnull
	var	0
	line	1737
	colm	83
	synt	any
	field	fc_complexity
	line	1737
	colm	23
	synt	any
	invoke	5
	unmark
lab L9
	mark	L10
	var	4
	var	2
	var	3
	var	1
	str	7
	pnull
	var	0
	line	1738
	colm	83
	synt	any
	field	fc_code_label
	line	1738
	colm	23
	synt	any
	invoke	5
	unmark
lab L10
	mark	L11
	var	4
	var	2
	var	3
	var	1
	str	8
	pnull
	var	0
	line	1739
	colm	82
	synt	any
	field	fc_free_vars
	line	1739
	colm	23
	synt	any
	invoke	5
	unmark
lab L11
	mark	L12
	var	4
	var	2
	var	3
	var	1
	str	9
	pnull
	var	0
	line	1740
	colm	84
	synt	any
	field	fc_body_needed
	line	1740
	colm	23
	synt	any
	invoke	5
	unmark
lab L12
	pnull
	line	1741
	colm	1
	synt	any
	pfail
	end
proc FConstruction_initially
	local	0,001000,self
	local	1,001000,signature
	local	2,001000,sig_done
	local	3,001000,ar_size
	local	4,001000,ar_static_link
	local	5,001000,ar_static_level
	local	6,001000,fc_body
	local	7,001000,fc_complexity
	local	8,001000,fc_code_label
	local	9,001000,fc_free_vars
	local	10,001000,fc_body_needed
	local	11,001000,kind
	local	12,001000,vlineno
	local	13,001000,pre_num
	local	14,001000,post_num
	local	15,001000,cn_hd
	local	16,001000,cn_tl
	local	17,000000,emptylist
	declend
	line	1742
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1744
	colm	14
	synt	any
	field	__m
	line	1744
	colm	18
	synt	any
	field	ConsNode
	line	1744
	colm	27
	synt	any
	field	initially
	var	0
	var	15
	var	16
	line	1744
	colm	38
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1745
	colm	14
	synt	any
	field	__m
	line	1745
	colm	18
	synt	any
	field	Node
	line	1745
	colm	23
	synt	any
	field	initially
	var	0
	var	11
	var	12
	var	13
	var	14
	line	1745
	colm	34
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	1747
	colm	13
	synt	any
	field	signature
	var	17
	line	1747
	colm	35
	synt	any
	invoke	0
	line	1747
	colm	23
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	pnull
	var	0
	line	1748
	colm	13
	synt	any
	field	fc_body
	var	17
	line	1748
	colm	33
	synt	any
	invoke	0
	line	1748
	colm	21
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	0
	line	1749
	colm	13
	synt	any
	field	fc_complexity
	var	17
	line	1749
	colm	39
	synt	any
	invoke	0
	line	1749
	colm	27
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	0
	line	1750
	colm	13
	synt	any
	field	fc_code_label
	var	17
	line	1750
	colm	40
	synt	any
	invoke	0
	line	1750
	colm	28
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	pnull
	var	0
	line	1751
	colm	13
	synt	any
	field	fc_free_vars
	var	17
	line	1751
	colm	39
	synt	any
	invoke	0
	line	1751
	colm	27
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	pnull
	var	0
	line	1752
	colm	13
	synt	any
	field	fc_body_needed
	var	17
	line	1752
	colm	41
	synt	any
	invoke	0
	line	1752
	colm	29
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	mark	L10
	pnull
	line	1753
	colm	7
	synt	any
	pret
lab L10
	synt	any
	pfail
	unmark
lab L9
	pnull
	line	1754
	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,cn_hd
	local	15,001000,cn_tl
	local	16,000020,self
	local	17,000020,clone
	local	18,000000,FConstruction__oprec
	local	19,000000,FConstructioninitialize
	local	20,000000,Node__oprec
	local	21,000000,Nodeinitialize
	local	22,000000,ConsNode__oprec
	local	23,000000,ConsNodeinitialize
	local	24,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	18
	line	8
	colm	6
	synt	any
	null
	unmark
	var	19
	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	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	23
	synt	any
	field	Node
	var	20
	line	10
	colm	29
	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	23
	synt	any
	field	ConsNode
	var	22
	line	12
	colm	33
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	16
	var	24
	line	14
	colm	32
	synt	any
	keywd	null
	var	18
	line	14
	colm	31
	synt	any
	invoke	2
	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
	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	16
	colm	21
	synt	any
	invoke	17
	line	16
	colm	192
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	194
	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 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	1755
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1756
	colm	14
	synt	any
	field	__m
	line	1756
	colm	18
	synt	any
	field	Node
	line	1756
	colm	23
	synt	any
	field	trace_node
	var	0
	line	1756
	colm	34
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1757
	colm	14
	synt	any
	field	__m
	line	1757
	colm	18
	synt	any
	field	ConsNode
	line	1757
	colm	27
	synt	any
	field	trace_node
	var	0
	line	1757
	colm	38
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1758
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1759
	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	1760
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1762
	colm	14
	synt	any
	field	__m
	line	1762
	colm	18
	synt	any
	field	Node
	line	1762
	colm	23
	synt	any
	field	dump
	var	0
	var	1
	line	1762
	colm	28
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1763
	colm	14
	synt	any
	field	__m
	line	1763
	colm	18
	synt	any
	field	ConsNode
	line	1763
	colm	27
	synt	any
	field	dump
	var	0
	var	1
	line	1763
	colm	32
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1764
	colm	68
	synt	any
	plus
	line	1764
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1764
	colm	105
	synt	any
	field	fv_last_definition
	line	1764
	colm	100
	synt	any
	invoke	1
	line	1764
	colm	88
	synt	any
	cat
	line	1764
	colm	14
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1765
	colm	58
	synt	any
	plus
	line	1765
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1765
	colm	95
	synt	any
	field	fv_surr_
	line	1765
	colm	90
	synt	any
	invoke	1
	line	1765
	colm	78
	synt	any
	cat
	line	1765
	colm	14
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1766
	colm	63
	synt	any
	plus
	line	1766
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1766
	colm	100
	synt	any
	field	fv_surr_index
	line	1766
	colm	95
	synt	any
	invoke	1
	line	1766
	colm	83
	synt	any
	cat
	line	1766
	colm	14
	synt	any
	invoke	2
	unmark
lab L6
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	1767
	colm	58
	synt	any
	plus
	line	1767
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1767
	colm	95
	synt	any
	field	fv_index
	line	1767
	colm	90
	synt	any
	invoke	1
	line	1767
	colm	78
	synt	any
	cat
	line	1767
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1769
	colm	1
	synt	any
	pfail
	end
proc FreeVarNode_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	local	4,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	1770
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1772
	colm	14
	synt	any
	field	__m
	line	1772
	colm	18
	synt	any
	field	Node
	line	1772
	colm	23
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1772
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1773
	colm	14
	synt	any
	field	__m
	line	1773
	colm	18
	synt	any
	field	ConsNode
	line	1773
	colm	27
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1773
	colm	37
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	var	4
	var	2
	var	3
	var	1
	str	0
	pnull
	var	0
	line	1774
	colm	88
	synt	any
	field	fv_last_definition
	line	1774
	colm	23
	synt	any
	invoke	5
	unmark
lab L3
	mark	L4
	var	4
	var	2
	var	3
	var	1
	str	1
	pnull
	var	0
	line	1775
	colm	78
	synt	any
	field	fv_surr_
	line	1775
	colm	23
	synt	any
	invoke	5
	unmark
lab L4
	mark	L5
	var	4
	var	2
	var	3
	var	1
	str	2
	pnull
	var	0
	line	1776
	colm	83
	synt	any
	field	fv_surr_index
	line	1776
	colm	23
	synt	any
	invoke	5
	unmark
lab L5
	mark	L6
	var	4
	var	2
	var	3
	var	1
	str	3
	pnull
	var	0
	line	1777
	colm	78
	synt	any
	field	fv_index
	line	1777
	colm	23
	synt	any
	invoke	5
	unmark
lab L6
	pnull
	line	1778
	colm	1
	synt	any
	pfail
	end
proc FreeVarNode_initially
	local	0,001000,self
	local	1,001000,fv_last_definition
	local	2,001000,fv_surr_class
	local	3,001000,fv_surr_index
	local	4,001000,fv_index
	local	5,001000,kind
	local	6,001000,vlineno
	local	7,001000,pre_num
	local	8,001000,post_num
	local	9,001000,cn_hd
	local	10,001000,cn_tl
	declend
	line	1779
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1781
	colm	14
	synt	any
	field	__m
	line	1781
	colm	18
	synt	any
	field	ConsNode
	line	1781
	colm	27
	synt	any
	field	initially
	var	0
	var	9
	var	10
	line	1781
	colm	38
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1782
	colm	14
	synt	any
	field	__m
	line	1782
	colm	18
	synt	any
	field	Node
	line	1782
	colm	23
	synt	any
	field	initially
	var	0
	var	5
	var	6
	var	7
	var	8
	line	1782
	colm	34
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1783
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1784
	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,cn_hd
	local	9,001000,cn_tl
	local	10,000020,self
	local	11,000020,clone
	local	12,000000,FreeVarNode__oprec
	local	13,000000,FreeVarNodeinitialize
	local	14,000000,Node__oprec
	local	15,000000,Nodeinitialize
	local	16,000000,ConsNode__oprec
	local	17,000000,ConsNodeinitialize
	local	18,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	12
	line	8
	colm	6
	synt	any
	null
	unmark
	var	13
	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	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	21
	synt	any
	field	Node
	var	14
	line	10
	colm	27
	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	21
	synt	any
	field	ConsNode
	var	16
	line	12
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	10
	var	18
	line	14
	colm	30
	synt	any
	keywd	null
	var	12
	line	14
	colm	29
	synt	any
	invoke	2
	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
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	line	16
	colm	21
	synt	any
	invoke	11
	line	16
	colm	126
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	128
	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 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	1786
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1787
	colm	14
	synt	any
	field	__m
	line	1787
	colm	18
	synt	any
	field	Node
	line	1787
	colm	23
	synt	any
	field	trace_node
	var	0
	line	1787
	colm	34
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1788
	colm	14
	synt	any
	field	__m
	line	1788
	colm	18
	synt	any
	field	ConsNode
	line	1788
	colm	27
	synt	any
	field	trace_node
	var	0
	line	1788
	colm	38
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1789
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1790
	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	1791
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1793
	colm	14
	synt	any
	field	__m
	line	1793
	colm	18
	synt	any
	field	Node
	line	1793
	colm	23
	synt	any
	field	dump
	var	0
	var	1
	line	1793
	colm	28
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1794
	colm	14
	synt	any
	field	__m
	line	1794
	colm	18
	synt	any
	field	ConsNode
	line	1794
	colm	27
	synt	any
	field	dump
	var	0
	var	1
	line	1794
	colm	32
	synt	any
	invoke	2
	unmark
lab L3
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1795
	colm	58
	synt	any
	plus
	line	1795
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1795
	colm	95
	synt	any
	field	ext_name
	line	1795
	colm	90
	synt	any
	invoke	1
	line	1795
	colm	78
	synt	any
	cat
	line	1795
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1797
	colm	1
	synt	any
	pfail
	end
proc ExternDefNode_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	local	4,000000,proc_dump_tree
	con	0,010000,13,145,170,164,137,156,141,155,145,040,040,040,075,040
	declend
	line	1798
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1800
	colm	14
	synt	any
	field	__m
	line	1800
	colm	18
	synt	any
	field	Node
	line	1800
	colm	23
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1800
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1801
	colm	14
	synt	any
	field	__m
	line	1801
	colm	18
	synt	any
	field	ConsNode
	line	1801
	colm	27
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1801
	colm	37
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	var	4
	var	2
	var	3
	var	1
	str	0
	pnull
	var	0
	line	1802
	colm	78
	synt	any
	field	ext_name
	line	1802
	colm	23
	synt	any
	invoke	5
	unmark
lab L3
	pnull
	line	1803
	colm	1
	synt	any
	pfail
	end
proc ExternDefNode_initially
	local	0,001000,self
	local	1,001000,ext_name
	local	2,001000,kind
	local	3,001000,vlineno
	local	4,001000,pre_num
	local	5,001000,post_num
	local	6,001000,cn_hd
	local	7,001000,cn_tl
	declend
	line	1804
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1806
	colm	14
	synt	any
	field	__m
	line	1806
	colm	18
	synt	any
	field	ConsNode
	line	1806
	colm	27
	synt	any
	field	initially
	var	0
	var	6
	var	7
	line	1806
	colm	38
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1807
	colm	14
	synt	any
	field	__m
	line	1807
	colm	18
	synt	any
	field	Node
	line	1807
	colm	23
	synt	any
	field	initially
	var	0
	var	2
	var	3
	var	4
	var	5
	line	1807
	colm	34
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1808
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1809
	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,cn_hd
	local	6,001000,cn_tl
	local	7,000020,self
	local	8,000020,clone
	local	9,000000,ExternDefNode__oprec
	local	10,000000,ExternDefNodeinitialize
	local	11,000000,Node__oprec
	local	12,000000,Nodeinitialize
	local	13,000000,ConsNode__oprec
	local	14,000000,ConsNodeinitialize
	local	15,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	9
	line	8
	colm	6
	synt	any
	null
	unmark
	var	10
	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	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	23
	synt	any
	field	Node
	var	11
	line	10
	colm	29
	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	23
	synt	any
	field	ConsNode
	var	13
	line	12
	colm	33
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	7
	var	15
	line	14
	colm	32
	synt	any
	keywd	null
	var	9
	line	14
	colm	31
	synt	any
	invoke	2
	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
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	16
	colm	21
	synt	any
	invoke	8
	line	16
	colm	79
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	81
	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 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	1811
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1812
	colm	14
	synt	any
	field	__m
	line	1812
	colm	18
	synt	any
	field	Node
	line	1812
	colm	23
	synt	any
	field	trace_node
	var	0
	line	1812
	colm	34
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1813
	colm	14
	synt	any
	field	__m
	line	1813
	colm	18
	synt	any
	field	ConsNode
	line	1813
	colm	27
	synt	any
	field	trace_node
	var	0
	line	1813
	colm	38
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1814
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1815
	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	1816
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1818
	colm	14
	synt	any
	field	__m
	line	1818
	colm	18
	synt	any
	field	Node
	line	1818
	colm	23
	synt	any
	field	dump
	var	0
	var	1
	line	1818
	colm	28
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1819
	colm	14
	synt	any
	field	__m
	line	1819
	colm	18
	synt	any
	field	ConsNode
	line	1819
	colm	27
	synt	any
	field	dump
	var	0
	var	1
	line	1819
	colm	32
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1820
	colm	59
	synt	any
	plus
	line	1820
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1820
	colm	96
	synt	any
	field	signature
	line	1820
	colm	91
	synt	any
	invoke	1
	line	1820
	colm	79
	synt	any
	cat
	line	1820
	colm	14
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1821
	colm	58
	synt	any
	plus
	line	1821
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1821
	colm	95
	synt	any
	field	sig_done
	line	1821
	colm	90
	synt	any
	invoke	1
	line	1821
	colm	78
	synt	any
	cat
	line	1821
	colm	14
	synt	any
	invoke	2
	unmark
lab L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1822
	colm	60
	synt	any
	plus
	line	1822
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1822
	colm	97
	synt	any
	field	r_ext_name
	line	1822
	colm	92
	synt	any
	invoke	1
	line	1822
	colm	80
	synt	any
	cat
	line	1822
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1824
	colm	1
	synt	any
	pfail
	end
proc RExternDef_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	local	4,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	1825
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1827
	colm	14
	synt	any
	field	__m
	line	1827
	colm	18
	synt	any
	field	Node
	line	1827
	colm	23
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1827
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1828
	colm	14
	synt	any
	field	__m
	line	1828
	colm	18
	synt	any
	field	ConsNode
	line	1828
	colm	27
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1828
	colm	37
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	var	4
	var	2
	var	3
	var	1
	str	0
	pnull
	var	0
	line	1829
	colm	79
	synt	any
	field	signature
	line	1829
	colm	23
	synt	any
	invoke	5
	unmark
lab L3
	mark	L4
	var	4
	var	2
	var	3
	var	1
	str	1
	pnull
	var	0
	line	1830
	colm	78
	synt	any
	field	sig_done
	line	1830
	colm	23
	synt	any
	invoke	5
	unmark
lab L4
	mark	L5
	var	4
	var	2
	var	3
	var	1
	str	2
	pnull
	var	0
	line	1831
	colm	80
	synt	any
	field	r_ext_name
	line	1831
	colm	23
	synt	any
	invoke	5
	unmark
lab L5
	pnull
	line	1832
	colm	1
	synt	any
	pfail
	end
proc RExternDef_initially
	local	0,001000,self
	local	1,001000,signature
	local	2,001000,sig_done
	local	3,001000,r_ext_name
	local	4,001000,kind
	local	5,001000,vlineno
	local	6,001000,pre_num
	local	7,001000,post_num
	local	8,001000,cn_hd
	local	9,001000,cn_tl
	declend
	line	1833
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1835
	colm	14
	synt	any
	field	__m
	line	1835
	colm	18
	synt	any
	field	ConsNode
	line	1835
	colm	27
	synt	any
	field	initially
	var	0
	var	8
	var	9
	line	1835
	colm	38
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1836
	colm	14
	synt	any
	field	__m
	line	1836
	colm	18
	synt	any
	field	Node
	line	1836
	colm	23
	synt	any
	field	initially
	var	0
	var	4
	var	5
	var	6
	var	7
	line	1836
	colm	34
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1837
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1838
	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,cn_hd
	local	8,001000,cn_tl
	local	9,000020,self
	local	10,000020,clone
	local	11,000000,RExternDef__oprec
	local	12,000000,RExternDefinitialize
	local	13,000000,Node__oprec
	local	14,000000,Nodeinitialize
	local	15,000000,ConsNode__oprec
	local	16,000000,ConsNodeinitialize
	local	17,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	11
	line	8
	colm	6
	synt	any
	null
	unmark
	var	12
	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	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	20
	synt	any
	field	Node
	var	13
	line	10
	colm	26
	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	20
	synt	any
	field	ConsNode
	var	15
	line	12
	colm	30
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	9
	var	17
	line	14
	colm	29
	synt	any
	keywd	null
	var	11
	line	14
	colm	28
	synt	any
	invoke	2
	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
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	line	16
	colm	21
	synt	any
	invoke	10
	line	16
	colm	100
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	102
	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 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	1840
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1841
	colm	14
	synt	any
	field	__m
	line	1841
	colm	18
	synt	any
	field	Node
	line	1841
	colm	23
	synt	any
	field	trace_node
	var	0
	line	1841
	colm	34
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1842
	colm	14
	synt	any
	field	__m
	line	1842
	colm	18
	synt	any
	field	ConsNode
	line	1842
	colm	27
	synt	any
	field	trace_node
	var	0
	line	1842
	colm	38
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	str	0
	line	1843
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	pnull
	line	1844
	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	1845
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1847
	colm	14
	synt	any
	field	__m
	line	1847
	colm	18
	synt	any
	field	Node
	line	1847
	colm	23
	synt	any
	field	dump
	var	0
	var	1
	line	1847
	colm	28
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1848
	colm	14
	synt	any
	field	__m
	line	1848
	colm	18
	synt	any
	field	ConsNode
	line	1848
	colm	27
	synt	any
	field	dump
	var	0
	var	1
	line	1848
	colm	32
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1849
	colm	59
	synt	any
	plus
	line	1849
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1849
	colm	96
	synt	any
	field	dcse_char
	line	1849
	colm	91
	synt	any
	invoke	1
	line	1849
	colm	79
	synt	any
	cat
	line	1849
	colm	14
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1850
	colm	61
	synt	any
	plus
	line	1850
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1850
	colm	98
	synt	any
	field	dcse_inline
	line	1850
	colm	93
	synt	any
	invoke	1
	line	1850
	colm	81
	synt	any
	cat
	line	1850
	colm	14
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1851
	colm	62
	synt	any
	plus
	line	1851
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1851
	colm	99
	synt	any
	field	dcse_special
	line	1851
	colm	94
	synt	any
	invoke	1
	line	1851
	colm	82
	synt	any
	cat
	line	1851
	colm	14
	synt	any
	invoke	2
	unmark
lab L6
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	1852
	colm	67
	synt	any
	plus
	line	1852
	colm	38
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1852
	colm	104
	synt	any
	field	dcse_construction
	line	1852
	colm	99
	synt	any
	invoke	1
	line	1852
	colm	87
	synt	any
	cat
	line	1852
	colm	14
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1854
	colm	1
	synt	any
	pfail
	end
proc DcsException_dump_tree
	local	0,001000,self
	local	1,001000,pos_no
	local	2,001000,dump_file
	local	3,001000,dump_file_sav
	local	4,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	1855
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1857
	colm	14
	synt	any
	field	__m
	line	1857
	colm	18
	synt	any
	field	Node
	line	1857
	colm	23
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1857
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1858
	colm	14
	synt	any
	field	__m
	line	1858
	colm	18
	synt	any
	field	ConsNode
	line	1858
	colm	27
	synt	any
	field	dump_tree
	var	0
	var	1
	var	2
	var	3
	line	1858
	colm	37
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	var	4
	var	2
	var	3
	var	1
	str	0
	pnull
	var	0
	line	1859
	colm	79
	synt	any
	field	dcse_char
	line	1859
	colm	23
	synt	any
	invoke	5
	unmark
lab L3
	mark	L4
	var	4
	var	2
	var	3
	var	1
	str	1
	pnull
	var	0
	line	1860
	colm	81
	synt	any
	field	dcse_inline
	line	1860
	colm	23
	synt	any
	invoke	5
	unmark
lab L4
	mark	L5
	var	4
	var	2
	var	3
	var	1
	str	2
	pnull
	var	0
	line	1861
	colm	82
	synt	any
	field	dcse_special
	line	1861
	colm	23
	synt	any
	invoke	5
	unmark
lab L5
	mark	L6
	var	4
	var	2
	var	3
	var	1
	str	3
	pnull
	var	0
	line	1862
	colm	87
	synt	any
	field	dcse_construction
	line	1862
	colm	23
	synt	any
	invoke	5
	unmark
lab L6
	pnull
	line	1863
	colm	1
	synt	any
	pfail
	end
proc DcsException_initially
	local	0,001000,self
	local	1,001000,dcse_char
	local	2,001000,dcse_inline
	local	3,001000,dcse_special
	local	4,001000,dcse_construction
	local	5,001000,kind
	local	6,001000,vlineno
	local	7,001000,pre_num
	local	8,001000,post_num
	local	9,001000,cn_hd
	local	10,001000,cn_tl
	declend
	line	1864
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1865
	colm	14
	synt	any
	field	__m
	line	1865
	colm	18
	synt	any
	field	ConsNode
	line	1865
	colm	27
	synt	any
	field	initially
	var	0
	var	9
	var	10
	line	1865
	colm	38
	synt	any
	invoke	3
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1866
	colm	14
	synt	any
	field	__m
	line	1866
	colm	18
	synt	any
	field	Node
	line	1866
	colm	23
	synt	any
	field	initially
	var	0
	var	5
	var	6
	var	7
	var	8
	line	1866
	colm	34
	synt	any
	invoke	5
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1867
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1868
	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,cn_hd
	local	9,001000,cn_tl
	local	10,000020,self
	local	11,000020,clone
	local	12,000000,DcsException__oprec
	local	13,000000,DcsExceptioninitialize
	local	14,000000,Node__oprec
	local	15,000000,Nodeinitialize
	local	16,000000,ConsNode__oprec
	local	17,000000,ConsNodeinitialize
	local	18,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	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
	line	14
	colm	30
	synt	any
	invoke	2
	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
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	line	16
	colm	21
	synt	any
	invoke	11
	line	16
	colm	123
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	125
	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 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,DcsException_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 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	1870
	colm	11
	synt	any
	mark	L1
	line	1871
	colm	5
	synt	ifelse
	mark	L2
	pnull
	var	1
	var	0
	line	1871
	colm	12
	synt	any
	invoke	1
	str	0
	line	1871
	colm	17
	synt	any
	lexeq
	unmark
	mark	L4
	var	0
	line	1871
	colm	35
	synt	any
	pret
lab L4
	synt	any
	pfail
	goto	L3
lab L2
	line	1872
	colm	10
	synt	ifelse
	mark	L5
	pnull
	var	1
	var	0
	line	1872
	colm	17
	synt	any
	invoke	1
	str	1
	line	1872
	colm	22
	synt	any
	lexeq
	unmark
	mark	L7
	var	0
	line	1872
	colm	38
	synt	any
	pret
lab L7
	synt	any
	pfail
	goto	L6
lab L5
	line	1873
	colm	10
	synt	ifelse
	mark	L8
	pnull
	var	1
	var	0
	line	1873
	colm	17
	synt	any
	invoke	1
	str	2
	line	1873
	colm	22
	synt	any
	lexeq
	unmark
	mark	L10
	var	0
	line	1873
	colm	37
	synt	any
	pret
lab L10
	synt	any
	pfail
	goto	L9
lab L8
	mark	L11
	var	1
	var	0
	line	1874
	colm	21
	synt	any
	invoke	1
	line	1874
	colm	10
	synt	any
	pret
lab L11
	synt	any
	pfail
lab L9
	line	1873
	colm	10
	synt	endifelse
lab L6
	line	1872
	colm	10
	synt	endifelse
lab L3
	line	1871
	colm	5
	synt	endifelse
	unmark
lab L1
	pnull
	line	1875
	colm	1
	synt	any
	pfail
	end
proc proc_dump_tree
	local	0,001000,treefile
	local	1,001000,treefile_sav
	local	2,001000,pos_no
	local	3,001000,str
	local	4,001000,it
	local	5,000040,cnt
	local	6,000000,type
	local	7,000000,write
	local	8,000000,dump__tree_depth
	local	9,000000,member
	local	10,000000,visited
	local	11,000000,insert
	local	12,000000,trash_id
	local	13,000000,open
	local	14,000000,head_html
	local	15,000000,end_html
	local	16,000000,close
	con	0,002000,1,0
	con	1,002000,1,1
	con	2,002000,6,100000
	con	3,010000,7,151,156,164,145,147,145,162
	con	4,010000,8,074,164,162,076,074,164,144,076
	con	5,010000,9,074,057,164,144,076,074,164,144,076
	con	6,010000,10,074,057,164,144,076,074,057,164,162,076
	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,5,046,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,14,074,141,040,150,162,145,146,075,042,144,165,155,160,137
	con	20,010000,5,137,163,165,142,137
	con	21,010000,7,056,150,164,155,154,042,076
	con	22,010000,1,137
	con	23,010000,4,074,057,141,076
	con	24,010000,18,156,157,144,145,164,162,145,145,150,164,155,154,057,144,165,155,160,137
	con	25,010000,5,056,150,164,155,154
	con	26,010000,1,167
	con	27,010000,7,137,164,162,141,163,150,137
	declend
	line	1878
	colm	12
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	5
	int	0
	line	1882
	colm	13
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	pnull
	var	5
	dup
	int	1
	line	1884
	colm	9
	synt	any
	plus
	asgn
	unmark
lab L4
	mark	L5
	line	1885
	colm	5
	synt	if
	mark0
	pnull
	var	5
	int	2
	line	1885
	colm	12
	synt	any
	numgt
	unmark
	mark	L6
	pnull
	line	1885
	colm	26
	synt	any
	pret
lab L6
	synt	any
	pfail
	line	1885
	colm	5
	synt	endif
	unmark
lab L5
	mark	L7
	line	1886
	colm	5
	synt	ifelse
	mark	L8
	pnull
	var	6
	var	4
	line	1886
	colm	12
	synt	any
	invoke	1
	str	3
	line	1886
	colm	17
	synt	any
	lexeq
	unmark
	var	7
	var	0
	str	4
	var	3
	str	5
	var	4
	str	6
	line	1886
	colm	40
	synt	any
	invoke	6
	goto	L9
lab L8
	line	1887
	colm	10
	synt	ifelse
	mark	L10
	pnull
	var	6
	var	4
	line	1887
	colm	17
	synt	any
	invoke	1
	str	7
	line	1887
	colm	22
	synt	any
	lexeq
	unmark
	var	7
	var	0
	str	4
	var	3
	str	5
	var	4
	str	6
	line	1887
	colm	44
	synt	any
	invoke	6
	goto	L11
lab L10
	line	1888
	colm	10
	synt	ifelse
	mark	L12
	pnull
	var	6
	var	4
	line	1888
	colm	17
	synt	any
	invoke	1
	str	8
	line	1888
	colm	22
	synt	any
	lexeq
	unmark
	var	7
	var	0
	str	4
	var	3
	str	5
	var	4
	str	6
	line	1888
	colm	42
	synt	any
	invoke	6
	goto	L13
lab L12
	line	1889
	colm	10
	synt	ifelse
	mark	L14
	pnull
	var	6
	var	4
	line	1889
	colm	17
	synt	any
	invoke	1
	str	9
	line	1889
	colm	22
	synt	any
	lexeq
	unmark
	var	7
	var	0
	str	4
	var	3
	str	5
	var	6
	var	4
	line	1889
	colm	92
	synt	any
	invoke	1
	str	6
	line	1889
	colm	51
	synt	any
	invoke	6
	goto	L15
lab L14
	line	1890
	colm	10
	synt	ifelse
	mark	L16
	pnull
	var	6
	var	4
	line	1890
	colm	17
	synt	any
	invoke	1
	str	10
	line	1890
	colm	22
	synt	any
	lexeq
	unmark
	var	7
	var	0
	str	4
	var	3
	str	5
	var	6
	var	4
	line	1890
	colm	83
	synt	any
	invoke	1
	str	6
	line	1890
	colm	42
	synt	any
	invoke	6
	goto	L17
lab L16
	line	1892
	colm	10
	synt	ifelse
	mark	L18
	pnull
	var	6
	var	4
	line	1892
	colm	17
	synt	any
	invoke	1
	str	11
	line	1892
	colm	22
	synt	any
	lexeq
	unmark
	var	7
	var	0
	str	4
	var	3
	str	5
	var	6
	var	4
	line	1892
	colm	83
	synt	any
	invoke	1
	str	6
	line	1892
	colm	42
	synt	any
	invoke	6
	goto	L19
lab L18
	line	1893
	colm	10
	synt	ifelse
	mark	L20
	pnull
	var	6
	var	4
	line	1893
	colm	17
	synt	any
	invoke	1
	str	12
	line	1893
	colm	22
	synt	any
	lexeq
	unmark
	var	7
	var	0
	str	4
	var	3
	str	5
	var	6
	var	4
	line	1893
	colm	83
	synt	any
	invoke	1
	str	6
	line	1893
	colm	42
	synt	any
	invoke	6
	goto	L21
lab L20
	line	1894
	colm	11
	synt	ifelse
	mark	L22
	pnull
	var	4
	line	1894
	colm	14
	synt	any
	null
	unmark
	var	7
	var	0
	str	4
	var	3
	str	5
	str	13
	str	6
	line	1894
	colm	28
	synt	any
	invoke	6
	goto	L23
lab L22
	line	1895
	colm	10
	synt	ifelse
	mark	L24
	pnull
	var	6
	var	4
	line	1895
	colm	17
	synt	any
	invoke	1
	str	14
	line	1895
	colm	22
	synt	any
	lexeq
	unmark
	var	7
	var	0
	str	4
	var	3
	str	5
	var	6
	var	4
	line	1895
	colm	88
	synt	any
	invoke	1
	str	6
	line	1895
	colm	47
	synt	any
	invoke	6
	goto	L25
lab L24
	line	1896
	colm	10
	synt	ifelse
	mark	L26
	pnull
	var	6
	var	4
	line	1896
	colm	17
	synt	any
	invoke	1
	str	15
	line	1896
	colm	22
	synt	any
	lexeq
	unmark
	var	7
	var	0
	str	4
	var	3
	str	5
	var	6
	var	4
	line	1896
	colm	82
	synt	any
	invoke	1
	str	6
	line	1896
	colm	41
	synt	any
	invoke	6
	goto	L27
lab L26
	line	1897
	colm	10
	synt	ifelse
	mark	L28
	pnull
	var	6
	var	4
	line	1897
	colm	17
	synt	any
	invoke	1
	str	16
	line	1897
	colm	22
	synt	any
	lexeq
	unmark
	var	7
	var	0
	str	4
	var	3
	str	5
	var	6
	var	4
	line	1897
	colm	84
	synt	any
	invoke	1
	str	6
	line	1897
	colm	43
	synt	any
	invoke	6
	goto	L29
lab L28
	line	1898
	colm	10
	synt	ifelse
	mark	L30
	pnull
	var	6
	var	4
	line	1898
	colm	17
	synt	any
	invoke	1
	str	17
	line	1898
	colm	22
	synt	any
	lexeq
	unmark
	var	7
	var	0
	str	4
	var	3
	str	5
	var	6
	var	4
	line	1898
	colm	85
	synt	any
	invoke	1
	str	6
	line	1898
	colm	44
	synt	any
	invoke	6
	goto	L31
lab L30
	line	1899
	colm	10
	synt	ifelse
	mark	L32
	pnull
	var	6
	var	4
	line	1899
	colm	17
	synt	any
	invoke	1
	str	18
	line	1899
	colm	22
	synt	any
	lexeq
	unmark
	var	7
	var	0
	str	4
	var	3
	str	5
	var	6
	var	4
	line	1899
	colm	84
	synt	any
	invoke	1
	str	6
	line	1899
	colm	43
	synt	any
	invoke	6
	goto	L33
lab L32
	mark	L34
	pnull
	var	8
	dup
	int	1
	line	1901
	colm	26
	synt	any
	plus
	asgn
	unmark
lab L34
	mark	L35
	line	1902
	colm	9
	synt	ifelse
	mark	L36
	mark	L38
	var	9
	var	10
	var	4
	line	1902
	colm	23
	synt	any
	invoke	2
	unmark
	efail
lab L38
	pnull
	unmark
	mark	L39
	var	11
	var	10
	var	4
	line	1904
	colm	19
	synt	any
	invoke	2
	unmark
lab L39
	mark	L40
	line	1905
	colm	13
	synt	ifelse
	mark	L41
	pnull
	pnull
	var	4
	line	1905
	colm	19
	synt	any
	field	unique_id
	line	1905
	colm	16
	synt	any
	nonnull
	unmark
	var	7
	var	0
	str	4
	var	3
	str	5
	str	19
	var	2
	str	20
	pnull
	var	4
	line	1906
	colm	99
	synt	any
	field	unique_id
	str	21
	var	6
	var	4
	line	1906
	colm	127
	synt	any
	invoke	1
	str	22
	pnull
	var	4
	line	1906
	colm	138
	synt	any
	field	unique_id
	str	23
	line	1906
	colm	22
	synt	any
	invoke	13
	goto	L42
lab L41
	mark	L43
	var	7
	var	0
	str	4
	var	3
	str	5
	str	19
	var	2
	str	20
	var	12
	str	21
	var	6
	var	4
	line	1908
	colm	123
	synt	any
	invoke	1
	str	22
	pnull
	var	4
	line	1908
	colm	134
	synt	any
	field	unique_id
	str	23
	line	1908
	colm	22
	synt	any
	invoke	13
	unmark
lab L43
	pnull
	var	12
	dup
	int	1
	line	1909
	colm	26
	synt	any
	plus
	asgn
lab L42
	line	1905
	colm	13
	synt	endifelse
	unmark
lab L40
	mark	L44
	pnull
	var	1
	var	0
	line	1911
	colm	26
	synt	any
	asgn
	unmark
lab L44
	mark	L45
	pnull
	var	0
	var	13
	pnull
	pnull
	pnull
	pnull
	str	24
	var	2
	line	1912
	colm	51
	synt	any
	cat
	str	20
	line	1912
	colm	61
	synt	any
	cat
	pnull
	var	4
	line	1912
	colm	77
	synt	any
	field	unique_id
	line	1912
	colm	72
	synt	any
	cat
	str	25
	line	1912
	colm	88
	synt	any
	cat
	str	26
	line	1912
	colm	29
	synt	any
	invoke	2
	line	1912
	colm	22
	synt	any
	asgn
	unmark
lab L45
	mark	L46
	var	14
	var	0
	var	4
	line	1913
	colm	22
	synt	any
	invoke	2
	unmark
lab L46
	mark	L47
	pnull
	var	4
	line	1914
	colm	15
	synt	any
	field	dump_tree
	var	2
	var	0
	var	1
	line	1914
	colm	25
	synt	any
	invoke	3
	unmark
lab L47
	mark	L48
	var	15
	var	0
	var	4
	line	1915
	colm	21
	synt	any
	invoke	2
	unmark
lab L48
	mark	L49
	var	16
	var	0
	line	1916
	colm	18
	synt	any
	invoke	1
	unmark
lab L49
	pnull
	var	0
	var	1
	line	1917
	colm	22
	synt	any
	asgn
	goto	L37
lab L36
	line	1921
	colm	13
	synt	ifelse
	mark	L50
	pnull
	pnull
	var	4
	line	1921
	colm	19
	synt	any
	field	unique_id
	line	1921
	colm	16
	synt	any
	nonnull
	unmark
	var	7
	var	0
	str	4
	var	3
	str	5
	str	19
	var	2
	str	20
	pnull
	var	4
	line	1922
	colm	99
	synt	any
	field	unique_id
	str	21
	var	6
	var	4
	line	1922
	colm	127
	synt	any
	invoke	1
	str	22
	pnull
	var	4
	line	1922
	colm	138
	synt	any
	field	unique_id
	str	23
	line	1922
	colm	22
	synt	any
	invoke	13
	goto	L51
lab L50
	mark	L52
	var	7
	var	0
	str	4
	var	3
	str	5
	str	19
	var	2
	str	20
	var	12
	str	21
	var	6
	var	4
	line	1924
	colm	123
	synt	any
	invoke	1
	str	27
	var	12
	str	23
	line	1924
	colm	22
	synt	any
	invoke	13
	unmark
lab L52
	pnull
	var	12
	dup
	int	1
	line	1925
	colm	26
	synt	any
	plus
	asgn
lab L51
	line	1921
	colm	13
	synt	endifelse
lab L37
	line	1902
	colm	9
	synt	endifelse
	unmark
lab L35
	pnull
	var	8
	dup
	int	1
	line	1929
	colm	26
	synt	any
	minus
	asgn
lab L33
	line	1899
	colm	10
	synt	endifelse
lab L31
	line	1898
	colm	10
	synt	endifelse
lab L29
	line	1897
	colm	10
	synt	endifelse
lab L27
	line	1896
	colm	10
	synt	endifelse
lab L25
	line	1895
	colm	10
	synt	endifelse
lab L23
	line	1894
	colm	11
	synt	endifelse
lab L21
	line	1893
	colm	10
	synt	endifelse
lab L19
	line	1892
	colm	10
	synt	endifelse
lab L17
	line	1890
	colm	10
	synt	endifelse
lab L15
	line	1889
	colm	10
	synt	endifelse
lab L13
	line	1888
	colm	10
	synt	endifelse
lab L11
	line	1887
	colm	10
	synt	endifelse
lab L9
	line	1886
	colm	5
	synt	endifelse
	unmark
lab L7
	pnull
	line	1931
	colm	1
	synt	any
	pfail
	end
