version	U12.1.00
uid	ststructs_cls.tmp.u1-1459048647-0
record	Node__state,6
	0,__s
	1,__m
	2,kind
	3,vlineno
	4,pre_num
	5,post_num
record	Node__methods,3
	0,dump
	1,dump_tree
	2,initially
record	ConsNode__state,5
	0,__s
	1,__m
	2,unique_id
	3,cn_hd_field
	4,cn_tl_field
record	ConsNode__methods,4
	0,dump
	1,dump_tree
	2,cons_dump
	3,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,14
	0,dump
	1,dump_tree
	2,list_dump
	3,first
	4,last
	5,setfirst
	6,setlast
	7,conc
	8,length
	9,list_to_array
	10,initially
	11,cons_dump
	12,Node
	13,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,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,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,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,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,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,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,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,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,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,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,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,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,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,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,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,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,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,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,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,ConsNode
record	BlDenotationNode__state,19
	0,__s
	1,__m
	2,signature
	3,sig_done
	4,ar_size
	5,ar_static_link
	6,ar_static_level
	7,bld_declaration_list
	8,bld_den_seq
	9,bld_precedence
	10,bld_flags
	11,fc_code_label
	12,kind
	13,vlineno
	14,pre_num
	15,post_num
	16,unique_id
	17,cn_hd_field
	18,cn_tl_field
record	BlDenotationNode__methods,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,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,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,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,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,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,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,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,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,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,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,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,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,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,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,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,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,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,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,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,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,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,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,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,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,ConsNode
record	AllConstantsNode__state,2
	0,__s
	1,__m
record	AllConstantsNode__methods,2
	0,dump
	1,dump_tree
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,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,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,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,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,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,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,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,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,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,ConsNode
record	GuardedElementNode__state,11
	0,__s
	1,__m
	2,ge_guard
	3,ge_element
	4,kind
	5,vlineno
	6,pre_num
	7,post_num
	8,unique_id
	9,cn_hd_field
	10,cn_tl_field
record	GuardedElementNode__methods,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,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,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,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,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,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,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,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,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,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,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,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,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,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,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,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,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,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,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,ConsNode
impl	error
global	585
	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,sym2_table,0
	141,000001,line_cnt,0
	142,000001,char_cnt,0
	143,000001,token_cnt,0
	144,000001,reserved_id_cnt,0
	145,000001,reserved_op_cnt,0
	146,000001,numeral_cnt,0
	147,000001,nodes_total_cnt,0
	148,000001,nodes_made_cnt,0
	149,000001,lists_total_cnt,0
	150,000001,lists_made_cnt,0
	151,000001,yyn_switches_cnt,0
	152,000001,yyn_compute_cnt,0
	153,000001,newstate_cnt,0
	154,000001,setstate_cnt,0
	155,000001,backup_cnt,0
	156,000001,default_cnt,0
	157,000001,reduce_cnt,0
	158,000001,errlab_cnt,0
	159,000001,errlab1_cnt,0
	160,000001,defined_id_cnt,0
	161,000001,defined_op_cnt,0
	162,000001,seperator_cnt,0
	163,000001,RIC_table,0
	164,000001,RIC_op_code_cnt,0
	165,000001,RIC_table_entry_cnt,0
	166,000001,comments_cnt,0
	167,000001,sing_quoted_cnt,0
	168,000001,dbl_quoted_cnt,0
	169,000001,infile,0
	170,000001,entry_name,0
	171,000001,yyinfnm,0
	172,000001,addposition,0
	173,000001,inline_cnvt,0
	174,000001,Ginline_cnvt,0
	175,000001,Vinline_cnvt,0
	176,000001,paramstop,0
	177,000001,denseqstop,0
	178,000001,condstop,0
	179,000001,declstop,0
	180,000001,stxtree,0
	181,000001,yystate,0
	182,000001,fn_count,0
	183,000001,scanstk,0
	184,000001,stktop,0
	185,000001,scansavc,0
	186,000001,yydescr,0
	187,000001,has_externs,0
	188,000001,argcnt_from_kind,0
	189,000001,parser_actions_cnt,0
	190,000001,curr_void_decl,0
	191,000001,curr_sig_transp,0
	192,000001,curr_tsig,0
	193,000001,err_node,0
	194,000001,in_sig,0
	195,000001,in_loop,0
	196,000001,linebuf,0
	197,000001,restab,0
	198,000001,cctab,0
	199,000001,tokenlgth,0
	200,000001,yynerrs,0
	201,000001,decl_num,0
	202,000001,decl_nums,0
	203,000001,Outer_arg,0
	204,000001,file_sigs,0
	205,000001,decl_num_in,0
	206,000001,sig_table,0
	207,000001,unique_node_id,0
	208,000001,objfilelist,0
	209,000001,Idtable,0
	210,000001,dump_tree_depth,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,000005,special,2
	251,000005,mklist,1
	252,000005,emptylist,0
	253,000005,is_list,1
	254,000005,should_examine,1
	255,000005,is_empty,1
	256,000005,split,12
	257,000005,conc,2
	258,000005,addleft,2
	259,000005,addright,2
	260,000005,Node_dump,2
	261,000005,Node_dump_tree,1
	262,000005,Node_initially,5
	263,000011,Node__state,6
	264,000011,Node__methods,3
	265,000001,Node__oprec,0
	266,000005,Node,4
	267,000005,Nodeinitialize,0
	268,000005,ConsNode_dump,2
	269,000005,ConsNode_dump_tree,1
	270,000005,ConsNode_cons_dump,1
	271,000005,ConsNode_initially,3
	272,000011,ConsNode__state,5
	273,000011,ConsNode__methods,4
	274,000001,ConsNode__oprec,0
	275,000005,ConsNode,2
	276,000005,ConsNodeinitialize,0
	277,000005,ListHeaderNode_dump,2
	278,000005,ListHeaderNode_dump_tree,1
	279,000005,ListHeaderNode_list_dump,1
	280,000005,ListHeaderNode_first,1
	281,000005,ListHeaderNode_last,1
	282,000005,ListHeaderNode_setfirst,2
	283,000005,ListHeaderNode_setlast,2
	284,000005,ListHeaderNode_conc,2
	285,000005,ListHeaderNode_length,1
	286,000005,ListHeaderNode_list_to_array,1
	287,000005,ListHeaderNode_initially,1
	288,000011,ListHeaderNode__state,11
	289,000011,ListHeaderNode__methods,14
	290,000001,ListHeaderNode__oprec,0
	291,000005,ListHeaderNode,9
	292,000005,ListHeaderNodeinitialize,0
	293,000005,DeclarationNode_dump,2
	294,000005,DeclarationNode_dump_tree,1
	295,000011,DeclarationNode__state,24
	296,000011,DeclarationNode__methods,6
	297,000001,DeclarationNode__oprec,0
	298,000005,DeclarationNode,4
	299,000005,DeclarationNodeinitialize,0
	300,000005,ParameterNode_dump,2
	301,000005,ParameterNode_dump_tree,1
	302,000011,ParameterNode__state,16
	303,000011,ParameterNode__methods,6
	304,000001,ParameterNode__oprec,0
	305,000005,ParameterNode,4
	306,000005,ParameterNodeinitialize,0
	307,000005,RElementNode_dump,2
	308,000005,RElementNode_dump_tree,1
	309,000011,RElementNode__state,14
	310,000011,RElementNode__methods,6
	311,000001,RElementNode__oprec,0
	312,000005,RElementNode,4
	313,000005,RElementNodeinitialize,0
	314,000005,VarSignature_dump,2
	315,000005,VarSignature_dump_tree,1
	316,000011,VarSignature__state,12
	317,000011,VarSignature__methods,6
	318,000001,VarSignature__oprec,0
	319,000005,VarSignature,4
	320,000005,VarSignatureinitialize,0
	321,000005,ValSignature_dump,2
	322,000005,ValSignature_dump_tree,1
	323,000011,ValSignature__state,12
	324,000011,ValSignature__methods,6
	325,000001,ValSignature__oprec,0
	326,000005,ValSignature,4
	327,000005,ValSignatureinitialize,0
	328,000005,FSignature_dump,2
	329,000005,FSignature_dump_tree,1
	330,000005,FSignature_initially,1
	331,000011,FSignature__state,18
	332,000011,FSignature__methods,6
	333,000001,FSignature__oprec,0
	334,000005,FSignature,16
	335,000005,FSignatureinitialize,0
	336,000005,TSignature_dump,2
	337,000005,TSignature_dump_tree,1
	338,000005,TSignature_initially,1
	339,000011,TSignature__state,20
	340,000011,TSignature__methods,6
	341,000001,TSignature__oprec,0
	342,000005,TSignature,18
	343,000005,TSignatureinitialize,0
	344,000005,TSComponentNode_dump,2
	345,000005,TSComponentNode_dump_tree,1
	346,000011,TSComponentNode__state,11
	347,000011,TSComponentNode__methods,6
	348,000001,TSComponentNode__oprec,0
	349,000005,TSComponentNode,4
	350,000005,TSComponentNodeinitialize,0
	351,000005,DefCharSigNode_dump,2
	352,000005,DefCharSigNode_dump_tree,1
	353,000011,DefCharSigNode__state,14
	354,000011,DefCharSigNode__methods,6
	355,000001,DefCharSigNode__oprec,0
	356,000005,DefCharSigNode,4
	357,000005,DefCharSigNodeinitialize,0
	358,000005,SignatureSigNode_dump,2
	359,000005,SignatureSigNode_dump_tree,1
	360,000011,SignatureSigNode__state,11
	361,000011,SignatureSigNode__methods,6
	362,000001,SignatureSigNode__oprec,0
	363,000005,SignatureSigNode,4
	364,000005,SignatureSigNodeinitialize,0
	365,000005,BlDenotationNode_dump,2
	366,000005,BlDenotationNode_dump_tree,1
	367,000005,BlDenotationNode_initially,1
	368,000011,BlDenotationNode__state,19
	369,000011,BlDenotationNode__methods,6
	370,000001,BlDenotationNode__oprec,0
	371,000005,BlDenotationNode,17
	372,000005,BlDenotationNodeinitialize,0
	373,000005,UseListNode_dump,2
	374,000005,UseListNode_dump_tree,1
	375,000005,UseListNode_initially,1
	376,000011,UseListNode__state,15
	377,000011,UseListNode__methods,6
	378,000001,UseListNode__oprec,0
	379,000005,UseListNode,13
	380,000005,UseListNodeinitialize,0
	381,000005,ApplicationNode_dump,2
	382,000005,ApplicationNode_dump_tree,1
	383,000005,ApplicationNode_initially,1
	384,000011,ApplicationNode__state,14
	385,000011,ApplicationNode__methods,6
	386,000001,ApplicationNode__oprec,0
	387,000005,ApplicationNode,12
	388,000005,ApplicationNodeinitialize,0
	389,000005,EnumerationNode_dump,2
	390,000005,EnumerationNode_dump_tree,1
	391,000005,EnumerationNode_initially,1
	392,000011,EnumerationNode__state,12
	393,000011,EnumerationNode__methods,6
	394,000001,EnumerationNode__oprec,0
	395,000005,EnumerationNode,10
	396,000005,EnumerationNodeinitialize,0
	397,000005,ExtensionNode_dump,2
	398,000005,ExtensionNode_dump_tree,1
	399,000011,ExtensionNode__state,14
	400,000011,ExtensionNode__methods,6
	401,000001,ExtensionNode__oprec,0
	402,000005,ExtensionNode,4
	403,000005,ExtensionNodeinitialize,0
	404,000005,ProductNode_dump,2
	405,000005,ProductNode_dump_tree,1
	406,000011,ProductNode__state,14
	407,000011,ProductNode__methods,6
	408,000001,ProductNode__oprec,0
	409,000005,ProductNode,4
	410,000005,ProductNodeinitialize,0
	411,000005,RecordConstructionNode_dump,2
	412,000005,RecordConstructionNode_dump_tree,1
	413,000005,RecordConstructionNode_initially,1
	414,000011,RecordConstructionNode__state,13
	415,000011,RecordConstructionNode__methods,6
	416,000001,RecordConstructionNode__oprec,0
	417,000005,RecordConstructionNode,11
	418,000005,RecordConstructionNodeinitialize,0
	419,000005,UnionConstructionNode_dump,2
	420,000005,UnionConstructionNode_dump_tree,1
	421,000011,UnionConstructionNode__state,14
	422,000011,UnionConstructionNode__methods,6
	423,000001,UnionConstructionNode__oprec,0
	424,000005,UnionConstructionNode,4
	425,000005,UnionConstructionNodeinitialize,0
	426,000005,WithListNode_dump,2
	427,000005,WithListNode_dump_tree,1
	428,000005,WithListNode_initially,1
	429,000011,WithListNode__state,12
	430,000011,WithListNode__methods,6
	431,000001,WithListNode__oprec,0
	432,000005,WithListNode,10
	433,000005,WithListNodeinitialize,0
	434,000005,ModPrimaryNode_dump,2
	435,000005,ModPrimaryNode_dump_tree,1
	436,000011,ModPrimaryNode__state,19
	437,000011,ModPrimaryNode__methods,6
	438,000001,ModPrimaryNode__oprec,0
	439,000005,ModPrimaryNode,4
	440,000005,ModPrimaryNodeinitialize,0
	441,000005,ExportListNode_dump,2
	442,000005,ExportListNode_dump_tree,1
	443,000005,ExportListNode_initially,1
	444,000011,ExportListNode__state,12
	445,000011,ExportListNode__methods,6
	446,000001,ExportListNode__oprec,0
	447,000005,ExportListNode,10
	448,000005,ExportListNodeinitialize,0
	449,000005,HideListNode_dump,2
	450,000005,HideListNode_dump_tree,1
	451,000005,HideListNode_initially,1
	452,000011,HideListNode__state,12
	453,000011,HideListNode__methods,6
	454,000001,HideListNode__oprec,0
	455,000005,HideListNode,10
	456,000005,HideListNodeinitialize,0
	457,000005,ExportElementNode_dump,2
	458,000005,ExportElementNode_dump_tree,1
	459,000005,ExportElementNode_initially,1
	460,000011,ExportElementNode__state,12
	461,000011,ExportElementNode__methods,6
	462,000001,ExportElementNode__oprec,0
	463,000005,ExportElementNode,10
	464,000005,ExportElementNodeinitialize,0
	465,000005,AllConstantsNode_dump,2
	466,000005,AllConstantsNode_dump_tree,1
	467,000011,AllConstantsNode__state,2
	468,000011,AllConstantsNode__methods,2
	469,000001,AllConstantsNode__oprec,0
	470,000005,AllConstantsNode,0
	471,000005,AllConstantsNodeinitialize,0
	472,000005,WordElseNode_dump,2
	473,000005,WordElseNode_dump_tree,1
	474,000011,WordElseNode__state,11
	475,000011,WordElseNode__methods,6
	476,000001,WordElseNode__oprec,0
	477,000005,WordElseNode,4
	478,000005,WordElseNodeinitialize,0
	479,000005,WordCandNode_dump,1
	480,000005,WordCandNode_dump_tree,1
	481,000011,WordCandNode__state,9
	482,000011,WordCandNode__methods,6
	483,000001,WordCandNode__oprec,0
	484,000005,WordCandNode,4
	485,000005,WordCandNodeinitialize,0
	486,000005,WordCorNode_dump,2
	487,000005,WordCorNode_dump_tree,1
	488,000011,WordCorNode__state,9
	489,000011,WordCorNode__methods,6
	490,000001,WordCorNode__oprec,0
	491,000005,WordCorNode,4
	492,000005,WordCorNodeinitialize,0
	493,000005,GuardedListNode_dump,2
	494,000005,GuardedListNode_dump_tree,1
	495,000005,GuardedListNode_initially,1
	496,000011,GuardedListNode__state,12
	497,000011,GuardedListNode__methods,6
	498,000001,GuardedListNode__oprec,0
	499,000005,GuardedListNode,10
	500,000005,GuardedListNodeinitialize,0
	501,000005,LoopDenotationNode_dump,2
	502,000005,LoopDenotationNode_dump_tree,1
	503,000005,LoopDenotationNode_initially,1
	504,000011,LoopDenotationNode__state,12
	505,000011,LoopDenotationNode__methods,6
	506,000001,LoopDenotationNode__oprec,0
	507,000005,LoopDenotationNode,10
	508,000005,LoopDenotationNodeinitialize,0
	509,000005,GuardedElementNode_dump,2
	510,000005,GuardedElementNode_dump_tree,1
	511,000011,GuardedElementNode__state,11
	512,000011,GuardedElementNode__methods,6
	513,000001,GuardedElementNode__oprec,0
	514,000005,GuardedElementNode,4
	515,000005,GuardedElementNodeinitialize,0
	516,000005,OpridNode_dump,2
	517,000005,OpridNode_dump_tree,1
	518,000005,OpridNode_initially,1
	519,000011,OpridNode__state,19
	520,000011,OpridNode__methods,6
	521,000001,OpridNode__oprec,0
	522,000005,OpridNode,17
	523,000005,OpridNodeinitialize,0
	524,000005,LetterId_dump,2
	525,000005,LetterId_dump_tree,1
	526,000005,LetterId_initially,1
	527,000011,LetterId__state,19
	528,000011,LetterId__methods,6
	529,000001,LetterId__oprec,0
	530,000005,LetterId,17
	531,000005,LetterIdinitialize,0
	532,000005,QStrNode_dump,2
	533,000005,QStrNode_dump_tree,1
	534,000005,QStrNode_initially,1
	535,000011,QStrNode__state,15
	536,000011,QStrNode__methods,6
	537,000001,QStrNode__oprec,0
	538,000005,QStrNode,13
	539,000005,QStrNodeinitialize,0
	540,000005,UQStrNode_dump,2
	541,000005,UQStrNode_dump_tree,1
	542,000005,UQStrNode_initially,1
	543,000011,UQStrNode__state,15
	544,000011,UQStrNode__methods,6
	545,000001,UQStrNode__oprec,0
	546,000005,UQStrNode,13
	547,000005,UQStrNodeinitialize,0
	548,000005,FConstruction_dump,2
	549,000005,FConstruction_dump_tree,1
	550,000011,FConstruction__state,19
	551,000011,FConstruction__methods,6
	552,000001,FConstruction__oprec,0
	553,000005,FConstruction,4
	554,000005,FConstructioninitialize,0
	555,000005,FreeVarNode_dump,2
	556,000005,FreeVarNode_dump_tree,1
	557,000011,FreeVarNode__state,13
	558,000011,FreeVarNode__methods,6
	559,000001,FreeVarNode__oprec,0
	560,000005,FreeVarNode,4
	561,000005,FreeVarNodeinitialize,0
	562,000005,ExternDefNode_dump,2
	563,000005,ExternDefNode_dump_tree,1
	564,000011,ExternDefNode__state,10
	565,000011,ExternDefNode__methods,6
	566,000001,ExternDefNode__oprec,0
	567,000005,ExternDefNode,4
	568,000005,ExternDefNodeinitialize,0
	569,000005,RExternDef_dump,2
	570,000005,RExternDef_dump_tree,1
	571,000011,RExternDef__state,12
	572,000011,RExternDef__methods,6
	573,000001,RExternDef__oprec,0
	574,000005,RExternDef,4
	575,000005,RExternDefinitialize,0
	576,000005,DcsException_dump,2
	577,000005,DcsException_dump_tree,1
	578,000011,DcsException__state,13
	579,000011,DcsException__methods,6
	580,000001,DcsException__oprec,0
	581,000005,DcsException,4
	582,000005,DcsExceptioninitialize,0
	583,000005,dump_info,1
	584,000005,proc_dump_tree,3

proc special
	local	0,001000,tp
	local	1,001000,val
	local	2,000000,ior
	local	3,000000,ishift
	con	0,002000,2,26
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	57
	colm	12
	synt	any
	mark	L1
	mark	L2
	var	2
	var	3
	var	0
	int	0
	line	58
	colm	22
	synt	any
	invoke	2
	var	1
	line	58
	colm	15
	synt	any
	invoke	2
	line	58
	colm	5
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	59
	colm	1
	synt	any
	pfail
	end
proc mklist
	local	0,001000,va_alist
	local	1,000020,i
	local	2,000020,p
	local	3,000020,l
	local	4,000000,yyinfo
	local	5,000000,nodeinfo
	local	6,000000,listinfo
	local	7,000000,consinfo
	local	8,000000,lists_total_cnt
	local	9,000000,lists_made_cnt
	local	10,000000,emptylist
	local	11,000000,dump_info
	local	12,000000,addright
	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
	declend
	line	61
	colm	12
	synt	any
	mark	L1
	var	4
	str	0
	line	63
	colm	11
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	var	5
	str	0
	line	64
	colm	13
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	6
	str	0
	line	65
	colm	13
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	7
	str	0
	line	66
	colm	13
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	pnull
	var	8
	dup
	int	1
	line	69
	colm	21
	synt	any
	plus
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	9
	dup
	int	1
	line	70
	colm	20
	synt	any
	plus
	asgn
	unmark
lab L6
	mark	L7
	pnull
	var	3
	var	10
	line	71
	colm	19
	synt	any
	invoke	0
	line	71
	colm	7
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	line	73
	colm	5
	synt	every
	mark0
	pnull
	var	2
	pnull
	var	0
	line	73
	colm	17
	synt	any
	bang
	line	73
	colm	14
	synt	any
	asgn
	pop
	mark0
	mark	L11
	var	5
	pnull
	str	2
	var	11
	var	2
	line	74
	colm	49
	synt	any
	invoke	1
	line	74
	colm	37
	synt	any
	cat
	line	74
	colm	17
	synt	any
	invoke	1
	unmark
lab L11
	mark	L12
	var	4
	pnull
	str	2
	var	11
	var	2
	line	75
	colm	47
	synt	any
	invoke	1
	line	75
	colm	35
	synt	any
	cat
	line	75
	colm	15
	synt	any
	invoke	1
	unmark
lab L12
	mark	L13
	line	76
	colm	9
	synt	if
	mark0
	pnull
	var	2
	line	76
	colm	12
	synt	any
	nonnull
	unmark
	pnull
	line	76
	colm	9
	synt	endif
	unmark
lab L13
	mark	L14
	var	7
	str	3
	line	79
	colm	17
	synt	any
	invoke	1
	unmark
lab L14
	mark	L15
	line	80
	colm	9
	synt	ifelse
	mark	L16
	pnull
	var	3
	line	80
	colm	12
	synt	any
	nonnull
	unmark
	pnull
	var	3
	line	81
	colm	14
	synt	any
	field	cons_dump
	line	81
	colm	24
	synt	any
	invoke	0
	goto	L17
lab L16
	var	7
	str	4
	line	83
	colm	21
	synt	any
	invoke	1
lab L17
	line	80
	colm	9
	synt	endifelse
	unmark
lab L15
	mark	L18
	var	7
	str	5
	line	84
	colm	17
	synt	any
	invoke	1
	unmark
lab L18
	mark	L19
	line	85
	colm	9
	synt	ifelse
	mark	L20
	pnull
	var	2
	line	85
	colm	12
	synt	any
	nonnull
	unmark
	pnull
	var	2
	line	86
	colm	14
	synt	any
	field	cons_dump
	line	86
	colm	24
	synt	any
	invoke	0
	goto	L21
lab L20
	var	7
	str	6
	line	88
	colm	21
	synt	any
	invoke	1
lab L21
	line	85
	colm	9
	synt	endifelse
	unmark
lab L19
	mark	L22
	pnull
	var	3
	var	12
	var	3
	var	2
	line	89
	colm	22
	synt	any
	invoke	2
	line	89
	colm	11
	synt	any
	asgn
	unmark
lab L22
	mark	L23
	var	7
	str	7
	line	90
	colm	17
	synt	any
	invoke	1
	unmark
lab L23
	line	91
	colm	9
	synt	ifelse
	mark	L24
	pnull
	var	3
	line	91
	colm	12
	synt	any
	nonnull
	unmark
	pnull
	var	3
	line	92
	colm	14
	synt	any
	field	cons_dump
	line	92
	colm	24
	synt	any
	invoke	0
	goto	L25
lab L24
	var	7
	str	8
	line	94
	colm	21
	synt	any
	invoke	1
lab L25
	line	91
	colm	9
	synt	endifelse
	unmark
lab L9
	efail
lab L10
	line	73
	colm	5
	synt	endevery
	unmark
lab L8
	mark	L26
	var	7
	str	9
	line	96
	colm	13
	synt	any
	invoke	1
	unmark
lab L26
	mark	L27
	line	97
	colm	9
	synt	ifelse
	mark	L28
	pnull
	var	3
	line	97
	colm	12
	synt	any
	nonnull
	unmark
	pnull
	var	3
	line	98
	colm	14
	synt	any
	field	cons_dump
	line	98
	colm	24
	synt	any
	invoke	0
	goto	L29
lab L28
	var	7
	str	4
	line	100
	colm	21
	synt	any
	invoke	1
lab L29
	line	97
	colm	9
	synt	endifelse
	unmark
lab L27
	mark	L30
	mark	L31
	var	3
	line	101
	colm	5
	synt	any
	pret
lab L31
	synt	any
	pfail
	unmark
lab L30
	pnull
	line	102
	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
	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
	declend
	line	103
	colm	12
	synt	any
	mark	L1
	var	1
	str	0
	line	105
	colm	13
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	var	2
	str	0
	line	106
	colm	13
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	var	0
	var	3
	pnull
	int	1
	var	4
	var	4
	line	108
	colm	19
	synt	any
	llist	3
	line	108
	colm	18
	synt	any
	invoke	1
	line	108
	colm	9
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	var	0
	line	110
	colm	5
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	111
	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	122
	colm	12
	synt	any
	mark	L1
	line	124
	colm	5
	synt	if
	mark0
	pnull
	var	0
	line	124
	colm	8
	synt	any
	null
	unmark
	line	124
	colm	21
	synt	any
	pfail
	line	124
	colm	5
	synt	endif
	unmark
lab L1
	mark	L2
	pnull
	var	1
	var	2
	var	0
	line	125
	colm	15
	synt	any
	invoke	1
	line	125
	colm	7
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	126
	colm	5
	synt	if
	mark0
	pnull
	var	1
	line	126
	colm	9
	synt	any
	null
	unmark
	line	126
	colm	18
	synt	any
	pfail
	line	126
	colm	5
	synt	endif
	unmark
lab L3
	mark	L4
	line	127
	colm	5
	synt	ifelse
	mark	L5
	pnull
	pnull
	var	1
	line	127
	colm	10
	synt	any
	field	kind
	int	0
	line	127
	colm	16
	synt	any
	numeq
	unmark
	mark	L7
	int	1
	line	128
	colm	10
	synt	any
	pret
lab L7
	synt	any
	pfail
	goto	L6
lab L5
	line	129
	colm	10
	synt	any
	pfail
lab L6
	line	127
	colm	5
	synt	endifelse
	unmark
lab L4
	pnull
	line	130
	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	132
	colm	12
	synt	any
	mark	L1
	line	133
	colm	5
	synt	ifelse
	mark	L2
	pnull
	pnull
	var	1
	var	0
	line	133
	colm	17
	synt	any
	subsc
	int	0
	line	133
	colm	23
	synt	any
	numeq
	unmark
	mark	L4
	int	0
	line	134
	colm	10
	synt	any
	pret
lab L4
	synt	any
	pfail
	goto	L3
lab L2
	line	135
	colm	10
	synt	any
	pfail
lab L3
	line	133
	colm	5
	synt	endifelse
	unmark
lab L1
	pnull
	line	136
	colm	2
	synt	any
	pfail
	end
proc is_empty
	local	0,001000,l
	local	1,000000,is_list
	local	2,000000,nodeinfo
	local	3,000000,listinfo
	con	0,010000,27,151,163,040,145,155,160,164,171,040,040,156,157,164,040,141,040,154,151,163,164,040,055,040,124,122,125,105
	con	1,010000,26,151,163,040,145,155,160,164,171,040,156,157,164,040,141,040,154,151,163,164,040,055,040,124,122,125,105
	con	2,002000,1,1
	con	3,010000,13,151,163,040,145,155,160,164,171,040,124,122,125,105
	con	4,010000,24,151,163,040,145,155,160,164,171,040,154,056,154,150,137,146,151,162,163,164,040,124,122,125,105
	con	5,010000,25,151,163,040,145,155,160,164,171,040,154,150,137,146,151,162,163,164,040,055,040,106,101,114,123,105
	declend
	line	141
	colm	12
	synt	any
	mark	L1
	line	142
	colm	5
	synt	if
	mark0
	mark	L2
	var	1
	var	0
	line	142
	colm	19
	synt	any
	invoke	1
	unmark
	efail
lab L2
	pnull
	unmark
	mark	L3
	var	2
	str	0
	line	143
	colm	17
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	3
	str	1
	line	144
	colm	17
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	int	2
	line	145
	colm	9
	synt	any
	pret
lab L5
	synt	any
	pfail
	line	142
	colm	5
	synt	endif
	unmark
lab L1
	mark	L6
	line	147
	colm	5
	synt	if
	mark0
	pnull
	var	0
	line	147
	colm	8
	synt	any
	null
	unmark
	mark	L7
	var	2
	str	3
	line	148
	colm	17
	synt	any
	invoke	1
	unmark
lab L7
	mark	L8
	var	3
	str	3
	line	149
	colm	17
	synt	any
	invoke	1
	unmark
lab L8
	mark	L9
	int	2
	line	150
	colm	9
	synt	any
	pret
lab L9
	synt	any
	pfail
	line	147
	colm	5
	synt	endif
	unmark
lab L6
	mark	L10
	line	152
	colm	5
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	152
	colm	10
	synt	any
	field	lh_first
	line	152
	colm	8
	synt	any
	null
	unmark
	mark	L11
	var	2
	str	4
	line	153
	colm	17
	synt	any
	invoke	1
	unmark
lab L11
	mark	L12
	var	3
	str	4
	line	154
	colm	17
	synt	any
	invoke	1
	unmark
lab L12
	mark	L13
	int	2
	line	155
	colm	9
	synt	any
	pret
lab L13
	synt	any
	pfail
	line	152
	colm	5
	synt	endif
	unmark
lab L10
	mark	L14
	var	2
	str	5
	line	157
	colm	13
	synt	any
	invoke	1
	unmark
lab L14
	mark	L15
	var	3
	str	5
	line	158
	colm	13
	synt	any
	invoke	1
	unmark
lab L15
	mark	L16
	line	159
	colm	5
	synt	any
	pfail
	unmark
lab L16
	pnull
	line	160
	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,0
	con	4,002000,1,2
	con	5,002000,1,3
	con	6,002000,1,4
	con	7,002000,1,5
	con	8,002000,1,6
	con	9,002000,1,7
	con	10,002000,1,8
	con	11,002000,1,9
	con	12,002000,2,10
	con	13,002000,2,11
	con	14,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	15,010000,5,123,160,154,151,164
	declend
	line	162
	colm	12
	synt	any
	mark	L1
	pnull
	var	13
	var	16
	line	166
	colm	28
	synt	any
	invoke	0
	line	166
	colm	16
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	var	17
	str	0
	line	167
	colm	13
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	18
	str	0
	line	168
	colm	13
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	pnull
	var	15
	pnull
	var	1
	line	169
	colm	19
	synt	any
	field	cn_hd_field
	line	169
	colm	9
	synt	any
	asgn
	unmark
lab L4
	mark	L5
lab L6
	line	170
	colm	5
	synt	while
	mark0
	pnull
	var	15
	line	170
	colm	11
	synt	any
	nonnull
	unmark
	mark	L6
	mark	L9
	pnull
	var	14
	pnull
	var	15
	line	171
	colm	18
	synt	any
	field	cn_hd_field
	line	171
	colm	11
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	var	19
	pnull
	str	1
	var	0
	line	173
	colm	46
	synt	any
	cat
	line	173
	colm	19
	synt	any
	invoke	1
	unmark
lab L11
	mark	L12
	line	174
	colm	13
	synt	case
	mark0
	pnull
	var	20
	pnull
	var	0
	int	2
	line	174
	colm	44
	synt	any
	plus
	line	174
	colm	36
	synt	any
	subsc
	eret
	mark	L14
	ccase
	int	3
	line	175
	colm	18
	synt	any
	eqv
	unmark
	pop
	pnull
	var	12
	var	21
	pnull
	var	0
	line	175
	colm	35
	synt	any
	llist	1
	line	175
	colm	34
	synt	any
	invoke	1
	line	175
	colm	25
	synt	any
	asgn
	goto	L13
lab L14
	mark	L15
	ccase
	int	2
	line	176
	colm	18
	synt	any
	eqv
	unmark
	pop
	pnull
	var	12
	var	21
	pnull
	var	0
	var	14
	line	176
	colm	35
	synt	any
	llist	2
	line	176
	colm	34
	synt	any
	invoke	1
	line	176
	colm	25
	synt	any
	asgn
	goto	L13
lab L15
	mark	L16
	ccase
	int	4
	line	177
	colm	18
	synt	any
	eqv
	unmark
	pop
	pnull
	var	12
	var	21
	pnull
	var	0
	var	14
	var	2
	line	177
	colm	35
	synt	any
	llist	3
	line	177
	colm	34
	synt	any
	invoke	1
	line	177
	colm	25
	synt	any
	asgn
	goto	L13
lab L16
	mark	L17
	ccase
	int	5
	line	178
	colm	18
	synt	any
	eqv
	unmark
	pop
	pnull
	var	12
	var	21
	pnull
	var	0
	var	14
	var	2
	var	3
	line	178
	colm	35
	synt	any
	llist	4
	line	178
	colm	34
	synt	any
	invoke	1
	line	178
	colm	25
	synt	any
	asgn
	goto	L13
lab L17
	mark	L18
	ccase
	int	6
	line	179
	colm	18
	synt	any
	eqv
	unmark
	pop
	pnull
	var	12
	var	21
	pnull
	var	0
	var	14
	var	2
	var	3
	var	4
	line	179
	colm	35
	synt	any
	llist	5
	line	179
	colm	34
	synt	any
	invoke	1
	line	179
	colm	25
	synt	any
	asgn
	goto	L13
lab L18
	mark	L19
	ccase
	int	7
	line	180
	colm	18
	synt	any
	eqv
	unmark
	pop
	pnull
	var	12
	var	21
	pnull
	var	0
	var	14
	var	2
	var	3
	var	4
	var	5
	line	180
	colm	35
	synt	any
	llist	6
	line	180
	colm	34
	synt	any
	invoke	1
	line	180
	colm	25
	synt	any
	asgn
	goto	L13
lab L19
	mark	L20
	ccase
	int	8
	line	181
	colm	18
	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	181
	colm	35
	synt	any
	llist	7
	line	181
	colm	34
	synt	any
	invoke	1
	line	181
	colm	25
	synt	any
	asgn
	goto	L13
lab L20
	mark	L21
	ccase
	int	9
	line	182
	colm	18
	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
	var	7
	line	182
	colm	35
	synt	any
	llist	8
	line	182
	colm	34
	synt	any
	invoke	1
	line	182
	colm	25
	synt	any
	asgn
	goto	L13
lab L21
	mark	L22
	ccase
	int	10
	line	183
	colm	18
	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
	var	7
	var	8
	line	183
	colm	35
	synt	any
	llist	9
	line	183
	colm	34
	synt	any
	invoke	1
	line	183
	colm	25
	synt	any
	asgn
	goto	L13
lab L22
	mark	L23
	ccase
	int	11
	line	184
	colm	18
	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
	var	7
	pnull
	var	8
	line	184
	colm	87
	synt	any
	field	arg8
	line	184
	colm	35
	synt	any
	llist	9
	line	184
	colm	34
	synt	any
	invoke	1
	line	184
	colm	25
	synt	any
	asgn
	goto	L13
lab L23
	mark	L24
	ccase
	int	12
	line	185
	colm	19
	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
	var	7
	var	8
	var	9
	var	10
	line	185
	colm	36
	synt	any
	llist	11
	line	185
	colm	35
	synt	any
	invoke	1
	line	185
	colm	26
	synt	any
	asgn
	goto	L13
lab L24
	mark	L25
	ccase
	int	13
	line	186
	colm	19
	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
	var	7
	var	8
	var	8
	var	10
	var	11
	line	186
	colm	36
	synt	any
	llist	12
	line	186
	colm	35
	synt	any
	invoke	1
	line	186
	colm	26
	synt	any
	asgn
	goto	L13
lab L25
	pop
	var	22
	pnull
	str	14
	var	0
	line	187
	colm	67
	synt	any
	cat
	line	187
	colm	33
	synt	any
	invoke	1
lab L13
	line	174
	colm	13
	synt	endcase
	unmark
lab L12
	pnull
	var	13
	var	23
	var	13
	var	12
	line	189
	colm	31
	synt	any
	invoke	2
	line	189
	colm	20
	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	170
	colm	5
	synt	endwhile
	unmark
lab L5
	mark	L26
	var	18
	str	15
	line	195
	colm	13
	synt	any
	invoke	1
	unmark
lab L26
	mark	L27
	mark	L28
	var	13
	line	197
	colm	5
	synt	any
	pret
lab L28
	synt	any
	pfail
	unmark
lab L27
	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	18
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	line	203
	colm	13
	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	15
	synt	any
	field	lh_last
	line	207
	colm	23
	synt	any
	field	cn_tl_field
	pnull
	var	1
	line	207
	colm	41
	synt	any
	field	lh_first
	line	207
	colm	36
	synt	any
	asgn
	unmark
lab L6
	pnull
	pnull
	var	0
	line	208
	colm	15
	synt	any
	field	lh_last
	pnull
	var	1
	line	208
	colm	29
	synt	any
	field	lh_last
	line	208
	colm	24
	synt	any
	asgn
	line	205
	colm	5
	synt	endif
	unmark
lab L4
	mark	L7
	pnull
	pnull
	var	1
	line	212
	colm	12
	synt	any
	field	lh_last
	pnull
	pnull
	var	1
	line	212
	colm	27
	synt	any
	field	lh_first
	var	4
	line	212
	colm	37
	synt	any
	asgn
	line	212
	colm	21
	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	1
	synt	ifelse
	mark	L2
	pnull
	pnull
	var	0
	line	286
	colm	9
	synt	any
	field	kind
	line	286
	colm	4
	synt	any
	null
	unmark
	var	2
	var	1
	str	0
	line	287
	colm	12
	synt	any
	invoke	2
	goto	L3
lab L2
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	1
	pnull
	int	2
	var	4
	line	290
	colm	47
	synt	any
	plus
	line	290
	colm	31
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	290
	colm	83
	synt	any
	field	kind
	line	290
	colm	78
	synt	any
	invoke	1
	line	290
	colm	66
	synt	any
	cat
	line	290
	colm	6
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	line	291
	colm	1
	synt	ifelse
	mark	L6
	var	6
	pnull
	var	0
	line	291
	colm	16
	synt	any
	field	kind
	line	291
	colm	11
	synt	any
	invoke	1
	unmark
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	2
	var	4
	line	292
	colm	51
	synt	any
	plus
	line	292
	colm	32
	synt	any
	invoke	2
	pnull
	var	7
	pnull
	pnull
	var	0
	line	292
	colm	90
	synt	any
	field	kind
	int	4
	line	292
	colm	96
	synt	any
	plus
	line	292
	colm	85
	synt	any
	subsc
	line	292
	colm	70
	synt	any
	cat
	line	292
	colm	7
	synt	any
	invoke	2
	goto	L7
lab L6
	var	2
	var	1
	var	5
	pnull
	var	0
	line	294
	colm	41
	synt	any
	field	kind
	line	294
	colm	36
	synt	any
	invoke	1
	line	294
	colm	7
	synt	any
	invoke	2
lab L7
	line	291
	colm	1
	synt	endifelse
	unmark
lab L5
	mark	L8
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	2
	var	4
	line	295
	colm	50
	synt	any
	plus
	line	295
	colm	31
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	295
	colm	86
	synt	any
	field	vlineno
	line	295
	colm	81
	synt	any
	invoke	1
	line	295
	colm	69
	synt	any
	cat
	line	295
	colm	6
	synt	any
	invoke	2
	unmark
lab L8
	mark	L9
	var	2
	var	1
	pnull
	var	3
	str	6
	pnull
	int	2
	var	4
	line	296
	colm	50
	synt	any
	plus
	line	296
	colm	31
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	296
	colm	86
	synt	any
	field	pre_num
	line	296
	colm	81
	synt	any
	invoke	1
	line	296
	colm	69
	synt	any
	cat
	line	296
	colm	6
	synt	any
	invoke	2
	unmark
lab L9
	var	2
	var	1
	pnull
	var	3
	str	7
	pnull
	int	2
	var	4
	line	297
	colm	51
	synt	any
	plus
	line	297
	colm	31
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	297
	colm	87
	synt	any
	field	post_num
	line	297
	colm	82
	synt	any
	invoke	1
	line	297
	colm	70
	synt	any
	cat
	line	297
	colm	6
	synt	any
	invoke	2
lab L3
	line	286
	colm	1
	synt	endifelse
	unmark
lab L1
	pnull
	line	300
	colm	1
	synt	any
	pfail
	end
proc Node_dump_tree
	local	0,001000,self
	local	1,000000,proc_dump_tree
	con	0,010000,9,153,151,156,144,040,040,040,075,040
	con	1,010000,12,166,154,151,156,145,156,157,040,040,040,075,040
	con	2,010000,12,160,162,145,137,156,165,155,040,040,040,075,040
	con	3,010000,13,160,157,163,164,137,156,165,155,040,040,040,075,040
	declend
	line	301
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	1
	var	0
	str	0
	pnull
	var	0
	line	303
	colm	50
	synt	any
	field	kind
	line	303
	colm	27
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	var	1
	var	0
	str	1
	pnull
	var	0
	line	304
	colm	52
	synt	any
	field	vlineno
	line	304
	colm	27
	synt	any
	invoke	3
	unmark
lab L3
	mark	L4
	var	1
	var	0
	str	2
	pnull
	var	0
	line	305
	colm	52
	synt	any
	field	pre_num
	line	305
	colm	27
	synt	any
	invoke	3
	unmark
lab L4
	var	1
	var	0
	str	3
	pnull
	var	0
	line	306
	colm	53
	synt	any
	field	post_num
	line	306
	colm	27
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	308
	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	311
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	313
	colm	5
	synt	any
	field	kind
	var	1
	line	313
	colm	10
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	314
	colm	5
	synt	any
	field	vlineno
	var	2
	line	314
	colm	13
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	pnull
	var	0
	line	315
	colm	5
	synt	any
	field	pre_num
	var	3
	line	315
	colm	13
	synt	any
	asgn
	unmark
lab L4
	pnull
	pnull
	var	0
	line	316
	colm	5
	synt	any
	field	post_num
	var	4
	line	316
	colm	14
	synt	any
	asgn
	unmark
lab L1
	mark	L5
	mark	L6
	pnull
	line	318
	colm	7
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	319
	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_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
	line	17
	colm	39
	synt	any
	invoke	3
	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	324
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	326
	colm	66
	synt	any
	plus
	line	326
	colm	43
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	326
	colm	102
	synt	any
	field	cn_hd_field
	line	326
	colm	97
	synt	any
	invoke	1
	line	326
	colm	85
	synt	any
	cat
	line	326
	colm	18
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	327
	colm	66
	synt	any
	plus
	line	327
	colm	43
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	327
	colm	102
	synt	any
	field	cn_tl_field
	line	327
	colm	97
	synt	any
	invoke	1
	line	327
	colm	85
	synt	any
	cat
	line	327
	colm	18
	synt	any
	invoke	2
	unmark
lab L3
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	328
	colm	64
	synt	any
	plus
	line	328
	colm	43
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	328
	colm	100
	synt	any
	field	unique_id
	line	328
	colm	95
	synt	any
	invoke	1
	line	328
	colm	83
	synt	any
	cat
	line	328
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	330
	colm	1
	synt	any
	pfail
	end
proc ConsNode_dump_tree
	local	0,001000,self
	local	1,000000,proc_dump_tree
	con	0,010000,16,143,156,137,150,144,137,146,151,145,154,144,040,040,040,075,040
	con	1,010000,16,143,156,137,164,154,137,146,151,145,154,144,040,040,040,075,040
	con	2,010000,14,125,156,151,161,165,145,040,111,144,040,040,040,075,040
	declend
	line	331
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	1
	var	0
	str	0
	pnull
	var	0
	line	333
	colm	56
	synt	any
	field	cn_hd_field
	line	333
	colm	27
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	var	1
	var	0
	str	1
	pnull
	var	0
	line	334
	colm	56
	synt	any
	field	cn_tl_field
	line	334
	colm	27
	synt	any
	invoke	3
	unmark
lab L3
	var	1
	var	0
	str	2
	pnull
	var	0
	line	335
	colm	54
	synt	any
	field	unique_id
	line	335
	colm	27
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	337
	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	338
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	1
	var	2
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	340
	colm	57
	synt	any
	plus
	line	340
	colm	34
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	340
	colm	93
	synt	any
	field	cn_hd_field
	line	340
	colm	88
	synt	any
	invoke	1
	line	340
	colm	76
	synt	any
	cat
	line	340
	colm	18
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	var	1
	var	2
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	341
	colm	57
	synt	any
	plus
	line	341
	colm	34
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	341
	colm	93
	synt	any
	field	cn_tl_field
	line	341
	colm	88
	synt	any
	invoke	1
	line	341
	colm	76
	synt	any
	cat
	line	341
	colm	18
	synt	any
	invoke	2
	unmark
lab L3
	var	1
	var	2
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	342
	colm	55
	synt	any
	plus
	line	342
	colm	34
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	342
	colm	91
	synt	any
	field	unique_id
	line	342
	colm	86
	synt	any
	invoke	1
	line	342
	colm	74
	synt	any
	cat
	line	342
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	344
	colm	1
	synt	any
	pfail
	end
proc ConsNode_initially
	local	0,001000,self
	local	1,001000,cn_hd
	local	2,001000,cn_tl
	local	3,000000,unique_node_id
	con	0,002000,1,1
	declend
	line	372
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	374
	colm	5
	synt	any
	field	cn_tl_field
	var	2
	line	374
	colm	17
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	375
	colm	5
	synt	any
	field	cn_hd_field
	var	1
	line	375
	colm	17
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	3
	dup
	int	0
	line	377
	colm	16
	synt	any
	plus
	asgn
	unmark
lab L4
	pnull
	pnull
	var	0
	line	378
	colm	5
	synt	any
	field	unique_id
	var	3
	line	378
	colm	15
	synt	any
	asgn
	unmark
lab L1
	mark	L5
	mark	L6
	pnull
	line	380
	colm	7
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	381
	colm	1
	synt	any
	pfail
	end
proc ConsNode
	local	0,001000,cn_hd
	local	1,001000,cn_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	40
	synt	any
	esusp
	goto	L8
lab L7
	line	12
	colm	42
	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_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	47
	synt	any
	invoke	4
	line	17
	colm	27
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	18
	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
	filen	stree/ststructs_cls.tmp.icn
	line	386
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	388
	colm	6
	synt	any
	field	__m
	line	388
	colm	10
	synt	any
	field	Node
	line	388
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	388
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	390
	colm	63
	synt	any
	plus
	line	390
	colm	43
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	390
	colm	99
	synt	any
	field	lh_first
	line	390
	colm	94
	synt	any
	invoke	1
	line	390
	colm	82
	synt	any
	cat
	line	390
	colm	18
	synt	any
	invoke	2
	unmark
lab L3
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	391
	colm	62
	synt	any
	plus
	line	391
	colm	43
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	391
	colm	98
	synt	any
	field	lh_last
	line	391
	colm	93
	synt	any
	invoke	1
	line	391
	colm	81
	synt	any
	cat
	line	391
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	393
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,13,154,150,137,146,151,162,163,164,040,040,040,075,040
	con	1,010000,12,154,150,137,154,141,163,164,040,040,040,075,040
	declend
	line	394
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	396
	colm	6
	synt	any
	field	__m
	line	396
	colm	10
	synt	any
	field	Node
	line	396
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	396
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	var	2
	var	0
	str	0
	pnull
	var	0
	line	398
	colm	42
	synt	any
	field	lh_first
	line	398
	colm	15
	synt	any
	invoke	3
	unmark
lab L3
	var	2
	var	0
	str	1
	pnull
	var	0
	line	399
	colm	41
	synt	any
	field	lh_last
	line	399
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	401
	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	402
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	404
	colm	6
	synt	any
	field	__m
	line	404
	colm	10
	synt	any
	field	Node
	line	404
	colm	15
	synt	any
	field	dump
	var	0
	line	404
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	var	2
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	406
	colm	63
	synt	any
	plus
	line	406
	colm	43
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	406
	colm	99
	synt	any
	field	lh_first
	line	406
	colm	94
	synt	any
	invoke	1
	line	406
	colm	82
	synt	any
	cat
	line	406
	colm	18
	synt	any
	invoke	2
	unmark
lab L3
	var	1
	var	2
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	407
	colm	62
	synt	any
	plus
	line	407
	colm	43
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	407
	colm	98
	synt	any
	field	lh_last
	line	407
	colm	93
	synt	any
	invoke	1
	line	407
	colm	81
	synt	any
	cat
	line	407
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	409
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNode_first
	local	0,001000,self
	declend
	line	411
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	412
	colm	12
	synt	any
	field	lh_first
	line	412
	colm	1
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	413
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNode_last
	local	0,001000,self
	declend
	line	416
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	417
	colm	13
	synt	any
	field	lh_last
	line	417
	colm	2
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	418
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNode_setfirst
	local	0,001000,self
	local	1,001000,p
	declend
	line	420
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	421
	colm	5
	synt	any
	field	lh_first
	var	1
	line	421
	colm	14
	synt	any
	asgn
	unmark
lab L1
	pnull
	line	422
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNode_setlast
	local	0,001000,self
	local	1,001000,p
	declend
	line	423
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	424
	colm	5
	synt	any
	field	lh_last
	var	1
	line	424
	colm	13
	synt	any
	asgn
	unmark
lab L1
	pnull
	line	425
	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	436
	colm	11
	synt	any
	mark	L1
	line	437
	colm	2
	synt	if
	mark0
	var	2
	var	0
	line	437
	colm	14
	synt	any
	invoke	1
	unmark
	mark	L2
	var	1
	line	439
	colm	1
	synt	any
	pret
lab L2
	synt	any
	pfail
	line	437
	colm	2
	synt	endif
	unmark
lab L1
	mark	L3
	line	441
	colm	1
	synt	if
	mark0
	mark	L4
	var	2
	var	1
	line	441
	colm	18
	synt	any
	invoke	1
	unmark
	efail
lab L4
	pnull
	unmark
	mark	L5
	pnull
	pnull
	var	0
	line	443
	colm	5
	synt	any
	field	cn_tl_field
	line	443
	colm	17
	synt	any
	field	cn_settail
	pnull
	var	1
	line	443
	colm	31
	synt	any
	field	cn_hd_field
	line	443
	colm	28
	synt	any
	invoke	1
	unmark
lab L5
	pnull
	var	0
	line	444
	colm	5
	synt	any
	field	cn_settail
	pnull
	var	1
	line	444
	colm	19
	synt	any
	field	cn_tl_field
	line	444
	colm	16
	synt	any
	invoke	1
	line	441
	colm	1
	synt	endif
	unmark
lab L3
	mark	L6
	pnull
	var	1
	pnull
	pnull
	var	1
	line	446
	colm	9
	synt	any
	field	hd_field
	pnull
	pnull
	var	1
	line	446
	colm	24
	synt	any
	field	tl_field
	var	3
	line	446
	colm	34
	synt	any
	asgn
	line	446
	colm	19
	synt	any
	asgn
	line	446
	colm	4
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	pnull
	var	1
	line	449
	colm	3
	synt	any
	field	lh_last
	pnull
	pnull
	var	1
	line	449
	colm	17
	synt	any
	field	lh_first
	var	3
	line	449
	colm	27
	synt	any
	asgn
	line	449
	colm	12
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	var	4
	var	1
	line	450
	colm	6
	synt	any
	invoke	1
	unmark
lab L8
	mark	L9
	mark	L10
	var	0
	line	451
	colm	1
	synt	any
	pret
lab L10
	synt	any
	pfail
	unmark
lab L9
	pnull
	line	452
	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	460
	colm	11
	synt	any
	mark	L1
	var	4
	str	0
	line	462
	colm	9
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	var	1
	int	1
	line	463
	colm	7
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	var	4
	pnull
	pnull
	pnull
	str	2
	var	1
	line	464
	colm	28
	synt	any
	cat
	str	3
	line	464
	colm	37
	synt	any
	cat
	var	5
	pnull
	var	0
	line	464
	colm	88
	synt	any
	field	lh_first
	line	464
	colm	83
	synt	any
	invoke	1
	line	464
	colm	70
	synt	any
	cat
	line	464
	colm	9
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	pnull
	var	3
	pnull
	var	0
	line	466
	colm	12
	synt	any
	field	lh_first
	line	466
	colm	5
	synt	any
	asgn
	unmark
lab L4
	mark	L5
lab L6
	line	467
	colm	2
	synt	while
	mark0
	pnull
	var	3
	line	467
	colm	8
	synt	any
	nonnull
	unmark
	mark	L6
	mark	L9
	pnull
	var	2
	pnull
	var	3
	line	468
	colm	9
	synt	any
	field	cn_hd_field
	line	468
	colm	3
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	pnull
	var	1
	dup
	int	4
	line	469
	colm	7
	synt	any
	plus
	asgn
	unmark
lab L10
	mark	L11
	pnull
	var	3
	pnull
	var	3
	line	470
	colm	11
	synt	any
	field	cn_tl_field
	line	470
	colm	5
	synt	any
	asgn
	unmark
lab L11
	var	4
	pnull
	pnull
	pnull
	str	2
	var	1
	line	471
	colm	28
	synt	any
	cat
	str	5
	line	471
	colm	37
	synt	any
	cat
	var	5
	var	2
	line	471
	colm	70
	synt	any
	invoke	1
	line	471
	colm	58
	synt	any
	cat
	line	471
	colm	9
	synt	any
	invoke	1
lab L7
	unmark
	goto	L6
lab L8
	line	467
	colm	2
	synt	endwhile
	unmark
lab L5
	mark	L12
	mark	L13
	var	1
	line	473
	colm	1
	synt	any
	pret
lab L13
	synt	any
	pfail
	unmark
lab L12
	pnull
	line	474
	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	484
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	pnull
	var	0
	line	486
	colm	12
	synt	any
	field	length
	line	486
	colm	19
	synt	any
	invoke	0
	line	486
	colm	5
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	5
	var	7
	pnull
	var	2
	int	0
	line	487
	colm	16
	synt	any
	plus
	line	487
	colm	11
	synt	any
	invoke	1
	line	487
	colm	4
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	6
	int	1
	line	488
	colm	7
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	var	8
	pnull
	pnull
	pnull
	str	2
	var	6
	line	489
	colm	35
	synt	any
	cat
	str	3
	line	489
	colm	44
	synt	any
	cat
	var	9
	pnull
	var	0
	line	489
	colm	95
	synt	any
	field	lh_first
	line	489
	colm	90
	synt	any
	invoke	1
	line	489
	colm	77
	synt	any
	cat
	line	489
	colm	9
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	pnull
	var	3
	pnull
	var	0
	line	490
	colm	12
	synt	any
	field	lh_first
	line	490
	colm	5
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	var	8
	pnull
	pnull
	pnull
	str	4
	var	2
	line	491
	colm	33
	synt	any
	cat
	str	5
	line	491
	colm	40
	synt	any
	cat
	var	9
	var	3
	line	491
	colm	65
	synt	any
	invoke	1
	line	491
	colm	53
	synt	any
	cat
	line	491
	colm	9
	synt	any
	invoke	1
	unmark
lab L6
	mark	L7
lab L8
	line	492
	colm	1
	synt	while
	mark0
	pnull
	var	3
	line	492
	colm	7
	synt	any
	nonnull
	unmark
	mark	L8
	mark	L11
	pnull
	var	4
	pnull
	var	3
	line	493
	colm	9
	synt	any
	field	cn_hd_field
	line	493
	colm	3
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	pnull
	var	6
	dup
	int	0
	line	494
	colm	7
	synt	any
	plus
	asgn
	unmark
lab L12
	mark	L13
	var	8
	pnull
	pnull
	pnull
	str	6
	var	6
	line	495
	colm	35
	synt	any
	cat
	str	7
	line	495
	colm	44
	synt	any
	cat
	var	9
	var	4
	line	495
	colm	67
	synt	any
	invoke	1
	line	495
	colm	55
	synt	any
	cat
	line	495
	colm	9
	synt	any
	invoke	1
	unmark
lab L13
	mark	L14
	pnull
	pnull
	var	5
	var	6
	line	496
	colm	3
	synt	any
	subsc
	var	4
	line	496
	colm	11
	synt	any
	asgn
	unmark
lab L14
	pnull
	var	3
	pnull
	var	3
	line	497
	colm	11
	synt	any
	field	cn_tl_field
	line	497
	colm	5
	synt	any
	asgn
lab L9
	unmark
	goto	L8
lab L10
	line	492
	colm	1
	synt	endwhile
	unmark
lab L7
	mark	L15
	pnull
	var	1
	var	10
	var	2
	var	5
	line	499
	colm	11
	synt	any
	invoke	2
	line	499
	colm	3
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	mark	L17
	var	1
	line	500
	colm	1
	synt	any
	pret
lab L17
	synt	any
	pfail
	unmark
lab L16
	pnull
	line	501
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNode_initially
	local	0,001000,self
	con	0,002000,1,0
	declend
	line	502
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	503
	colm	5
	synt	any
	field	kind
	int	0
	line	503
	colm	10
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	504
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	505
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNode
	local	0,001000,lh_first
	local	1,001000,lh_last
	local	2,001000,kind
	local	3,001000,vlineno
	local	4,001000,pre_num
	local	5,001000,post_num
	local	6,001000,unique_id
	local	7,001000,cn_hd_field
	local	8,001000,cn_tl_field
	local	9,000020,self
	local	10,000020,clone
	local	11,000000,ListHeaderNode__oprec
	local	12,000000,ListHeaderNodeinitialize
	local	13,000000,Node__oprec
	local	14,000000,Nodeinitialize
	local	15,000000,ConsNode__oprec
	local	16,000000,ConsNodeinitialize
	local	17,000000,ListHeaderNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	11
	line	8
	colm	6
	synt	any
	null
	unmark
	var	12
	line	8
	colm	58
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	13
	line	9
	colm	6
	synt	any
	null
	unmark
	var	14
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	11
	line	10
	colm	24
	synt	any
	field	Node
	var	13
	line	10
	colm	30
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	15
	line	11
	colm	6
	synt	any
	null
	unmark
	var	16
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	11
	line	12
	colm	24
	synt	any
	field	ConsNode
	var	15
	line	12
	colm	34
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	9
	var	17
	line	14
	colm	33
	synt	any
	keywd	null
	var	11
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	line	14
	colm	32
	synt	any
	invoke	11
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	9
	line	15
	colm	7
	synt	any
	field	__s
	var	9
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	9
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	9
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	9
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNodeinitialize
	local	0,000000,ListHeaderNode__oprec
	local	1,000000,ListHeaderNode__methods
	local	2,000000,ListHeaderNode_dump
	local	3,000000,ListHeaderNode_dump_tree
	local	4,000000,ListHeaderNode_list_dump
	local	5,000000,ListHeaderNode_first
	local	6,000000,ListHeaderNode_last
	local	7,000000,ListHeaderNode_setfirst
	local	8,000000,ListHeaderNode_setlast
	local	9,000000,ListHeaderNode_conc
	local	10,000000,ListHeaderNode_length
	local	11,000000,ListHeaderNode_list_to_array
	local	12,000000,ListHeaderNode_initially
	local	13,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
	line	21
	colm	59
	synt	any
	invoke	12
	line	21
	colm	33
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	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
	filen	stree/ststructs_cls.tmp.icn
	line	507
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	509
	colm	6
	synt	any
	field	__m
	line	509
	colm	10
	synt	any
	field	Node
	line	509
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	509
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	510
	colm	6
	synt	any
	field	__m
	line	510
	colm	10
	synt	any
	field	ConsNode
	line	510
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	510
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	511
	colm	61
	synt	any
	plus
	line	511
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	511
	colm	97
	synt	any
	field	decl_id
	line	511
	colm	92
	synt	any
	invoke	1
	line	511
	colm	80
	synt	any
	cat
	line	511
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	512
	colm	69
	synt	any
	plus
	line	512
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	512
	colm	105
	synt	any
	field	decl_denotation
	line	512
	colm	100
	synt	any
	invoke	1
	line	512
	colm	88
	synt	any
	cat
	line	512
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	513
	colm	66
	synt	any
	plus
	line	513
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	513
	colm	102
	synt	any
	field	displacement
	line	513
	colm	97
	synt	any
	invoke	1
	line	513
	colm	85
	synt	any
	cat
	line	513
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	514
	colm	59
	synt	any
	plus
	line	514
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	514
	colm	95
	synt	any
	field	level
	line	514
	colm	90
	synt	any
	invoke	1
	line	514
	colm	78
	synt	any
	cat
	line	514
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	515
	colm	68
	synt	any
	plus
	line	515
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	515
	colm	104
	synt	any
	field	decl_signature
	line	515
	colm	99
	synt	any
	invoke	1
	line	515
	colm	87
	synt	any
	cat
	line	515
	colm	18
	synt	any
	invoke	2
	unmark
lab L8
	mark	L9
	var	2
	var	1
	pnull
	var	3
	str	6
	pnull
	int	1
	var	4
	line	516
	colm	63
	synt	any
	plus
	line	516
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	516
	colm	99
	synt	any
	field	decl_done
	line	516
	colm	94
	synt	any
	invoke	1
	line	516
	colm	82
	synt	any
	cat
	line	516
	colm	18
	synt	any
	invoke	2
	unmark
lab L9
	mark	L10
	var	2
	var	1
	pnull
	var	3
	str	7
	pnull
	int	1
	var	4
	line	517
	colm	69
	synt	any
	plus
	line	517
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	517
	colm	105
	synt	any
	field	decl_sig_transp
	line	517
	colm	100
	synt	any
	invoke	1
	line	517
	colm	88
	synt	any
	cat
	line	517
	colm	18
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	var	2
	var	1
	pnull
	var	3
	str	8
	pnull
	int	1
	var	4
	line	518
	colm	71
	synt	any
	plus
	line	518
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	518
	colm	107
	synt	any
	field	decl_innermost_id
	line	518
	colm	102
	synt	any
	invoke	1
	line	518
	colm	90
	synt	any
	cat
	line	518
	colm	18
	synt	any
	invoke	2
	unmark
lab L11
	mark	L12
	var	2
	var	1
	pnull
	var	3
	str	9
	pnull
	int	1
	var	4
	line	519
	colm	78
	synt	any
	plus
	line	519
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	519
	colm	114
	synt	any
	field	decl_previous_definition
	line	519
	colm	109
	synt	any
	invoke	1
	line	519
	colm	97
	synt	any
	cat
	line	519
	colm	18
	synt	any
	invoke	2
	unmark
lab L12
	mark	L13
	var	2
	var	1
	pnull
	var	3
	str	10
	pnull
	int	1
	var	4
	line	520
	colm	64
	synt	any
	plus
	line	520
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	520
	colm	100
	synt	any
	field	decl_scope
	line	520
	colm	95
	synt	any
	invoke	1
	line	520
	colm	83
	synt	any
	cat
	line	520
	colm	18
	synt	any
	invoke	2
	unmark
lab L13
	mark	L14
	var	2
	var	1
	pnull
	var	3
	str	11
	pnull
	int	1
	var	4
	line	521
	colm	70
	synt	any
	plus
	line	521
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	521
	colm	106
	synt	any
	field	decl_can_be_refd
	line	521
	colm	101
	synt	any
	invoke	1
	line	521
	colm	89
	synt	any
	cat
	line	521
	colm	18
	synt	any
	invoke	2
	unmark
lab L14
	mark	L15
	var	2
	var	1
	pnull
	var	3
	str	12
	pnull
	int	1
	var	4
	line	522
	colm	66
	synt	any
	plus
	line	522
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	522
	colm	102
	synt	any
	field	decl_special
	line	522
	colm	97
	synt	any
	invoke	1
	line	522
	colm	85
	synt	any
	cat
	line	522
	colm	18
	synt	any
	invoke	2
	unmark
lab L15
	mark	L16
	var	2
	var	1
	pnull
	var	3
	str	13
	pnull
	int	1
	var	4
	line	523
	colm	68
	synt	any
	plus
	line	523
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	523
	colm	104
	synt	any
	field	decl_sel_index
	line	523
	colm	99
	synt	any
	invoke	1
	line	523
	colm	87
	synt	any
	cat
	line	523
	colm	18
	synt	any
	invoke	2
	unmark
lab L16
	mark	L17
	var	2
	var	1
	pnull
	var	3
	str	14
	pnull
	int	1
	var	4
	line	524
	colm	65
	synt	any
	plus
	line	524
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	524
	colm	101
	synt	any
	field	decl_needed
	line	524
	colm	96
	synt	any
	invoke	1
	line	524
	colm	84
	synt	any
	cat
	line	524
	colm	18
	synt	any
	invoke	2
	unmark
lab L17
	var	2
	var	1
	pnull
	var	3
	str	15
	pnull
	int	1
	var	4
	line	525
	colm	68
	synt	any
	plus
	line	525
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	525
	colm	104
	synt	any
	field	decl_const_val
	line	525
	colm	99
	synt	any
	invoke	1
	line	525
	colm	87
	synt	any
	cat
	line	525
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	527
	colm	1
	synt	any
	pfail
	end
proc DeclarationNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,12,144,145,143,154,137,151,144,040,040,040,075,040
	con	1,010000,20,144,145,143,154,137,144,145,156,157,164,141,164,151,157,156,040,040,040,075,040
	con	2,010000,17,144,151,163,160,154,141,143,145,155,145,156,164,040,040,040,075,040
	con	3,010000,10,154,145,166,145,154,040,040,040,075,040
	con	4,010000,19,144,145,143,154,137,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	5,010000,14,144,145,143,154,137,144,157,156,145,040,040,040,075,040
	con	6,010000,20,144,145,143,154,137,163,151,147,137,164,162,141,156,163,160,040,040,040,075,040
	con	7,010000,22,144,145,143,154,137,151,156,156,145,162,155,157,163,164,137,151,144,040,040,040,075,040
	con	8,010000,29,144,145,143,154,137,160,162,145,166,151,157,165,163,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	con	9,010000,15,144,145,143,154,137,163,143,157,160,145,040,040,040,075,040
	con	10,010000,21,144,145,143,154,137,143,141,156,137,142,145,137,162,145,146,144,040,040,040,075,040
	con	11,010000,17,144,145,143,154,137,163,160,145,143,151,141,154,040,040,040,075,040
	con	12,010000,19,144,145,143,154,137,163,145,154,137,151,156,144,145,170,040,040,040,075,040
	con	13,010000,16,144,145,143,154,137,156,145,145,144,145,144,040,040,040,075,040
	con	14,010000,19,144,145,143,154,137,143,157,156,163,164,137,166,141,154,040,040,040,075,040
	declend
	line	528
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	530
	colm	6
	synt	any
	field	__m
	line	530
	colm	10
	synt	any
	field	Node
	line	530
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	530
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	531
	colm	6
	synt	any
	field	__m
	line	531
	colm	10
	synt	any
	field	ConsNode
	line	531
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	531
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	532
	colm	41
	synt	any
	field	decl_id
	line	532
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	533
	colm	49
	synt	any
	field	decl_denotation
	line	533
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	534
	colm	46
	synt	any
	field	displacement
	line	534
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	535
	colm	39
	synt	any
	field	level
	line	535
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	mark	L8
	var	2
	var	0
	str	4
	pnull
	var	0
	line	536
	colm	48
	synt	any
	field	decl_signature
	line	536
	colm	15
	synt	any
	invoke	3
	unmark
lab L8
	mark	L9
	var	2
	var	0
	str	5
	pnull
	var	0
	line	537
	colm	43
	synt	any
	field	decl_done
	line	537
	colm	15
	synt	any
	invoke	3
	unmark
lab L9
	mark	L10
	var	2
	var	0
	str	6
	pnull
	var	0
	line	538
	colm	49
	synt	any
	field	decl_sig_transp
	line	538
	colm	15
	synt	any
	invoke	3
	unmark
lab L10
	mark	L11
	var	2
	var	0
	str	7
	pnull
	var	0
	line	539
	colm	51
	synt	any
	field	decl_innermost_id
	line	539
	colm	15
	synt	any
	invoke	3
	unmark
lab L11
	mark	L12
	var	2
	var	0
	str	8
	pnull
	var	0
	line	540
	colm	58
	synt	any
	field	decl_previous_definition
	line	540
	colm	15
	synt	any
	invoke	3
	unmark
lab L12
	mark	L13
	var	2
	var	0
	str	9
	pnull
	var	0
	line	541
	colm	44
	synt	any
	field	decl_scope
	line	541
	colm	15
	synt	any
	invoke	3
	unmark
lab L13
	mark	L14
	var	2
	var	0
	str	10
	pnull
	var	0
	line	542
	colm	50
	synt	any
	field	decl_can_be_refd
	line	542
	colm	15
	synt	any
	invoke	3
	unmark
lab L14
	mark	L15
	var	2
	var	0
	str	11
	pnull
	var	0
	line	543
	colm	46
	synt	any
	field	decl_special
	line	543
	colm	15
	synt	any
	invoke	3
	unmark
lab L15
	mark	L16
	var	2
	var	0
	str	12
	pnull
	var	0
	line	544
	colm	48
	synt	any
	field	decl_sel_index
	line	544
	colm	15
	synt	any
	invoke	3
	unmark
lab L16
	mark	L17
	var	2
	var	0
	str	13
	pnull
	var	0
	line	545
	colm	45
	synt	any
	field	decl_needed
	line	545
	colm	15
	synt	any
	invoke	3
	unmark
lab L17
	var	2
	var	0
	str	14
	pnull
	var	0
	line	546
	colm	48
	synt	any
	field	decl_const_val
	line	546
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	548
	colm	1
	synt	any
	pfail
	end
proc DeclarationNode
	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,DeclarationNode__oprec
	local	7,000000,DeclarationNodeinitialize
	local	8,000000,Node__oprec
	local	9,000000,Nodeinitialize
	local	10,000000,ConsNode__oprec
	local	11,000000,ConsNodeinitialize
	local	12,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	6
	line	8
	colm	6
	synt	any
	null
	unmark
	var	7
	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	8
	line	9
	colm	6
	synt	any
	null
	unmark
	var	9
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	6
	line	10
	colm	25
	synt	any
	field	Node
	var	8
	line	10
	colm	31
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	10
	line	11
	colm	6
	synt	any
	null
	unmark
	var	11
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	6
	line	12
	colm	25
	synt	any
	field	ConsNode
	var	10
	line	12
	colm	35
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	4
	var	12
	line	14
	colm	34
	synt	any
	keywd	null
	var	6
	line	14
	colm	33
	synt	any
	invoke	2
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	4
	line	15
	colm	7
	synt	any
	field	__s
	var	4
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	4
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	4
	var	0
	var	1
	var	2
	var	3
	line	16
	colm	21
	synt	any
	invoke	5
	line	16
	colm	46
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	48
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	4
	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_dump
	local	3,000000,DeclarationNode_dump_tree
	local	4,000000,Node_initially
	local	5,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
	line	21
	colm	61
	synt	any
	invoke	4
	line	21
	colm	34
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	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
	filen	stree/ststructs_cls.tmp.icn
	line	551
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	553
	colm	6
	synt	any
	field	__m
	line	553
	colm	10
	synt	any
	field	Node
	line	553
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	553
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	554
	colm	6
	synt	any
	field	__m
	line	554
	colm	10
	synt	any
	field	ConsNode
	line	554
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	554
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	556
	colm	60
	synt	any
	plus
	line	556
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	556
	colm	96
	synt	any
	field	par_id
	line	556
	colm	91
	synt	any
	invoke	1
	line	556
	colm	79
	synt	any
	cat
	line	556
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	557
	colm	67
	synt	any
	plus
	line	557
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	557
	colm	103
	synt	any
	field	par_signature
	line	557
	colm	98
	synt	any
	invoke	1
	line	557
	colm	86
	synt	any
	cat
	line	557
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	558
	colm	66
	synt	any
	plus
	line	558
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	558
	colm	102
	synt	any
	field	displacement
	line	558
	colm	97
	synt	any
	invoke	1
	line	558
	colm	85
	synt	any
	cat
	line	558
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	559
	colm	59
	synt	any
	plus
	line	559
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	559
	colm	95
	synt	any
	field	level
	line	559
	colm	90
	synt	any
	invoke	1
	line	559
	colm	78
	synt	any
	cat
	line	559
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	560
	colm	77
	synt	any
	plus
	line	560
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	560
	colm	113
	synt	any
	field	par_previous_definition
	line	560
	colm	108
	synt	any
	invoke	1
	line	560
	colm	96
	synt	any
	cat
	line	560
	colm	18
	synt	any
	invoke	2
	unmark
lab L8
	mark	L9
	var	2
	var	1
	pnull
	var	3
	str	6
	pnull
	int	1
	var	4
	line	561
	colm	63
	synt	any
	plus
	line	561
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	561
	colm	99
	synt	any
	field	par_scope
	line	561
	colm	94
	synt	any
	invoke	1
	line	561
	colm	82
	synt	any
	cat
	line	561
	colm	18
	synt	any
	invoke	2
	unmark
lab L9
	var	2
	var	1
	pnull
	var	3
	str	7
	pnull
	int	1
	var	4
	line	562
	colm	66
	synt	any
	plus
	line	562
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	562
	colm	102
	synt	any
	field	par_only_def
	line	562
	colm	97
	synt	any
	invoke	1
	line	562
	colm	85
	synt	any
	cat
	line	562
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	564
	colm	1
	synt	any
	pfail
	end
proc ParameterNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,11,160,141,162,137,151,144,040,040,040,075,040
	con	1,010000,18,160,141,162,137,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	2,010000,17,144,151,163,160,154,141,143,145,155,145,156,164,040,040,040,075,040
	con	3,010000,10,154,145,166,145,154,040,040,040,075,040
	con	4,010000,28,160,141,162,137,160,162,145,166,151,157,165,163,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	con	5,010000,14,160,141,162,137,163,143,157,160,145,040,040,040,075,040
	con	6,010000,17,160,141,162,137,157,156,154,171,137,144,145,146,040,040,040,075,040
	declend
	line	565
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	567
	colm	6
	synt	any
	field	__m
	line	567
	colm	10
	synt	any
	field	Node
	line	567
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	567
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	568
	colm	6
	synt	any
	field	__m
	line	568
	colm	10
	synt	any
	field	ConsNode
	line	568
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	568
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	570
	colm	40
	synt	any
	field	par_id
	line	570
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	571
	colm	47
	synt	any
	field	par_signature
	line	571
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	572
	colm	46
	synt	any
	field	displacement
	line	572
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	573
	colm	39
	synt	any
	field	level
	line	573
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	mark	L8
	var	2
	var	0
	str	4
	pnull
	var	0
	line	574
	colm	57
	synt	any
	field	par_previous_definition
	line	574
	colm	15
	synt	any
	invoke	3
	unmark
lab L8
	mark	L9
	var	2
	var	0
	str	5
	pnull
	var	0
	line	575
	colm	43
	synt	any
	field	par_scope
	line	575
	colm	15
	synt	any
	invoke	3
	unmark
lab L9
	var	2
	var	0
	str	6
	pnull
	var	0
	line	576
	colm	46
	synt	any
	field	par_only_def
	line	576
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	578
	colm	1
	synt	any
	pfail
	end
proc ParameterNode
	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,ParameterNode__oprec
	local	7,000000,ParameterNodeinitialize
	local	8,000000,Node__oprec
	local	9,000000,Nodeinitialize
	local	10,000000,ConsNode__oprec
	local	11,000000,ConsNodeinitialize
	local	12,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	6
	line	8
	colm	6
	synt	any
	null
	unmark
	var	7
	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	8
	line	9
	colm	6
	synt	any
	null
	unmark
	var	9
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	6
	line	10
	colm	23
	synt	any
	field	Node
	var	8
	line	10
	colm	29
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	10
	line	11
	colm	6
	synt	any
	null
	unmark
	var	11
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	6
	line	12
	colm	23
	synt	any
	field	ConsNode
	var	10
	line	12
	colm	33
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	4
	var	12
	line	14
	colm	32
	synt	any
	keywd	null
	var	6
	line	14
	colm	31
	synt	any
	invoke	2
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	4
	line	15
	colm	7
	synt	any
	field	__s
	var	4
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	4
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	4
	var	0
	var	1
	var	2
	var	3
	line	16
	colm	21
	synt	any
	invoke	5
	line	16
	colm	46
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	48
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	4
	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_dump
	local	3,000000,ParameterNode_dump_tree
	local	4,000000,Node_initially
	local	5,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
	line	21
	colm	57
	synt	any
	invoke	4
	line	21
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	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
	filen	stree/ststructs_cls.tmp.icn
	line	582
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	584
	colm	6
	synt	any
	field	__m
	line	584
	colm	10
	synt	any
	field	Node
	line	584
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	584
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	585
	colm	6
	synt	any
	field	__m
	line	585
	colm	10
	synt	any
	field	ConsNode
	line	585
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	585
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	587
	colm	59
	synt	any
	plus
	line	587
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	587
	colm	95
	synt	any
	field	re_id
	line	587
	colm	90
	synt	any
	invoke	1
	line	587
	colm	78
	synt	any
	cat
	line	587
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	588
	colm	67
	synt	any
	plus
	line	588
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	588
	colm	103
	synt	any
	field	re_denotation
	line	588
	colm	98
	synt	any
	invoke	1
	line	588
	colm	86
	synt	any
	cat
	line	588
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	589
	colm	66
	synt	any
	plus
	line	589
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	589
	colm	102
	synt	any
	field	re_New_index
	line	589
	colm	97
	synt	any
	invoke	1
	line	589
	colm	85
	synt	any
	cat
	line	589
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	590
	colm	70
	synt	any
	plus
	line	590
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	590
	colm	106
	synt	any
	field	re_ValueOf_index
	line	590
	colm	101
	synt	any
	invoke	1
	line	590
	colm	89
	synt	any
	cat
	line	590
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	591
	colm	69
	synt	any
	plus
	line	591
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	591
	colm	105
	synt	any
	field	re_assign_index
	line	591
	colm	100
	synt	any
	invoke	1
	line	591
	colm	88
	synt	any
	cat
	line	591
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	593
	colm	1
	synt	any
	pfail
	end
proc RElementNode_dump_tree
	local	0,001000,self
	local	1,000000,nodes_created_file
	local	2,000000,proc_dump_tree
	con	0,010000,10,162,145,137,151,144,040,040,040,075,040
	con	1,010000,18,162,145,137,144,145,156,157,164,141,164,151,157,156,040,040,040,075,040
	con	2,010000,17,162,145,137,116,145,167,137,151,156,144,145,170,040,040,040,075,040
	con	3,010000,21,162,145,137,126,141,154,165,145,117,146,137,151,156,144,145,170,040,040,040,075,040
	con	4,010000,20,162,145,137,141,163,163,151,147,156,137,151,156,144,145,170,040,040,040,075,040
	declend
	line	594
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	596
	colm	6
	synt	any
	field	__m
	line	596
	colm	10
	synt	any
	field	Node
	line	596
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	596
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	597
	colm	6
	synt	any
	field	__m
	line	597
	colm	10
	synt	any
	field	ConsNode
	line	597
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	597
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	599
	colm	39
	synt	any
	field	re_id
	line	599
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	600
	colm	47
	synt	any
	field	re_denotation
	line	600
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	601
	colm	46
	synt	any
	field	re_New_index
	line	601
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	602
	colm	50
	synt	any
	field	re_ValueOf_index
	line	602
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	var	2
	var	0
	str	4
	pnull
	var	0
	line	603
	colm	49
	synt	any
	field	re_assign_index
	line	603
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	605
	colm	1
	synt	any
	pfail
	end
proc RElementNode
	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,RElementNode__oprec
	local	7,000000,RElementNodeinitialize
	local	8,000000,Node__oprec
	local	9,000000,Nodeinitialize
	local	10,000000,ConsNode__oprec
	local	11,000000,ConsNodeinitialize
	local	12,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	6
	line	8
	colm	6
	synt	any
	null
	unmark
	var	7
	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	8
	line	9
	colm	6
	synt	any
	null
	unmark
	var	9
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	6
	line	10
	colm	22
	synt	any
	field	Node
	var	8
	line	10
	colm	28
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	10
	line	11
	colm	6
	synt	any
	null
	unmark
	var	11
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	6
	line	12
	colm	22
	synt	any
	field	ConsNode
	var	10
	line	12
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	4
	var	12
	line	14
	colm	31
	synt	any
	keywd	null
	var	6
	line	14
	colm	30
	synt	any
	invoke	2
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	4
	line	15
	colm	7
	synt	any
	field	__s
	var	4
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	4
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	4
	var	0
	var	1
	var	2
	var	3
	line	16
	colm	21
	synt	any
	invoke	5
	line	16
	colm	46
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	48
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	4
	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_dump
	local	3,000000,RElementNode_dump_tree
	local	4,000000,Node_initially
	local	5,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
	line	21
	colm	55
	synt	any
	invoke	4
	line	21
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	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
	filen	stree/ststructs_cls.tmp.icn
	line	608
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	610
	colm	6
	synt	any
	field	__m
	line	610
	colm	10
	synt	any
	field	Node
	line	610
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	610
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	611
	colm	6
	synt	any
	field	__m
	line	611
	colm	10
	synt	any
	field	ConsNode
	line	611
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	611
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	612
	colm	63
	synt	any
	plus
	line	612
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	612
	colm	99
	synt	any
	field	signature
	line	612
	colm	94
	synt	any
	invoke	1
	line	612
	colm	82
	synt	any
	cat
	line	612
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	613
	colm	62
	synt	any
	plus
	line	613
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	613
	colm	98
	synt	any
	field	sig_done
	line	613
	colm	93
	synt	any
	invoke	1
	line	613
	colm	81
	synt	any
	cat
	line	613
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	614
	colm	68
	synt	any
	plus
	line	614
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	614
	colm	104
	synt	any
	field	var_denotation
	line	614
	colm	99
	synt	any
	invoke	1
	line	614
	colm	87
	synt	any
	cat
	line	614
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	616
	colm	1
	synt	any
	pfail
	end
proc VarSignature_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,19,166,141,162,137,144,145,156,157,164,141,164,151,157,156,040,040,040,075,040
	declend
	line	617
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	619
	colm	6
	synt	any
	field	__m
	line	619
	colm	10
	synt	any
	field	Node
	line	619
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	619
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	620
	colm	6
	synt	any
	field	__m
	line	620
	colm	10
	synt	any
	field	ConsNode
	line	620
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	620
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	621
	colm	43
	synt	any
	field	signature
	line	621
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	622
	colm	42
	synt	any
	field	sig_done
	line	622
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	var	2
	var	0
	str	2
	pnull
	var	0
	line	623
	colm	48
	synt	any
	field	var_denotation
	line	623
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	625
	colm	1
	synt	any
	pfail
	end
proc VarSignature
	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,VarSignature__oprec
	local	7,000000,VarSignatureinitialize
	local	8,000000,Node__oprec
	local	9,000000,Nodeinitialize
	local	10,000000,ConsNode__oprec
	local	11,000000,ConsNodeinitialize
	local	12,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	6
	line	8
	colm	6
	synt	any
	null
	unmark
	var	7
	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	8
	line	9
	colm	6
	synt	any
	null
	unmark
	var	9
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	6
	line	10
	colm	22
	synt	any
	field	Node
	var	8
	line	10
	colm	28
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	10
	line	11
	colm	6
	synt	any
	null
	unmark
	var	11
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	6
	line	12
	colm	22
	synt	any
	field	ConsNode
	var	10
	line	12
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	4
	var	12
	line	14
	colm	31
	synt	any
	keywd	null
	var	6
	line	14
	colm	30
	synt	any
	invoke	2
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	4
	line	15
	colm	7
	synt	any
	field	__s
	var	4
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	4
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	4
	var	0
	var	1
	var	2
	var	3
	line	16
	colm	21
	synt	any
	invoke	5
	line	16
	colm	46
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	48
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	4
	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_dump
	local	3,000000,VarSignature_dump_tree
	local	4,000000,Node_initially
	local	5,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
	line	21
	colm	55
	synt	any
	invoke	4
	line	21
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	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
	filen	stree/ststructs_cls.tmp.icn
	line	629
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	631
	colm	6
	synt	any
	field	__m
	line	631
	colm	10
	synt	any
	field	Node
	line	631
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	631
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	632
	colm	6
	synt	any
	field	__m
	line	632
	colm	10
	synt	any
	field	ConsNode
	line	632
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	632
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	634
	colm	63
	synt	any
	plus
	line	634
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	634
	colm	99
	synt	any
	field	signature
	line	634
	colm	94
	synt	any
	invoke	1
	line	634
	colm	82
	synt	any
	cat
	line	634
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	635
	colm	62
	synt	any
	plus
	line	635
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	635
	colm	98
	synt	any
	field	sig_done
	line	635
	colm	93
	synt	any
	invoke	1
	line	635
	colm	81
	synt	any
	cat
	line	635
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	636
	colm	68
	synt	any
	plus
	line	636
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	636
	colm	104
	synt	any
	field	val_denotation
	line	636
	colm	99
	synt	any
	invoke	1
	line	636
	colm	87
	synt	any
	cat
	line	636
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	638
	colm	1
	synt	any
	pfail
	end
proc ValSignature_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,19,166,141,154,137,144,145,156,157,164,141,164,151,157,156,040,040,040,075,040
	declend
	line	639
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	641
	colm	6
	synt	any
	field	__m
	line	641
	colm	10
	synt	any
	field	Node
	line	641
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	641
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	642
	colm	6
	synt	any
	field	__m
	line	642
	colm	10
	synt	any
	field	ConsNode
	line	642
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	642
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	644
	colm	43
	synt	any
	field	signature
	line	644
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	645
	colm	42
	synt	any
	field	sig_done
	line	645
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	var	2
	var	0
	str	2
	pnull
	var	0
	line	646
	colm	48
	synt	any
	field	val_denotation
	line	646
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	648
	colm	1
	synt	any
	pfail
	end
proc ValSignature
	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,ValSignature__oprec
	local	7,000000,ValSignatureinitialize
	local	8,000000,Node__oprec
	local	9,000000,Nodeinitialize
	local	10,000000,ConsNode__oprec
	local	11,000000,ConsNodeinitialize
	local	12,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	6
	line	8
	colm	6
	synt	any
	null
	unmark
	var	7
	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	8
	line	9
	colm	6
	synt	any
	null
	unmark
	var	9
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	6
	line	10
	colm	22
	synt	any
	field	Node
	var	8
	line	10
	colm	28
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	10
	line	11
	colm	6
	synt	any
	null
	unmark
	var	11
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	6
	line	12
	colm	22
	synt	any
	field	ConsNode
	var	10
	line	12
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	4
	var	12
	line	14
	colm	31
	synt	any
	keywd	null
	var	6
	line	14
	colm	30
	synt	any
	invoke	2
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	4
	line	15
	colm	7
	synt	any
	field	__s
	var	4
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	4
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	4
	var	0
	var	1
	var	2
	var	3
	line	16
	colm	21
	synt	any
	invoke	5
	line	16
	colm	46
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	48
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	4
	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_dump
	local	3,000000,ValSignature_dump_tree
	local	4,000000,Node_initially
	local	5,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
	line	21
	colm	55
	synt	any
	invoke	4
	line	21
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	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
	filen	stree/ststructs_cls.tmp.icn
	line	651
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	653
	colm	6
	synt	any
	field	__m
	line	653
	colm	10
	synt	any
	field	Node
	line	653
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	653
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	654
	colm	6
	synt	any
	field	__m
	line	654
	colm	10
	synt	any
	field	ConsNode
	line	654
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	654
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	655
	colm	63
	synt	any
	plus
	line	655
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	655
	colm	99
	synt	any
	field	signature
	line	655
	colm	94
	synt	any
	invoke	1
	line	655
	colm	82
	synt	any
	cat
	line	655
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	656
	colm	62
	synt	any
	plus
	line	656
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	656
	colm	98
	synt	any
	field	sig_done
	line	656
	colm	93
	synt	any
	invoke	1
	line	656
	colm	81
	synt	any
	cat
	line	656
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	657
	colm	71
	synt	any
	plus
	line	657
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	657
	colm	107
	synt	any
	field	fsig_construction
	line	657
	colm	102
	synt	any
	invoke	1
	line	657
	colm	90
	synt	any
	cat
	line	657
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	658
	colm	66
	synt	any
	plus
	line	658
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	658
	colm	102
	synt	any
	field	fsig_special
	line	658
	colm	97
	synt	any
	invoke	1
	line	658
	colm	85
	synt	any
	cat
	line	658
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	659
	colm	70
	synt	any
	plus
	line	659
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	659
	colm	106
	synt	any
	field	fsig_slink_known
	line	659
	colm	101
	synt	any
	invoke	1
	line	659
	colm	89
	synt	any
	cat
	line	659
	colm	18
	synt	any
	invoke	2
	unmark
lab L8
	mark	L9
	var	2
	var	1
	pnull
	var	3
	str	6
	pnull
	int	1
	var	4
	line	660
	colm	70
	synt	any
	plus
	line	660
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	660
	colm	106
	synt	any
	field	fsig_inline_code
	line	660
	colm	101
	synt	any
	invoke	1
	line	660
	colm	89
	synt	any
	cat
	line	660
	colm	18
	synt	any
	invoke	2
	unmark
lab L9
	mark	L10
	var	2
	var	1
	pnull
	var	3
	str	7
	pnull
	int	1
	var	4
	line	661
	colm	69
	synt	any
	plus
	line	661
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	661
	colm	105
	synt	any
	field	fsig_param_list
	line	661
	colm	100
	synt	any
	invoke	1
	line	661
	colm	88
	synt	any
	cat
	line	661
	colm	18
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	var	2
	var	1
	pnull
	var	3
	str	8
	pnull
	int	1
	var	4
	line	662
	colm	69
	synt	any
	plus
	line	662
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	662
	colm	105
	synt	any
	field	fsig_result_sig
	line	662
	colm	100
	synt	any
	invoke	1
	line	662
	colm	88
	synt	any
	cat
	line	662
	colm	18
	synt	any
	invoke	2
	unmark
lab L11
	var	2
	var	1
	pnull
	var	3
	str	9
	pnull
	int	1
	var	4
	line	663
	colm	67
	synt	any
	plus
	line	663
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	663
	colm	103
	synt	any
	field	fc_code_label
	line	663
	colm	98
	synt	any
	invoke	1
	line	663
	colm	86
	synt	any
	cat
	line	663
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	665
	colm	1
	synt	any
	pfail
	end
proc FSignature_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,22,146,163,151,147,137,143,157,156,163,164,162,165,143,164,151,157,156,040,040,040,075,040
	con	3,010000,17,146,163,151,147,137,163,160,145,143,151,141,154,040,040,040,075,040
	con	4,010000,21,146,163,151,147,137,163,154,151,156,153,137,153,156,157,167,156,040,040,040,075,040
	con	5,010000,21,146,163,151,147,137,151,156,154,151,156,145,137,143,157,144,145,040,040,040,075,040
	con	6,010000,20,146,163,151,147,137,160,141,162,141,155,137,154,151,163,164,040,040,040,075,040
	con	7,010000,20,146,163,151,147,137,162,145,163,165,154,164,137,163,151,147,040,040,040,075,040
	con	8,010000,18,146,143,137,143,157,144,145,137,154,141,142,145,154,040,040,040,075,040
	declend
	line	666
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	668
	colm	6
	synt	any
	field	__m
	line	668
	colm	10
	synt	any
	field	Node
	line	668
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	668
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	669
	colm	6
	synt	any
	field	__m
	line	669
	colm	10
	synt	any
	field	ConsNode
	line	669
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	669
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	670
	colm	43
	synt	any
	field	signature
	line	670
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	671
	colm	42
	synt	any
	field	sig_done
	line	671
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	672
	colm	51
	synt	any
	field	fsig_construction
	line	672
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	673
	colm	46
	synt	any
	field	fsig_special
	line	673
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	mark	L8
	var	2
	var	0
	str	4
	pnull
	var	0
	line	674
	colm	50
	synt	any
	field	fsig_slink_known
	line	674
	colm	15
	synt	any
	invoke	3
	unmark
lab L8
	mark	L9
	var	2
	var	0
	str	5
	pnull
	var	0
	line	675
	colm	50
	synt	any
	field	fsig_inline_code
	line	675
	colm	15
	synt	any
	invoke	3
	unmark
lab L9
	mark	L10
	var	2
	var	0
	str	6
	pnull
	var	0
	line	676
	colm	49
	synt	any
	field	fsig_param_list
	line	676
	colm	15
	synt	any
	invoke	3
	unmark
lab L10
	mark	L11
	var	2
	var	0
	str	7
	pnull
	var	0
	line	677
	colm	49
	synt	any
	field	fsig_result_sig
	line	677
	colm	15
	synt	any
	invoke	3
	unmark
lab L11
	var	2
	var	0
	str	8
	pnull
	var	0
	line	678
	colm	47
	synt	any
	field	fc_code_label
	line	678
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	680
	colm	1
	synt	any
	pfail
	end
proc FSignature_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	681
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	682
	colm	5
	synt	any
	field	fsig_param_list
	var	1
	line	682
	colm	34
	synt	any
	invoke	0
	line	682
	colm	22
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	683
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	684
	colm	1
	synt	any
	pfail
	end
proc FSignature
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,fsig_construction
	local	3,001000,fsig_special
	local	4,001000,fsig_slink_known
	local	5,001000,fsig_inline_code
	local	6,001000,fsig_param_list
	local	7,001000,fsig_result_sig
	local	8,001000,fc_code_label
	local	9,001000,kind
	local	10,001000,vlineno
	local	11,001000,pre_num
	local	12,001000,post_num
	local	13,001000,unique_id
	local	14,001000,cn_hd_field
	local	15,001000,cn_tl_field
	local	16,000020,self
	local	17,000020,clone
	local	18,000000,FSignature__oprec
	local	19,000000,FSignatureinitialize
	local	20,000000,Node__oprec
	local	21,000000,Nodeinitialize
	local	22,000000,ConsNode__oprec
	local	23,000000,ConsNodeinitialize
	local	24,000000,FSignature__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	18
	line	8
	colm	6
	synt	any
	null
	unmark
	var	19
	line	8
	colm	50
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	20
	line	9
	colm	6
	synt	any
	null
	unmark
	var	21
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	18
	line	10
	colm	20
	synt	any
	field	Node
	var	20
	line	10
	colm	26
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	22
	line	11
	colm	6
	synt	any
	null
	unmark
	var	23
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	18
	line	12
	colm	20
	synt	any
	field	ConsNode
	var	22
	line	12
	colm	30
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	16
	var	24
	line	14
	colm	29
	synt	any
	keywd	null
	var	18
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	14
	var	15
	line	14
	colm	28
	synt	any
	invoke	18
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	16
	line	15
	colm	7
	synt	any
	field	__s
	var	16
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	16
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	16
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	16
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc FSignatureinitialize
	local	0,000000,FSignature__oprec
	local	1,000000,FSignature__methods
	local	2,000000,FSignature_dump
	local	3,000000,FSignature_dump_tree
	local	4,000000,FSignature_initially
	local	5,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
	line	21
	colm	51
	synt	any
	invoke	4
	line	21
	colm	29
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	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
	filen	stree/ststructs_cls.tmp.icn
	line	685
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	687
	colm	6
	synt	any
	field	__m
	line	687
	colm	10
	synt	any
	field	Node
	line	687
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	687
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	688
	colm	6
	synt	any
	field	__m
	line	688
	colm	10
	synt	any
	field	ConsNode
	line	688
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	688
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	689
	colm	63
	synt	any
	plus
	line	689
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	689
	colm	99
	synt	any
	field	signature
	line	689
	colm	94
	synt	any
	invoke	1
	line	689
	colm	82
	synt	any
	cat
	line	689
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	690
	colm	62
	synt	any
	plus
	line	690
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	690
	colm	98
	synt	any
	field	sig_done
	line	690
	colm	93
	synt	any
	invoke	1
	line	690
	colm	81
	synt	any
	cat
	line	690
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	691
	colm	68
	synt	any
	plus
	line	691
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	691
	colm	104
	synt	any
	field	ts_simple_type
	line	691
	colm	99
	synt	any
	invoke	1
	line	691
	colm	87
	synt	any
	cat
	line	691
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	692
	colm	70
	synt	any
	plus
	line	692
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	692
	colm	106
	synt	any
	field	ts_local_type_id
	line	692
	colm	101
	synt	any
	invoke	1
	line	692
	colm	89
	synt	any
	cat
	line	692
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	693
	colm	62
	synt	any
	plus
	line	693
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	693
	colm	98
	synt	any
	field	ts_clist
	line	693
	colm	93
	synt	any
	invoke	1
	line	693
	colm	81
	synt	any
	cat
	line	693
	colm	18
	synt	any
	invoke	2
	unmark
lab L8
	mark	L9
	var	2
	var	1
	pnull
	var	3
	str	6
	pnull
	int	1
	var	4
	line	694
	colm	76
	synt	any
	plus
	line	694
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	694
	colm	112
	synt	any
	field	ts_previous_definition
	line	694
	colm	107
	synt	any
	invoke	1
	line	694
	colm	95
	synt	any
	cat
	line	694
	colm	18
	synt	any
	invoke	2
	unmark
lab L9
	mark	L10
	var	2
	var	1
	pnull
	var	3
	str	7
	pnull
	int	1
	var	4
	line	695
	colm	67
	synt	any
	plus
	line	695
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	695
	colm	103
	synt	any
	field	ts_const_code
	line	695
	colm	98
	synt	any
	invoke	1
	line	695
	colm	86
	synt	any
	cat
	line	695
	colm	18
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	var	2
	var	1
	pnull
	var	3
	str	8
	pnull
	int	1
	var	4
	line	696
	colm	68
	synt	any
	plus
	line	696
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	696
	colm	104
	synt	any
	field	ts_string_code
	line	696
	colm	99
	synt	any
	invoke	1
	line	696
	colm	87
	synt	any
	cat
	line	696
	colm	18
	synt	any
	invoke	2
	unmark
lab L11
	mark	L12
	var	2
	var	1
	pnull
	var	3
	str	9
	pnull
	int	1
	var	4
	line	697
	colm	69
	synt	any
	plus
	line	697
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	697
	colm	105
	synt	any
	field	ts_element_code
	line	697
	colm	100
	synt	any
	invoke	1
	line	697
	colm	88
	synt	any
	cat
	line	697
	colm	18
	synt	any
	invoke	2
	unmark
lab L12
	mark	L13
	var	2
	var	1
	pnull
	var	3
	str	10
	pnull
	int	1
	var	4
	line	698
	colm	67
	synt	any
	plus
	line	698
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	698
	colm	103
	synt	any
	field	ts_string_max
	line	698
	colm	98
	synt	any
	invoke	1
	line	698
	colm	86
	synt	any
	cat
	line	698
	colm	18
	synt	any
	invoke	2
	unmark
lab L13
	var	2
	var	1
	pnull
	var	3
	str	11
	pnull
	int	1
	var	4
	line	699
	colm	68
	synt	any
	plus
	line	699
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	699
	colm	104
	synt	any
	field	ts_meta_concat
	line	699
	colm	99
	synt	any
	invoke	1
	line	699
	colm	87
	synt	any
	cat
	line	699
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	701
	colm	1
	synt	any
	pfail
	end
proc TSignature_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,19,164,163,137,163,151,155,160,154,145,137,164,171,160,145,040,040,040,075,040
	con	3,010000,21,164,163,137,154,157,143,141,154,137,164,171,160,145,137,151,144,040,040,040,075,040
	con	4,010000,13,164,163,137,143,154,151,163,164,040,040,040,075,040
	con	5,010000,27,164,163,137,160,162,145,166,151,157,165,163,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	con	6,010000,18,164,163,137,143,157,156,163,164,137,143,157,144,145,040,040,040,075,040
	con	7,010000,19,164,163,137,163,164,162,151,156,147,137,143,157,144,145,040,040,040,075,040
	con	8,010000,20,164,163,137,145,154,145,155,145,156,164,137,143,157,144,145,040,040,040,075,040
	con	9,010000,18,164,163,137,163,164,162,151,156,147,137,155,141,170,040,040,040,075,040
	con	10,010000,19,164,163,137,155,145,164,141,137,143,157,156,143,141,164,040,040,040,075,040
	declend
	line	702
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	704
	colm	6
	synt	any
	field	__m
	line	704
	colm	10
	synt	any
	field	Node
	line	704
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	704
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	705
	colm	6
	synt	any
	field	__m
	line	705
	colm	10
	synt	any
	field	ConsNode
	line	705
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	705
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	706
	colm	43
	synt	any
	field	signature
	line	706
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	707
	colm	42
	synt	any
	field	sig_done
	line	707
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	708
	colm	48
	synt	any
	field	ts_simple_type
	line	708
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	709
	colm	50
	synt	any
	field	ts_local_type_id
	line	709
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	mark	L8
	var	2
	var	0
	str	4
	pnull
	var	0
	line	710
	colm	42
	synt	any
	field	ts_clist
	line	710
	colm	15
	synt	any
	invoke	3
	unmark
lab L8
	mark	L9
	var	2
	var	0
	str	5
	pnull
	var	0
	line	711
	colm	56
	synt	any
	field	ts_previous_definition
	line	711
	colm	15
	synt	any
	invoke	3
	unmark
lab L9
	mark	L10
	var	2
	var	0
	str	6
	pnull
	var	0
	line	712
	colm	47
	synt	any
	field	ts_const_code
	line	712
	colm	15
	synt	any
	invoke	3
	unmark
lab L10
	mark	L11
	var	2
	var	0
	str	7
	pnull
	var	0
	line	713
	colm	48
	synt	any
	field	ts_string_code
	line	713
	colm	15
	synt	any
	invoke	3
	unmark
lab L11
	mark	L12
	var	2
	var	0
	str	8
	pnull
	var	0
	line	714
	colm	49
	synt	any
	field	ts_element_code
	line	714
	colm	15
	synt	any
	invoke	3
	unmark
lab L12
	mark	L13
	var	2
	var	0
	str	9
	pnull
	var	0
	line	715
	colm	47
	synt	any
	field	ts_string_max
	line	715
	colm	15
	synt	any
	invoke	3
	unmark
lab L13
	var	2
	var	0
	str	10
	pnull
	var	0
	line	716
	colm	48
	synt	any
	field	ts_meta_concat
	line	716
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	718
	colm	1
	synt	any
	pfail
	end
proc TSignature_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	719
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	720
	colm	5
	synt	any
	field	ts_clist
	var	1
	line	720
	colm	27
	synt	any
	invoke	0
	line	720
	colm	15
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	721
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	722
	colm	1
	synt	any
	pfail
	end
proc TSignature
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,ts_simple_type
	local	3,001000,ts_local_type_id
	local	4,001000,ts_clist
	local	5,001000,ts_previous_definition
	local	6,001000,ts_const_code
	local	7,001000,ts_string_code
	local	8,001000,ts_element_code
	local	9,001000,ts_string_max
	local	10,001000,ts_meta_concat
	local	11,001000,kind
	local	12,001000,vlineno
	local	13,001000,pre_num
	local	14,001000,post_num
	local	15,001000,unique_id
	local	16,001000,cn_hd_field
	local	17,001000,cn_tl_field
	local	18,000020,self
	local	19,000020,clone
	local	20,000000,TSignature__oprec
	local	21,000000,TSignatureinitialize
	local	22,000000,Node__oprec
	local	23,000000,Nodeinitialize
	local	24,000000,ConsNode__oprec
	local	25,000000,ConsNodeinitialize
	local	26,000000,TSignature__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	20
	line	8
	colm	6
	synt	any
	null
	unmark
	var	21
	line	8
	colm	50
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	22
	line	9
	colm	6
	synt	any
	null
	unmark
	var	23
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	20
	line	10
	colm	20
	synt	any
	field	Node
	var	22
	line	10
	colm	26
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	24
	line	11
	colm	6
	synt	any
	null
	unmark
	var	25
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	20
	line	12
	colm	20
	synt	any
	field	ConsNode
	var	24
	line	12
	colm	30
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	18
	var	26
	line	14
	colm	29
	synt	any
	keywd	null
	var	20
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	14
	var	15
	var	16
	var	17
	line	14
	colm	28
	synt	any
	invoke	20
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	18
	line	15
	colm	7
	synt	any
	field	__s
	var	18
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	18
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	18
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	18
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc TSignatureinitialize
	local	0,000000,TSignature__oprec
	local	1,000000,TSignature__methods
	local	2,000000,TSignature_dump
	local	3,000000,TSignature_dump_tree
	local	4,000000,TSignature_initially
	local	5,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
	line	21
	colm	51
	synt	any
	invoke	4
	line	21
	colm	29
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	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
	filen	stree/ststructs_cls.tmp.icn
	line	723
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	725
	colm	6
	synt	any
	field	__m
	line	725
	colm	10
	synt	any
	field	Node
	line	725
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	725
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	726
	colm	6
	synt	any
	field	__m
	line	726
	colm	10
	synt	any
	field	ConsNode
	line	726
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	726
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	728
	colm	60
	synt	any
	plus
	line	728
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	728
	colm	96
	synt	any
	field	tsc_id
	line	728
	colm	91
	synt	any
	invoke	1
	line	728
	colm	79
	synt	any
	cat
	line	728
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	729
	colm	67
	synt	any
	plus
	line	729
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	729
	colm	103
	synt	any
	field	tsc_signature
	line	729
	colm	98
	synt	any
	invoke	1
	line	729
	colm	86
	synt	any
	cat
	line	729
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	731
	colm	1
	synt	any
	pfail
	end
proc TSComponentNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,11,164,163,143,137,151,144,040,040,040,075,040
	con	1,010000,18,164,163,143,137,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	declend
	line	732
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	734
	colm	6
	synt	any
	field	__m
	line	734
	colm	10
	synt	any
	field	Node
	line	734
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	734
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	735
	colm	6
	synt	any
	field	__m
	line	735
	colm	10
	synt	any
	field	ConsNode
	line	735
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	735
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	737
	colm	40
	synt	any
	field	tsc_id
	line	737
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	var	2
	var	0
	str	1
	pnull
	var	0
	line	738
	colm	47
	synt	any
	field	tsc_signature
	line	738
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	740
	colm	1
	synt	any
	pfail
	end
proc TSComponentNode
	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,TSComponentNode__oprec
	local	7,000000,TSComponentNodeinitialize
	local	8,000000,Node__oprec
	local	9,000000,Nodeinitialize
	local	10,000000,ConsNode__oprec
	local	11,000000,ConsNodeinitialize
	local	12,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	6
	line	8
	colm	6
	synt	any
	null
	unmark
	var	7
	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	8
	line	9
	colm	6
	synt	any
	null
	unmark
	var	9
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	6
	line	10
	colm	25
	synt	any
	field	Node
	var	8
	line	10
	colm	31
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	10
	line	11
	colm	6
	synt	any
	null
	unmark
	var	11
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	6
	line	12
	colm	25
	synt	any
	field	ConsNode
	var	10
	line	12
	colm	35
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	4
	var	12
	line	14
	colm	34
	synt	any
	keywd	null
	var	6
	line	14
	colm	33
	synt	any
	invoke	2
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	4
	line	15
	colm	7
	synt	any
	field	__s
	var	4
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	4
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	4
	var	0
	var	1
	var	2
	var	3
	line	16
	colm	21
	synt	any
	invoke	5
	line	16
	colm	46
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	48
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	4
	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_dump
	local	3,000000,TSComponentNode_dump_tree
	local	4,000000,Node_initially
	local	5,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
	line	21
	colm	61
	synt	any
	invoke	4
	line	21
	colm	34
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	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
	filen	stree/ststructs_cls.tmp.icn
	line	743
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	745
	colm	6
	synt	any
	field	__m
	line	745
	colm	10
	synt	any
	field	Node
	line	745
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	745
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	746
	colm	6
	synt	any
	field	__m
	line	746
	colm	10
	synt	any
	field	ConsNode
	line	746
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	746
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	748
	colm	59
	synt	any
	plus
	line	748
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	748
	colm	95
	synt	any
	field	dcs_0
	line	748
	colm	90
	synt	any
	invoke	1
	line	748
	colm	78
	synt	any
	cat
	line	748
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	749
	colm	59
	synt	any
	plus
	line	749
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	749
	colm	95
	synt	any
	field	dcs_1
	line	749
	colm	90
	synt	any
	invoke	1
	line	749
	colm	78
	synt	any
	cat
	line	749
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	750
	colm	59
	synt	any
	plus
	line	750
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	750
	colm	95
	synt	any
	field	dcs_2
	line	750
	colm	90
	synt	any
	invoke	1
	line	750
	colm	78
	synt	any
	cat
	line	750
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	751
	colm	59
	synt	any
	plus
	line	751
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	751
	colm	95
	synt	any
	field	dcs_3
	line	751
	colm	90
	synt	any
	invoke	1
	line	751
	colm	78
	synt	any
	cat
	line	751
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	752
	colm	67
	synt	any
	plus
	line	752
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	752
	colm	103
	synt	any
	field	dcsexceptions
	line	752
	colm	98
	synt	any
	invoke	1
	line	752
	colm	86
	synt	any
	cat
	line	752
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	754
	colm	1
	synt	any
	pfail
	end
proc DefCharSigNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,10,144,143,163,137,060,040,040,040,075,040
	con	1,010000,10,144,143,163,137,061,040,040,040,075,040
	con	2,010000,10,144,143,163,137,062,040,040,040,075,040
	con	3,010000,10,144,143,163,137,063,040,040,040,075,040
	con	4,010000,18,144,143,163,145,170,143,145,160,164,151,157,156,163,040,040,040,075,040
	declend
	line	755
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	757
	colm	6
	synt	any
	field	__m
	line	757
	colm	10
	synt	any
	field	Node
	line	757
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	757
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	758
	colm	6
	synt	any
	field	__m
	line	758
	colm	10
	synt	any
	field	ConsNode
	line	758
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	758
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	760
	colm	39
	synt	any
	field	dcs_0
	line	760
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	761
	colm	39
	synt	any
	field	dcs_1
	line	761
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	762
	colm	39
	synt	any
	field	dcs_2
	line	762
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	763
	colm	39
	synt	any
	field	dcs_3
	line	763
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	var	2
	var	0
	str	4
	pnull
	var	0
	line	764
	colm	47
	synt	any
	field	dcsexceptions
	line	764
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	766
	colm	1
	synt	any
	pfail
	end
proc DefCharSigNode
	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,DefCharSigNode__oprec
	local	7,000000,DefCharSigNodeinitialize
	local	8,000000,Node__oprec
	local	9,000000,Nodeinitialize
	local	10,000000,ConsNode__oprec
	local	11,000000,ConsNodeinitialize
	local	12,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	6
	line	8
	colm	6
	synt	any
	null
	unmark
	var	7
	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	8
	line	9
	colm	6
	synt	any
	null
	unmark
	var	9
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	6
	line	10
	colm	24
	synt	any
	field	Node
	var	8
	line	10
	colm	30
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	10
	line	11
	colm	6
	synt	any
	null
	unmark
	var	11
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	6
	line	12
	colm	24
	synt	any
	field	ConsNode
	var	10
	line	12
	colm	34
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	4
	var	12
	line	14
	colm	33
	synt	any
	keywd	null
	var	6
	line	14
	colm	32
	synt	any
	invoke	2
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	4
	line	15
	colm	7
	synt	any
	field	__s
	var	4
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	4
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	4
	var	0
	var	1
	var	2
	var	3
	line	16
	colm	21
	synt	any
	invoke	5
	line	16
	colm	46
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	48
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	4
	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_dump
	local	3,000000,DefCharSigNode_dump_tree
	local	4,000000,Node_initially
	local	5,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
	line	21
	colm	59
	synt	any
	invoke	4
	line	21
	colm	33
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	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
	filen	stree/ststructs_cls.tmp.icn
	line	770
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	772
	colm	6
	synt	any
	field	__m
	line	772
	colm	10
	synt	any
	field	Node
	line	772
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	772
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	773
	colm	6
	synt	any
	field	__m
	line	773
	colm	10
	synt	any
	field	ConsNode
	line	773
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	773
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	775
	colm	63
	synt	any
	plus
	line	775
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	775
	colm	99
	synt	any
	field	signature
	line	775
	colm	94
	synt	any
	invoke	1
	line	775
	colm	82
	synt	any
	cat
	line	775
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	776
	colm	62
	synt	any
	plus
	line	776
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	776
	colm	98
	synt	any
	field	sig_done
	line	776
	colm	93
	synt	any
	invoke	1
	line	776
	colm	81
	synt	any
	cat
	line	776
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	778
	colm	1
	synt	any
	pfail
	end
proc SignatureSigNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	declend
	line	779
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	781
	colm	6
	synt	any
	field	__m
	line	781
	colm	10
	synt	any
	field	Node
	line	781
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	781
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	782
	colm	6
	synt	any
	field	__m
	line	782
	colm	10
	synt	any
	field	ConsNode
	line	782
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	782
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	784
	colm	43
	synt	any
	field	signature
	line	784
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	var	2
	var	0
	str	1
	pnull
	var	0
	line	785
	colm	42
	synt	any
	field	sig_done
	line	785
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	787
	colm	1
	synt	any
	pfail
	end
proc SignatureSigNode
	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,SignatureSigNode__oprec
	local	7,000000,SignatureSigNodeinitialize
	local	8,000000,Node__oprec
	local	9,000000,Nodeinitialize
	local	10,000000,ConsNode__oprec
	local	11,000000,ConsNodeinitialize
	local	12,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	6
	line	8
	colm	6
	synt	any
	null
	unmark
	var	7
	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	8
	line	9
	colm	6
	synt	any
	null
	unmark
	var	9
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	6
	line	10
	colm	26
	synt	any
	field	Node
	var	8
	line	10
	colm	32
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	10
	line	11
	colm	6
	synt	any
	null
	unmark
	var	11
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	6
	line	12
	colm	26
	synt	any
	field	ConsNode
	var	10
	line	12
	colm	36
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	4
	var	12
	line	14
	colm	35
	synt	any
	keywd	null
	var	6
	line	14
	colm	34
	synt	any
	invoke	2
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	4
	line	15
	colm	7
	synt	any
	field	__s
	var	4
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	4
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	4
	var	0
	var	1
	var	2
	var	3
	line	16
	colm	21
	synt	any
	invoke	5
	line	16
	colm	46
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	48
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	4
	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_dump
	local	3,000000,SignatureSigNode_dump_tree
	local	4,000000,Node_initially
	local	5,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
	line	21
	colm	63
	synt	any
	invoke	4
	line	21
	colm	35
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	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
	filen	stree/ststructs_cls.tmp.icn
	line	790
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	792
	colm	6
	synt	any
	field	__m
	line	792
	colm	10
	synt	any
	field	Node
	line	792
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	792
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	793
	colm	6
	synt	any
	field	__m
	line	793
	colm	10
	synt	any
	field	ConsNode
	line	793
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	793
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	795
	colm	63
	synt	any
	plus
	line	795
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	795
	colm	99
	synt	any
	field	signature
	line	795
	colm	94
	synt	any
	invoke	1
	line	795
	colm	82
	synt	any
	cat
	line	795
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	796
	colm	62
	synt	any
	plus
	line	796
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	796
	colm	98
	synt	any
	field	sig_done
	line	796
	colm	93
	synt	any
	invoke	1
	line	796
	colm	81
	synt	any
	cat
	line	796
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	797
	colm	61
	synt	any
	plus
	line	797
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	797
	colm	97
	synt	any
	field	ar_size
	line	797
	colm	92
	synt	any
	invoke	1
	line	797
	colm	80
	synt	any
	cat
	line	797
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	798
	colm	68
	synt	any
	plus
	line	798
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	798
	colm	104
	synt	any
	field	ar_static_link
	line	798
	colm	99
	synt	any
	invoke	1
	line	798
	colm	87
	synt	any
	cat
	line	798
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	799
	colm	69
	synt	any
	plus
	line	799
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	799
	colm	105
	synt	any
	field	ar_static_level
	line	799
	colm	100
	synt	any
	invoke	1
	line	799
	colm	88
	synt	any
	cat
	line	799
	colm	18
	synt	any
	invoke	2
	unmark
lab L8
	mark	L9
	var	2
	var	1
	pnull
	var	3
	str	6
	pnull
	int	1
	var	4
	line	800
	colm	74
	synt	any
	plus
	line	800
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	800
	colm	110
	synt	any
	field	bld_declaration_list
	line	800
	colm	105
	synt	any
	invoke	1
	line	800
	colm	93
	synt	any
	cat
	line	800
	colm	18
	synt	any
	invoke	2
	unmark
lab L9
	mark	L10
	var	2
	var	1
	pnull
	var	3
	str	7
	pnull
	int	1
	var	4
	line	801
	colm	65
	synt	any
	plus
	line	801
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	801
	colm	101
	synt	any
	field	bld_den_seq
	line	801
	colm	96
	synt	any
	invoke	1
	line	801
	colm	84
	synt	any
	cat
	line	801
	colm	18
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	var	2
	var	1
	pnull
	var	3
	str	8
	pnull
	int	1
	var	4
	line	802
	colm	68
	synt	any
	plus
	line	802
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	802
	colm	104
	synt	any
	field	bld_precedence
	line	802
	colm	99
	synt	any
	invoke	1
	line	802
	colm	87
	synt	any
	cat
	line	802
	colm	18
	synt	any
	invoke	2
	unmark
lab L11
	mark	L12
	var	2
	var	1
	pnull
	var	3
	str	9
	pnull
	int	1
	var	4
	line	803
	colm	63
	synt	any
	plus
	line	803
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	803
	colm	99
	synt	any
	field	bld_flags
	line	803
	colm	94
	synt	any
	invoke	1
	line	803
	colm	82
	synt	any
	cat
	line	803
	colm	18
	synt	any
	invoke	2
	unmark
lab L12
	var	2
	var	1
	pnull
	var	3
	str	10
	pnull
	int	1
	var	4
	line	804
	colm	66
	synt	any
	plus
	line	804
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	804
	colm	102
	synt	any
	field	fc_code_label
	line	804
	colm	97
	synt	any
	invoke	1
	line	804
	colm	85
	synt	any
	cat
	line	804
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	806
	colm	1
	synt	any
	pfail
	end
proc BlDenotationNode_dump_tree
	local	0,001000,self
	local	1,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,12,141,162,137,163,151,172,145,040,040,040,075,040
	con	3,010000,19,141,162,137,163,164,141,164,151,143,137,154,151,156,153,040,040,040,075,040
	con	4,010000,20,141,162,137,163,164,141,164,151,143,137,154,145,166,145,154,040,040,040,075,040
	con	5,010000,25,142,154,144,137,144,145,143,154,141,162,141,164,151,157,156,137,154,151,163,164,040,040,040,075,040
	con	6,010000,16,142,154,144,137,144,145,156,137,163,145,161,040,040,040,075,040
	con	7,010000,19,142,154,144,137,160,162,145,143,145,144,145,156,143,145,040,040,040,075,040
	con	8,010000,14,142,154,144,137,146,154,141,147,163,040,040,040,075,040
	con	9,010000,18,146,143,137,143,157,144,145,137,154,141,142,145,154,040,040,040,075,040
	declend
	line	807
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	809
	colm	6
	synt	any
	field	__m
	line	809
	colm	10
	synt	any
	field	Node
	line	809
	colm	15
	synt	any
	field	dump_tree
	var	0
	line	809
	colm	25
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	810
	colm	6
	synt	any
	field	__m
	line	810
	colm	10
	synt	any
	field	ConsNode
	line	810
	colm	19
	synt	any
	field	dump_tree
	var	0
	line	810
	colm	29
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	var	0
	str	0
	pnull
	var	0
	line	812
	colm	54
	synt	any
	field	signature
	line	812
	colm	27
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	1
	var	0
	str	1
	pnull
	var	0
	line	813
	colm	53
	synt	any
	field	sig_done
	line	813
	colm	27
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	1
	var	0
	str	2
	pnull
	var	0
	line	814
	colm	52
	synt	any
	field	ar_size
	line	814
	colm	27
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	1
	var	0
	str	3
	pnull
	var	0
	line	815
	colm	59
	synt	any
	field	ar_static_link
	line	815
	colm	27
	synt	any
	invoke	3
	unmark
lab L7
	mark	L8
	var	1
	var	0
	str	4
	pnull
	var	0
	line	816
	colm	60
	synt	any
	field	ar_static_level
	line	816
	colm	27
	synt	any
	invoke	3
	unmark
lab L8
	mark	L9
	var	1
	var	0
	str	5
	pnull
	var	0
	line	817
	colm	65
	synt	any
	field	bld_declaration_list
	line	817
	colm	27
	synt	any
	invoke	3
	unmark
lab L9
	mark	L10
	var	1
	var	0
	str	6
	pnull
	var	0
	line	818
	colm	56
	synt	any
	field	bld_den_seq
	line	818
	colm	27
	synt	any
	invoke	3
	unmark
lab L10
	mark	L11
	var	1
	var	0
	str	7
	pnull
	var	0
	line	819
	colm	59
	synt	any
	field	bld_precedence
	line	819
	colm	27
	synt	any
	invoke	3
	unmark
lab L11
	mark	L12
	var	1
	var	0
	str	8
	pnull
	var	0
	line	820
	colm	54
	synt	any
	field	bld_flags
	line	820
	colm	27
	synt	any
	invoke	3
	unmark
lab L12
	var	1
	var	0
	str	9
	pnull
	var	0
	line	821
	colm	58
	synt	any
	field	fc_code_label
	line	821
	colm	27
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	823
	colm	1
	synt	any
	pfail
	end
proc BlDenotationNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	con	0,002000,1,0
	declend
	line	824
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	825
	colm	5
	synt	any
	field	bld_flags
	int	0
	line	825
	colm	16
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	826
	colm	5
	synt	any
	field	bld_declaration_list
	var	1
	line	826
	colm	39
	synt	any
	invoke	0
	line	826
	colm	27
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	827
	colm	5
	synt	any
	field	bld_den_seq
	var	1
	line	827
	colm	30
	synt	any
	invoke	0
	line	827
	colm	18
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	line	828
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	829
	colm	1
	synt	any
	pfail
	end
proc BlDenotationNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,ar_size
	local	3,001000,ar_static_link
	local	4,001000,ar_static_level
	local	5,001000,bld_declaration_list
	local	6,001000,bld_den_seq
	local	7,001000,bld_precedence
	local	8,001000,bld_flags
	local	9,001000,fc_code_label
	local	10,001000,kind
	local	11,001000,vlineno
	local	12,001000,pre_num
	local	13,001000,post_num
	local	14,001000,unique_id
	local	15,001000,cn_hd_field
	local	16,001000,cn_tl_field
	local	17,000020,self
	local	18,000020,clone
	local	19,000000,BlDenotationNode__oprec
	local	20,000000,BlDenotationNodeinitialize
	local	21,000000,Node__oprec
	local	22,000000,Nodeinitialize
	local	23,000000,ConsNode__oprec
	local	24,000000,ConsNodeinitialize
	local	25,000000,BlDenotationNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	19
	line	8
	colm	6
	synt	any
	null
	unmark
	var	20
	line	8
	colm	62
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	21
	line	9
	colm	6
	synt	any
	null
	unmark
	var	22
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	19
	line	10
	colm	26
	synt	any
	field	Node
	var	21
	line	10
	colm	32
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	23
	line	11
	colm	6
	synt	any
	null
	unmark
	var	24
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	19
	line	12
	colm	26
	synt	any
	field	ConsNode
	var	23
	line	12
	colm	36
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	17
	var	25
	line	14
	colm	35
	synt	any
	keywd	null
	var	19
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	14
	var	15
	var	16
	line	14
	colm	34
	synt	any
	invoke	19
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	17
	line	15
	colm	7
	synt	any
	field	__s
	var	17
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	17
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	17
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	17
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc BlDenotationNodeinitialize
	local	0,000000,BlDenotationNode__oprec
	local	1,000000,BlDenotationNode__methods
	local	2,000000,BlDenotationNode_dump
	local	3,000000,BlDenotationNode_dump_tree
	local	4,000000,BlDenotationNode_initially
	local	5,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
	line	21
	colm	63
	synt	any
	invoke	4
	line	21
	colm	35
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc UseListNode_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	local	2,000000,treefile
	local	3,000000,write
	local	4,000000,left
	local	5,000000,dump_tree_depth
	local	6,000000,dump_info
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,18,165,163,154,137,164,171,160,145,137,154,151,163,164,040,040,040,075,040
	con	4,010000,16,165,163,154,137,144,145,156,137,163,145,161,040,040,040,075,040
	con	5,010000,22,165,163,154,137,160,162,145,166,151,157,165,163,137,154,151,163,164,040,040,040,075,040
	con	6,010000,19,165,163,154,137,160,162,145,143,145,144,145,156,143,145,040,040,040,075,040
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	830
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	832
	colm	6
	synt	any
	field	__m
	line	832
	colm	10
	synt	any
	field	Node
	line	832
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	2
	line	832
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	833
	colm	6
	synt	any
	field	__m
	line	833
	colm	10
	synt	any
	field	ConsNode
	line	833
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	833
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	3
	var	1
	pnull
	var	4
	str	0
	pnull
	int	1
	var	5
	line	834
	colm	63
	synt	any
	plus
	line	834
	colm	42
	synt	any
	invoke	2
	var	6
	pnull
	var	0
	line	834
	colm	99
	synt	any
	field	signature
	line	834
	colm	94
	synt	any
	invoke	1
	line	834
	colm	82
	synt	any
	cat
	line	834
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	3
	var	1
	pnull
	var	4
	str	2
	pnull
	int	1
	var	5
	line	835
	colm	62
	synt	any
	plus
	line	835
	colm	42
	synt	any
	invoke	2
	var	6
	pnull
	var	0
	line	835
	colm	98
	synt	any
	field	sig_done
	line	835
	colm	93
	synt	any
	invoke	1
	line	835
	colm	81
	synt	any
	cat
	line	835
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	3
	var	1
	pnull
	var	4
	str	3
	pnull
	int	1
	var	5
	line	836
	colm	67
	synt	any
	plus
	line	836
	colm	42
	synt	any
	invoke	2
	var	6
	pnull
	var	0
	line	836
	colm	103
	synt	any
	field	usl_type_list
	line	836
	colm	98
	synt	any
	invoke	1
	line	836
	colm	86
	synt	any
	cat
	line	836
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	3
	var	1
	pnull
	var	4
	str	4
	pnull
	int	1
	var	5
	line	837
	colm	65
	synt	any
	plus
	line	837
	colm	42
	synt	any
	invoke	2
	var	6
	pnull
	var	0
	line	837
	colm	101
	synt	any
	field	usl_den_seq
	line	837
	colm	96
	synt	any
	invoke	1
	line	837
	colm	84
	synt	any
	cat
	line	837
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	var	3
	var	1
	pnull
	var	4
	str	5
	pnull
	int	1
	var	5
	line	838
	colm	71
	synt	any
	plus
	line	838
	colm	42
	synt	any
	invoke	2
	var	6
	pnull
	var	0
	line	838
	colm	107
	synt	any
	field	usl_previous_list
	line	838
	colm	102
	synt	any
	invoke	1
	line	838
	colm	90
	synt	any
	cat
	line	838
	colm	18
	synt	any
	invoke	2
	unmark
lab L8
	var	3
	var	1
	pnull
	var	4
	str	6
	pnull
	int	1
	var	5
	line	839
	colm	68
	synt	any
	plus
	line	839
	colm	42
	synt	any
	invoke	2
	var	6
	pnull
	var	0
	line	839
	colm	104
	synt	any
	field	usl_precedence
	line	839
	colm	99
	synt	any
	invoke	1
	line	839
	colm	87
	synt	any
	cat
	line	839
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	841
	colm	1
	synt	any
	pfail
	end
proc UseListNode_dump_tree
	local	0,001000,self
	local	1,000000,nodes_created_file
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,18,165,163,154,137,164,171,160,145,137,154,151,163,164,040,040,040,075,040
	con	3,010000,16,165,163,154,137,144,145,156,137,163,145,161,040,040,040,075,040
	con	4,010000,22,165,163,154,137,160,162,145,166,151,157,165,163,137,154,151,163,164,040,040,040,075,040
	con	5,010000,19,165,163,154,137,160,162,145,143,145,144,145,156,143,145,040,040,040,075,040
	declend
	line	842
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	844
	colm	6
	synt	any
	field	__m
	line	844
	colm	10
	synt	any
	field	Node
	line	844
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	844
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	845
	colm	6
	synt	any
	field	__m
	line	845
	colm	10
	synt	any
	field	ConsNode
	line	845
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	845
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	846
	colm	43
	synt	any
	field	signature
	line	846
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	847
	colm	42
	synt	any
	field	sig_done
	line	847
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	848
	colm	47
	synt	any
	field	usl_type_list
	line	848
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	849
	colm	45
	synt	any
	field	usl_den_seq
	line	849
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	mark	L8
	var	2
	var	0
	str	4
	pnull
	var	0
	line	850
	colm	51
	synt	any
	field	usl_previous_list
	line	850
	colm	15
	synt	any
	invoke	3
	unmark
lab L8
	var	2
	var	0
	str	5
	pnull
	var	0
	line	851
	colm	48
	synt	any
	field	usl_precedence
	line	851
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	853
	colm	1
	synt	any
	pfail
	end
proc UseListNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	854
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	855
	colm	5
	synt	any
	field	usl_type_list
	var	1
	line	855
	colm	32
	synt	any
	invoke	0
	line	855
	colm	20
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	856
	colm	5
	synt	any
	field	usl_previous_list
	var	1
	line	856
	colm	36
	synt	any
	invoke	0
	line	856
	colm	24
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	857
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	858
	colm	1
	synt	any
	pfail
	end
proc UseListNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,usl_type_list
	local	3,001000,usl_den_seq
	local	4,001000,usl_previous_list
	local	5,001000,usl_precedence
	local	6,001000,kind
	local	7,001000,vlineno
	local	8,001000,pre_num
	local	9,001000,post_num
	local	10,001000,unique_id
	local	11,001000,cn_hd_field
	local	12,001000,cn_tl_field
	local	13,000020,self
	local	14,000020,clone
	local	15,000000,UseListNode__oprec
	local	16,000000,UseListNodeinitialize
	local	17,000000,Node__oprec
	local	18,000000,Nodeinitialize
	local	19,000000,ConsNode__oprec
	local	20,000000,ConsNodeinitialize
	local	21,000000,UseListNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	15
	line	8
	colm	6
	synt	any
	null
	unmark
	var	16
	line	8
	colm	52
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	17
	line	9
	colm	6
	synt	any
	null
	unmark
	var	18
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	15
	line	10
	colm	21
	synt	any
	field	Node
	var	17
	line	10
	colm	27
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	19
	line	11
	colm	6
	synt	any
	null
	unmark
	var	20
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	15
	line	12
	colm	21
	synt	any
	field	ConsNode
	var	19
	line	12
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	13
	var	21
	line	14
	colm	30
	synt	any
	keywd	null
	var	15
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	line	14
	colm	29
	synt	any
	invoke	15
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	13
	line	15
	colm	7
	synt	any
	field	__s
	var	13
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	13
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	13
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	13
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc UseListNodeinitialize
	local	0,000000,UseListNode__oprec
	local	1,000000,UseListNode__methods
	local	2,000000,UseListNode_dump
	local	3,000000,UseListNode_dump_tree
	local	4,000000,UseListNode_initially
	local	5,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
	line	21
	colm	53
	synt	any
	invoke	4
	line	21
	colm	30
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	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
	filen	stree/ststructs_cls.tmp.icn
	line	859
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	861
	colm	6
	synt	any
	field	__m
	line	861
	colm	10
	synt	any
	field	Node
	line	861
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	861
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	862
	colm	6
	synt	any
	field	__m
	line	862
	colm	10
	synt	any
	field	ConsNode
	line	862
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	862
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	863
	colm	63
	synt	any
	plus
	line	863
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	863
	colm	99
	synt	any
	field	signature
	line	863
	colm	94
	synt	any
	invoke	1
	line	863
	colm	82
	synt	any
	cat
	line	863
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	864
	colm	62
	synt	any
	plus
	line	864
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	864
	colm	98
	synt	any
	field	sig_done
	line	864
	colm	93
	synt	any
	invoke	1
	line	864
	colm	81
	synt	any
	cat
	line	864
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	865
	colm	65
	synt	any
	plus
	line	865
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	865
	colm	101
	synt	any
	field	ap_operator
	line	865
	colm	96
	synt	any
	invoke	1
	line	865
	colm	84
	synt	any
	cat
	line	865
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	866
	colm	61
	synt	any
	plus
	line	866
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	866
	colm	97
	synt	any
	field	ap_args
	line	866
	colm	92
	synt	any
	invoke	1
	line	866
	colm	80
	synt	any
	cat
	line	866
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	867
	colm	66
	synt	any
	plus
	line	867
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	867
	colm	102
	synt	any
	field	ap_void_decl
	line	867
	colm	97
	synt	any
	invoke	1
	line	867
	colm	85
	synt	any
	cat
	line	867
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	869
	colm	1
	synt	any
	pfail
	end
proc ApplicationNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,16,141,160,137,157,160,145,162,141,164,157,162,040,040,040,075,040
	con	3,010000,12,141,160,137,141,162,147,163,040,040,040,075,040
	con	4,010000,17,141,160,137,166,157,151,144,137,144,145,143,154,040,040,040,075,040
	declend
	line	870
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	872
	colm	6
	synt	any
	field	__m
	line	872
	colm	10
	synt	any
	field	Node
	line	872
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	872
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	873
	colm	6
	synt	any
	field	__m
	line	873
	colm	10
	synt	any
	field	ConsNode
	line	873
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	873
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	874
	colm	43
	synt	any
	field	signature
	line	874
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	875
	colm	42
	synt	any
	field	sig_done
	line	875
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	876
	colm	45
	synt	any
	field	ap_operator
	line	876
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	877
	colm	41
	synt	any
	field	ap_args
	line	877
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	var	2
	var	0
	str	4
	pnull
	var	0
	line	878
	colm	46
	synt	any
	field	ap_void_decl
	line	878
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	880
	colm	1
	synt	any
	pfail
	end
proc ApplicationNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	881
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	882
	colm	5
	synt	any
	field	ap_args
	var	1
	line	882
	colm	26
	synt	any
	invoke	0
	line	882
	colm	14
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	883
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	884
	colm	1
	synt	any
	pfail
	end
proc ApplicationNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,ap_operator
	local	3,001000,ap_args
	local	4,001000,ap_void_decl
	local	5,001000,kind
	local	6,001000,vlineno
	local	7,001000,pre_num
	local	8,001000,post_num
	local	9,001000,unique_id
	local	10,001000,cn_hd_field
	local	11,001000,cn_tl_field
	local	12,000020,self
	local	13,000020,clone
	local	14,000000,ApplicationNode__oprec
	local	15,000000,ApplicationNodeinitialize
	local	16,000000,Node__oprec
	local	17,000000,Nodeinitialize
	local	18,000000,ConsNode__oprec
	local	19,000000,ConsNodeinitialize
	local	20,000000,ApplicationNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	8
	colm	6
	synt	any
	null
	unmark
	var	15
	line	8
	colm	60
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	9
	colm	6
	synt	any
	null
	unmark
	var	17
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	14
	line	10
	colm	25
	synt	any
	field	Node
	var	16
	line	10
	colm	31
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	18
	line	11
	colm	6
	synt	any
	null
	unmark
	var	19
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	14
	line	12
	colm	25
	synt	any
	field	ConsNode
	var	18
	line	12
	colm	35
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	12
	var	20
	line	14
	colm	34
	synt	any
	keywd	null
	var	14
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	line	14
	colm	33
	synt	any
	invoke	14
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	12
	line	15
	colm	7
	synt	any
	field	__s
	var	12
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	12
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	12
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	12
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc ApplicationNodeinitialize
	local	0,000000,ApplicationNode__oprec
	local	1,000000,ApplicationNode__methods
	local	2,000000,ApplicationNode_dump
	local	3,000000,ApplicationNode_dump_tree
	local	4,000000,ApplicationNode_initially
	local	5,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
	line	21
	colm	61
	synt	any
	invoke	4
	line	21
	colm	34
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	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
	filen	stree/ststructs_cls.tmp.icn
	line	885
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	887
	colm	6
	synt	any
	field	__m
	line	887
	colm	10
	synt	any
	field	Node
	line	887
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	887
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	888
	colm	6
	synt	any
	field	__m
	line	888
	colm	10
	synt	any
	field	ConsNode
	line	888
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	888
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	889
	colm	63
	synt	any
	plus
	line	889
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	889
	colm	99
	synt	any
	field	signature
	line	889
	colm	94
	synt	any
	invoke	1
	line	889
	colm	82
	synt	any
	cat
	line	889
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	890
	colm	62
	synt	any
	plus
	line	890
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	890
	colm	98
	synt	any
	field	sig_done
	line	890
	colm	93
	synt	any
	invoke	1
	line	890
	colm	81
	synt	any
	cat
	line	890
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	891
	colm	66
	synt	any
	plus
	line	891
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	891
	colm	102
	synt	any
	field	enum_id_list
	line	891
	colm	97
	synt	any
	invoke	1
	line	891
	colm	85
	synt	any
	cat
	line	891
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	893
	colm	1
	synt	any
	pfail
	end
proc EnumerationNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,17,145,156,165,155,137,151,144,137,154,151,163,164,040,040,040,075,040
	declend
	line	894
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	896
	colm	6
	synt	any
	field	__m
	line	896
	colm	10
	synt	any
	field	Node
	line	896
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	896
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	897
	colm	6
	synt	any
	field	__m
	line	897
	colm	10
	synt	any
	field	ConsNode
	line	897
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	897
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	898
	colm	43
	synt	any
	field	signature
	line	898
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	899
	colm	42
	synt	any
	field	sig_done
	line	899
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	var	2
	var	0
	str	2
	pnull
	var	0
	line	900
	colm	46
	synt	any
	field	enum_id_list
	line	900
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	902
	colm	1
	synt	any
	pfail
	end
proc EnumerationNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	903
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	904
	colm	5
	synt	any
	field	enum_id_list
	var	1
	line	904
	colm	31
	synt	any
	invoke	0
	line	904
	colm	19
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	905
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	906
	colm	1
	synt	any
	pfail
	end
proc EnumerationNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,enum_id_list
	local	3,001000,kind
	local	4,001000,vlineno
	local	5,001000,pre_num
	local	6,001000,post_num
	local	7,001000,unique_id
	local	8,001000,cn_hd_field
	local	9,001000,cn_tl_field
	local	10,000020,self
	local	11,000020,clone
	local	12,000000,EnumerationNode__oprec
	local	13,000000,EnumerationNodeinitialize
	local	14,000000,Node__oprec
	local	15,000000,Nodeinitialize
	local	16,000000,ConsNode__oprec
	local	17,000000,ConsNodeinitialize
	local	18,000000,EnumerationNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	12
	line	8
	colm	6
	synt	any
	null
	unmark
	var	13
	line	8
	colm	60
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	9
	colm	6
	synt	any
	null
	unmark
	var	15
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	12
	line	10
	colm	25
	synt	any
	field	Node
	var	14
	line	10
	colm	31
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	11
	colm	6
	synt	any
	null
	unmark
	var	17
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	12
	line	12
	colm	25
	synt	any
	field	ConsNode
	var	16
	line	12
	colm	35
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	10
	var	18
	line	14
	colm	34
	synt	any
	keywd	null
	var	12
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	line	14
	colm	33
	synt	any
	invoke	12
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	10
	line	15
	colm	7
	synt	any
	field	__s
	var	10
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	10
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	10
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	10
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc EnumerationNodeinitialize
	local	0,000000,EnumerationNode__oprec
	local	1,000000,EnumerationNode__methods
	local	2,000000,EnumerationNode_dump
	local	3,000000,EnumerationNode_dump_tree
	local	4,000000,EnumerationNode_initially
	local	5,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
	line	21
	colm	61
	synt	any
	invoke	4
	line	21
	colm	34
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	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
	filen	stree/ststructs_cls.tmp.icn
	line	907
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	909
	colm	6
	synt	any
	field	__m
	line	909
	colm	10
	synt	any
	field	Node
	line	909
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	909
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	910
	colm	6
	synt	any
	field	__m
	line	910
	colm	10
	synt	any
	field	ConsNode
	line	910
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	910
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	911
	colm	63
	synt	any
	plus
	line	911
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	911
	colm	99
	synt	any
	field	signature
	line	911
	colm	94
	synt	any
	invoke	1
	line	911
	colm	82
	synt	any
	cat
	line	911
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	912
	colm	62
	synt	any
	plus
	line	912
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	912
	colm	98
	synt	any
	field	sig_done
	line	912
	colm	93
	synt	any
	invoke	1
	line	912
	colm	81
	synt	any
	cat
	line	912
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	913
	colm	68
	synt	any
	plus
	line	913
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	913
	colm	104
	synt	any
	field	ext_denotation
	line	913
	colm	99
	synt	any
	invoke	1
	line	913
	colm	87
	synt	any
	cat
	line	913
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	914
	colm	62
	synt	any
	plus
	line	914
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	914
	colm	98
	synt	any
	field	In_index
	line	914
	colm	93
	synt	any
	invoke	1
	line	914
	colm	81
	synt	any
	cat
	line	914
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	915
	colm	63
	synt	any
	plus
	line	915
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	915
	colm	99
	synt	any
	field	Out_index
	line	915
	colm	94
	synt	any
	invoke	1
	line	915
	colm	82
	synt	any
	cat
	line	915
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	917
	colm	1
	synt	any
	pfail
	end
proc ExtensionNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,19,145,170,164,137,144,145,156,157,164,141,164,151,157,156,040,040,040,075,040
	con	3,010000,13,111,156,137,151,156,144,145,170,040,040,040,075,040
	con	4,010000,14,117,165,164,137,151,156,144,145,170,040,040,040,075,040
	declend
	line	918
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	920
	colm	6
	synt	any
	field	__m
	line	920
	colm	10
	synt	any
	field	Node
	line	920
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	920
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	921
	colm	6
	synt	any
	field	__m
	line	921
	colm	10
	synt	any
	field	ConsNode
	line	921
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	921
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	922
	colm	43
	synt	any
	field	signature
	line	922
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	923
	colm	42
	synt	any
	field	sig_done
	line	923
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	924
	colm	48
	synt	any
	field	ext_denotation
	line	924
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	925
	colm	42
	synt	any
	field	In_index
	line	925
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	var	2
	var	0
	str	4
	pnull
	var	0
	line	926
	colm	43
	synt	any
	field	Out_index
	line	926
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	928
	colm	1
	synt	any
	pfail
	end
proc ExtensionNode
	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,ExtensionNode__oprec
	local	7,000000,ExtensionNodeinitialize
	local	8,000000,Node__oprec
	local	9,000000,Nodeinitialize
	local	10,000000,ConsNode__oprec
	local	11,000000,ConsNodeinitialize
	local	12,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	6
	line	8
	colm	6
	synt	any
	null
	unmark
	var	7
	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	8
	line	9
	colm	6
	synt	any
	null
	unmark
	var	9
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	6
	line	10
	colm	23
	synt	any
	field	Node
	var	8
	line	10
	colm	29
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	10
	line	11
	colm	6
	synt	any
	null
	unmark
	var	11
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	6
	line	12
	colm	23
	synt	any
	field	ConsNode
	var	10
	line	12
	colm	33
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	4
	var	12
	line	14
	colm	32
	synt	any
	keywd	null
	var	6
	line	14
	colm	31
	synt	any
	invoke	2
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	4
	line	15
	colm	7
	synt	any
	field	__s
	var	4
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	4
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	4
	var	0
	var	1
	var	2
	var	3
	line	16
	colm	21
	synt	any
	invoke	5
	line	16
	colm	46
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	48
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	4
	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_dump
	local	3,000000,ExtensionNode_dump_tree
	local	4,000000,Node_initially
	local	5,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
	line	21
	colm	57
	synt	any
	invoke	4
	line	21
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	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
	filen	stree/ststructs_cls.tmp.icn
	line	931
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	933
	colm	6
	synt	any
	field	__m
	line	933
	colm	10
	synt	any
	field	Node
	line	933
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	933
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	934
	colm	6
	synt	any
	field	__m
	line	934
	colm	10
	synt	any
	field	ConsNode
	line	934
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	934
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	935
	colm	63
	synt	any
	plus
	line	935
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	935
	colm	99
	synt	any
	field	signature
	line	935
	colm	94
	synt	any
	invoke	1
	line	935
	colm	82
	synt	any
	cat
	line	935
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	936
	colm	62
	synt	any
	plus
	line	936
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	936
	colm	98
	synt	any
	field	sig_done
	line	936
	colm	93
	synt	any
	invoke	1
	line	936
	colm	81
	synt	any
	cat
	line	936
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	937
	colm	72
	synt	any
	plus
	line	937
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	937
	colm	108
	synt	any
	field	prod_local_type_id
	line	937
	colm	103
	synt	any
	invoke	1
	line	937
	colm	91
	synt	any
	cat
	line	937
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	938
	colm	69
	synt	any
	plus
	line	938
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	938
	colm	105
	synt	any
	field	prod_components
	line	938
	colm	100
	synt	any
	invoke	1
	line	938
	colm	88
	synt	any
	cat
	line	938
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	939
	colm	78
	synt	any
	plus
	line	939
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	939
	colm	114
	synt	any
	field	prod_previous_definition
	line	939
	colm	109
	synt	any
	invoke	1
	line	939
	colm	97
	synt	any
	cat
	line	939
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	941
	colm	1
	synt	any
	pfail
	end
proc ProductNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,23,160,162,157,144,137,154,157,143,141,154,137,164,171,160,145,137,151,144,040,040,040,075,040
	con	3,010000,20,160,162,157,144,137,143,157,155,160,157,156,145,156,164,163,040,040,040,075,040
	con	4,010000,29,160,162,157,144,137,160,162,145,166,151,157,165,163,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	declend
	line	942
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	944
	colm	6
	synt	any
	field	__m
	line	944
	colm	10
	synt	any
	field	Node
	line	944
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	944
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	945
	colm	6
	synt	any
	field	__m
	line	945
	colm	10
	synt	any
	field	ConsNode
	line	945
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	945
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	946
	colm	43
	synt	any
	field	signature
	line	946
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	947
	colm	42
	synt	any
	field	sig_done
	line	947
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	948
	colm	52
	synt	any
	field	prod_local_type_id
	line	948
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	949
	colm	49
	synt	any
	field	prod_components
	line	949
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	var	2
	var	0
	str	4
	pnull
	var	0
	line	950
	colm	58
	synt	any
	field	prod_previous_definition
	line	950
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	952
	colm	1
	synt	any
	pfail
	end
proc ProductNode
	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,ProductNode__oprec
	local	7,000000,ProductNodeinitialize
	local	8,000000,Node__oprec
	local	9,000000,Nodeinitialize
	local	10,000000,ConsNode__oprec
	local	11,000000,ConsNodeinitialize
	local	12,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	6
	line	8
	colm	6
	synt	any
	null
	unmark
	var	7
	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	8
	line	9
	colm	6
	synt	any
	null
	unmark
	var	9
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	6
	line	10
	colm	21
	synt	any
	field	Node
	var	8
	line	10
	colm	27
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	10
	line	11
	colm	6
	synt	any
	null
	unmark
	var	11
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	6
	line	12
	colm	21
	synt	any
	field	ConsNode
	var	10
	line	12
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	4
	var	12
	line	14
	colm	30
	synt	any
	keywd	null
	var	6
	line	14
	colm	29
	synt	any
	invoke	2
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	4
	line	15
	colm	7
	synt	any
	field	__s
	var	4
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	4
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	4
	var	0
	var	1
	var	2
	var	3
	line	16
	colm	21
	synt	any
	invoke	5
	line	16
	colm	46
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	48
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	4
	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_dump
	local	3,000000,ProductNode_dump_tree
	local	4,000000,Node_initially
	local	5,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
	line	21
	colm	53
	synt	any
	invoke	4
	line	21
	colm	30
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	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
	filen	stree/ststructs_cls.tmp.icn
	line	955
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	957
	colm	6
	synt	any
	field	__m
	line	957
	colm	10
	synt	any
	field	Node
	line	957
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	957
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	958
	colm	6
	synt	any
	field	__m
	line	958
	colm	10
	synt	any
	field	ConsNode
	line	958
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	958
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	959
	colm	63
	synt	any
	plus
	line	959
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	959
	colm	99
	synt	any
	field	signature
	line	959
	colm	94
	synt	any
	invoke	1
	line	959
	colm	82
	synt	any
	cat
	line	959
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	960
	colm	62
	synt	any
	plus
	line	960
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	960
	colm	98
	synt	any
	field	sig_done
	line	960
	colm	93
	synt	any
	invoke	1
	line	960
	colm	81
	synt	any
	cat
	line	960
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	961
	colm	72
	synt	any
	plus
	line	961
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	961
	colm	108
	synt	any
	field	rec_component_list
	line	961
	colm	103
	synt	any
	invoke	1
	line	961
	colm	91
	synt	any
	cat
	line	961
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	962
	colm	77
	synt	any
	plus
	line	962
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	962
	colm	113
	synt	any
	field	rec_previous_definition
	line	962
	colm	108
	synt	any
	invoke	1
	line	962
	colm	96
	synt	any
	cat
	line	962
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	964
	colm	1
	synt	any
	pfail
	end
proc RecordConstructionNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,23,162,145,143,137,143,157,155,160,157,156,145,156,164,137,154,151,163,164,040,040,040,075,040
	con	3,010000,28,162,145,143,137,160,162,145,166,151,157,165,163,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	declend
	line	965
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	967
	colm	6
	synt	any
	field	__m
	line	967
	colm	10
	synt	any
	field	Node
	line	967
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	967
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	968
	colm	6
	synt	any
	field	__m
	line	968
	colm	10
	synt	any
	field	ConsNode
	line	968
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	968
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	969
	colm	43
	synt	any
	field	signature
	line	969
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	970
	colm	42
	synt	any
	field	sig_done
	line	970
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	971
	colm	52
	synt	any
	field	rec_component_list
	line	971
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	var	2
	var	0
	str	3
	pnull
	var	0
	line	972
	colm	57
	synt	any
	field	rec_previous_definition
	line	972
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	974
	colm	1
	synt	any
	pfail
	end
proc RecordConstructionNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	975
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	976
	colm	5
	synt	any
	field	rec_component_list
	var	1
	line	976
	colm	37
	synt	any
	invoke	0
	line	976
	colm	25
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	977
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	978
	colm	1
	synt	any
	pfail
	end
proc RecordConstructionNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,rec_component_list
	local	3,001000,rec_previous_definition
	local	4,001000,kind
	local	5,001000,vlineno
	local	6,001000,pre_num
	local	7,001000,post_num
	local	8,001000,unique_id
	local	9,001000,cn_hd_field
	local	10,001000,cn_tl_field
	local	11,000020,self
	local	12,000020,clone
	local	13,000000,RecordConstructionNode__oprec
	local	14,000000,RecordConstructionNodeinitialize
	local	15,000000,Node__oprec
	local	16,000000,Nodeinitialize
	local	17,000000,ConsNode__oprec
	local	18,000000,ConsNodeinitialize
	local	19,000000,RecordConstructionNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	13
	line	8
	colm	6
	synt	any
	null
	unmark
	var	14
	line	8
	colm	74
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	15
	line	9
	colm	6
	synt	any
	null
	unmark
	var	16
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	13
	line	10
	colm	32
	synt	any
	field	Node
	var	15
	line	10
	colm	38
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	17
	line	11
	colm	6
	synt	any
	null
	unmark
	var	18
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	13
	line	12
	colm	32
	synt	any
	field	ConsNode
	var	17
	line	12
	colm	42
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	11
	var	19
	line	14
	colm	41
	synt	any
	keywd	null
	var	13
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	line	14
	colm	40
	synt	any
	invoke	13
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	11
	line	15
	colm	7
	synt	any
	field	__s
	var	11
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	11
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	11
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	11
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc RecordConstructionNodeinitialize
	local	0,000000,RecordConstructionNode__oprec
	local	1,000000,RecordConstructionNode__methods
	local	2,000000,RecordConstructionNode_dump
	local	3,000000,RecordConstructionNode_dump_tree
	local	4,000000,RecordConstructionNode_initially
	local	5,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
	line	21
	colm	75
	synt	any
	invoke	4
	line	21
	colm	41
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	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
	filen	stree/ststructs_cls.tmp.icn
	line	979
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	981
	colm	6
	synt	any
	field	__m
	line	981
	colm	10
	synt	any
	field	Node
	line	981
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	981
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	982
	colm	6
	synt	any
	field	__m
	line	982
	colm	10
	synt	any
	field	ConsNode
	line	982
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	982
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	983
	colm	63
	synt	any
	plus
	line	983
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	983
	colm	99
	synt	any
	field	signature
	line	983
	colm	94
	synt	any
	invoke	1
	line	983
	colm	82
	synt	any
	cat
	line	983
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	984
	colm	62
	synt	any
	plus
	line	984
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	984
	colm	98
	synt	any
	field	sig_done
	line	984
	colm	93
	synt	any
	invoke	1
	line	984
	colm	81
	synt	any
	cat
	line	984
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	985
	colm	72
	synt	any
	plus
	line	985
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	985
	colm	108
	synt	any
	field	prod_local_type_id
	line	985
	colm	103
	synt	any
	invoke	1
	line	985
	colm	91
	synt	any
	cat
	line	985
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	986
	colm	69
	synt	any
	plus
	line	986
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	986
	colm	105
	synt	any
	field	prod_components
	line	986
	colm	100
	synt	any
	invoke	1
	line	986
	colm	88
	synt	any
	cat
	line	986
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	987
	colm	78
	synt	any
	plus
	line	987
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	987
	colm	114
	synt	any
	field	prod_previous_definition
	line	987
	colm	109
	synt	any
	invoke	1
	line	987
	colm	97
	synt	any
	cat
	line	987
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	989
	colm	1
	synt	any
	pfail
	end
proc UnionConstructionNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,23,160,162,157,144,137,154,157,143,141,154,137,164,171,160,145,137,151,144,040,040,040,075,040
	con	3,010000,20,160,162,157,144,137,143,157,155,160,157,156,145,156,164,163,040,040,040,075,040
	con	4,010000,29,160,162,157,144,137,160,162,145,166,151,157,165,163,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	declend
	line	990
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	992
	colm	6
	synt	any
	field	__m
	line	992
	colm	10
	synt	any
	field	Node
	line	992
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	992
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	993
	colm	6
	synt	any
	field	__m
	line	993
	colm	10
	synt	any
	field	ConsNode
	line	993
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	993
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	994
	colm	43
	synt	any
	field	signature
	line	994
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	995
	colm	42
	synt	any
	field	sig_done
	line	995
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	996
	colm	52
	synt	any
	field	prod_local_type_id
	line	996
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	997
	colm	49
	synt	any
	field	prod_components
	line	997
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	var	2
	var	0
	str	4
	pnull
	var	0
	line	998
	colm	58
	synt	any
	field	prod_previous_definition
	line	998
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1000
	colm	1
	synt	any
	pfail
	end
proc UnionConstructionNode
	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,UnionConstructionNode__oprec
	local	7,000000,UnionConstructionNodeinitialize
	local	8,000000,Node__oprec
	local	9,000000,Nodeinitialize
	local	10,000000,ConsNode__oprec
	local	11,000000,ConsNodeinitialize
	local	12,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	6
	line	8
	colm	6
	synt	any
	null
	unmark
	var	7
	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	8
	line	9
	colm	6
	synt	any
	null
	unmark
	var	9
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	6
	line	10
	colm	31
	synt	any
	field	Node
	var	8
	line	10
	colm	37
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	10
	line	11
	colm	6
	synt	any
	null
	unmark
	var	11
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	6
	line	12
	colm	31
	synt	any
	field	ConsNode
	var	10
	line	12
	colm	41
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	4
	var	12
	line	14
	colm	40
	synt	any
	keywd	null
	var	6
	line	14
	colm	39
	synt	any
	invoke	2
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	4
	line	15
	colm	7
	synt	any
	field	__s
	var	4
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	4
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	4
	var	0
	var	1
	var	2
	var	3
	line	16
	colm	21
	synt	any
	invoke	5
	line	16
	colm	46
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	48
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	4
	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_dump
	local	3,000000,UnionConstructionNode_dump_tree
	local	4,000000,Node_initially
	local	5,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
	line	21
	colm	73
	synt	any
	invoke	4
	line	21
	colm	40
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	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
	filen	stree/ststructs_cls.tmp.icn
	line	1003
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1006
	colm	6
	synt	any
	field	__m
	line	1006
	colm	10
	synt	any
	field	Node
	line	1006
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1006
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1007
	colm	6
	synt	any
	field	__m
	line	1007
	colm	10
	synt	any
	field	ConsNode
	line	1007
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1007
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1008
	colm	70
	synt	any
	plus
	line	1008
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1008
	colm	106
	synt	any
	field	wl_local_type_id
	line	1008
	colm	101
	synt	any
	invoke	1
	line	1008
	colm	89
	synt	any
	cat
	line	1008
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1009
	colm	71
	synt	any
	plus
	line	1009
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1009
	colm	107
	synt	any
	field	wl_component_list
	line	1009
	colm	102
	synt	any
	invoke	1
	line	1009
	colm	90
	synt	any
	cat
	line	1009
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1010
	colm	76
	synt	any
	plus
	line	1010
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1010
	colm	112
	synt	any
	field	wl_previous_definition
	line	1010
	colm	107
	synt	any
	invoke	1
	line	1010
	colm	95
	synt	any
	cat
	line	1010
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1012
	colm	1
	synt	any
	pfail
	end
proc WithListNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,21,167,154,137,154,157,143,141,154,137,164,171,160,145,137,151,144,040,040,040,075,040
	con	1,010000,22,167,154,137,143,157,155,160,157,156,145,156,164,137,154,151,163,164,040,040,040,075,040
	con	2,010000,27,167,154,137,160,162,145,166,151,157,165,163,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	declend
	line	1013
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1016
	colm	6
	synt	any
	field	__m
	line	1016
	colm	10
	synt	any
	field	Node
	line	1016
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1016
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1017
	colm	6
	synt	any
	field	__m
	line	1017
	colm	10
	synt	any
	field	ConsNode
	line	1017
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1017
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1018
	colm	50
	synt	any
	field	wl_local_type_id
	line	1018
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1019
	colm	51
	synt	any
	field	wl_component_list
	line	1019
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1020
	colm	56
	synt	any
	field	wl_previous_definition
	line	1020
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1022
	colm	1
	synt	any
	pfail
	end
proc WithListNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	1023
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	1024
	colm	5
	synt	any
	field	wl_component_list
	var	1
	line	1024
	colm	36
	synt	any
	invoke	0
	line	1024
	colm	24
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	1025
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	1026
	colm	1
	synt	any
	pfail
	end
proc WithListNode
	local	0,001000,wl_local_type_id
	local	1,001000,wl_component_list
	local	2,001000,wl_previous_definition
	local	3,001000,kind
	local	4,001000,vlineno
	local	5,001000,pre_num
	local	6,001000,post_num
	local	7,001000,unique_id
	local	8,001000,cn_hd_field
	local	9,001000,cn_tl_field
	local	10,000020,self
	local	11,000020,clone
	local	12,000000,WithListNode__oprec
	local	13,000000,WithListNodeinitialize
	local	14,000000,Node__oprec
	local	15,000000,Nodeinitialize
	local	16,000000,ConsNode__oprec
	local	17,000000,ConsNodeinitialize
	local	18,000000,WithListNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	12
	line	8
	colm	6
	synt	any
	null
	unmark
	var	13
	line	8
	colm	54
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	9
	colm	6
	synt	any
	null
	unmark
	var	15
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	12
	line	10
	colm	22
	synt	any
	field	Node
	var	14
	line	10
	colm	28
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	11
	colm	6
	synt	any
	null
	unmark
	var	17
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	12
	line	12
	colm	22
	synt	any
	field	ConsNode
	var	16
	line	12
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	10
	var	18
	line	14
	colm	31
	synt	any
	keywd	null
	var	12
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	line	14
	colm	30
	synt	any
	invoke	12
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	10
	line	15
	colm	7
	synt	any
	field	__s
	var	10
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	10
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	10
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	10
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc WithListNodeinitialize
	local	0,000000,WithListNode__oprec
	local	1,000000,WithListNode__methods
	local	2,000000,WithListNode_dump
	local	3,000000,WithListNode_dump_tree
	local	4,000000,WithListNode_initially
	local	5,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
	line	21
	colm	55
	synt	any
	invoke	4
	line	21
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	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
	filen	stree/ststructs_cls.tmp.icn
	line	1027
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1029
	colm	6
	synt	any
	field	__m
	line	1029
	colm	10
	synt	any
	field	Node
	line	1029
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1029
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1030
	colm	6
	synt	any
	field	__m
	line	1030
	colm	10
	synt	any
	field	ConsNode
	line	1030
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1030
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1031
	colm	63
	synt	any
	plus
	line	1031
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1031
	colm	99
	synt	any
	field	signature
	line	1031
	colm	94
	synt	any
	invoke	1
	line	1031
	colm	82
	synt	any
	cat
	line	1031
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1032
	colm	62
	synt	any
	plus
	line	1032
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1032
	colm	98
	synt	any
	field	sig_done
	line	1032
	colm	93
	synt	any
	invoke	1
	line	1032
	colm	81
	synt	any
	cat
	line	1032
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1033
	colm	66
	synt	any
	plus
	line	1033
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1033
	colm	102
	synt	any
	field	displacement
	line	1033
	colm	97
	synt	any
	invoke	1
	line	1033
	colm	85
	synt	any
	cat
	line	1033
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	1034
	colm	59
	synt	any
	plus
	line	1034
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1034
	colm	95
	synt	any
	field	level
	line	1034
	colm	90
	synt	any
	invoke	1
	line	1034
	colm	78
	synt	any
	cat
	line	1034
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	1035
	colm	64
	synt	any
	plus
	line	1035
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1035
	colm	100
	synt	any
	field	mp_primary
	line	1035
	colm	95
	synt	any
	invoke	1
	line	1035
	colm	83
	synt	any
	cat
	line	1035
	colm	18
	synt	any
	invoke	2
	unmark
lab L8
	mark	L9
	var	2
	var	1
	pnull
	var	3
	str	6
	pnull
	int	1
	var	4
	line	1036
	colm	70
	synt	any
	plus
	line	1036
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1036
	colm	106
	synt	any
	field	mp_type_modifier
	line	1036
	colm	101
	synt	any
	invoke	1
	line	1036
	colm	89
	synt	any
	cat
	line	1036
	colm	18
	synt	any
	invoke	2
	unmark
lab L9
	mark	L10
	var	2
	var	1
	pnull
	var	3
	str	7
	pnull
	int	1
	var	4
	line	1037
	colm	65
	synt	any
	plus
	line	1037
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1037
	colm	101
	synt	any
	field	mp_delete_v
	line	1037
	colm	96
	synt	any
	invoke	1
	line	1037
	colm	84
	synt	any
	cat
	line	1037
	colm	18
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	var	2
	var	1
	pnull
	var	3
	str	8
	pnull
	int	1
	var	4
	line	1038
	colm	68
	synt	any
	plus
	line	1038
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1038
	colm	104
	synt	any
	field	mp_orig_length
	line	1038
	colm	99
	synt	any
	invoke	1
	line	1038
	colm	87
	synt	any
	cat
	line	1038
	colm	18
	synt	any
	invoke	2
	unmark
lab L11
	mark	L12
	var	2
	var	1
	pnull
	var	3
	str	9
	pnull
	int	1
	var	4
	line	1039
	colm	63
	synt	any
	plus
	line	1039
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1039
	colm	99
	synt	any
	field	mp_needed
	line	1039
	colm	94
	synt	any
	invoke	1
	line	1039
	colm	82
	synt	any
	cat
	line	1039
	colm	18
	synt	any
	invoke	2
	unmark
lab L12
	var	2
	var	1
	pnull
	var	3
	str	10
	pnull
	int	1
	var	4
	line	1040
	colm	69
	synt	any
	plus
	line	1040
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1040
	colm	105
	synt	any
	field	mp_no_surr_loop
	line	1040
	colm	100
	synt	any
	invoke	1
	line	1040
	colm	88
	synt	any
	cat
	line	1040
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1042
	colm	1
	synt	any
	pfail
	end
proc ModPrimaryNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,17,144,151,163,160,154,141,143,145,155,145,156,164,040,040,040,075,040
	con	3,010000,10,154,145,166,145,154,040,040,040,075,040
	con	4,010000,15,155,160,137,160,162,151,155,141,162,171,040,040,040,075,040
	con	5,010000,21,155,160,137,164,171,160,145,137,155,157,144,151,146,151,145,162,040,040,040,075,040
	con	6,010000,16,155,160,137,144,145,154,145,164,145,137,166,040,040,040,075,040
	con	7,010000,19,155,160,137,157,162,151,147,137,154,145,156,147,164,150,040,040,040,075,040
	con	8,010000,14,155,160,137,156,145,145,144,145,144,040,040,040,075,040
	con	9,010000,20,155,160,137,156,157,137,163,165,162,162,137,154,157,157,160,040,040,040,075,040
	declend
	line	1043
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1045
	colm	6
	synt	any
	field	__m
	line	1045
	colm	10
	synt	any
	field	Node
	line	1045
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1045
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1046
	colm	6
	synt	any
	field	__m
	line	1046
	colm	10
	synt	any
	field	ConsNode
	line	1046
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1046
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1047
	colm	43
	synt	any
	field	signature
	line	1047
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1048
	colm	42
	synt	any
	field	sig_done
	line	1048
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1049
	colm	46
	synt	any
	field	displacement
	line	1049
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	1050
	colm	39
	synt	any
	field	level
	line	1050
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	mark	L8
	var	2
	var	0
	str	4
	pnull
	var	0
	line	1051
	colm	44
	synt	any
	field	mp_primary
	line	1051
	colm	15
	synt	any
	invoke	3
	unmark
lab L8
	mark	L9
	var	2
	var	0
	str	5
	pnull
	var	0
	line	1052
	colm	50
	synt	any
	field	mp_type_modifier
	line	1052
	colm	15
	synt	any
	invoke	3
	unmark
lab L9
	mark	L10
	var	2
	var	0
	str	6
	pnull
	var	0
	line	1053
	colm	45
	synt	any
	field	mp_delete_v
	line	1053
	colm	15
	synt	any
	invoke	3
	unmark
lab L10
	mark	L11
	var	2
	var	0
	str	7
	pnull
	var	0
	line	1054
	colm	48
	synt	any
	field	mp_orig_length
	line	1054
	colm	15
	synt	any
	invoke	3
	unmark
lab L11
	mark	L12
	var	2
	var	0
	str	8
	pnull
	var	0
	line	1055
	colm	43
	synt	any
	field	mp_needed
	line	1055
	colm	15
	synt	any
	invoke	3
	unmark
lab L12
	var	2
	var	0
	str	9
	pnull
	var	0
	line	1056
	colm	49
	synt	any
	field	mp_no_surr_loop
	line	1056
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1058
	colm	1
	synt	any
	pfail
	end
proc ModPrimaryNode
	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,ModPrimaryNode__oprec
	local	7,000000,ModPrimaryNodeinitialize
	local	8,000000,Node__oprec
	local	9,000000,Nodeinitialize
	local	10,000000,ConsNode__oprec
	local	11,000000,ConsNodeinitialize
	local	12,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	6
	line	8
	colm	6
	synt	any
	null
	unmark
	var	7
	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	8
	line	9
	colm	6
	synt	any
	null
	unmark
	var	9
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	6
	line	10
	colm	24
	synt	any
	field	Node
	var	8
	line	10
	colm	30
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	10
	line	11
	colm	6
	synt	any
	null
	unmark
	var	11
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	6
	line	12
	colm	24
	synt	any
	field	ConsNode
	var	10
	line	12
	colm	34
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	4
	var	12
	line	14
	colm	33
	synt	any
	keywd	null
	var	6
	line	14
	colm	32
	synt	any
	invoke	2
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	4
	line	15
	colm	7
	synt	any
	field	__s
	var	4
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	4
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	4
	var	0
	var	1
	var	2
	var	3
	line	16
	colm	21
	synt	any
	invoke	5
	line	16
	colm	46
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	48
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	4
	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_dump
	local	3,000000,ModPrimaryNode_dump_tree
	local	4,000000,Node_initially
	local	5,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
	line	21
	colm	59
	synt	any
	invoke	4
	line	21
	colm	33
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	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
	filen	stree/ststructs_cls.tmp.icn
	line	1061
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1063
	colm	6
	synt	any
	field	__m
	line	1063
	colm	10
	synt	any
	field	Node
	line	1063
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1063
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1064
	colm	6
	synt	any
	field	__m
	line	1064
	colm	10
	synt	any
	field	ConsNode
	line	1064
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1064
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1065
	colm	70
	synt	any
	plus
	line	1065
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1065
	colm	106
	synt	any
	field	el_local_type_id
	line	1065
	colm	101
	synt	any
	invoke	1
	line	1065
	colm	89
	synt	any
	cat
	line	1065
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1066
	colm	76
	synt	any
	plus
	line	1066
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1066
	colm	112
	synt	any
	field	el_export_element_list
	line	1066
	colm	107
	synt	any
	invoke	1
	line	1066
	colm	95
	synt	any
	cat
	line	1066
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1067
	colm	76
	synt	any
	plus
	line	1067
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1067
	colm	112
	synt	any
	field	el_previous_definition
	line	1067
	colm	107
	synt	any
	invoke	1
	line	1067
	colm	95
	synt	any
	cat
	line	1067
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1069
	colm	1
	synt	any
	pfail
	end
proc ExportListNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,21,145,154,137,154,157,143,141,154,137,164,171,160,145,137,151,144,040,040,040,075,040
	con	1,010000,27,145,154,137,145,170,160,157,162,164,137,145,154,145,155,145,156,164,137,154,151,163,164,040,040,040,075,040
	con	2,010000,27,145,154,137,160,162,145,166,151,157,165,163,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	declend
	line	1070
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1072
	colm	6
	synt	any
	field	__m
	line	1072
	colm	10
	synt	any
	field	Node
	line	1072
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1072
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1073
	colm	6
	synt	any
	field	__m
	line	1073
	colm	10
	synt	any
	field	ConsNode
	line	1073
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1073
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1074
	colm	50
	synt	any
	field	el_local_type_id
	line	1074
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1075
	colm	56
	synt	any
	field	el_export_element_list
	line	1075
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1076
	colm	56
	synt	any
	field	el_previous_definition
	line	1076
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1078
	colm	1
	synt	any
	pfail
	end
proc ExportListNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	1079
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	1080
	colm	5
	synt	any
	field	el_export_element_list
	var	1
	line	1080
	colm	41
	synt	any
	invoke	0
	line	1080
	colm	29
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	1081
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	1082
	colm	1
	synt	any
	pfail
	end
proc ExportListNode
	local	0,001000,el_local_type_id
	local	1,001000,el_export_element_list
	local	2,001000,el_previous_definition
	local	3,001000,kind
	local	4,001000,vlineno
	local	5,001000,pre_num
	local	6,001000,post_num
	local	7,001000,unique_id
	local	8,001000,cn_hd_field
	local	9,001000,cn_tl_field
	local	10,000020,self
	local	11,000020,clone
	local	12,000000,ExportListNode__oprec
	local	13,000000,ExportListNodeinitialize
	local	14,000000,Node__oprec
	local	15,000000,Nodeinitialize
	local	16,000000,ConsNode__oprec
	local	17,000000,ConsNodeinitialize
	local	18,000000,ExportListNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	12
	line	8
	colm	6
	synt	any
	null
	unmark
	var	13
	line	8
	colm	58
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	9
	colm	6
	synt	any
	null
	unmark
	var	15
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	12
	line	10
	colm	24
	synt	any
	field	Node
	var	14
	line	10
	colm	30
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	11
	colm	6
	synt	any
	null
	unmark
	var	17
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	12
	line	12
	colm	24
	synt	any
	field	ConsNode
	var	16
	line	12
	colm	34
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	10
	var	18
	line	14
	colm	33
	synt	any
	keywd	null
	var	12
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	line	14
	colm	32
	synt	any
	invoke	12
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	10
	line	15
	colm	7
	synt	any
	field	__s
	var	10
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	10
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	10
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	10
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc ExportListNodeinitialize
	local	0,000000,ExportListNode__oprec
	local	1,000000,ExportListNode__methods
	local	2,000000,ExportListNode_dump
	local	3,000000,ExportListNode_dump_tree
	local	4,000000,ExportListNode_initially
	local	5,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
	line	21
	colm	59
	synt	any
	invoke	4
	line	21
	colm	33
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	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
	filen	stree/ststructs_cls.tmp.icn
	line	1083
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1085
	colm	6
	synt	any
	field	__m
	line	1085
	colm	10
	synt	any
	field	Node
	line	1085
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1085
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1086
	colm	6
	synt	any
	field	__m
	line	1086
	colm	10
	synt	any
	field	ConsNode
	line	1086
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1086
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1087
	colm	70
	synt	any
	plus
	line	1087
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1087
	colm	106
	synt	any
	field	el_local_type_id
	line	1087
	colm	101
	synt	any
	invoke	1
	line	1087
	colm	89
	synt	any
	cat
	line	1087
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1088
	colm	76
	synt	any
	plus
	line	1088
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1088
	colm	112
	synt	any
	field	el_export_element_list
	line	1088
	colm	107
	synt	any
	invoke	1
	line	1088
	colm	95
	synt	any
	cat
	line	1088
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1089
	colm	76
	synt	any
	plus
	line	1089
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1089
	colm	112
	synt	any
	field	el_previous_definition
	line	1089
	colm	107
	synt	any
	invoke	1
	line	1089
	colm	95
	synt	any
	cat
	line	1089
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1091
	colm	1
	synt	any
	pfail
	end
proc HideListNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,21,145,154,137,154,157,143,141,154,137,164,171,160,145,137,151,144,040,040,040,075,040
	con	1,010000,27,145,154,137,145,170,160,157,162,164,137,145,154,145,155,145,156,164,137,154,151,163,164,040,040,040,075,040
	con	2,010000,27,145,154,137,160,162,145,166,151,157,165,163,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	declend
	line	1092
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1094
	colm	6
	synt	any
	field	__m
	line	1094
	colm	10
	synt	any
	field	Node
	line	1094
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1094
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1095
	colm	6
	synt	any
	field	__m
	line	1095
	colm	10
	synt	any
	field	ConsNode
	line	1095
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1095
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1096
	colm	50
	synt	any
	field	el_local_type_id
	line	1096
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1097
	colm	56
	synt	any
	field	el_export_element_list
	line	1097
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1098
	colm	56
	synt	any
	field	el_previous_definition
	line	1098
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1100
	colm	1
	synt	any
	pfail
	end
proc HideListNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	1101
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	1102
	colm	5
	synt	any
	field	el_export_element_list
	var	1
	line	1102
	colm	41
	synt	any
	invoke	0
	line	1102
	colm	29
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	1103
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	1104
	colm	1
	synt	any
	pfail
	end
proc HideListNode
	local	0,001000,el_local_type_id
	local	1,001000,el_export_element_list
	local	2,001000,el_previous_definition
	local	3,001000,kind
	local	4,001000,vlineno
	local	5,001000,pre_num
	local	6,001000,post_num
	local	7,001000,unique_id
	local	8,001000,cn_hd_field
	local	9,001000,cn_tl_field
	local	10,000020,self
	local	11,000020,clone
	local	12,000000,HideListNode__oprec
	local	13,000000,HideListNodeinitialize
	local	14,000000,Node__oprec
	local	15,000000,Nodeinitialize
	local	16,000000,ConsNode__oprec
	local	17,000000,ConsNodeinitialize
	local	18,000000,HideListNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	12
	line	8
	colm	6
	synt	any
	null
	unmark
	var	13
	line	8
	colm	54
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	9
	colm	6
	synt	any
	null
	unmark
	var	15
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	12
	line	10
	colm	22
	synt	any
	field	Node
	var	14
	line	10
	colm	28
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	11
	colm	6
	synt	any
	null
	unmark
	var	17
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	12
	line	12
	colm	22
	synt	any
	field	ConsNode
	var	16
	line	12
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	10
	var	18
	line	14
	colm	31
	synt	any
	keywd	null
	var	12
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	line	14
	colm	30
	synt	any
	invoke	12
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	10
	line	15
	colm	7
	synt	any
	field	__s
	var	10
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	10
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	10
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	10
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc HideListNodeinitialize
	local	0,000000,HideListNode__oprec
	local	1,000000,HideListNode__methods
	local	2,000000,HideListNode_dump
	local	3,000000,HideListNode_dump_tree
	local	4,000000,HideListNode_initially
	local	5,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
	line	21
	colm	55
	synt	any
	invoke	4
	line	21
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	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
	filen	stree/ststructs_cls.tmp.icn
	line	1105
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1107
	colm	6
	synt	any
	field	__m
	line	1107
	colm	10
	synt	any
	field	Node
	line	1107
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1107
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1108
	colm	6
	synt	any
	field	__m
	line	1108
	colm	10
	synt	any
	field	ConsNode
	line	1108
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1108
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1109
	colm	59
	synt	any
	plus
	line	1109
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1109
	colm	95
	synt	any
	field	ee_id
	line	1109
	colm	90
	synt	any
	invoke	1
	line	1109
	colm	78
	synt	any
	cat
	line	1109
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1110
	colm	66
	synt	any
	plus
	line	1110
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1110
	colm	102
	synt	any
	field	ee_signature
	line	1110
	colm	97
	synt	any
	invoke	1
	line	1110
	colm	85
	synt	any
	cat
	line	1110
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1111
	colm	68
	synt	any
	plus
	line	1111
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1111
	colm	104
	synt	any
	field	ee_export_list
	line	1111
	colm	99
	synt	any
	invoke	1
	line	1111
	colm	87
	synt	any
	cat
	line	1111
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1113
	colm	1
	synt	any
	pfail
	end
proc ExportElementNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,10,145,145,137,151,144,040,040,040,075,040
	con	1,010000,17,145,145,137,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	2,010000,19,145,145,137,145,170,160,157,162,164,137,154,151,163,164,040,040,040,075,040
	declend
	line	1115
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1117
	colm	6
	synt	any
	field	__m
	line	1117
	colm	10
	synt	any
	field	Node
	line	1117
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1117
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1118
	colm	6
	synt	any
	field	__m
	line	1118
	colm	10
	synt	any
	field	ConsNode
	line	1118
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1118
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1119
	colm	39
	synt	any
	field	ee_id
	line	1119
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1120
	colm	46
	synt	any
	field	ee_signature
	line	1120
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1121
	colm	48
	synt	any
	field	ee_export_list
	line	1121
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1123
	colm	1
	synt	any
	pfail
	end
proc ExportElementNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	1125
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	1126
	colm	5
	synt	any
	field	ee_export_list
	var	1
	line	1126
	colm	33
	synt	any
	invoke	0
	line	1126
	colm	21
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	1127
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	1128
	colm	1
	synt	any
	pfail
	end
proc ExportElementNode
	local	0,001000,ee_id
	local	1,001000,ee_signature
	local	2,001000,ee_export_list
	local	3,001000,kind
	local	4,001000,vlineno
	local	5,001000,pre_num
	local	6,001000,post_num
	local	7,001000,unique_id
	local	8,001000,cn_hd_field
	local	9,001000,cn_tl_field
	local	10,000020,self
	local	11,000020,clone
	local	12,000000,ExportElementNode__oprec
	local	13,000000,ExportElementNodeinitialize
	local	14,000000,Node__oprec
	local	15,000000,Nodeinitialize
	local	16,000000,ConsNode__oprec
	local	17,000000,ConsNodeinitialize
	local	18,000000,ExportElementNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	12
	line	8
	colm	6
	synt	any
	null
	unmark
	var	13
	line	8
	colm	64
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	9
	colm	6
	synt	any
	null
	unmark
	var	15
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	12
	line	10
	colm	27
	synt	any
	field	Node
	var	14
	line	10
	colm	33
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	11
	colm	6
	synt	any
	null
	unmark
	var	17
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	12
	line	12
	colm	27
	synt	any
	field	ConsNode
	var	16
	line	12
	colm	37
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	10
	var	18
	line	14
	colm	36
	synt	any
	keywd	null
	var	12
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	line	14
	colm	35
	synt	any
	invoke	12
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	10
	line	15
	colm	7
	synt	any
	field	__s
	var	10
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	10
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	10
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	10
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc ExportElementNodeinitialize
	local	0,000000,ExportElementNode__oprec
	local	1,000000,ExportElementNode__methods
	local	2,000000,ExportElementNode_dump
	local	3,000000,ExportElementNode_dump_tree
	local	4,000000,ExportElementNode_initially
	local	5,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
	line	21
	colm	65
	synt	any
	invoke	4
	line	21
	colm	36
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc AllConstantsNode_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	1129
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1131
	colm	6
	synt	any
	field	__m
	line	1131
	colm	10
	synt	any
	field	Node
	line	1131
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1131
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	pnull
	pnull
	pnull
	var	0
	line	1132
	colm	6
	synt	any
	field	__m
	line	1132
	colm	10
	synt	any
	field	ConsNode
	line	1132
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1132
	colm	24
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1134
	colm	1
	synt	any
	pfail
	end
proc AllConstantsNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	declend
	line	1135
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1137
	colm	6
	synt	any
	field	__m
	line	1137
	colm	10
	synt	any
	field	Node
	line	1137
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1137
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	pnull
	pnull
	pnull
	var	0
	line	1138
	colm	6
	synt	any
	field	__m
	line	1138
	colm	10
	synt	any
	field	ConsNode
	line	1138
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1138
	colm	29
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1140
	colm	1
	synt	any
	pfail
	end
proc AllConstantsNode
	local	0,000020,self
	local	1,000020,clone
	local	2,000000,AllConstantsNode__oprec
	local	3,000000,AllConstantsNodeinitialize
	local	4,000000,AllConstantsNode__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	2
	line	8
	colm	6
	synt	any
	null
	unmark
	var	3
	line	8
	colm	62
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	pnull
	var	0
	var	4
	line	10
	colm	35
	synt	any
	keywd	null
	var	2
	line	10
	colm	34
	synt	any
	invoke	2
	line	10
	colm	8
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	0
	line	11
	colm	7
	synt	any
	field	__s
	var	0
	line	11
	colm	12
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	mark	L7
	var	0
	line	12
	colm	3
	synt	any
	pret
lab L7
	synt	any
	pfail
	unmark
lab L6
	pnull
	line	13
	colm	1
	synt	any
	pfail
	end
proc AllConstantsNodeinitialize
	local	0,000000,AllConstantsNode__oprec
	local	1,000000,AllConstantsNode__methods
	local	2,000000,AllConstantsNode_dump
	local	3,000000,AllConstantsNode_dump_tree
	declend
	line	15
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	line	16
	colm	63
	synt	any
	invoke	2
	line	16
	colm	35
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	17
	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
	filen	stree/ststructs_cls.tmp.icn
	line	1143
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1145
	colm	6
	synt	any
	field	__m
	line	1145
	colm	10
	synt	any
	field	Node
	line	1145
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1145
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1146
	colm	6
	synt	any
	field	__m
	line	1146
	colm	10
	synt	any
	field	ConsNode
	line	1146
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1146
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1147
	colm	63
	synt	any
	plus
	line	1147
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1147
	colm	99
	synt	any
	field	signature
	line	1147
	colm	94
	synt	any
	invoke	1
	line	1147
	colm	82
	synt	any
	cat
	line	1147
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1148
	colm	62
	synt	any
	plus
	line	1148
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1148
	colm	98
	synt	any
	field	sig_done
	line	1148
	colm	93
	synt	any
	invoke	1
	line	1148
	colm	81
	synt	any
	cat
	line	1148
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1150
	colm	1
	synt	any
	pfail
	end
proc WordElseNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	declend
	line	1151
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1153
	colm	6
	synt	any
	field	__m
	line	1153
	colm	10
	synt	any
	field	Node
	line	1153
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1153
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1154
	colm	6
	synt	any
	field	__m
	line	1154
	colm	10
	synt	any
	field	ConsNode
	line	1154
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1154
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1155
	colm	43
	synt	any
	field	signature
	line	1155
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1156
	colm	42
	synt	any
	field	sig_done
	line	1156
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1158
	colm	1
	synt	any
	pfail
	end
proc WordElseNode
	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,WordElseNode__oprec
	local	7,000000,WordElseNodeinitialize
	local	8,000000,Node__oprec
	local	9,000000,Nodeinitialize
	local	10,000000,ConsNode__oprec
	local	11,000000,ConsNodeinitialize
	local	12,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	6
	line	8
	colm	6
	synt	any
	null
	unmark
	var	7
	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	8
	line	9
	colm	6
	synt	any
	null
	unmark
	var	9
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	6
	line	10
	colm	22
	synt	any
	field	Node
	var	8
	line	10
	colm	28
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	10
	line	11
	colm	6
	synt	any
	null
	unmark
	var	11
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	6
	line	12
	colm	22
	synt	any
	field	ConsNode
	var	10
	line	12
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	4
	var	12
	line	14
	colm	31
	synt	any
	keywd	null
	var	6
	line	14
	colm	30
	synt	any
	invoke	2
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	4
	line	15
	colm	7
	synt	any
	field	__s
	var	4
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	4
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	4
	var	0
	var	1
	var	2
	var	3
	line	16
	colm	21
	synt	any
	invoke	5
	line	16
	colm	46
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	48
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	4
	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_dump
	local	3,000000,WordElseNode_dump_tree
	local	4,000000,Node_initially
	local	5,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
	line	21
	colm	55
	synt	any
	invoke	4
	line	21
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc WordCandNode_dump
	local	0,001000,self
	local	1,000000,nodes_created_file
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	1161
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1163
	colm	6
	synt	any
	field	__m
	line	1163
	colm	10
	synt	any
	field	Node
	line	1163
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1163
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	pnull
	pnull
	pnull
	var	0
	line	1164
	colm	6
	synt	any
	field	__m
	line	1164
	colm	10
	synt	any
	field	ConsNode
	line	1164
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1164
	colm	24
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1166
	colm	1
	synt	any
	pfail
	end
proc WordCandNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	declend
	line	1167
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1169
	colm	6
	synt	any
	field	__m
	line	1169
	colm	10
	synt	any
	field	Node
	line	1169
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1169
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	pnull
	pnull
	pnull
	var	0
	line	1170
	colm	6
	synt	any
	field	__m
	line	1170
	colm	10
	synt	any
	field	ConsNode
	line	1170
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1170
	colm	29
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1172
	colm	1
	synt	any
	pfail
	end
proc WordCandNode
	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,WordCandNode__oprec
	local	7,000000,WordCandNodeinitialize
	local	8,000000,Node__oprec
	local	9,000000,Nodeinitialize
	local	10,000000,ConsNode__oprec
	local	11,000000,ConsNodeinitialize
	local	12,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	6
	line	8
	colm	6
	synt	any
	null
	unmark
	var	7
	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	8
	line	9
	colm	6
	synt	any
	null
	unmark
	var	9
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	6
	line	10
	colm	22
	synt	any
	field	Node
	var	8
	line	10
	colm	28
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	10
	line	11
	colm	6
	synt	any
	null
	unmark
	var	11
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	6
	line	12
	colm	22
	synt	any
	field	ConsNode
	var	10
	line	12
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	4
	var	12
	line	14
	colm	31
	synt	any
	keywd	null
	var	6
	line	14
	colm	30
	synt	any
	invoke	2
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	4
	line	15
	colm	7
	synt	any
	field	__s
	var	4
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	4
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	4
	var	0
	var	1
	var	2
	var	3
	line	16
	colm	21
	synt	any
	invoke	5
	line	16
	colm	46
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	48
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	4
	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_dump
	local	3,000000,WordCandNode_dump_tree
	local	4,000000,Node_initially
	local	5,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
	line	21
	colm	55
	synt	any
	invoke	4
	line	21
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc WordCorNode_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	1175
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1177
	colm	6
	synt	any
	field	__m
	line	1177
	colm	10
	synt	any
	field	Node
	line	1177
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1177
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	pnull
	pnull
	pnull
	var	0
	line	1178
	colm	6
	synt	any
	field	__m
	line	1178
	colm	10
	synt	any
	field	ConsNode
	line	1178
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1178
	colm	24
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1180
	colm	1
	synt	any
	pfail
	end
proc WordCorNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	declend
	line	1181
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1183
	colm	6
	synt	any
	field	__m
	line	1183
	colm	10
	synt	any
	field	Node
	line	1183
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1183
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	pnull
	pnull
	pnull
	var	0
	line	1184
	colm	6
	synt	any
	field	__m
	line	1184
	colm	10
	synt	any
	field	ConsNode
	line	1184
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1184
	colm	29
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1186
	colm	1
	synt	any
	pfail
	end
proc WordCorNode
	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,WordCorNode__oprec
	local	7,000000,WordCorNodeinitialize
	local	8,000000,Node__oprec
	local	9,000000,Nodeinitialize
	local	10,000000,ConsNode__oprec
	local	11,000000,ConsNodeinitialize
	local	12,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	6
	line	8
	colm	6
	synt	any
	null
	unmark
	var	7
	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	8
	line	9
	colm	6
	synt	any
	null
	unmark
	var	9
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	6
	line	10
	colm	21
	synt	any
	field	Node
	var	8
	line	10
	colm	27
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	10
	line	11
	colm	6
	synt	any
	null
	unmark
	var	11
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	6
	line	12
	colm	21
	synt	any
	field	ConsNode
	var	10
	line	12
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	4
	var	12
	line	14
	colm	30
	synt	any
	keywd	null
	var	6
	line	14
	colm	29
	synt	any
	invoke	2
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	4
	line	15
	colm	7
	synt	any
	field	__s
	var	4
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	4
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	4
	var	0
	var	1
	var	2
	var	3
	line	16
	colm	21
	synt	any
	invoke	5
	line	16
	colm	46
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	48
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	4
	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_dump
	local	3,000000,WordCorNode_dump_tree
	local	4,000000,Node_initially
	local	5,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
	line	21
	colm	53
	synt	any
	invoke	4
	line	21
	colm	30
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	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
	filen	stree/ststructs_cls.tmp.icn
	line	1189
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1191
	colm	6
	synt	any
	field	__m
	line	1191
	colm	10
	synt	any
	field	Node
	line	1191
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1191
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1192
	colm	6
	synt	any
	field	__m
	line	1192
	colm	10
	synt	any
	field	ConsNode
	line	1192
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1192
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1193
	colm	63
	synt	any
	plus
	line	1193
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1193
	colm	99
	synt	any
	field	signature
	line	1193
	colm	94
	synt	any
	invoke	1
	line	1193
	colm	82
	synt	any
	cat
	line	1193
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1194
	colm	62
	synt	any
	plus
	line	1194
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1194
	colm	98
	synt	any
	field	sig_done
	line	1194
	colm	93
	synt	any
	invoke	1
	line	1194
	colm	81
	synt	any
	cat
	line	1194
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1195
	colm	61
	synt	any
	plus
	line	1195
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1195
	colm	97
	synt	any
	field	gl_list
	line	1195
	colm	92
	synt	any
	invoke	1
	line	1195
	colm	80
	synt	any
	cat
	line	1195
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1197
	colm	1
	synt	any
	pfail
	end
proc GuardedListNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,12,147,154,137,154,151,163,164,040,040,040,075,040
	declend
	line	1198
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1200
	colm	6
	synt	any
	field	__m
	line	1200
	colm	10
	synt	any
	field	Node
	line	1200
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1200
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1201
	colm	6
	synt	any
	field	__m
	line	1201
	colm	10
	synt	any
	field	ConsNode
	line	1201
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1201
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1202
	colm	43
	synt	any
	field	signature
	line	1202
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1203
	colm	42
	synt	any
	field	sig_done
	line	1203
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1204
	colm	41
	synt	any
	field	gl_list
	line	1204
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1206
	colm	1
	synt	any
	pfail
	end
proc GuardedListNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	1207
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	1208
	colm	5
	synt	any
	field	gl_list
	var	1
	line	1208
	colm	26
	synt	any
	invoke	0
	line	1208
	colm	14
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	1209
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	1210
	colm	1
	synt	any
	pfail
	end
proc GuardedListNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,gl_list
	local	3,001000,kind
	local	4,001000,vlineno
	local	5,001000,pre_num
	local	6,001000,post_num
	local	7,001000,unique_id
	local	8,001000,cn_hd_field
	local	9,001000,cn_tl_field
	local	10,000020,self
	local	11,000020,clone
	local	12,000000,GuardedListNode__oprec
	local	13,000000,GuardedListNodeinitialize
	local	14,000000,Node__oprec
	local	15,000000,Nodeinitialize
	local	16,000000,ConsNode__oprec
	local	17,000000,ConsNodeinitialize
	local	18,000000,GuardedListNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	12
	line	8
	colm	6
	synt	any
	null
	unmark
	var	13
	line	8
	colm	60
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	9
	colm	6
	synt	any
	null
	unmark
	var	15
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	12
	line	10
	colm	25
	synt	any
	field	Node
	var	14
	line	10
	colm	31
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	11
	colm	6
	synt	any
	null
	unmark
	var	17
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	12
	line	12
	colm	25
	synt	any
	field	ConsNode
	var	16
	line	12
	colm	35
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	10
	var	18
	line	14
	colm	34
	synt	any
	keywd	null
	var	12
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	line	14
	colm	33
	synt	any
	invoke	12
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	10
	line	15
	colm	7
	synt	any
	field	__s
	var	10
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	10
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	10
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	10
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc GuardedListNodeinitialize
	local	0,000000,GuardedListNode__oprec
	local	1,000000,GuardedListNode__methods
	local	2,000000,GuardedListNode_dump
	local	3,000000,GuardedListNode_dump_tree
	local	4,000000,GuardedListNode_initially
	local	5,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
	line	21
	colm	61
	synt	any
	invoke	4
	line	21
	colm	34
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	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
	filen	stree/ststructs_cls.tmp.icn
	line	1211
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1213
	colm	6
	synt	any
	field	__m
	line	1213
	colm	10
	synt	any
	field	Node
	line	1213
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1213
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1214
	colm	6
	synt	any
	field	__m
	line	1214
	colm	10
	synt	any
	field	ConsNode
	line	1214
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1214
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1215
	colm	63
	synt	any
	plus
	line	1215
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1215
	colm	99
	synt	any
	field	signature
	line	1215
	colm	94
	synt	any
	invoke	1
	line	1215
	colm	82
	synt	any
	cat
	line	1215
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1216
	colm	62
	synt	any
	plus
	line	1216
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1216
	colm	98
	synt	any
	field	sig_done
	line	1216
	colm	93
	synt	any
	invoke	1
	line	1216
	colm	81
	synt	any
	cat
	line	1216
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1217
	colm	61
	synt	any
	plus
	line	1217
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1217
	colm	97
	synt	any
	field	gl_list
	line	1217
	colm	92
	synt	any
	invoke	1
	line	1217
	colm	80
	synt	any
	cat
	line	1217
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1219
	colm	1
	synt	any
	pfail
	end
proc LoopDenotationNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,12,147,154,137,154,151,163,164,040,040,040,075,040
	declend
	line	1220
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1222
	colm	6
	synt	any
	field	__m
	line	1222
	colm	10
	synt	any
	field	Node
	line	1222
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1222
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1223
	colm	6
	synt	any
	field	__m
	line	1223
	colm	10
	synt	any
	field	ConsNode
	line	1223
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1223
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1224
	colm	43
	synt	any
	field	signature
	line	1224
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1225
	colm	42
	synt	any
	field	sig_done
	line	1225
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1226
	colm	41
	synt	any
	field	gl_list
	line	1226
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1228
	colm	1
	synt	any
	pfail
	end
proc LoopDenotationNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	1229
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	1230
	colm	5
	synt	any
	field	gl_list
	var	1
	line	1230
	colm	26
	synt	any
	invoke	0
	line	1230
	colm	14
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	1231
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	1232
	colm	1
	synt	any
	pfail
	end
proc LoopDenotationNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,gl_list
	local	3,001000,kind
	local	4,001000,vlineno
	local	5,001000,pre_num
	local	6,001000,post_num
	local	7,001000,unique_id
	local	8,001000,cn_hd_field
	local	9,001000,cn_tl_field
	local	10,000020,self
	local	11,000020,clone
	local	12,000000,LoopDenotationNode__oprec
	local	13,000000,LoopDenotationNodeinitialize
	local	14,000000,Node__oprec
	local	15,000000,Nodeinitialize
	local	16,000000,ConsNode__oprec
	local	17,000000,ConsNodeinitialize
	local	18,000000,LoopDenotationNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	12
	line	8
	colm	6
	synt	any
	null
	unmark
	var	13
	line	8
	colm	66
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	9
	colm	6
	synt	any
	null
	unmark
	var	15
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	12
	line	10
	colm	28
	synt	any
	field	Node
	var	14
	line	10
	colm	34
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	11
	colm	6
	synt	any
	null
	unmark
	var	17
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	12
	line	12
	colm	28
	synt	any
	field	ConsNode
	var	16
	line	12
	colm	38
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	10
	var	18
	line	14
	colm	37
	synt	any
	keywd	null
	var	12
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	line	14
	colm	36
	synt	any
	invoke	12
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	10
	line	15
	colm	7
	synt	any
	field	__s
	var	10
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	10
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	10
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	10
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc LoopDenotationNodeinitialize
	local	0,000000,LoopDenotationNode__oprec
	local	1,000000,LoopDenotationNode__methods
	local	2,000000,LoopDenotationNode_dump
	local	3,000000,LoopDenotationNode_dump_tree
	local	4,000000,LoopDenotationNode_initially
	local	5,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
	line	21
	colm	67
	synt	any
	invoke	4
	line	21
	colm	37
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	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
	filen	stree/ststructs_cls.tmp.icn
	line	1233
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1235
	colm	6
	synt	any
	field	__m
	line	1235
	colm	10
	synt	any
	field	Node
	line	1235
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1235
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1236
	colm	6
	synt	any
	field	__m
	line	1236
	colm	10
	synt	any
	field	ConsNode
	line	1236
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1236
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1237
	colm	62
	synt	any
	plus
	line	1237
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1237
	colm	98
	synt	any
	field	ge_guard
	line	1237
	colm	93
	synt	any
	invoke	1
	line	1237
	colm	81
	synt	any
	cat
	line	1237
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1238
	colm	64
	synt	any
	plus
	line	1238
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1238
	colm	100
	synt	any
	field	ge_element
	line	1238
	colm	95
	synt	any
	invoke	1
	line	1238
	colm	83
	synt	any
	cat
	line	1238
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1240
	colm	1
	synt	any
	pfail
	end
proc GuardedElementNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,13,147,145,137,147,165,141,162,144,040,040,040,075,040
	con	1,010000,15,147,145,137,145,154,145,155,145,156,164,040,040,040,075,040
	declend
	line	1241
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1243
	colm	6
	synt	any
	field	__m
	line	1243
	colm	10
	synt	any
	field	Node
	line	1243
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1243
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1244
	colm	6
	synt	any
	field	__m
	line	1244
	colm	10
	synt	any
	field	ConsNode
	line	1244
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1244
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1245
	colm	42
	synt	any
	field	ge_guard
	line	1245
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1246
	colm	44
	synt	any
	field	ge_element
	line	1246
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1248
	colm	1
	synt	any
	pfail
	end
proc GuardedElementNode
	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,GuardedElementNode__oprec
	local	7,000000,GuardedElementNodeinitialize
	local	8,000000,Node__oprec
	local	9,000000,Nodeinitialize
	local	10,000000,ConsNode__oprec
	local	11,000000,ConsNodeinitialize
	local	12,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	6
	line	8
	colm	6
	synt	any
	null
	unmark
	var	7
	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	8
	line	9
	colm	6
	synt	any
	null
	unmark
	var	9
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	6
	line	10
	colm	28
	synt	any
	field	Node
	var	8
	line	10
	colm	34
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	10
	line	11
	colm	6
	synt	any
	null
	unmark
	var	11
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	6
	line	12
	colm	28
	synt	any
	field	ConsNode
	var	10
	line	12
	colm	38
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	4
	var	12
	line	14
	colm	37
	synt	any
	keywd	null
	var	6
	line	14
	colm	36
	synt	any
	invoke	2
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	4
	line	15
	colm	7
	synt	any
	field	__s
	var	4
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	4
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	4
	var	0
	var	1
	var	2
	var	3
	line	16
	colm	21
	synt	any
	invoke	5
	line	16
	colm	46
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	48
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	4
	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_dump
	local	3,000000,GuardedElementNode_dump_tree
	local	4,000000,Node_initially
	local	5,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
	line	21
	colm	67
	synt	any
	invoke	4
	line	21
	colm	37
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	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
	filen	stree/ststructs_cls.tmp.icn
	line	1251
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1253
	colm	6
	synt	any
	field	__m
	line	1253
	colm	10
	synt	any
	field	Node
	line	1253
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1253
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1254
	colm	6
	synt	any
	field	__m
	line	1254
	colm	10
	synt	any
	field	ConsNode
	line	1254
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1254
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1255
	colm	63
	synt	any
	plus
	line	1255
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1255
	colm	99
	synt	any
	field	signature
	line	1255
	colm	94
	synt	any
	invoke	1
	line	1255
	colm	82
	synt	any
	cat
	line	1255
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1256
	colm	62
	synt	any
	plus
	line	1256
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1256
	colm	98
	synt	any
	field	sig_done
	line	1256
	colm	93
	synt	any
	invoke	1
	line	1256
	colm	81
	synt	any
	cat
	line	1256
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1257
	colm	62
	synt	any
	plus
	line	1257
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1257
	colm	98
	synt	any
	field	sel_type
	line	1257
	colm	93
	synt	any
	invoke	1
	line	1257
	colm	81
	synt	any
	cat
	line	1257
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	1258
	colm	72
	synt	any
	plus
	line	1258
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1258
	colm	108
	synt	any
	field	id_str_table_index
	line	1258
	colm	103
	synt	any
	invoke	1
	line	1258
	colm	91
	synt	any
	cat
	line	1258
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	1259
	colm	65
	synt	any
	plus
	line	1259
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1259
	colm	101
	synt	any
	field	id_use_list
	line	1259
	colm	96
	synt	any
	invoke	1
	line	1259
	colm	84
	synt	any
	cat
	line	1259
	colm	18
	synt	any
	invoke	2
	unmark
lab L8
	mark	L9
	var	2
	var	1
	pnull
	var	3
	str	6
	pnull
	int	1
	var	4
	line	1260
	colm	72
	synt	any
	plus
	line	1260
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1260
	colm	108
	synt	any
	field	id_last_definition
	line	1260
	colm	103
	synt	any
	invoke	1
	line	1260
	colm	91
	synt	any
	cat
	line	1260
	colm	18
	synt	any
	invoke	2
	unmark
lab L9
	mark	L10
	var	2
	var	1
	pnull
	var	3
	str	7
	pnull
	int	1
	var	4
	line	1261
	colm	66
	synt	any
	plus
	line	1261
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1261
	colm	102
	synt	any
	field	id_def_found
	line	1261
	colm	97
	synt	any
	invoke	1
	line	1261
	colm	85
	synt	any
	cat
	line	1261
	colm	18
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	var	2
	var	1
	pnull
	var	3
	str	8
	pnull
	int	1
	var	4
	line	1262
	colm	63
	synt	any
	plus
	line	1262
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1262
	colm	99
	synt	any
	field	sel_index
	line	1262
	colm	94
	synt	any
	invoke	1
	line	1262
	colm	82
	synt	any
	cat
	line	1262
	colm	18
	synt	any
	invoke	2
	unmark
lab L11
	mark	L12
	var	2
	var	1
	pnull
	var	3
	str	9
	pnull
	int	1
	var	4
	line	1263
	colm	61
	synt	any
	plus
	line	1263
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1263
	colm	97
	synt	any
	field	id_appl
	line	1263
	colm	92
	synt	any
	invoke	1
	line	1263
	colm	80
	synt	any
	cat
	line	1263
	colm	18
	synt	any
	invoke	2
	unmark
lab L12
	var	2
	var	1
	pnull
	var	3
	str	10
	pnull
	int	1
	var	4
	line	1264
	colm	68
	synt	any
	plus
	line	1264
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1264
	colm	104
	synt	any
	field	id_forward_ref
	line	1264
	colm	99
	synt	any
	invoke	1
	line	1264
	colm	87
	synt	any
	cat
	line	1264
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1266
	colm	1
	synt	any
	pfail
	end
proc OpridNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,13,163,145,154,137,164,171,160,145,040,040,040,075,040
	con	3,010000,23,151,144,137,163,164,162,137,164,141,142,154,145,137,151,156,144,145,170,040,040,040,075,040
	con	4,010000,16,151,144,137,165,163,145,137,154,151,163,164,040,040,040,075,040
	con	5,010000,23,151,144,137,154,141,163,164,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	con	6,010000,17,151,144,137,144,145,146,137,146,157,165,156,144,040,040,040,075,040
	con	7,010000,14,163,145,154,137,151,156,144,145,170,040,040,040,075,040
	con	8,010000,12,151,144,137,141,160,160,154,040,040,040,075,040
	con	9,010000,19,151,144,137,146,157,162,167,141,162,144,137,162,145,146,040,040,040,075,040
	declend
	line	1267
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1269
	colm	6
	synt	any
	field	__m
	line	1269
	colm	10
	synt	any
	field	Node
	line	1269
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1269
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1270
	colm	6
	synt	any
	field	__m
	line	1270
	colm	10
	synt	any
	field	ConsNode
	line	1270
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1270
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1271
	colm	43
	synt	any
	field	signature
	line	1271
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1272
	colm	42
	synt	any
	field	sig_done
	line	1272
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1273
	colm	42
	synt	any
	field	sel_type
	line	1273
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	1274
	colm	52
	synt	any
	field	id_str_table_index
	line	1274
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	mark	L8
	var	2
	var	0
	str	4
	pnull
	var	0
	line	1275
	colm	45
	synt	any
	field	id_use_list
	line	1275
	colm	15
	synt	any
	invoke	3
	unmark
lab L8
	mark	L9
	var	2
	var	0
	str	5
	pnull
	var	0
	line	1276
	colm	52
	synt	any
	field	id_last_definition
	line	1276
	colm	15
	synt	any
	invoke	3
	unmark
lab L9
	mark	L10
	var	2
	var	0
	str	6
	pnull
	var	0
	line	1277
	colm	46
	synt	any
	field	id_def_found
	line	1277
	colm	15
	synt	any
	invoke	3
	unmark
lab L10
	mark	L11
	var	2
	var	0
	str	7
	pnull
	var	0
	line	1278
	colm	43
	synt	any
	field	sel_index
	line	1278
	colm	15
	synt	any
	invoke	3
	unmark
lab L11
	mark	L12
	var	2
	var	0
	str	8
	pnull
	var	0
	line	1279
	colm	41
	synt	any
	field	id_appl
	line	1279
	colm	15
	synt	any
	invoke	3
	unmark
lab L12
	var	2
	var	0
	str	9
	pnull
	var	0
	line	1280
	colm	48
	synt	any
	field	id_forward_ref
	line	1280
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1282
	colm	1
	synt	any
	pfail
	end
proc OpridNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	1283
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	1284
	colm	5
	synt	any
	field	id_use_list
	var	1
	line	1284
	colm	30
	synt	any
	invoke	0
	line	1284
	colm	18
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	1285
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	1286
	colm	1
	synt	any
	pfail
	end
proc OpridNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,sel_type
	local	3,001000,id_str_table_index
	local	4,001000,id_use_list
	local	5,001000,id_last_definition
	local	6,001000,id_def_found
	local	7,001000,sel_index
	local	8,001000,id_appl
	local	9,001000,id_forward_ref
	local	10,001000,kind
	local	11,001000,vlineno
	local	12,001000,pre_num
	local	13,001000,post_num
	local	14,001000,unique_id
	local	15,001000,cn_hd_field
	local	16,001000,cn_tl_field
	local	17,000020,self
	local	18,000020,clone
	local	19,000000,OpridNode__oprec
	local	20,000000,OpridNodeinitialize
	local	21,000000,Node__oprec
	local	22,000000,Nodeinitialize
	local	23,000000,ConsNode__oprec
	local	24,000000,ConsNodeinitialize
	local	25,000000,OpridNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	19
	line	8
	colm	6
	synt	any
	null
	unmark
	var	20
	line	8
	colm	48
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	21
	line	9
	colm	6
	synt	any
	null
	unmark
	var	22
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	19
	line	10
	colm	19
	synt	any
	field	Node
	var	21
	line	10
	colm	25
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	23
	line	11
	colm	6
	synt	any
	null
	unmark
	var	24
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	19
	line	12
	colm	19
	synt	any
	field	ConsNode
	var	23
	line	12
	colm	29
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	17
	var	25
	line	14
	colm	28
	synt	any
	keywd	null
	var	19
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	14
	var	15
	var	16
	line	14
	colm	27
	synt	any
	invoke	19
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	17
	line	15
	colm	7
	synt	any
	field	__s
	var	17
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	17
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	17
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	17
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc OpridNodeinitialize
	local	0,000000,OpridNode__oprec
	local	1,000000,OpridNode__methods
	local	2,000000,OpridNode_dump
	local	3,000000,OpridNode_dump_tree
	local	4,000000,OpridNode_initially
	local	5,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
	line	21
	colm	49
	synt	any
	invoke	4
	line	21
	colm	28
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	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
	filen	stree/ststructs_cls.tmp.icn
	line	1287
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1289
	colm	6
	synt	any
	field	__m
	line	1289
	colm	10
	synt	any
	field	Node
	line	1289
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1289
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1290
	colm	6
	synt	any
	field	__m
	line	1290
	colm	10
	synt	any
	field	ConsNode
	line	1290
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1290
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1291
	colm	63
	synt	any
	plus
	line	1291
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1291
	colm	99
	synt	any
	field	signature
	line	1291
	colm	94
	synt	any
	invoke	1
	line	1291
	colm	82
	synt	any
	cat
	line	1291
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1292
	colm	62
	synt	any
	plus
	line	1292
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1292
	colm	98
	synt	any
	field	sig_done
	line	1292
	colm	93
	synt	any
	invoke	1
	line	1292
	colm	81
	synt	any
	cat
	line	1292
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1293
	colm	62
	synt	any
	plus
	line	1293
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1293
	colm	98
	synt	any
	field	sel_type
	line	1293
	colm	93
	synt	any
	invoke	1
	line	1293
	colm	81
	synt	any
	cat
	line	1293
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	1294
	colm	72
	synt	any
	plus
	line	1294
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1294
	colm	108
	synt	any
	field	id_str_table_index
	line	1294
	colm	103
	synt	any
	invoke	1
	line	1294
	colm	91
	synt	any
	cat
	line	1294
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	1295
	colm	65
	synt	any
	plus
	line	1295
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1295
	colm	101
	synt	any
	field	id_use_list
	line	1295
	colm	96
	synt	any
	invoke	1
	line	1295
	colm	84
	synt	any
	cat
	line	1295
	colm	18
	synt	any
	invoke	2
	unmark
lab L8
	mark	L9
	var	2
	var	1
	pnull
	var	3
	str	6
	pnull
	int	1
	var	4
	line	1296
	colm	72
	synt	any
	plus
	line	1296
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1296
	colm	108
	synt	any
	field	id_last_definition
	line	1296
	colm	103
	synt	any
	invoke	1
	line	1296
	colm	91
	synt	any
	cat
	line	1296
	colm	18
	synt	any
	invoke	2
	unmark
lab L9
	mark	L10
	var	2
	var	1
	pnull
	var	3
	str	7
	pnull
	int	1
	var	4
	line	1297
	colm	66
	synt	any
	plus
	line	1297
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1297
	colm	102
	synt	any
	field	id_def_found
	line	1297
	colm	97
	synt	any
	invoke	1
	line	1297
	colm	85
	synt	any
	cat
	line	1297
	colm	18
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	var	2
	var	1
	pnull
	var	3
	str	8
	pnull
	int	1
	var	4
	line	1298
	colm	63
	synt	any
	plus
	line	1298
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1298
	colm	99
	synt	any
	field	sel_index
	line	1298
	colm	94
	synt	any
	invoke	1
	line	1298
	colm	82
	synt	any
	cat
	line	1298
	colm	18
	synt	any
	invoke	2
	unmark
lab L11
	mark	L12
	var	2
	var	1
	pnull
	var	3
	str	9
	pnull
	int	1
	var	4
	line	1299
	colm	61
	synt	any
	plus
	line	1299
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1299
	colm	97
	synt	any
	field	id_appl
	line	1299
	colm	92
	synt	any
	invoke	1
	line	1299
	colm	80
	synt	any
	cat
	line	1299
	colm	18
	synt	any
	invoke	2
	unmark
lab L12
	var	2
	var	1
	pnull
	var	3
	str	10
	pnull
	int	1
	var	4
	line	1300
	colm	68
	synt	any
	plus
	line	1300
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1300
	colm	104
	synt	any
	field	id_forward_ref
	line	1300
	colm	99
	synt	any
	invoke	1
	line	1300
	colm	87
	synt	any
	cat
	line	1300
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1302
	colm	1
	synt	any
	pfail
	end
proc LetterId_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,13,163,145,154,137,164,171,160,145,040,040,040,075,040
	con	3,010000,23,151,144,137,163,164,162,137,164,141,142,154,145,137,151,156,144,145,170,040,040,040,075,040
	con	4,010000,16,151,144,137,165,163,145,137,154,151,163,164,040,040,040,075,040
	con	5,010000,23,151,144,137,154,141,163,164,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	con	6,010000,17,151,144,137,144,145,146,137,146,157,165,156,144,040,040,040,075,040
	con	7,010000,14,163,145,154,137,151,156,144,145,170,040,040,040,075,040
	con	8,010000,12,151,144,137,141,160,160,154,040,040,040,075,040
	con	9,010000,19,151,144,137,146,157,162,167,141,162,144,137,162,145,146,040,040,040,075,040
	declend
	line	1303
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1305
	colm	6
	synt	any
	field	__m
	line	1305
	colm	10
	synt	any
	field	Node
	line	1305
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1305
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1306
	colm	6
	synt	any
	field	__m
	line	1306
	colm	10
	synt	any
	field	ConsNode
	line	1306
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1306
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1307
	colm	43
	synt	any
	field	signature
	line	1307
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1308
	colm	42
	synt	any
	field	sig_done
	line	1308
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1309
	colm	42
	synt	any
	field	sel_type
	line	1309
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	1310
	colm	52
	synt	any
	field	id_str_table_index
	line	1310
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	mark	L8
	var	2
	var	0
	str	4
	pnull
	var	0
	line	1311
	colm	45
	synt	any
	field	id_use_list
	line	1311
	colm	15
	synt	any
	invoke	3
	unmark
lab L8
	mark	L9
	var	2
	var	0
	str	5
	pnull
	var	0
	line	1312
	colm	52
	synt	any
	field	id_last_definition
	line	1312
	colm	15
	synt	any
	invoke	3
	unmark
lab L9
	mark	L10
	var	2
	var	0
	str	6
	pnull
	var	0
	line	1313
	colm	46
	synt	any
	field	id_def_found
	line	1313
	colm	15
	synt	any
	invoke	3
	unmark
lab L10
	mark	L11
	var	2
	var	0
	str	7
	pnull
	var	0
	line	1314
	colm	43
	synt	any
	field	sel_index
	line	1314
	colm	15
	synt	any
	invoke	3
	unmark
lab L11
	mark	L12
	var	2
	var	0
	str	8
	pnull
	var	0
	line	1315
	colm	41
	synt	any
	field	id_appl
	line	1315
	colm	15
	synt	any
	invoke	3
	unmark
lab L12
	var	2
	var	0
	str	9
	pnull
	var	0
	line	1316
	colm	48
	synt	any
	field	id_forward_ref
	line	1316
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1318
	colm	1
	synt	any
	pfail
	end
proc LetterId_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	1319
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	1320
	colm	5
	synt	any
	field	id_use_list
	var	1
	line	1320
	colm	30
	synt	any
	invoke	0
	line	1320
	colm	18
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	1321
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	1322
	colm	1
	synt	any
	pfail
	end
proc LetterId
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,sel_type
	local	3,001000,id_str_table_index
	local	4,001000,id_use_list
	local	5,001000,id_last_definition
	local	6,001000,id_def_found
	local	7,001000,sel_index
	local	8,001000,id_appl
	local	9,001000,id_forward_ref
	local	10,001000,kind
	local	11,001000,vlineno
	local	12,001000,pre_num
	local	13,001000,post_num
	local	14,001000,unique_id
	local	15,001000,cn_hd_field
	local	16,001000,cn_tl_field
	local	17,000020,self
	local	18,000020,clone
	local	19,000000,LetterId__oprec
	local	20,000000,LetterIdinitialize
	local	21,000000,Node__oprec
	local	22,000000,Nodeinitialize
	local	23,000000,ConsNode__oprec
	local	24,000000,ConsNodeinitialize
	local	25,000000,LetterId__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	19
	line	8
	colm	6
	synt	any
	null
	unmark
	var	20
	line	8
	colm	46
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	21
	line	9
	colm	6
	synt	any
	null
	unmark
	var	22
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	19
	line	10
	colm	18
	synt	any
	field	Node
	var	21
	line	10
	colm	24
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	23
	line	11
	colm	6
	synt	any
	null
	unmark
	var	24
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	19
	line	12
	colm	18
	synt	any
	field	ConsNode
	var	23
	line	12
	colm	28
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	17
	var	25
	line	14
	colm	27
	synt	any
	keywd	null
	var	19
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	14
	var	15
	var	16
	line	14
	colm	26
	synt	any
	invoke	19
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	17
	line	15
	colm	7
	synt	any
	field	__s
	var	17
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	17
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	17
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	17
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc LetterIdinitialize
	local	0,000000,LetterId__oprec
	local	1,000000,LetterId__methods
	local	2,000000,LetterId_dump
	local	3,000000,LetterId_dump_tree
	local	4,000000,LetterId_initially
	local	5,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
	line	21
	colm	47
	synt	any
	invoke	4
	line	21
	colm	27
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	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
	filen	stree/ststructs_cls.tmp.icn
	line	1323
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1325
	colm	6
	synt	any
	field	__m
	line	1325
	colm	10
	synt	any
	field	Node
	line	1325
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1325
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1326
	colm	6
	synt	any
	field	__m
	line	1326
	colm	10
	synt	any
	field	ConsNode
	line	1326
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1326
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1327
	colm	63
	synt	any
	plus
	line	1327
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1327
	colm	99
	synt	any
	field	signature
	line	1327
	colm	94
	synt	any
	invoke	1
	line	1327
	colm	82
	synt	any
	cat
	line	1327
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1328
	colm	62
	synt	any
	plus
	line	1328
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1328
	colm	98
	synt	any
	field	sig_done
	line	1328
	colm	93
	synt	any
	invoke	1
	line	1328
	colm	81
	synt	any
	cat
	line	1328
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1329
	colm	62
	synt	any
	plus
	line	1329
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1329
	colm	98
	synt	any
	field	sel_type
	line	1329
	colm	93
	synt	any
	invoke	1
	line	1329
	colm	81
	synt	any
	cat
	line	1329
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	1330
	colm	64
	synt	any
	plus
	line	1330
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1330
	colm	100
	synt	any
	field	str_string
	line	1330
	colm	95
	synt	any
	invoke	1
	line	1330
	colm	83
	synt	any
	cat
	line	1330
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	1331
	colm	66
	synt	any
	plus
	line	1331
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1331
	colm	102
	synt	any
	field	str_use_list
	line	1331
	colm	97
	synt	any
	invoke	1
	line	1331
	colm	85
	synt	any
	cat
	line	1331
	colm	18
	synt	any
	invoke	2
	unmark
lab L8
	var	2
	var	1
	pnull
	var	3
	str	6
	pnull
	int	1
	var	4
	line	1332
	colm	67
	synt	any
	plus
	line	1332
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1332
	colm	103
	synt	any
	field	str_expansion
	line	1332
	colm	98
	synt	any
	invoke	1
	line	1332
	colm	86
	synt	any
	cat
	line	1332
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1334
	colm	1
	synt	any
	pfail
	end
proc QStrNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,13,163,145,154,137,164,171,160,145,040,040,040,075,040
	con	3,010000,15,163,164,162,137,163,164,162,151,156,147,040,040,040,075,040
	con	4,010000,17,163,164,162,137,165,163,145,137,154,151,163,164,040,040,040,075,040
	con	5,010000,18,163,164,162,137,145,170,160,141,156,163,151,157,156,040,040,040,075,040
	declend
	line	1335
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1337
	colm	6
	synt	any
	field	__m
	line	1337
	colm	10
	synt	any
	field	Node
	line	1337
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1337
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1338
	colm	6
	synt	any
	field	__m
	line	1338
	colm	10
	synt	any
	field	ConsNode
	line	1338
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1338
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1339
	colm	43
	synt	any
	field	signature
	line	1339
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1340
	colm	42
	synt	any
	field	sig_done
	line	1340
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1341
	colm	42
	synt	any
	field	sel_type
	line	1341
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	1342
	colm	44
	synt	any
	field	str_string
	line	1342
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	mark	L8
	var	2
	var	0
	str	4
	pnull
	var	0
	line	1343
	colm	46
	synt	any
	field	str_use_list
	line	1343
	colm	15
	synt	any
	invoke	3
	unmark
lab L8
	var	2
	var	0
	str	5
	pnull
	var	0
	line	1344
	colm	47
	synt	any
	field	str_expansion
	line	1344
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1346
	colm	1
	synt	any
	pfail
	end
proc QStrNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	1347
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	1348
	colm	5
	synt	any
	field	str_use_list
	var	1
	line	1348
	colm	31
	synt	any
	invoke	0
	line	1348
	colm	19
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	1349
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	1350
	colm	1
	synt	any
	pfail
	end
proc QStrNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,sel_type
	local	3,001000,str_string
	local	4,001000,str_use_list
	local	5,001000,str_expansion
	local	6,001000,kind
	local	7,001000,vlineno
	local	8,001000,pre_num
	local	9,001000,post_num
	local	10,001000,unique_id
	local	11,001000,cn_hd_field
	local	12,001000,cn_tl_field
	local	13,000020,self
	local	14,000020,clone
	local	15,000000,QStrNode__oprec
	local	16,000000,QStrNodeinitialize
	local	17,000000,Node__oprec
	local	18,000000,Nodeinitialize
	local	19,000000,ConsNode__oprec
	local	20,000000,ConsNodeinitialize
	local	21,000000,QStrNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	15
	line	8
	colm	6
	synt	any
	null
	unmark
	var	16
	line	8
	colm	46
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	17
	line	9
	colm	6
	synt	any
	null
	unmark
	var	18
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	15
	line	10
	colm	18
	synt	any
	field	Node
	var	17
	line	10
	colm	24
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	19
	line	11
	colm	6
	synt	any
	null
	unmark
	var	20
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	15
	line	12
	colm	18
	synt	any
	field	ConsNode
	var	19
	line	12
	colm	28
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	13
	var	21
	line	14
	colm	27
	synt	any
	keywd	null
	var	15
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	line	14
	colm	26
	synt	any
	invoke	15
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	13
	line	15
	colm	7
	synt	any
	field	__s
	var	13
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	13
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	13
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	13
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc QStrNodeinitialize
	local	0,000000,QStrNode__oprec
	local	1,000000,QStrNode__methods
	local	2,000000,QStrNode_dump
	local	3,000000,QStrNode_dump_tree
	local	4,000000,QStrNode_initially
	local	5,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
	line	21
	colm	47
	synt	any
	invoke	4
	line	21
	colm	27
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	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
	filen	stree/ststructs_cls.tmp.icn
	line	1351
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1353
	colm	6
	synt	any
	field	__m
	line	1353
	colm	10
	synt	any
	field	Node
	line	1353
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1353
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1354
	colm	6
	synt	any
	field	__m
	line	1354
	colm	10
	synt	any
	field	ConsNode
	line	1354
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1354
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1355
	colm	63
	synt	any
	plus
	line	1355
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1355
	colm	99
	synt	any
	field	signature
	line	1355
	colm	94
	synt	any
	invoke	1
	line	1355
	colm	82
	synt	any
	cat
	line	1355
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1356
	colm	62
	synt	any
	plus
	line	1356
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1356
	colm	98
	synt	any
	field	sig_done
	line	1356
	colm	93
	synt	any
	invoke	1
	line	1356
	colm	81
	synt	any
	cat
	line	1356
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1357
	colm	62
	synt	any
	plus
	line	1357
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1357
	colm	98
	synt	any
	field	sel_type
	line	1357
	colm	93
	synt	any
	invoke	1
	line	1357
	colm	81
	synt	any
	cat
	line	1357
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	1358
	colm	64
	synt	any
	plus
	line	1358
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1358
	colm	100
	synt	any
	field	str_string
	line	1358
	colm	95
	synt	any
	invoke	1
	line	1358
	colm	83
	synt	any
	cat
	line	1358
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	1359
	colm	66
	synt	any
	plus
	line	1359
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1359
	colm	102
	synt	any
	field	str_use_list
	line	1359
	colm	97
	synt	any
	invoke	1
	line	1359
	colm	85
	synt	any
	cat
	line	1359
	colm	18
	synt	any
	invoke	2
	unmark
lab L8
	var	2
	var	1
	pnull
	var	3
	str	6
	pnull
	int	1
	var	4
	line	1360
	colm	67
	synt	any
	plus
	line	1360
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1360
	colm	103
	synt	any
	field	str_expansion
	line	1360
	colm	98
	synt	any
	invoke	1
	line	1360
	colm	86
	synt	any
	cat
	line	1360
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1362
	colm	1
	synt	any
	pfail
	end
proc UQStrNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,13,163,145,154,137,164,171,160,145,040,040,040,075,040
	con	3,010000,15,163,164,162,137,163,164,162,151,156,147,040,040,040,075,040
	con	4,010000,17,163,164,162,137,165,163,145,137,154,151,163,164,040,040,040,075,040
	con	5,010000,18,163,164,162,137,145,170,160,141,156,163,151,157,156,040,040,040,075,040
	declend
	line	1363
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1365
	colm	6
	synt	any
	field	__m
	line	1365
	colm	10
	synt	any
	field	Node
	line	1365
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1365
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1366
	colm	6
	synt	any
	field	__m
	line	1366
	colm	10
	synt	any
	field	ConsNode
	line	1366
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1366
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1367
	colm	43
	synt	any
	field	signature
	line	1367
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1368
	colm	42
	synt	any
	field	sig_done
	line	1368
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1369
	colm	42
	synt	any
	field	sel_type
	line	1369
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	1370
	colm	44
	synt	any
	field	str_string
	line	1370
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	mark	L8
	var	2
	var	0
	str	4
	pnull
	var	0
	line	1371
	colm	46
	synt	any
	field	str_use_list
	line	1371
	colm	15
	synt	any
	invoke	3
	unmark
lab L8
	var	2
	var	0
	str	5
	pnull
	var	0
	line	1372
	colm	47
	synt	any
	field	str_expansion
	line	1372
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1374
	colm	1
	synt	any
	pfail
	end
proc UQStrNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	1375
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	1376
	colm	5
	synt	any
	field	str_use_list
	var	1
	line	1376
	colm	30
	synt	any
	invoke	0
	line	1376
	colm	18
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	1377
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	1378
	colm	1
	synt	any
	pfail
	end
proc UQStrNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,sel_type
	local	3,001000,str_string
	local	4,001000,str_use_list
	local	5,001000,str_expansion
	local	6,001000,kind
	local	7,001000,vlineno
	local	8,001000,pre_num
	local	9,001000,post_num
	local	10,001000,unique_id
	local	11,001000,cn_hd_field
	local	12,001000,cn_tl_field
	local	13,000020,self
	local	14,000020,clone
	local	15,000000,UQStrNode__oprec
	local	16,000000,UQStrNodeinitialize
	local	17,000000,Node__oprec
	local	18,000000,Nodeinitialize
	local	19,000000,ConsNode__oprec
	local	20,000000,ConsNodeinitialize
	local	21,000000,UQStrNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	15
	line	8
	colm	6
	synt	any
	null
	unmark
	var	16
	line	8
	colm	48
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	17
	line	9
	colm	6
	synt	any
	null
	unmark
	var	18
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	15
	line	10
	colm	19
	synt	any
	field	Node
	var	17
	line	10
	colm	25
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	19
	line	11
	colm	6
	synt	any
	null
	unmark
	var	20
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	15
	line	12
	colm	19
	synt	any
	field	ConsNode
	var	19
	line	12
	colm	29
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	13
	var	21
	line	14
	colm	28
	synt	any
	keywd	null
	var	15
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	line	14
	colm	27
	synt	any
	invoke	15
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	13
	line	15
	colm	7
	synt	any
	field	__s
	var	13
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	13
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	13
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	13
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc UQStrNodeinitialize
	local	0,000000,UQStrNode__oprec
	local	1,000000,UQStrNode__methods
	local	2,000000,UQStrNode_dump
	local	3,000000,UQStrNode_dump_tree
	local	4,000000,UQStrNode_initially
	local	5,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
	line	21
	colm	49
	synt	any
	invoke	4
	line	21
	colm	28
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	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
	filen	stree/ststructs_cls.tmp.icn
	line	1379
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1381
	colm	6
	synt	any
	field	__m
	line	1381
	colm	10
	synt	any
	field	Node
	line	1381
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1381
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1382
	colm	6
	synt	any
	field	__m
	line	1382
	colm	10
	synt	any
	field	ConsNode
	line	1382
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1382
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1383
	colm	63
	synt	any
	plus
	line	1383
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1383
	colm	99
	synt	any
	field	signature
	line	1383
	colm	94
	synt	any
	invoke	1
	line	1383
	colm	82
	synt	any
	cat
	line	1383
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1384
	colm	62
	synt	any
	plus
	line	1384
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1384
	colm	98
	synt	any
	field	sig_done
	line	1384
	colm	93
	synt	any
	invoke	1
	line	1384
	colm	81
	synt	any
	cat
	line	1384
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1385
	colm	61
	synt	any
	plus
	line	1385
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1385
	colm	97
	synt	any
	field	ar_size
	line	1385
	colm	92
	synt	any
	invoke	1
	line	1385
	colm	80
	synt	any
	cat
	line	1385
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	1386
	colm	68
	synt	any
	plus
	line	1386
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1386
	colm	104
	synt	any
	field	ar_static_link
	line	1386
	colm	99
	synt	any
	invoke	1
	line	1386
	colm	87
	synt	any
	cat
	line	1386
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	1387
	colm	69
	synt	any
	plus
	line	1387
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1387
	colm	105
	synt	any
	field	ar_static_level
	line	1387
	colm	100
	synt	any
	invoke	1
	line	1387
	colm	88
	synt	any
	cat
	line	1387
	colm	18
	synt	any
	invoke	2
	unmark
lab L8
	mark	L9
	var	2
	var	1
	pnull
	var	3
	str	6
	pnull
	int	1
	var	4
	line	1388
	colm	61
	synt	any
	plus
	line	1388
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1388
	colm	97
	synt	any
	field	fc_body
	line	1388
	colm	92
	synt	any
	invoke	1
	line	1388
	colm	80
	synt	any
	cat
	line	1388
	colm	18
	synt	any
	invoke	2
	unmark
lab L9
	mark	L10
	var	2
	var	1
	pnull
	var	3
	str	7
	pnull
	int	1
	var	4
	line	1389
	colm	67
	synt	any
	plus
	line	1389
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1389
	colm	103
	synt	any
	field	fc_complexity
	line	1389
	colm	98
	synt	any
	invoke	1
	line	1389
	colm	86
	synt	any
	cat
	line	1389
	colm	18
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	var	2
	var	1
	pnull
	var	3
	str	8
	pnull
	int	1
	var	4
	line	1390
	colm	67
	synt	any
	plus
	line	1390
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1390
	colm	103
	synt	any
	field	fc_code_label
	line	1390
	colm	98
	synt	any
	invoke	1
	line	1390
	colm	86
	synt	any
	cat
	line	1390
	colm	18
	synt	any
	invoke	2
	unmark
lab L11
	mark	L12
	var	2
	var	1
	pnull
	var	3
	str	9
	pnull
	int	1
	var	4
	line	1391
	colm	66
	synt	any
	plus
	line	1391
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1391
	colm	102
	synt	any
	field	fc_free_vars
	line	1391
	colm	97
	synt	any
	invoke	1
	line	1391
	colm	85
	synt	any
	cat
	line	1391
	colm	18
	synt	any
	invoke	2
	unmark
lab L12
	var	2
	var	1
	pnull
	var	3
	str	10
	pnull
	int	1
	var	4
	line	1392
	colm	68
	synt	any
	plus
	line	1392
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1392
	colm	104
	synt	any
	field	fc_body_needed
	line	1392
	colm	99
	synt	any
	invoke	1
	line	1392
	colm	87
	synt	any
	cat
	line	1392
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1394
	colm	1
	synt	any
	pfail
	end
proc FConstruction_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,12,141,162,137,163,151,172,145,040,040,040,075,040
	con	3,010000,19,141,162,137,163,164,141,164,151,143,137,154,151,156,153,040,040,040,075,040
	con	4,010000,20,141,162,137,163,164,141,164,151,143,137,154,145,166,145,154,040,040,040,075,040
	con	5,010000,12,146,143,137,142,157,144,171,040,040,040,075,040
	con	6,010000,18,146,143,137,143,157,155,160,154,145,170,151,164,171,040,040,040,075,040
	con	7,010000,18,146,143,137,143,157,144,145,137,154,141,142,145,154,040,040,040,075,040
	con	8,010000,17,146,143,137,146,162,145,145,137,166,141,162,163,040,040,040,075,040
	con	9,010000,19,146,143,137,142,157,144,171,137,156,145,145,144,145,144,040,040,040,075,040
	declend
	line	1395
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1397
	colm	6
	synt	any
	field	__m
	line	1397
	colm	10
	synt	any
	field	Node
	line	1397
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1397
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1398
	colm	6
	synt	any
	field	__m
	line	1398
	colm	10
	synt	any
	field	ConsNode
	line	1398
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1398
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1399
	colm	43
	synt	any
	field	signature
	line	1399
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1400
	colm	42
	synt	any
	field	sig_done
	line	1400
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1401
	colm	41
	synt	any
	field	ar_size
	line	1401
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	1402
	colm	48
	synt	any
	field	ar_static_link
	line	1402
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	mark	L8
	var	2
	var	0
	str	4
	pnull
	var	0
	line	1403
	colm	49
	synt	any
	field	ar_static_level
	line	1403
	colm	15
	synt	any
	invoke	3
	unmark
lab L8
	mark	L9
	var	2
	var	0
	str	5
	pnull
	var	0
	line	1404
	colm	41
	synt	any
	field	fc_body
	line	1404
	colm	15
	synt	any
	invoke	3
	unmark
lab L9
	mark	L10
	var	2
	var	0
	str	6
	pnull
	var	0
	line	1405
	colm	47
	synt	any
	field	fc_complexity
	line	1405
	colm	15
	synt	any
	invoke	3
	unmark
lab L10
	mark	L11
	var	2
	var	0
	str	7
	pnull
	var	0
	line	1406
	colm	47
	synt	any
	field	fc_code_label
	line	1406
	colm	15
	synt	any
	invoke	3
	unmark
lab L11
	mark	L12
	var	2
	var	0
	str	8
	pnull
	var	0
	line	1407
	colm	46
	synt	any
	field	fc_free_vars
	line	1407
	colm	15
	synt	any
	invoke	3
	unmark
lab L12
	var	2
	var	0
	str	9
	pnull
	var	0
	line	1408
	colm	48
	synt	any
	field	fc_body_needed
	line	1408
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1410
	colm	1
	synt	any
	pfail
	end
proc FConstruction
	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,FConstruction__oprec
	local	7,000000,FConstructioninitialize
	local	8,000000,Node__oprec
	local	9,000000,Nodeinitialize
	local	10,000000,ConsNode__oprec
	local	11,000000,ConsNodeinitialize
	local	12,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	6
	line	8
	colm	6
	synt	any
	null
	unmark
	var	7
	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	8
	line	9
	colm	6
	synt	any
	null
	unmark
	var	9
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	6
	line	10
	colm	23
	synt	any
	field	Node
	var	8
	line	10
	colm	29
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	10
	line	11
	colm	6
	synt	any
	null
	unmark
	var	11
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	6
	line	12
	colm	23
	synt	any
	field	ConsNode
	var	10
	line	12
	colm	33
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	4
	var	12
	line	14
	colm	32
	synt	any
	keywd	null
	var	6
	line	14
	colm	31
	synt	any
	invoke	2
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	4
	line	15
	colm	7
	synt	any
	field	__s
	var	4
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	4
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	4
	var	0
	var	1
	var	2
	var	3
	line	16
	colm	21
	synt	any
	invoke	5
	line	16
	colm	46
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	48
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	4
	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_dump
	local	3,000000,FConstruction_dump_tree
	local	4,000000,Node_initially
	local	5,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
	line	21
	colm	57
	synt	any
	invoke	4
	line	21
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	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
	filen	stree/ststructs_cls.tmp.icn
	line	1413
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1415
	colm	6
	synt	any
	field	__m
	line	1415
	colm	10
	synt	any
	field	Node
	line	1415
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1415
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1416
	colm	6
	synt	any
	field	__m
	line	1416
	colm	10
	synt	any
	field	ConsNode
	line	1416
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1416
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1417
	colm	72
	synt	any
	plus
	line	1417
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1417
	colm	108
	synt	any
	field	fv_last_definition
	line	1417
	colm	103
	synt	any
	invoke	1
	line	1417
	colm	91
	synt	any
	cat
	line	1417
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1418
	colm	62
	synt	any
	plus
	line	1418
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1418
	colm	98
	synt	any
	field	fv_surr_
	line	1418
	colm	93
	synt	any
	invoke	1
	line	1418
	colm	81
	synt	any
	cat
	line	1418
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1419
	colm	67
	synt	any
	plus
	line	1419
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1419
	colm	103
	synt	any
	field	fv_surr_index
	line	1419
	colm	98
	synt	any
	invoke	1
	line	1419
	colm	86
	synt	any
	cat
	line	1419
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	1420
	colm	62
	synt	any
	plus
	line	1420
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1420
	colm	98
	synt	any
	field	fv_index
	line	1420
	colm	93
	synt	any
	invoke	1
	line	1420
	colm	81
	synt	any
	cat
	line	1420
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1422
	colm	1
	synt	any
	pfail
	end
proc FreeVarNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,23,146,166,137,154,141,163,164,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	con	1,010000,13,146,166,137,163,165,162,162,137,040,040,040,075,040
	con	2,010000,18,146,166,137,163,165,162,162,137,151,156,144,145,170,040,040,040,075,040
	con	3,010000,13,146,166,137,151,156,144,145,170,040,040,040,075,040
	declend
	line	1423
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1425
	colm	6
	synt	any
	field	__m
	line	1425
	colm	10
	synt	any
	field	Node
	line	1425
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1425
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1426
	colm	6
	synt	any
	field	__m
	line	1426
	colm	10
	synt	any
	field	ConsNode
	line	1426
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1426
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1427
	colm	52
	synt	any
	field	fv_last_definition
	line	1427
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1428
	colm	42
	synt	any
	field	fv_surr_
	line	1428
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1429
	colm	47
	synt	any
	field	fv_surr_index
	line	1429
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	var	2
	var	0
	str	3
	pnull
	var	0
	line	1430
	colm	42
	synt	any
	field	fv_index
	line	1430
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1432
	colm	1
	synt	any
	pfail
	end
proc FreeVarNode
	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,FreeVarNode__oprec
	local	7,000000,FreeVarNodeinitialize
	local	8,000000,Node__oprec
	local	9,000000,Nodeinitialize
	local	10,000000,ConsNode__oprec
	local	11,000000,ConsNodeinitialize
	local	12,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	6
	line	8
	colm	6
	synt	any
	null
	unmark
	var	7
	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	8
	line	9
	colm	6
	synt	any
	null
	unmark
	var	9
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	6
	line	10
	colm	21
	synt	any
	field	Node
	var	8
	line	10
	colm	27
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	10
	line	11
	colm	6
	synt	any
	null
	unmark
	var	11
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	6
	line	12
	colm	21
	synt	any
	field	ConsNode
	var	10
	line	12
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	4
	var	12
	line	14
	colm	30
	synt	any
	keywd	null
	var	6
	line	14
	colm	29
	synt	any
	invoke	2
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	4
	line	15
	colm	7
	synt	any
	field	__s
	var	4
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	4
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	4
	var	0
	var	1
	var	2
	var	3
	line	16
	colm	21
	synt	any
	invoke	5
	line	16
	colm	46
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	48
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	4
	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_dump
	local	3,000000,FreeVarNode_dump_tree
	local	4,000000,Node_initially
	local	5,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
	line	21
	colm	53
	synt	any
	invoke	4
	line	21
	colm	30
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	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
	filen	stree/ststructs_cls.tmp.icn
	line	1435
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1437
	colm	6
	synt	any
	field	__m
	line	1437
	colm	10
	synt	any
	field	Node
	line	1437
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1437
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1438
	colm	6
	synt	any
	field	__m
	line	1438
	colm	10
	synt	any
	field	ConsNode
	line	1438
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1438
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1439
	colm	62
	synt	any
	plus
	line	1439
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1439
	colm	98
	synt	any
	field	ext_name
	line	1439
	colm	93
	synt	any
	invoke	1
	line	1439
	colm	81
	synt	any
	cat
	line	1439
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1441
	colm	1
	synt	any
	pfail
	end
proc ExternDefNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,13,145,170,164,137,156,141,155,145,040,040,040,075,040
	declend
	line	1442
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1444
	colm	6
	synt	any
	field	__m
	line	1444
	colm	10
	synt	any
	field	Node
	line	1444
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1444
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1445
	colm	6
	synt	any
	field	__m
	line	1445
	colm	10
	synt	any
	field	ConsNode
	line	1445
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1445
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1446
	colm	42
	synt	any
	field	ext_name
	line	1446
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1448
	colm	1
	synt	any
	pfail
	end
proc ExternDefNode
	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,ExternDefNode__oprec
	local	7,000000,ExternDefNodeinitialize
	local	8,000000,Node__oprec
	local	9,000000,Nodeinitialize
	local	10,000000,ConsNode__oprec
	local	11,000000,ConsNodeinitialize
	local	12,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	6
	line	8
	colm	6
	synt	any
	null
	unmark
	var	7
	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	8
	line	9
	colm	6
	synt	any
	null
	unmark
	var	9
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	6
	line	10
	colm	23
	synt	any
	field	Node
	var	8
	line	10
	colm	29
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	10
	line	11
	colm	6
	synt	any
	null
	unmark
	var	11
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	6
	line	12
	colm	23
	synt	any
	field	ConsNode
	var	10
	line	12
	colm	33
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	4
	var	12
	line	14
	colm	32
	synt	any
	keywd	null
	var	6
	line	14
	colm	31
	synt	any
	invoke	2
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	4
	line	15
	colm	7
	synt	any
	field	__s
	var	4
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	4
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	4
	var	0
	var	1
	var	2
	var	3
	line	16
	colm	21
	synt	any
	invoke	5
	line	16
	colm	46
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	48
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	4
	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_dump
	local	3,000000,ExternDefNode_dump_tree
	local	4,000000,Node_initially
	local	5,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
	line	21
	colm	57
	synt	any
	invoke	4
	line	21
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	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
	filen	stree/ststructs_cls.tmp.icn
	line	1451
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1453
	colm	6
	synt	any
	field	__m
	line	1453
	colm	10
	synt	any
	field	Node
	line	1453
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1453
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1454
	colm	6
	synt	any
	field	__m
	line	1454
	colm	10
	synt	any
	field	ConsNode
	line	1454
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1454
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1455
	colm	63
	synt	any
	plus
	line	1455
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1455
	colm	99
	synt	any
	field	signature
	line	1455
	colm	94
	synt	any
	invoke	1
	line	1455
	colm	82
	synt	any
	cat
	line	1455
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1456
	colm	62
	synt	any
	plus
	line	1456
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1456
	colm	98
	synt	any
	field	sig_done
	line	1456
	colm	93
	synt	any
	invoke	1
	line	1456
	colm	81
	synt	any
	cat
	line	1456
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1457
	colm	64
	synt	any
	plus
	line	1457
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1457
	colm	100
	synt	any
	field	r_ext_name
	line	1457
	colm	95
	synt	any
	invoke	1
	line	1457
	colm	83
	synt	any
	cat
	line	1457
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1459
	colm	1
	synt	any
	pfail
	end
proc RExternDef_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	1,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	2,010000,15,162,137,145,170,164,137,156,141,155,145,040,040,040,075,040
	declend
	line	1460
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1462
	colm	6
	synt	any
	field	__m
	line	1462
	colm	10
	synt	any
	field	Node
	line	1462
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1462
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1463
	colm	6
	synt	any
	field	__m
	line	1463
	colm	10
	synt	any
	field	ConsNode
	line	1463
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1463
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1464
	colm	43
	synt	any
	field	signature
	line	1464
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1465
	colm	42
	synt	any
	field	sig_done
	line	1465
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1466
	colm	44
	synt	any
	field	r_ext_name
	line	1466
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1468
	colm	1
	synt	any
	pfail
	end
proc RExternDef
	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,RExternDef__oprec
	local	7,000000,RExternDefinitialize
	local	8,000000,Node__oprec
	local	9,000000,Nodeinitialize
	local	10,000000,ConsNode__oprec
	local	11,000000,ConsNodeinitialize
	local	12,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	6
	line	8
	colm	6
	synt	any
	null
	unmark
	var	7
	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	8
	line	9
	colm	6
	synt	any
	null
	unmark
	var	9
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	6
	line	10
	colm	20
	synt	any
	field	Node
	var	8
	line	10
	colm	26
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	10
	line	11
	colm	6
	synt	any
	null
	unmark
	var	11
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	6
	line	12
	colm	20
	synt	any
	field	ConsNode
	var	10
	line	12
	colm	30
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	4
	var	12
	line	14
	colm	29
	synt	any
	keywd	null
	var	6
	line	14
	colm	28
	synt	any
	invoke	2
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	4
	line	15
	colm	7
	synt	any
	field	__s
	var	4
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	4
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	4
	var	0
	var	1
	var	2
	var	3
	line	16
	colm	21
	synt	any
	invoke	5
	line	16
	colm	46
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	48
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	4
	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_dump
	local	3,000000,RExternDef_dump_tree
	local	4,000000,Node_initially
	local	5,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
	line	21
	colm	51
	synt	any
	invoke	4
	line	21
	colm	29
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	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
	filen	stree/ststructs_cls.tmp.icn
	line	1471
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1473
	colm	6
	synt	any
	field	__m
	line	1473
	colm	10
	synt	any
	field	Node
	line	1473
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1473
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1474
	colm	6
	synt	any
	field	__m
	line	1474
	colm	10
	synt	any
	field	ConsNode
	line	1474
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1474
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1475
	colm	63
	synt	any
	plus
	line	1475
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1475
	colm	99
	synt	any
	field	dcse_char
	line	1475
	colm	94
	synt	any
	invoke	1
	line	1475
	colm	82
	synt	any
	cat
	line	1475
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1476
	colm	65
	synt	any
	plus
	line	1476
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1476
	colm	101
	synt	any
	field	dcse_inline
	line	1476
	colm	96
	synt	any
	invoke	1
	line	1476
	colm	84
	synt	any
	cat
	line	1476
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1477
	colm	66
	synt	any
	plus
	line	1477
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1477
	colm	102
	synt	any
	field	dcse_special
	line	1477
	colm	97
	synt	any
	invoke	1
	line	1477
	colm	85
	synt	any
	cat
	line	1477
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	1478
	colm	71
	synt	any
	plus
	line	1478
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1478
	colm	107
	synt	any
	field	dcse_construction
	line	1478
	colm	102
	synt	any
	invoke	1
	line	1478
	colm	90
	synt	any
	cat
	line	1478
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1480
	colm	1
	synt	any
	pfail
	end
proc DcsException_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	local	2,000000,proc_dump_tree
	con	0,010000,14,144,143,163,145,137,143,150,141,162,040,040,040,075,040
	con	1,010000,16,144,143,163,145,137,151,156,154,151,156,145,040,040,040,075,040
	con	2,010000,17,144,143,163,145,137,163,160,145,143,151,141,154,040,040,040,075,040
	con	3,010000,22,144,143,163,145,137,143,157,156,163,164,162,165,143,164,151,157,156,040,040,040,075,040
	declend
	line	1481
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1483
	colm	6
	synt	any
	field	__m
	line	1483
	colm	10
	synt	any
	field	Node
	line	1483
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1483
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1484
	colm	6
	synt	any
	field	__m
	line	1484
	colm	10
	synt	any
	field	ConsNode
	line	1484
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1484
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1485
	colm	43
	synt	any
	field	dcse_char
	line	1485
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1486
	colm	45
	synt	any
	field	dcse_inline
	line	1486
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1487
	colm	46
	synt	any
	field	dcse_special
	line	1487
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	var	2
	var	0
	str	3
	pnull
	var	0
	line	1488
	colm	51
	synt	any
	field	dcse_construction
	line	1488
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1490
	colm	1
	synt	any
	pfail
	end
proc DcsException
	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,DcsException__oprec
	local	7,000000,DcsExceptioninitialize
	local	8,000000,Node__oprec
	local	9,000000,Nodeinitialize
	local	10,000000,ConsNode__oprec
	local	11,000000,ConsNodeinitialize
	local	12,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	6
	line	8
	colm	6
	synt	any
	null
	unmark
	var	7
	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	8
	line	9
	colm	6
	synt	any
	null
	unmark
	var	9
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	6
	line	10
	colm	22
	synt	any
	field	Node
	var	8
	line	10
	colm	28
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	10
	line	11
	colm	6
	synt	any
	null
	unmark
	var	11
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	6
	line	12
	colm	22
	synt	any
	field	ConsNode
	var	10
	line	12
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	4
	var	12
	line	14
	colm	31
	synt	any
	keywd	null
	var	6
	line	14
	colm	30
	synt	any
	invoke	2
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	4
	line	15
	colm	7
	synt	any
	field	__s
	var	4
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	4
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	4
	var	0
	var	1
	var	2
	var	3
	line	16
	colm	21
	synt	any
	invoke	5
	line	16
	colm	46
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	48
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	4
	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_dump
	local	3,000000,DcsException_dump_tree
	local	4,000000,Node_initially
	local	5,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
	line	21
	colm	55
	synt	any
	invoke	4
	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	1493
	colm	11
	synt	any
	mark	L1
	line	1494
	colm	1
	synt	ifelse
	mark	L2
	pnull
	var	1
	var	0
	line	1494
	colm	8
	synt	any
	invoke	1
	str	0
	line	1494
	colm	13
	synt	any
	lexeq
	unmark
	mark	L4
	var	0
	line	1494
	colm	31
	synt	any
	pret
lab L4
	synt	any
	pfail
	goto	L3
lab L2
	line	1495
	colm	7
	synt	ifelse
	mark	L5
	pnull
	var	1
	var	0
	line	1495
	colm	14
	synt	any
	invoke	1
	str	1
	line	1495
	colm	19
	synt	any
	lexeq
	unmark
	mark	L7
	var	0
	line	1495
	colm	35
	synt	any
	pret
lab L7
	synt	any
	pfail
	goto	L6
lab L5
	line	1496
	colm	7
	synt	ifelse
	mark	L8
	pnull
	var	1
	var	0
	line	1496
	colm	14
	synt	any
	invoke	1
	str	2
	line	1496
	colm	19
	synt	any
	lexeq
	unmark
	mark	L10
	var	0
	line	1496
	colm	34
	synt	any
	pret
lab L10
	synt	any
	pfail
	goto	L9
lab L8
	mark	L11
	var	1
	var	0
	line	1497
	colm	18
	synt	any
	invoke	1
	line	1497
	colm	7
	synt	any
	pret
lab L11
	synt	any
	pfail
lab L9
	line	1496
	colm	7
	synt	endifelse
lab L6
	line	1495
	colm	7
	synt	endifelse
lab L3
	line	1494
	colm	1
	synt	endifelse
	unmark
lab L1
	pnull
	line	1498
	colm	1
	synt	any
	pfail
	end
proc proc_dump_tree
	local	0,001000,me
	local	1,001000,str
	local	2,001000,it
	local	3,000040,cnt
	local	4,000040,depth
	local	5,000040,ex_fl
	local	6,000040,ex_set
	local	7,000000,open
	local	8,000000,set
	local	9,000000,visited
	local	10,000000,dump_tree_depth
	local	11,000000,type
	local	12,000000,write
	local	13,000000,treefile
	local	14,000000,left
	local	15,000000,member
	local	16,000000,insert
	con	0,010000,6,145,170,056,164,155,160
	con	1,010000,1,167
	con	2,002000,1,0
	con	3,002000,1,1
	con	4,002000,6,100000
	con	5,010000,7,151,156,164,145,147,145,162
	con	6,002000,2,20
	con	7,010000,6,163,164,162,151,156,147
	con	8,010000,4,162,145,141,154
	con	9,010000,13,143,157,055,145,170,160,162,145,163,163,151,157,156
	con	10,010000,4,143,163,145,164
	con	11,010000,4,146,151,154,145
	con	12,010000,4,154,151,163,164
	con	13,010000,4,156,165,154,154
	con	14,010000,9,160,162,157,143,145,144,165,162,145
	con	15,010000,3,163,145,164
	con	16,010000,5,164,141,142,154,145
	con	17,010000,6,167,151,156,144,157,167
	con	18,010000,5,101,162,162,141,171
	con	19,010000,8,145,170,141,155,151,156,145,040
	con	20,010000,18,102,145,147,151,156,040,123,165,142,164,162,145,145,040,146,157,162,040
	con	21,010000,11,105,156,144,040,123,165,142,164,162,145,145
	con	22,010000,34,102,145,147,151,156,040,123,165,142,164,162,145,145,040,141,154,162,145,141,144,171,040,166,151,163,151,164,145,144,040,146,157,162,040
	con	23,010000,33,102,145,147,151,156,040,123,165,142,164,162,145,145,040,141,154,162,145,141,171,040,166,151,163,151,164,145,144,040,146,157,162,040
	con	24,010000,27,105,156,144,040,123,165,142,164,162,145,145,040,141,154,162,145,141,144,171,040,166,151,163,151,164,145,144
	declend
	line	1501
	colm	12
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	pnull
	var	5
	var	7
	str	0
	str	1
	line	1504
	colm	15
	synt	any
	invoke	2
	line	1504
	colm	8
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	6
	var	8
	line	1505
	colm	14
	synt	any
	invoke	0
	line	1505
	colm	8
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	3
	int	2
	line	1506
	colm	5
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	var	9
	var	8
	line	1507
	colm	15
	synt	any
	invoke	0
	line	1507
	colm	9
	synt	any
	asgn
	unmark
lab L7
	pnull
	var	10
	int	2
	line	1508
	colm	17
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	3
	dup
	int	3
	line	1510
	colm	5
	synt	any
	plus
	asgn
	unmark
lab L8
	mark	L9
	line	1511
	colm	2
	synt	if
	mark0
	pnull
	var	3
	int	4
	line	1511
	colm	9
	synt	any
	numgt
	unmark
	mark	L10
	pnull
	line	1511
	colm	23
	synt	any
	pret
lab L10
	synt	any
	pfail
	line	1511
	colm	2
	synt	endif
	unmark
lab L9
	mark	L11
	line	1512
	colm	2
	synt	ifelse
	mark	L12
	pnull
	var	11
	var	2
	line	1512
	colm	9
	synt	any
	invoke	1
	str	5
	line	1512
	colm	14
	synt	any
	lexeq
	unmark
	var	12
	var	13
	pnull
	var	14
	var	1
	pnull
	int	6
	var	10
	line	1512
	colm	59
	synt	any
	plus
	line	1512
	colm	51
	synt	any
	invoke	2
	var	2
	line	1512
	colm	78
	synt	any
	cat
	line	1512
	colm	37
	synt	any
	invoke	2
	goto	L13
lab L12
	line	1513
	colm	6
	synt	ifelse
	mark	L14
	pnull
	var	11
	var	2
	line	1513
	colm	13
	synt	any
	invoke	1
	str	7
	line	1513
	colm	18
	synt	any
	lexeq
	unmark
	var	12
	var	13
	pnull
	var	14
	var	1
	pnull
	int	6
	var	10
	line	1513
	colm	62
	synt	any
	plus
	line	1513
	colm	54
	synt	any
	invoke	2
	var	2
	line	1513
	colm	81
	synt	any
	cat
	line	1513
	colm	40
	synt	any
	invoke	2
	goto	L15
lab L14
	line	1514
	colm	6
	synt	ifelse
	mark	L16
	pnull
	var	11
	var	2
	line	1514
	colm	13
	synt	any
	invoke	1
	str	8
	line	1514
	colm	18
	synt	any
	lexeq
	unmark
	var	12
	var	13
	pnull
	var	14
	var	1
	pnull
	int	6
	var	10
	line	1514
	colm	60
	synt	any
	plus
	line	1514
	colm	52
	synt	any
	invoke	2
	var	2
	line	1514
	colm	79
	synt	any
	cat
	line	1514
	colm	38
	synt	any
	invoke	2
	goto	L17
lab L16
	line	1515
	colm	6
	synt	ifelse
	mark	L18
	pnull
	var	11
	var	2
	line	1515
	colm	13
	synt	any
	invoke	1
	str	9
	line	1515
	colm	18
	synt	any
	lexeq
	unmark
	var	12
	var	13
	pnull
	var	14
	var	1
	pnull
	int	6
	var	10
	line	1515
	colm	69
	synt	any
	plus
	line	1515
	colm	61
	synt	any
	invoke	2
	var	11
	var	2
	line	1515
	colm	95
	synt	any
	invoke	1
	line	1515
	colm	88
	synt	any
	cat
	line	1515
	colm	47
	synt	any
	invoke	2
	goto	L19
lab L18
	line	1516
	colm	6
	synt	ifelse
	mark	L20
	pnull
	var	11
	var	2
	line	1516
	colm	13
	synt	any
	invoke	1
	str	10
	line	1516
	colm	18
	synt	any
	lexeq
	unmark
	var	12
	var	13
	pnull
	var	14
	var	1
	pnull
	int	6
	var	10
	line	1516
	colm	60
	synt	any
	plus
	line	1516
	colm	52
	synt	any
	invoke	2
	var	11
	var	2
	line	1516
	colm	86
	synt	any
	invoke	1
	line	1516
	colm	79
	synt	any
	cat
	line	1516
	colm	38
	synt	any
	invoke	2
	goto	L21
lab L20
	line	1517
	colm	6
	synt	ifelse
	mark	L22
	pnull
	var	11
	var	2
	line	1517
	colm	13
	synt	any
	invoke	1
	str	11
	line	1517
	colm	18
	synt	any
	lexeq
	unmark
	var	12
	var	13
	pnull
	var	14
	var	1
	pnull
	int	6
	var	10
	line	1517
	colm	60
	synt	any
	plus
	line	1517
	colm	52
	synt	any
	invoke	2
	var	11
	var	2
	line	1517
	colm	86
	synt	any
	invoke	1
	line	1517
	colm	79
	synt	any
	cat
	line	1517
	colm	38
	synt	any
	invoke	2
	goto	L23
lab L22
	line	1518
	colm	6
	synt	ifelse
	mark	L24
	pnull
	var	11
	var	2
	line	1518
	colm	13
	synt	any
	invoke	1
	str	12
	line	1518
	colm	18
	synt	any
	lexeq
	unmark
	var	12
	var	13
	pnull
	var	14
	var	1
	pnull
	int	6
	var	10
	line	1518
	colm	60
	synt	any
	plus
	line	1518
	colm	52
	synt	any
	invoke	2
	var	11
	var	2
	line	1518
	colm	86
	synt	any
	invoke	1
	line	1518
	colm	79
	synt	any
	cat
	line	1518
	colm	38
	synt	any
	invoke	2
	goto	L25
lab L24
	line	1519
	colm	6
	synt	ifelse
	mark	L26
	pnull
	var	11
	var	2
	line	1519
	colm	13
	synt	any
	invoke	1
	str	13
	line	1519
	colm	18
	synt	any
	lexeq
	unmark
	var	12
	var	13
	pnull
	var	14
	var	1
	pnull
	int	6
	var	10
	line	1519
	colm	60
	synt	any
	plus
	line	1519
	colm	52
	synt	any
	invoke	2
	var	11
	var	2
	line	1519
	colm	86
	synt	any
	invoke	1
	line	1519
	colm	79
	synt	any
	cat
	line	1519
	colm	38
	synt	any
	invoke	2
	goto	L27
lab L26
	line	1520
	colm	6
	synt	ifelse
	mark	L28
	pnull
	var	11
	var	2
	line	1520
	colm	13
	synt	any
	invoke	1
	str	14
	line	1520
	colm	18
	synt	any
	lexeq
	unmark
	var	12
	var	13
	pnull
	var	14
	var	1
	pnull
	int	6
	var	10
	line	1520
	colm	65
	synt	any
	plus
	line	1520
	colm	57
	synt	any
	invoke	2
	var	11
	var	2
	line	1520
	colm	91
	synt	any
	invoke	1
	line	1520
	colm	84
	synt	any
	cat
	line	1520
	colm	43
	synt	any
	invoke	2
	goto	L29
lab L28
	line	1521
	colm	6
	synt	ifelse
	mark	L30
	pnull
	var	11
	var	2
	line	1521
	colm	13
	synt	any
	invoke	1
	str	15
	line	1521
	colm	18
	synt	any
	lexeq
	unmark
	var	12
	var	13
	pnull
	var	14
	var	1
	pnull
	int	6
	var	10
	line	1521
	colm	59
	synt	any
	plus
	line	1521
	colm	51
	synt	any
	invoke	2
	var	11
	var	2
	line	1521
	colm	85
	synt	any
	invoke	1
	line	1521
	colm	78
	synt	any
	cat
	line	1521
	colm	37
	synt	any
	invoke	2
	goto	L31
lab L30
	line	1522
	colm	6
	synt	ifelse
	mark	L32
	pnull
	var	11
	var	2
	line	1522
	colm	13
	synt	any
	invoke	1
	str	16
	line	1522
	colm	18
	synt	any
	lexeq
	unmark
	var	12
	var	13
	pnull
	var	14
	var	1
	pnull
	int	6
	var	10
	line	1522
	colm	61
	synt	any
	plus
	line	1522
	colm	53
	synt	any
	invoke	2
	var	11
	var	2
	line	1522
	colm	87
	synt	any
	invoke	1
	line	1522
	colm	80
	synt	any
	cat
	line	1522
	colm	39
	synt	any
	invoke	2
	goto	L33
lab L32
	line	1523
	colm	6
	synt	ifelse
	mark	L34
	pnull
	var	11
	var	2
	line	1523
	colm	13
	synt	any
	invoke	1
	str	17
	line	1523
	colm	18
	synt	any
	lexeq
	unmark
	var	12
	var	13
	pnull
	var	14
	var	1
	pnull
	int	6
	var	10
	line	1523
	colm	62
	synt	any
	plus
	line	1523
	colm	54
	synt	any
	invoke	2
	var	11
	var	2
	line	1523
	colm	88
	synt	any
	invoke	1
	line	1523
	colm	81
	synt	any
	cat
	line	1523
	colm	40
	synt	any
	invoke	2
	goto	L35
lab L34
	line	1524
	colm	6
	synt	ifelse
	mark	L36
	pnull
	var	11
	var	2
	line	1524
	colm	13
	synt	any
	invoke	1
	str	18
	line	1524
	colm	18
	synt	any
	lexeq
	unmark
	var	12
	var	13
	pnull
	var	14
	var	1
	pnull
	int	6
	var	10
	line	1524
	colm	61
	synt	any
	plus
	line	1524
	colm	53
	synt	any
	invoke	2
	var	11
	var	2
	line	1524
	colm	87
	synt	any
	invoke	1
	line	1524
	colm	80
	synt	any
	cat
	line	1524
	colm	39
	synt	any
	invoke	2
	goto	L37
lab L36
	mark	L38
	pnull
	var	10
	dup
	int	3
	line	1525
	colm	24
	synt	any
	plus
	asgn
	unmark
lab L38
	mark	L39
	line	1526
	colm	8
	synt	if
	mark0
	mark	L40
	var	15
	var	6
	var	1
	line	1526
	colm	22
	synt	any
	invoke	2
	unmark
	efail
lab L40
	pnull
	unmark
	mark	L41
	var	12
	var	5
	pnull
	pnull
	str	19
	var	1
	line	1527
	colm	31
	synt	any
	cat
	var	11
	var	2
	line	1527
	colm	45
	synt	any
	invoke	1
	line	1527
	colm	38
	synt	any
	cat
	line	1527
	colm	13
	synt	any
	invoke	2
	unmark
lab L41
	var	16
	var	6
	var	1
	line	1528
	colm	14
	synt	any
	invoke	2
	line	1526
	colm	8
	synt	endif
	unmark
lab L39
	mark	L42
	line	1530
	colm	5
	synt	ifelse
	mark	L43
	mark	L45
	var	15
	var	9
	var	2
	line	1530
	colm	19
	synt	any
	invoke	2
	unmark
	efail
lab L45
	pnull
	unmark
	mark	L46
	var	16
	var	9
	var	2
	line	1532
	colm	21
	synt	any
	invoke	2
	unmark
lab L46
	mark	L47
	var	12
	var	13
	pnull
	var	14
	str	20
	pnull
	int	6
	var	10
	line	1533
	colm	59
	synt	any
	plus
	line	1533
	colm	34
	synt	any
	invoke	2
	var	1
	line	1533
	colm	78
	synt	any
	cat
	line	1533
	colm	20
	synt	any
	invoke	2
	unmark
lab L47
	mark	L48
	var	12
	var	13
	pnull
	var	14
	str	20
	pnull
	int	6
	var	10
	line	1534
	colm	60
	synt	any
	plus
	line	1534
	colm	34
	synt	any
	invoke	2
	var	11
	var	2
	line	1534
	colm	86
	synt	any
	invoke	1
	line	1534
	colm	79
	synt	any
	cat
	line	1534
	colm	20
	synt	any
	invoke	2
	unmark
lab L48
	mark	L49
	pnull
	var	2
	line	1535
	colm	17
	synt	any
	field	dump_tree
	var	13
	line	1535
	colm	27
	synt	any
	invoke	1
	unmark
lab L49
	var	12
	var	13
	pnull
	var	14
	str	21
	pnull
	int	6
	var	10
	line	1536
	colm	52
	synt	any
	plus
	line	1536
	colm	34
	synt	any
	invoke	2
	var	11
	var	2
	line	1536
	colm	78
	synt	any
	invoke	1
	line	1536
	colm	71
	synt	any
	cat
	line	1536
	colm	20
	synt	any
	invoke	2
	goto	L44
lab L43
	mark	L50
	var	12
	var	13
	pnull
	var	14
	str	22
	pnull
	int	6
	var	10
	line	1540
	colm	75
	synt	any
	plus
	line	1540
	colm	34
	synt	any
	invoke	2
	var	1
	line	1540
	colm	94
	synt	any
	cat
	line	1540
	colm	20
	synt	any
	invoke	2
	unmark
lab L50
	mark	L51
	var	12
	var	13
	pnull
	var	14
	str	23
	pnull
	int	6
	var	10
	line	1541
	colm	75
	synt	any
	plus
	line	1541
	colm	34
	synt	any
	invoke	2
	var	11
	var	2
	line	1541
	colm	101
	synt	any
	invoke	1
	line	1541
	colm	94
	synt	any
	cat
	line	1541
	colm	20
	synt	any
	invoke	2
	unmark
lab L51
	mark	L52
	pnull
	var	2
	line	1542
	colm	17
	synt	any
	field	dump
	var	13
	line	1542
	colm	22
	synt	any
	invoke	1
	unmark
lab L52
	var	12
	var	13
	pnull
	var	14
	str	24
	pnull
	int	6
	var	10
	line	1543
	colm	68
	synt	any
	plus
	line	1543
	colm	34
	synt	any
	invoke	2
	var	11
	var	2
	line	1543
	colm	93
	synt	any
	invoke	1
	line	1543
	colm	87
	synt	any
	cat
	line	1543
	colm	20
	synt	any
	invoke	2
lab L44
	line	1530
	colm	5
	synt	endifelse
	unmark
lab L42
	pnull
	var	10
	dup
	int	3
	line	1545
	colm	24
	synt	any
	minus
	asgn
lab L37
	line	1524
	colm	6
	synt	endifelse
lab L35
	line	1523
	colm	6
	synt	endifelse
lab L33
	line	1522
	colm	6
	synt	endifelse
lab L31
	line	1521
	colm	6
	synt	endifelse
lab L29
	line	1520
	colm	6
	synt	endifelse
lab L27
	line	1519
	colm	6
	synt	endifelse
lab L25
	line	1518
	colm	6
	synt	endifelse
lab L23
	line	1517
	colm	6
	synt	endifelse
lab L21
	line	1516
	colm	6
	synt	endifelse
lab L19
	line	1515
	colm	6
	synt	endifelse
lab L17
	line	1514
	colm	6
	synt	endifelse
lab L15
	line	1513
	colm	6
	synt	endifelse
lab L13
	line	1512
	colm	2
	synt	endifelse
	unmark
lab L11
	pnull
	line	1547
	colm	1
	synt	any
	pfail
	end
