version	U12.1.00
uid	ststructs_cls.tmp.u1-1455877819-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,cn_hd_field
	9,cn_tl_field
	10,unique_id
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,cn_hd_field
	22,cn_tl_field
	23,unique_id
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,cn_hd_field
	14,cn_tl_field
	15,unique_id
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,cn_hd_field
	12,cn_tl_field
	13,unique_id
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,cn_hd_field
	10,cn_tl_field
	11,unique_id
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,cn_hd_field
	10,cn_tl_field
	11,unique_id
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,cn_hd_field
	16,cn_tl_field
	17,unique_id
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,cn_hd_field
	18,cn_tl_field
	19,unique_id
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,cn_hd_field
	9,cn_tl_field
	10,unique_id
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,cn_hd_field
	12,cn_tl_field
	13,unique_id
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,cn_hd_field
	9,cn_tl_field
	10,unique_id
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,cn_hd_field
	17,cn_tl_field
	18,unique_id
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,cn_hd_field
	13,cn_tl_field
	14,unique_id
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,cn_hd_field
	12,cn_tl_field
	13,unique_id
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,cn_hd_field
	10,cn_tl_field
	11,unique_id
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,cn_hd_field
	12,cn_tl_field
	13,unique_id
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,cn_hd_field
	12,cn_tl_field
	13,unique_id
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,cn_hd_field
	11,cn_tl_field
	12,unique_id
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,cn_hd_field
	12,cn_tl_field
	13,unique_id
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,cn_hd_field
	10,cn_tl_field
	11,unique_id
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,cn_hd_field
	17,cn_tl_field
	18,unique_id
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,cn_hd_field
	10,cn_tl_field
	11,unique_id
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,cn_hd_field
	10,cn_tl_field
	11,unique_id
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,cn_hd_field
	10,cn_tl_field
	11,unique_id
record	ExportElementNode__methods,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,ConsNode
record	AllConstantsNode__state,8
	0,__s
	1,__m
	2,kind
	3,vlineno
	4,pre_num
	5,post_num
	6,cn_hd_field
	7,cn_tl_field
record	AllConstantsNode__methods,3
	0,dump
	1,dump_tree
	2,initially
record	WordElseNode__state,11
	0,__s
	1,__m
	2,signature
	3,sig_done
	4,kind
	5,vlineno
	6,pre_num
	7,post_num
	8,cn_hd_field
	9,cn_tl_field
	10,unique_id
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,cn_hd_field
	7,cn_tl_field
	8,unique_id
record	WordCandNode__methods,7
	0,dumo
	1,dump_tree
	2,initially
	3,dump
	4,cons_dump
	5,Node
	6,ConsNode
record	WordCorNode__state,9
	0,__s
	1,__m
	2,kind
	3,vlineno
	4,pre_num
	5,post_num
	6,cn_hd_field
	7,cn_tl_field
	8,unique_id
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,cn_hd_field
	10,cn_tl_field
	11,unique_id
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,cn_hd_field
	10,cn_tl_field
	11,unique_id
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,cn_hd_field
	9,cn_tl_field
	10,unique_id
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,cn_hd_field
	17,cn_tl_field
	18,unique_id
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,cn_hd_field
	17,cn_tl_field
	18,unique_id
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,cn_hd_field
	13,cn_tl_field
	14,unique_id
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,cn_hd_field
	13,cn_tl_field
	14,unique_id
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,cn_hd_field
	17,cn_tl_field
	18,unique_id
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,cn_hd_field
	11,cn_tl_field
	12,unique_id
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,cn_hd_field
	8,cn_tl_field
	9,unique_id
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,cn_hd_field
	10,cn_tl_field
	11,unique_id
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,cn_hd_field
	11,cn_tl_field
	12,unique_id
record	DcsException__methods,6
	0,dump
	1,dump_tree
	2,initially
	3,cons_dump
	4,Node
	5,ConsNode
impl	error
global	605
	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,line_cnt,0
	141,000001,char_cnt,0
	142,000001,token_cnt,0
	143,000001,reserved_id_cnt,0
	144,000001,reserved_op_cnt,0
	145,000001,numeral_cnt,0
	146,000001,nodes_total_cnt,0
	147,000001,nodes_made_cnt,0
	148,000001,lists_total_cnt,0
	149,000001,lists_made_cnt,0
	150,000001,yyn_switches_cnt,0
	151,000001,yyn_compute_cnt,0
	152,000001,newstate_cnt,0
	153,000001,setstate_cnt,0
	154,000001,backup_cnt,0
	155,000001,default_cnt,0
	156,000001,reduce_cnt,0
	157,000001,errlab_cnt,0
	158,000001,errlab1_cnt,0
	159,000001,defined_id_cnt,0
	160,000001,defined_op_cnt,0
	161,000001,seperator_cnt,0
	162,000001,RIC_table,0
	163,000001,RIC_op_code_cnt,0
	164,000001,RIC_table_entry_cnt,0
	165,000001,comments_cnt,0
	166,000001,sing_quoted_cnt,0
	167,000001,dbl_quoted_cnt,0
	168,000001,infile,0
	169,000001,entry_name,0
	170,000001,yyinfnm,0
	171,000001,addposition,0
	172,000001,inline_cnvt,0
	173,000001,Ginline_cnvt,0
	174,000001,Vinline_cnvt,0
	175,000001,paramstop,0
	176,000001,denseqstop,0
	177,000001,condstop,0
	178,000001,declstop,0
	179,000001,stxtree,0
	180,000001,yystate,0
	181,000001,fn_count,0
	182,000001,scanstk,0
	183,000001,stktop,0
	184,000001,scansavc,0
	185,000001,yydescr,0
	186,000001,has_externs,0
	187,000001,argcnt_from_kind,0
	188,000001,parser_actions_cnt,0
	189,000001,curr_void_decl,0
	190,000001,curr_sig_transp,0
	191,000001,curr_tsig,0
	192,000001,err_node,0
	193,000001,in_sig,0
	194,000001,in_loop,0
	195,000001,linebuf,0
	196,000001,restab,0
	197,000001,cctab,0
	198,000001,tokenlgth,0
	199,000001,yynerrs,0
	200,000001,decl_num,0
	201,000001,decl_nums,0
	202,000001,Outer_arg,0
	203,000001,file_sigs,0
	204,000001,decl_num_in,0
	205,000001,sig_table,0
	206,000001,unique_node_id,0
	207,000001,objfilelist,0
	208,000001,Idtable,0
	209,000001,dump_tree_depth,0
	210,000001,next_pre,0
	211,000001,next_post,0
	212,000001,visited,0
	213,000001,Gfc_list,0
	214,000001,Glevel,0
	215,000001,Gcurrent,0
	216,000001,Goutfile,0
	217,000001,finished_accessible,0
	218,000001,all_fcs,0
	219,000001,all_fcs_tail,0
	220,000001,outer_fc,0
	221,000001,whole_program,0
	222,000001,currect_fcs,0
	223,000001,Vcurrent_func,0
	224,000001,Vcurrent_ar,0
	225,000001,Vstatic_level,0
	226,000001,Vnext_free,0
	227,000001,Vhigh_water,0
	228,000001,Vextent_limited,0
	229,000001,Vallocate_on_stack,0
	230,000001,Vcallcc,0
	231,000001,max_addr_regs,0
	232,000001,max_int_regs,0
	233,000001,n_addr_regs,0
	234,000001,n_int_regs,0
	235,000001,Vcurrent_blocks,0
	236,000001,found_non_vacuous,0
	237,000001,n_vacuous,0
	238,000001,avail_loc,0
	239,000001,compile_fcs,0
	240,000001,sl_available,0
	241,000001,stplinks,0
	242,000001,fld_table,0
	243,000001,surr_loop,0
	244,000001,callcc_call,0
	245,000001,catchsigs,0
	246,000001,Gspcl_to_inline,0
	247,000001,htable,0
	248,000001,NodeTypeName,0
	249,000005,special,2
	250,000005,mklist,1
	251,000005,emptylist,0
	252,000005,is_list,1
	253,000005,should_examine,1
	254,000005,is_empty,1
	255,000005,split,12
	256,000005,conc,2
	257,000005,addleft,2
	258,000005,addright,2
	259,000005,Node_dump,2
	260,000005,Node_dump_tree,1
	261,000005,Node_initially,5
	262,000011,Node__state,6
	263,000011,Node__methods,3
	264,000001,Node__oprec,0
	265,000005,Node,4
	266,000005,Nodeinitialize,0
	267,000005,ConsNode_dump,2
	268,000005,ConsNode_dump_tree,1
	269,000005,ConsNode_cons_dump,1
	270,000005,ConsNode_initially,3
	271,000011,ConsNode__state,5
	272,000011,ConsNode__methods,4
	273,000001,ConsNode__oprec,0
	274,000005,ConsNode,2
	275,000005,ConsNodeinitialize,0
	276,000005,ListHeaderNode_dump,2
	277,000005,ListHeaderNode_dump_tree,1
	278,000005,ListHeaderNode_list_dump,1
	279,000005,ListHeaderNode_first,1
	280,000005,ListHeaderNode_last,1
	281,000005,ListHeaderNode_setfirst,2
	282,000005,ListHeaderNode_setlast,2
	283,000005,ListHeaderNode_conc,2
	284,000005,ListHeaderNode_length,1
	285,000005,ListHeaderNode_list_to_array,1
	286,000005,ListHeaderNode_initially,1
	287,000011,ListHeaderNode__state,11
	288,000011,ListHeaderNode__methods,14
	289,000001,ListHeaderNode__oprec,0
	290,000005,ListHeaderNode,9
	291,000005,ListHeaderNodeinitialize,0
	292,000005,DeclarationNode_dump,2
	293,000005,DeclarationNode_dump_tree,1
	294,000005,DeclarationNode_initially,1
	295,000011,DeclarationNode__state,24
	296,000011,DeclarationNode__methods,6
	297,000001,DeclarationNode__oprec,0
	298,000005,DeclarationNode,22
	299,000005,DeclarationNodeinitialize,0
	300,000005,ParameterNode_dump,2
	301,000005,ParameterNode_dump_tree,1
	302,000005,ParameterNode_initially,1
	303,000011,ParameterNode__state,16
	304,000011,ParameterNode__methods,6
	305,000001,ParameterNode__oprec,0
	306,000005,ParameterNode,14
	307,000005,ParameterNodeinitialize,0
	308,000005,RElementNode_dump,2
	309,000005,RElementNode_dump_tree,1
	310,000005,RElementNode_initially,1
	311,000011,RElementNode__state,14
	312,000011,RElementNode__methods,6
	313,000001,RElementNode__oprec,0
	314,000005,RElementNode,12
	315,000005,RElementNodeinitialize,0
	316,000005,VarSignature_dump,2
	317,000005,VarSignature_dump_tree,1
	318,000005,VarSignature_initially,1
	319,000011,VarSignature__state,12
	320,000011,VarSignature__methods,6
	321,000001,VarSignature__oprec,0
	322,000005,VarSignature,10
	323,000005,VarSignatureinitialize,0
	324,000005,ValSignature_dump,2
	325,000005,ValSignature_dump_tree,1
	326,000005,ValSignature_initially,1
	327,000011,ValSignature__state,12
	328,000011,ValSignature__methods,6
	329,000001,ValSignature__oprec,0
	330,000005,ValSignature,10
	331,000005,ValSignatureinitialize,0
	332,000005,FSignature_dump,2
	333,000005,FSignature_dump_tree,1
	334,000005,FSignature_initially,1
	335,000011,FSignature__state,18
	336,000011,FSignature__methods,6
	337,000001,FSignature__oprec,0
	338,000005,FSignature,16
	339,000005,FSignatureinitialize,0
	340,000005,TSignature_dump,2
	341,000005,TSignature_dump_tree,1
	342,000005,TSignature_initially,1
	343,000011,TSignature__state,20
	344,000011,TSignature__methods,6
	345,000001,TSignature__oprec,0
	346,000005,TSignature,18
	347,000005,TSignatureinitialize,0
	348,000005,TSComponentNode_dump,2
	349,000005,TSComponentNode_dump_tree,1
	350,000005,TSComponentNode_initially,1
	351,000011,TSComponentNode__state,11
	352,000011,TSComponentNode__methods,6
	353,000001,TSComponentNode__oprec,0
	354,000005,TSComponentNode,9
	355,000005,TSComponentNodeinitialize,0
	356,000005,DefCharSigNode_dump,2
	357,000005,DefCharSigNode_dump_tree,1
	358,000005,DefCharSigNode_initially,1
	359,000011,DefCharSigNode__state,14
	360,000011,DefCharSigNode__methods,6
	361,000001,DefCharSigNode__oprec,0
	362,000005,DefCharSigNode,12
	363,000005,DefCharSigNodeinitialize,0
	364,000005,SignatureSigNode_dump,2
	365,000005,SignatureSigNode_dump_tree,1
	366,000005,SignatureSigNode_initially,1
	367,000011,SignatureSigNode__state,11
	368,000011,SignatureSigNode__methods,6
	369,000001,SignatureSigNode__oprec,0
	370,000005,SignatureSigNode,9
	371,000005,SignatureSigNodeinitialize,0
	372,000005,BlDenotationNode_dump,2
	373,000005,BlDenotationNode_dump_tree,1
	374,000005,BlDenotationNode_initially,1
	375,000011,BlDenotationNode__state,19
	376,000011,BlDenotationNode__methods,6
	377,000001,BlDenotationNode__oprec,0
	378,000005,BlDenotationNode,17
	379,000005,BlDenotationNodeinitialize,0
	380,000005,UseListNode_dump,2
	381,000005,UseListNode_dump_tree,1
	382,000005,UseListNode_initially,1
	383,000011,UseListNode__state,15
	384,000011,UseListNode__methods,6
	385,000001,UseListNode__oprec,0
	386,000005,UseListNode,13
	387,000005,UseListNodeinitialize,0
	388,000005,ApplicationNode_dump,2
	389,000005,ApplicationNode_dump_tree,1
	390,000005,ApplicationNode_initially,1
	391,000011,ApplicationNode__state,14
	392,000011,ApplicationNode__methods,6
	393,000001,ApplicationNode__oprec,0
	394,000005,ApplicationNode,12
	395,000005,ApplicationNodeinitialize,0
	396,000005,EnumerationNode_dump,2
	397,000005,EnumerationNode_dump_tree,1
	398,000005,EnumerationNode_initially,1
	399,000011,EnumerationNode__state,12
	400,000011,EnumerationNode__methods,6
	401,000001,EnumerationNode__oprec,0
	402,000005,EnumerationNode,10
	403,000005,EnumerationNodeinitialize,0
	404,000005,ExtensionNode_dump,2
	405,000005,ExtensionNode_dump_tree,1
	406,000005,ExtensionNode_initially,1
	407,000011,ExtensionNode__state,14
	408,000011,ExtensionNode__methods,6
	409,000001,ExtensionNode__oprec,0
	410,000005,ExtensionNode,12
	411,000005,ExtensionNodeinitialize,0
	412,000005,ProductNode_dump,2
	413,000005,ProductNode_dump_tree,1
	414,000005,ProductNode_initially,1
	415,000011,ProductNode__state,14
	416,000011,ProductNode__methods,6
	417,000001,ProductNode__oprec,0
	418,000005,ProductNode,12
	419,000005,ProductNodeinitialize,0
	420,000005,RecordConstructionNode_dump,2
	421,000005,RecordConstructionNode_dump_tree,1
	422,000005,RecordConstructionNode_initially,1
	423,000011,RecordConstructionNode__state,13
	424,000011,RecordConstructionNode__methods,6
	425,000001,RecordConstructionNode__oprec,0
	426,000005,RecordConstructionNode,11
	427,000005,RecordConstructionNodeinitialize,0
	428,000005,UnionConstructionNode_dump,2
	429,000005,UnionConstructionNode_dump_tree,1
	430,000005,UnionConstructionNode_initially,1
	431,000011,UnionConstructionNode__state,14
	432,000011,UnionConstructionNode__methods,6
	433,000001,UnionConstructionNode__oprec,0
	434,000005,UnionConstructionNode,12
	435,000005,UnionConstructionNodeinitialize,0
	436,000005,WithListNode_dump,2
	437,000005,WithListNode_dump_tree,1
	438,000005,WithListNode_initially,1
	439,000011,WithListNode__state,12
	440,000011,WithListNode__methods,6
	441,000001,WithListNode__oprec,0
	442,000005,WithListNode,10
	443,000005,WithListNodeinitialize,0
	444,000005,ModPrimaryNode_dump,2
	445,000005,ModPrimaryNode_dump_tree,1
	446,000005,ModPrimaryNode_initially,1
	447,000011,ModPrimaryNode__state,19
	448,000011,ModPrimaryNode__methods,6
	449,000001,ModPrimaryNode__oprec,0
	450,000005,ModPrimaryNode,17
	451,000005,ModPrimaryNodeinitialize,0
	452,000005,ExportListNode_dump,2
	453,000005,ExportListNode_dump_tree,1
	454,000005,ExportListNode_initially,1
	455,000011,ExportListNode__state,12
	456,000011,ExportListNode__methods,6
	457,000001,ExportListNode__oprec,0
	458,000005,ExportListNode,10
	459,000005,ExportListNodeinitialize,0
	460,000005,HideListNode_dump,2
	461,000005,HideListNode_dump_tree,1
	462,000005,HideListNode_initially,1
	463,000011,HideListNode__state,12
	464,000011,HideListNode__methods,6
	465,000001,HideListNode__oprec,0
	466,000005,HideListNode,10
	467,000005,HideListNodeinitialize,0
	468,000005,ExportElementNode_dump,2
	469,000005,ExportElementNode_dump_tree,1
	470,000005,ExportElementNode_initially,1
	471,000011,ExportElementNode__state,12
	472,000011,ExportElementNode__methods,6
	473,000001,ExportElementNode__oprec,0
	474,000005,ExportElementNode,10
	475,000005,ExportElementNodeinitialize,0
	476,000005,AllConstantsNode_dump,2
	477,000005,AllConstantsNode_dump_tree,1
	478,000005,AllConstantsNode_initially,1
	479,000011,AllConstantsNode__state,8
	480,000011,AllConstantsNode__methods,3
	481,000001,AllConstantsNode__oprec,0
	482,000005,AllConstantsNode,6
	483,000005,AllConstantsNodeinitialize,0
	484,000005,WordElseNode_dump,2
	485,000005,WordElseNode_dump_tree,1
	486,000005,WordElseNode_initially,1
	487,000011,WordElseNode__state,11
	488,000011,WordElseNode__methods,6
	489,000001,WordElseNode__oprec,0
	490,000005,WordElseNode,9
	491,000005,WordElseNodeinitialize,0
	492,000005,WordCandNode_dumo,1
	493,000005,WordCandNode_dump_tree,1
	494,000005,WordCandNode_initially,1
	495,000011,WordCandNode__state,9
	496,000011,WordCandNode__methods,7
	497,000001,WordCandNode__oprec,0
	498,000005,WordCandNode,7
	499,000005,WordCandNodeinitialize,0
	500,000005,WordCorNode_dump,2
	501,000005,WordCorNode_dump_tree,1
	502,000005,WordCorNode_initially,1
	503,000011,WordCorNode__state,9
	504,000011,WordCorNode__methods,6
	505,000001,WordCorNode__oprec,0
	506,000005,WordCorNode,7
	507,000005,WordCorNodeinitialize,0
	508,000005,GuardedListNode_dump,2
	509,000005,GuardedListNode_dump_tree,1
	510,000005,GuardedListNode_initially,1
	511,000011,GuardedListNode__state,12
	512,000011,GuardedListNode__methods,6
	513,000001,GuardedListNode__oprec,0
	514,000005,GuardedListNode,10
	515,000005,GuardedListNodeinitialize,0
	516,000005,LoopDenotationNode_dump,2
	517,000005,LoopDenotationNode_dump_tree,1
	518,000005,LoopDenotationNode_initially,1
	519,000011,LoopDenotationNode__state,12
	520,000011,LoopDenotationNode__methods,6
	521,000001,LoopDenotationNode__oprec,0
	522,000005,LoopDenotationNode,10
	523,000005,LoopDenotationNodeinitialize,0
	524,000005,GuardedElementNode_dump,2
	525,000005,GuardedElementNode_dump_tree,1
	526,000005,GuardedElementNode_initially,1
	527,000011,GuardedElementNode__state,11
	528,000011,GuardedElementNode__methods,6
	529,000001,GuardedElementNode__oprec,0
	530,000005,GuardedElementNode,9
	531,000005,GuardedElementNodeinitialize,0
	532,000005,OpridNode_dump,2
	533,000005,OpridNode_dump_tree,1
	534,000005,OpridNode_initially,1
	535,000011,OpridNode__state,19
	536,000011,OpridNode__methods,6
	537,000001,OpridNode__oprec,0
	538,000005,OpridNode,17
	539,000005,OpridNodeinitialize,0
	540,000005,LetterId_dump,2
	541,000005,LetterId_dump_tree,1
	542,000005,LetterId_initially,1
	543,000011,LetterId__state,19
	544,000011,LetterId__methods,6
	545,000001,LetterId__oprec,0
	546,000005,LetterId,17
	547,000005,LetterIdinitialize,0
	548,000005,QStrNode_dump,2
	549,000005,QStrNode_dump_tree,1
	550,000005,QStrNode_initially,1
	551,000011,QStrNode__state,15
	552,000011,QStrNode__methods,6
	553,000001,QStrNode__oprec,0
	554,000005,QStrNode,13
	555,000005,QStrNodeinitialize,0
	556,000005,UQStrNode_dump,2
	557,000005,UQStrNode_dump_tree,1
	558,000005,UQStrNode_initially,1
	559,000011,UQStrNode__state,15
	560,000011,UQStrNode__methods,6
	561,000001,UQStrNode__oprec,0
	562,000005,UQStrNode,13
	563,000005,UQStrNodeinitialize,0
	564,000005,FConstruction_dump,2
	565,000005,FConstruction_dump_tree,1
	566,000005,FConstruction_initially,1
	567,000011,FConstruction__state,19
	568,000011,FConstruction__methods,6
	569,000001,FConstruction__oprec,0
	570,000005,FConstruction,17
	571,000005,FConstructioninitialize,0
	572,000005,FreeVarNode_dump,2
	573,000005,FreeVarNode_dump_tree,1
	574,000005,FreeVarNode_initially,1
	575,000011,FreeVarNode__state,13
	576,000011,FreeVarNode__methods,6
	577,000001,FreeVarNode__oprec,0
	578,000005,FreeVarNode,11
	579,000005,FreeVarNodeinitialize,0
	580,000005,ExternDefNode_dump,2
	581,000005,ExternDefNode_dump_tree,1
	582,000005,ExternDefNode_initially,1
	583,000011,ExternDefNode__state,10
	584,000011,ExternDefNode__methods,6
	585,000001,ExternDefNode__oprec,0
	586,000005,ExternDefNode,8
	587,000005,ExternDefNodeinitialize,0
	588,000005,RExternDef_dump,2
	589,000005,RExternDef_dump_tree,1
	590,000005,RExternDef_initially,1
	591,000011,RExternDef__state,12
	592,000011,RExternDef__methods,6
	593,000001,RExternDef__oprec,0
	594,000005,RExternDef,10
	595,000005,RExternDefinitialize,0
	596,000005,DcsException_dump,2
	597,000005,DcsException_dump_tree,1
	598,000011,DcsException__state,13
	599,000011,DcsException__methods,6
	600,000001,DcsException__oprec,0
	601,000005,DcsException,4
	602,000005,DcsExceptioninitialize,0
	603,000005,dump_info,1
	604,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	9
	synt	any
	field	kind
	int	0
	line	127
	colm	15
	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	48
	synt	any
	invoke	1
	line	222
	colm	36
	synt	any
	cat
	line	222
	colm	9
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	var	5
	pnull
	str	0
	var	4
	var	1
	line	223
	colm	48
	synt	any
	invoke	1
	line	223
	colm	36
	synt	any
	cat
	line	223
	colm	9
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	line	225
	colm	1
	synt	if
	mark0
	pnull
	var	1
	line	225
	colm	6
	synt	any
	null
	unmark
	mark	L4
	var	0
	line	225
	colm	16
	synt	any
	pret
lab L4
	synt	any
	pfail
	line	225
	colm	1
	synt	endif
	unmark
lab L3
	mark	L5
	line	227
	colm	2
	synt	ifelse
	mark	L6
	var	6
	var	0
	line	227
	colm	14
	synt	any
	invoke	1
	unmark
	mark	L8
	pnull
	var	2
	var	7
	var	8
	var	1
	line	228
	colm	19
	synt	any
	invoke	1
	var	9
	line	228
	colm	14
	synt	any
	invoke	2
	line	228
	colm	3
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	0
	line	229
	colm	2
	synt	any
	field	lh_first
	var	2
	line	229
	colm	12
	synt	any
	asgn
	unmark
lab L9
	pnull
	pnull
	var	0
	line	230
	colm	2
	synt	any
	field	lh_last
	var	2
	line	230
	colm	11
	synt	any
	asgn
	goto	L7
lab L6
	pnull
	pnull
	var	0
	line	232
	colm	2
	synt	any
	field	lh_first
	var	7
	var	8
	var	1
	line	232
	colm	28
	synt	any
	invoke	1
	pnull
	var	0
	line	232
	colm	33
	synt	any
	field	lh_first
	line	232
	colm	23
	synt	any
	invoke	2
	line	232
	colm	12
	synt	any
	asgn
lab L7
	line	227
	colm	2
	synt	endifelse
	unmark
lab L5
	mark	L10
	var	10
	str	1
	line	234
	colm	9
	synt	any
	invoke	1
	unmark
lab L10
	mark	L11
	pnull
	var	0
	line	235
	colm	2
	synt	any
	field	cons_dump
	line	235
	colm	12
	synt	any
	invoke	0
	unmark
lab L11
	mark	L12
	mark	L13
	var	0
	line	236
	colm	1
	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,NodeTypeName
	local	6,000000,dump_info
	con	0,010000,9,153,151,156,144,040,040,040,075,040
	con	1,002000,2,20
	con	2,010000,12,153,151,156,144,040,156,141,155,145,040,075,040
	con	3,002000,1,1
	con	4,010000,12,166,154,151,156,145,156,157,040,040,040,075,040
	con	5,010000,12,160,162,145,137,156,165,155,040,040,040,075,040
	con	6,010000,13,160,157,163,164,137,156,165,155,040,040,040,075,040
	declend
	line	284
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	286
	colm	59
	synt	any
	plus
	line	286
	colm	43
	synt	any
	invoke	2
	pnull
	var	0
	line	286
	colm	85
	synt	any
	field	kind
	line	286
	colm	78
	synt	any
	cat
	line	286
	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	287
	colm	62
	synt	any
	plus
	line	287
	colm	43
	synt	any
	invoke	2
	pnull
	var	5
	pnull
	pnull
	var	0
	line	287
	colm	101
	synt	any
	field	kind
	int	3
	line	287
	colm	107
	synt	any
	plus
	line	287
	colm	96
	synt	any
	subsc
	line	287
	colm	81
	synt	any
	cat
	line	287
	colm	18
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	288
	colm	62
	synt	any
	plus
	line	288
	colm	43
	synt	any
	invoke	2
	var	6
	pnull
	var	0
	line	288
	colm	98
	synt	any
	field	vlineno
	line	288
	colm	93
	synt	any
	invoke	1
	line	288
	colm	81
	synt	any
	cat
	line	288
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	289
	colm	62
	synt	any
	plus
	line	289
	colm	43
	synt	any
	invoke	2
	var	6
	pnull
	var	0
	line	289
	colm	98
	synt	any
	field	pre_num
	line	289
	colm	93
	synt	any
	invoke	1
	line	289
	colm	81
	synt	any
	cat
	line	289
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	var	2
	var	1
	pnull
	var	3
	str	6
	pnull
	int	1
	var	4
	line	290
	colm	63
	synt	any
	plus
	line	290
	colm	43
	synt	any
	invoke	2
	var	6
	pnull
	var	0
	line	290
	colm	99
	synt	any
	field	post_num
	line	290
	colm	94
	synt	any
	invoke	1
	line	290
	colm	82
	synt	any
	cat
	line	290
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	292
	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	293
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	1
	var	0
	str	0
	pnull
	var	0
	line	295
	colm	50
	synt	any
	field	kind
	line	295
	colm	27
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	var	1
	var	0
	str	1
	pnull
	var	0
	line	296
	colm	52
	synt	any
	field	vlineno
	line	296
	colm	27
	synt	any
	invoke	3
	unmark
lab L3
	mark	L4
	var	1
	var	0
	str	2
	pnull
	var	0
	line	297
	colm	52
	synt	any
	field	pre_num
	line	297
	colm	27
	synt	any
	invoke	3
	unmark
lab L4
	var	1
	var	0
	str	3
	pnull
	var	0
	line	298
	colm	53
	synt	any
	field	post_num
	line	298
	colm	27
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	300
	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	303
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	305
	colm	5
	synt	any
	field	kind
	var	1
	line	305
	colm	10
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	306
	colm	5
	synt	any
	field	vlineno
	var	2
	line	306
	colm	13
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	pnull
	var	0
	line	307
	colm	5
	synt	any
	field	pre_num
	var	3
	line	307
	colm	13
	synt	any
	asgn
	unmark
lab L4
	pnull
	pnull
	var	0
	line	308
	colm	5
	synt	any
	field	post_num
	var	4
	line	308
	colm	14
	synt	any
	asgn
	unmark
lab L1
	mark	L5
	mark	L6
	pnull
	line	310
	colm	7
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	311
	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	315
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	317
	colm	66
	synt	any
	plus
	line	317
	colm	43
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	317
	colm	102
	synt	any
	field	cn_hd_field
	line	317
	colm	97
	synt	any
	invoke	1
	line	317
	colm	85
	synt	any
	cat
	line	317
	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	318
	colm	66
	synt	any
	plus
	line	318
	colm	43
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	318
	colm	102
	synt	any
	field	cn_tl_field
	line	318
	colm	97
	synt	any
	invoke	1
	line	318
	colm	85
	synt	any
	cat
	line	318
	colm	18
	synt	any
	invoke	2
	unmark
lab L3
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	319
	colm	64
	synt	any
	plus
	line	319
	colm	43
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	319
	colm	100
	synt	any
	field	unique_id
	line	319
	colm	95
	synt	any
	invoke	1
	line	319
	colm	83
	synt	any
	cat
	line	319
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	321
	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	322
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	1
	var	0
	str	0
	pnull
	var	0
	line	324
	colm	56
	synt	any
	field	cn_hd_field
	line	324
	colm	27
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	var	1
	var	0
	str	1
	pnull
	var	0
	line	325
	colm	56
	synt	any
	field	cn_tl_field
	line	325
	colm	27
	synt	any
	invoke	3
	unmark
lab L3
	var	1
	var	0
	str	2
	pnull
	var	0
	line	326
	colm	54
	synt	any
	field	unique_id
	line	326
	colm	27
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	328
	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	329
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	1
	var	2
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	331
	colm	57
	synt	any
	plus
	line	331
	colm	34
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	331
	colm	93
	synt	any
	field	cn_hd_field
	line	331
	colm	88
	synt	any
	invoke	1
	line	331
	colm	76
	synt	any
	cat
	line	331
	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	332
	colm	57
	synt	any
	plus
	line	332
	colm	34
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	332
	colm	93
	synt	any
	field	cn_tl_field
	line	332
	colm	88
	synt	any
	invoke	1
	line	332
	colm	76
	synt	any
	cat
	line	332
	colm	18
	synt	any
	invoke	2
	unmark
lab L3
	var	1
	var	2
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	333
	colm	55
	synt	any
	plus
	line	333
	colm	34
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	333
	colm	91
	synt	any
	field	unique_id
	line	333
	colm	86
	synt	any
	invoke	1
	line	333
	colm	74
	synt	any
	cat
	line	333
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	335
	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	354
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	356
	colm	5
	synt	any
	field	cn_tl_field
	var	2
	line	356
	colm	17
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	357
	colm	5
	synt	any
	field	cn_hd_field
	var	1
	line	357
	colm	17
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	3
	dup
	int	0
	line	359
	colm	16
	synt	any
	plus
	asgn
	unmark
lab L4
	pnull
	pnull
	var	0
	line	360
	colm	5
	synt	any
	field	unique_id
	var	3
	line	360
	colm	15
	synt	any
	asgn
	unmark
lab L1
	mark	L5
	mark	L6
	pnull
	line	362
	colm	7
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	363
	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	367
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	369
	colm	6
	synt	any
	field	__m
	line	369
	colm	10
	synt	any
	field	Node
	line	369
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	369
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	370
	colm	6
	synt	any
	field	__m
	line	370
	colm	10
	synt	any
	field	ConsNode
	line	370
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	370
	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	371
	colm	63
	synt	any
	plus
	line	371
	colm	43
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	371
	colm	99
	synt	any
	field	lh_first
	line	371
	colm	94
	synt	any
	invoke	1
	line	371
	colm	82
	synt	any
	cat
	line	371
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	372
	colm	62
	synt	any
	plus
	line	372
	colm	43
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	372
	colm	98
	synt	any
	field	lh_last
	line	372
	colm	93
	synt	any
	invoke	1
	line	372
	colm	81
	synt	any
	cat
	line	372
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	374
	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	375
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	377
	colm	6
	synt	any
	field	__m
	line	377
	colm	10
	synt	any
	field	Node
	line	377
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	377
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	378
	colm	6
	synt	any
	field	__m
	line	378
	colm	10
	synt	any
	field	ConsNode
	line	378
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	378
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	379
	colm	42
	synt	any
	field	lh_first
	line	379
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	var	2
	var	0
	str	1
	pnull
	var	0
	line	380
	colm	41
	synt	any
	field	lh_last
	line	380
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	382
	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	383
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	385
	colm	6
	synt	any
	field	__m
	line	385
	colm	10
	synt	any
	field	Node
	line	385
	colm	15
	synt	any
	field	dump
	var	0
	line	385
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	386
	colm	6
	synt	any
	field	__m
	line	386
	colm	10
	synt	any
	field	ConsNode
	line	386
	colm	19
	synt	any
	field	dump
	var	0
	line	386
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	var	2
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	387
	colm	63
	synt	any
	plus
	line	387
	colm	43
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	387
	colm	99
	synt	any
	field	lh_first
	line	387
	colm	94
	synt	any
	invoke	1
	line	387
	colm	82
	synt	any
	cat
	line	387
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	var	1
	var	2
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	388
	colm	62
	synt	any
	plus
	line	388
	colm	43
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	388
	colm	98
	synt	any
	field	lh_last
	line	388
	colm	93
	synt	any
	invoke	1
	line	388
	colm	81
	synt	any
	cat
	line	388
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	390
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNode_first
	local	0,001000,self
	declend
	line	392
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	393
	colm	12
	synt	any
	field	lh_first
	line	393
	colm	1
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	394
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNode_last
	local	0,001000,self
	declend
	line	397
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	398
	colm	13
	synt	any
	field	lh_last
	line	398
	colm	2
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	399
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNode_setfirst
	local	0,001000,self
	local	1,001000,p
	declend
	line	401
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	402
	colm	5
	synt	any
	field	lh_first
	var	1
	line	402
	colm	14
	synt	any
	asgn
	unmark
lab L1
	pnull
	line	403
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNode_setlast
	local	0,001000,self
	local	1,001000,p
	declend
	line	404
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	405
	colm	5
	synt	any
	field	lh_last
	var	1
	line	405
	colm	13
	synt	any
	asgn
	unmark
lab L1
	pnull
	line	406
	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	417
	colm	11
	synt	any
	mark	L1
	line	418
	colm	2
	synt	if
	mark0
	var	2
	var	0
	line	418
	colm	14
	synt	any
	invoke	1
	unmark
	mark	L2
	var	1
	line	420
	colm	1
	synt	any
	pret
lab L2
	synt	any
	pfail
	line	418
	colm	2
	synt	endif
	unmark
lab L1
	mark	L3
	line	422
	colm	1
	synt	if
	mark0
	mark	L4
	var	2
	var	1
	line	422
	colm	18
	synt	any
	invoke	1
	unmark
	efail
lab L4
	pnull
	unmark
	mark	L5
	pnull
	pnull
	var	0
	line	424
	colm	5
	synt	any
	field	cn_tl_field
	line	424
	colm	17
	synt	any
	field	cn_settail
	pnull
	var	1
	line	424
	colm	31
	synt	any
	field	cn_hd_field
	line	424
	colm	28
	synt	any
	invoke	1
	unmark
lab L5
	pnull
	var	0
	line	425
	colm	5
	synt	any
	field	cn_settail
	pnull
	var	1
	line	425
	colm	19
	synt	any
	field	cn_tl_field
	line	425
	colm	16
	synt	any
	invoke	1
	line	422
	colm	1
	synt	endif
	unmark
lab L3
	mark	L6
	pnull
	var	1
	pnull
	pnull
	var	1
	line	427
	colm	9
	synt	any
	field	hd_field
	pnull
	pnull
	var	1
	line	427
	colm	24
	synt	any
	field	tl_field
	var	3
	line	427
	colm	34
	synt	any
	asgn
	line	427
	colm	19
	synt	any
	asgn
	line	427
	colm	4
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	pnull
	var	1
	line	430
	colm	3
	synt	any
	field	lh_last
	pnull
	pnull
	var	1
	line	430
	colm	17
	synt	any
	field	lh_first
	var	3
	line	430
	colm	27
	synt	any
	asgn
	line	430
	colm	12
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	var	4
	var	1
	line	431
	colm	6
	synt	any
	invoke	1
	unmark
lab L8
	mark	L9
	mark	L10
	var	0
	line	432
	colm	1
	synt	any
	pret
lab L10
	synt	any
	pfail
	unmark
lab L9
	pnull
	line	433
	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	441
	colm	11
	synt	any
	mark	L1
	var	4
	str	0
	line	443
	colm	9
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	var	1
	int	1
	line	444
	colm	7
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	var	4
	pnull
	pnull
	pnull
	str	2
	var	1
	line	445
	colm	28
	synt	any
	cat
	str	3
	line	445
	colm	37
	synt	any
	cat
	var	5
	pnull
	var	0
	line	445
	colm	88
	synt	any
	field	lh_first
	line	445
	colm	83
	synt	any
	invoke	1
	line	445
	colm	70
	synt	any
	cat
	line	445
	colm	9
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	pnull
	var	3
	pnull
	var	0
	line	447
	colm	12
	synt	any
	field	lh_first
	line	447
	colm	5
	synt	any
	asgn
	unmark
lab L4
	mark	L5
lab L6
	line	448
	colm	2
	synt	while
	mark0
	pnull
	var	3
	line	448
	colm	8
	synt	any
	nonnull
	unmark
	mark	L6
	mark	L9
	pnull
	var	2
	pnull
	var	3
	line	449
	colm	9
	synt	any
	field	cn_hd_field
	line	449
	colm	3
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	pnull
	var	1
	dup
	int	4
	line	450
	colm	7
	synt	any
	plus
	asgn
	unmark
lab L10
	mark	L11
	pnull
	var	3
	pnull
	var	3
	line	451
	colm	11
	synt	any
	field	cn_tl_field
	line	451
	colm	5
	synt	any
	asgn
	unmark
lab L11
	var	4
	pnull
	pnull
	pnull
	str	2
	var	1
	line	452
	colm	28
	synt	any
	cat
	str	5
	line	452
	colm	37
	synt	any
	cat
	var	5
	var	2
	line	452
	colm	70
	synt	any
	invoke	1
	line	452
	colm	58
	synt	any
	cat
	line	452
	colm	9
	synt	any
	invoke	1
lab L7
	unmark
	goto	L6
lab L8
	line	448
	colm	2
	synt	endwhile
	unmark
lab L5
	mark	L12
	mark	L13
	var	1
	line	454
	colm	1
	synt	any
	pret
lab L13
	synt	any
	pfail
	unmark
lab L12
	pnull
	line	455
	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	465
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	pnull
	var	0
	line	467
	colm	12
	synt	any
	field	length
	line	467
	colm	19
	synt	any
	invoke	0
	line	467
	colm	5
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	5
	var	7
	pnull
	var	2
	int	0
	line	468
	colm	16
	synt	any
	plus
	line	468
	colm	11
	synt	any
	invoke	1
	line	468
	colm	4
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	6
	int	1
	line	469
	colm	7
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	var	8
	pnull
	pnull
	pnull
	str	2
	var	6
	line	470
	colm	35
	synt	any
	cat
	str	3
	line	470
	colm	44
	synt	any
	cat
	var	9
	pnull
	var	0
	line	470
	colm	95
	synt	any
	field	lh_first
	line	470
	colm	90
	synt	any
	invoke	1
	line	470
	colm	77
	synt	any
	cat
	line	470
	colm	9
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	pnull
	var	3
	pnull
	var	0
	line	471
	colm	12
	synt	any
	field	lh_first
	line	471
	colm	5
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	var	8
	pnull
	pnull
	pnull
	str	4
	var	2
	line	472
	colm	33
	synt	any
	cat
	str	5
	line	472
	colm	40
	synt	any
	cat
	var	9
	var	3
	line	472
	colm	65
	synt	any
	invoke	1
	line	472
	colm	53
	synt	any
	cat
	line	472
	colm	9
	synt	any
	invoke	1
	unmark
lab L6
	mark	L7
lab L8
	line	473
	colm	1
	synt	while
	mark0
	pnull
	var	3
	line	473
	colm	7
	synt	any
	nonnull
	unmark
	mark	L8
	mark	L11
	pnull
	var	4
	pnull
	var	3
	line	474
	colm	9
	synt	any
	field	cn_hd_field
	line	474
	colm	3
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	pnull
	var	6
	dup
	int	0
	line	475
	colm	7
	synt	any
	plus
	asgn
	unmark
lab L12
	mark	L13
	var	8
	pnull
	pnull
	pnull
	str	6
	var	6
	line	476
	colm	35
	synt	any
	cat
	str	7
	line	476
	colm	44
	synt	any
	cat
	var	9
	var	4
	line	476
	colm	67
	synt	any
	invoke	1
	line	476
	colm	55
	synt	any
	cat
	line	476
	colm	9
	synt	any
	invoke	1
	unmark
lab L13
	mark	L14
	pnull
	pnull
	var	5
	var	6
	line	477
	colm	3
	synt	any
	subsc
	var	4
	line	477
	colm	11
	synt	any
	asgn
	unmark
lab L14
	pnull
	var	3
	pnull
	var	3
	line	478
	colm	11
	synt	any
	field	cn_tl_field
	line	478
	colm	5
	synt	any
	asgn
lab L9
	unmark
	goto	L8
lab L10
	line	473
	colm	1
	synt	endwhile
	unmark
lab L7
	mark	L15
	pnull
	var	1
	var	10
	var	2
	var	5
	line	480
	colm	11
	synt	any
	invoke	2
	line	480
	colm	3
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	mark	L17
	var	1
	line	481
	colm	1
	synt	any
	pret
lab L17
	synt	any
	pfail
	unmark
lab L16
	pnull
	line	482
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNode_initially
	local	0,001000,self
	local	1,000000,nil
	declend
	line	483
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	484
	colm	6
	synt	any
	field	__m
	line	484
	colm	10
	synt	any
	field	Node
	line	484
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	484
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	484
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	484
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	484
	colm	72
	synt	any
	field	post_num
	line	484
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	485
	colm	6
	synt	any
	field	__m
	line	485
	colm	10
	synt	any
	field	ConsNode
	line	485
	colm	19
	synt	any
	field	initially
	var	0
	var	1
	var	1
	line	485
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	486
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	487
	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,cn_hd_field
	local	7,001000,cn_tl_field
	local	8,001000,unique_id
	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	492
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	494
	colm	6
	synt	any
	field	__m
	line	494
	colm	10
	synt	any
	field	Node
	line	494
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	494
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	495
	colm	6
	synt	any
	field	__m
	line	495
	colm	10
	synt	any
	field	ConsNode
	line	495
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	495
	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	496
	colm	61
	synt	any
	plus
	line	496
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	496
	colm	97
	synt	any
	field	decl_id
	line	496
	colm	92
	synt	any
	invoke	1
	line	496
	colm	80
	synt	any
	cat
	line	496
	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	497
	colm	69
	synt	any
	plus
	line	497
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	497
	colm	105
	synt	any
	field	decl_denotation
	line	497
	colm	100
	synt	any
	invoke	1
	line	497
	colm	88
	synt	any
	cat
	line	497
	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	498
	colm	66
	synt	any
	plus
	line	498
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	498
	colm	102
	synt	any
	field	displacement
	line	498
	colm	97
	synt	any
	invoke	1
	line	498
	colm	85
	synt	any
	cat
	line	498
	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	499
	colm	59
	synt	any
	plus
	line	499
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	499
	colm	95
	synt	any
	field	level
	line	499
	colm	90
	synt	any
	invoke	1
	line	499
	colm	78
	synt	any
	cat
	line	499
	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	500
	colm	68
	synt	any
	plus
	line	500
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	500
	colm	104
	synt	any
	field	decl_signature
	line	500
	colm	99
	synt	any
	invoke	1
	line	500
	colm	87
	synt	any
	cat
	line	500
	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	501
	colm	63
	synt	any
	plus
	line	501
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	501
	colm	99
	synt	any
	field	decl_done
	line	501
	colm	94
	synt	any
	invoke	1
	line	501
	colm	82
	synt	any
	cat
	line	501
	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	502
	colm	69
	synt	any
	plus
	line	502
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	502
	colm	105
	synt	any
	field	decl_sig_transp
	line	502
	colm	100
	synt	any
	invoke	1
	line	502
	colm	88
	synt	any
	cat
	line	502
	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	503
	colm	71
	synt	any
	plus
	line	503
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	503
	colm	107
	synt	any
	field	decl_innermost_id
	line	503
	colm	102
	synt	any
	invoke	1
	line	503
	colm	90
	synt	any
	cat
	line	503
	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	504
	colm	78
	synt	any
	plus
	line	504
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	504
	colm	114
	synt	any
	field	decl_previous_definition
	line	504
	colm	109
	synt	any
	invoke	1
	line	504
	colm	97
	synt	any
	cat
	line	504
	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	505
	colm	64
	synt	any
	plus
	line	505
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	505
	colm	100
	synt	any
	field	decl_scope
	line	505
	colm	95
	synt	any
	invoke	1
	line	505
	colm	83
	synt	any
	cat
	line	505
	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	506
	colm	70
	synt	any
	plus
	line	506
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	506
	colm	106
	synt	any
	field	decl_can_be_refd
	line	506
	colm	101
	synt	any
	invoke	1
	line	506
	colm	89
	synt	any
	cat
	line	506
	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	507
	colm	66
	synt	any
	plus
	line	507
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	507
	colm	102
	synt	any
	field	decl_special
	line	507
	colm	97
	synt	any
	invoke	1
	line	507
	colm	85
	synt	any
	cat
	line	507
	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	508
	colm	68
	synt	any
	plus
	line	508
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	508
	colm	104
	synt	any
	field	decl_sel_index
	line	508
	colm	99
	synt	any
	invoke	1
	line	508
	colm	87
	synt	any
	cat
	line	508
	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	509
	colm	65
	synt	any
	plus
	line	509
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	509
	colm	101
	synt	any
	field	decl_needed
	line	509
	colm	96
	synt	any
	invoke	1
	line	509
	colm	84
	synt	any
	cat
	line	509
	colm	18
	synt	any
	invoke	2
	unmark
lab L17
	var	2
	var	1
	pnull
	var	3
	str	15
	pnull
	int	1
	var	4
	line	510
	colm	68
	synt	any
	plus
	line	510
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	510
	colm	104
	synt	any
	field	decl_const_val
	line	510
	colm	99
	synt	any
	invoke	1
	line	510
	colm	87
	synt	any
	cat
	line	510
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	512
	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	513
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	515
	colm	6
	synt	any
	field	__m
	line	515
	colm	10
	synt	any
	field	Node
	line	515
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	515
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	516
	colm	6
	synt	any
	field	__m
	line	516
	colm	10
	synt	any
	field	ConsNode
	line	516
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	516
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	517
	colm	41
	synt	any
	field	decl_id
	line	517
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	518
	colm	49
	synt	any
	field	decl_denotation
	line	518
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	519
	colm	46
	synt	any
	field	displacement
	line	519
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	520
	colm	39
	synt	any
	field	level
	line	520
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	mark	L8
	var	2
	var	0
	str	4
	pnull
	var	0
	line	521
	colm	48
	synt	any
	field	decl_signature
	line	521
	colm	15
	synt	any
	invoke	3
	unmark
lab L8
	mark	L9
	var	2
	var	0
	str	5
	pnull
	var	0
	line	522
	colm	43
	synt	any
	field	decl_done
	line	522
	colm	15
	synt	any
	invoke	3
	unmark
lab L9
	mark	L10
	var	2
	var	0
	str	6
	pnull
	var	0
	line	523
	colm	49
	synt	any
	field	decl_sig_transp
	line	523
	colm	15
	synt	any
	invoke	3
	unmark
lab L10
	mark	L11
	var	2
	var	0
	str	7
	pnull
	var	0
	line	524
	colm	51
	synt	any
	field	decl_innermost_id
	line	524
	colm	15
	synt	any
	invoke	3
	unmark
lab L11
	mark	L12
	var	2
	var	0
	str	8
	pnull
	var	0
	line	525
	colm	58
	synt	any
	field	decl_previous_definition
	line	525
	colm	15
	synt	any
	invoke	3
	unmark
lab L12
	mark	L13
	var	2
	var	0
	str	9
	pnull
	var	0
	line	526
	colm	44
	synt	any
	field	decl_scope
	line	526
	colm	15
	synt	any
	invoke	3
	unmark
lab L13
	mark	L14
	var	2
	var	0
	str	10
	pnull
	var	0
	line	527
	colm	50
	synt	any
	field	decl_can_be_refd
	line	527
	colm	15
	synt	any
	invoke	3
	unmark
lab L14
	mark	L15
	var	2
	var	0
	str	11
	pnull
	var	0
	line	528
	colm	46
	synt	any
	field	decl_special
	line	528
	colm	15
	synt	any
	invoke	3
	unmark
lab L15
	mark	L16
	var	2
	var	0
	str	12
	pnull
	var	0
	line	529
	colm	48
	synt	any
	field	decl_sel_index
	line	529
	colm	15
	synt	any
	invoke	3
	unmark
lab L16
	mark	L17
	var	2
	var	0
	str	13
	pnull
	var	0
	line	530
	colm	45
	synt	any
	field	decl_needed
	line	530
	colm	15
	synt	any
	invoke	3
	unmark
lab L17
	var	2
	var	0
	str	14
	pnull
	var	0
	line	531
	colm	48
	synt	any
	field	decl_const_val
	line	531
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	533
	colm	1
	synt	any
	pfail
	end
proc DeclarationNode_initially
	local	0,001000,self
	declend
	line	534
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	535
	colm	6
	synt	any
	field	__m
	line	535
	colm	10
	synt	any
	field	Node
	line	535
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	535
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	535
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	535
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	535
	colm	72
	synt	any
	field	post_num
	line	535
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	536
	colm	6
	synt	any
	field	__m
	line	536
	colm	10
	synt	any
	field	ConsNode
	line	536
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	536
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	536
	colm	57
	synt	any
	field	cn_tl_field
	line	536
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	537
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	538
	colm	1
	synt	any
	pfail
	end
proc DeclarationNode
	local	0,001000,decl_id
	local	1,001000,decl_denotation
	local	2,001000,displacement
	local	3,001000,level
	local	4,001000,decl_signature
	local	5,001000,decl_done
	local	6,001000,decl_sig_transp
	local	7,001000,decl_innermost_id
	local	8,001000,decl_previous_definition
	local	9,001000,decl_scope
	local	10,001000,decl_can_be_refd
	local	11,001000,decl_special
	local	12,001000,decl_sel_index
	local	13,001000,decl_needed
	local	14,001000,decl_const_val
	local	15,001000,kind
	local	16,001000,vlineno
	local	17,001000,pre_num
	local	18,001000,post_num
	local	19,001000,cn_hd_field
	local	20,001000,cn_tl_field
	local	21,001000,unique_id
	local	22,000020,self
	local	23,000020,clone
	local	24,000000,DeclarationNode__oprec
	local	25,000000,DeclarationNodeinitialize
	local	26,000000,Node__oprec
	local	27,000000,Nodeinitialize
	local	28,000000,ConsNode__oprec
	local	29,000000,ConsNodeinitialize
	local	30,000000,DeclarationNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	24
	line	8
	colm	6
	synt	any
	null
	unmark
	var	25
	line	8
	colm	60
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	26
	line	9
	colm	6
	synt	any
	null
	unmark
	var	27
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	24
	line	10
	colm	25
	synt	any
	field	Node
	var	26
	line	10
	colm	31
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	28
	line	11
	colm	6
	synt	any
	null
	unmark
	var	29
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	24
	line	12
	colm	25
	synt	any
	field	ConsNode
	var	28
	line	12
	colm	35
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	22
	var	30
	line	14
	colm	34
	synt	any
	keywd	null
	var	24
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	14
	var	15
	var	16
	var	17
	var	18
	var	19
	var	20
	var	21
	line	14
	colm	33
	synt	any
	invoke	24
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	22
	line	15
	colm	7
	synt	any
	field	__s
	var	22
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	22
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	22
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	22
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc DeclarationNodeinitialize
	local	0,000000,DeclarationNode__oprec
	local	1,000000,DeclarationNode__methods
	local	2,000000,DeclarationNode_dump
	local	3,000000,DeclarationNode_dump_tree
	local	4,000000,DeclarationNode_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	541
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	543
	colm	6
	synt	any
	field	__m
	line	543
	colm	10
	synt	any
	field	Node
	line	543
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	543
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	544
	colm	6
	synt	any
	field	__m
	line	544
	colm	10
	synt	any
	field	ConsNode
	line	544
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	544
	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	546
	colm	60
	synt	any
	plus
	line	546
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	546
	colm	96
	synt	any
	field	par_id
	line	546
	colm	91
	synt	any
	invoke	1
	line	546
	colm	79
	synt	any
	cat
	line	546
	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	547
	colm	67
	synt	any
	plus
	line	547
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	547
	colm	103
	synt	any
	field	par_signature
	line	547
	colm	98
	synt	any
	invoke	1
	line	547
	colm	86
	synt	any
	cat
	line	547
	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	548
	colm	66
	synt	any
	plus
	line	548
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	548
	colm	102
	synt	any
	field	displacement
	line	548
	colm	97
	synt	any
	invoke	1
	line	548
	colm	85
	synt	any
	cat
	line	548
	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	549
	colm	59
	synt	any
	plus
	line	549
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	549
	colm	95
	synt	any
	field	level
	line	549
	colm	90
	synt	any
	invoke	1
	line	549
	colm	78
	synt	any
	cat
	line	549
	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	550
	colm	77
	synt	any
	plus
	line	550
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	550
	colm	113
	synt	any
	field	par_previous_definition
	line	550
	colm	108
	synt	any
	invoke	1
	line	550
	colm	96
	synt	any
	cat
	line	550
	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	551
	colm	63
	synt	any
	plus
	line	551
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	551
	colm	99
	synt	any
	field	par_scope
	line	551
	colm	94
	synt	any
	invoke	1
	line	551
	colm	82
	synt	any
	cat
	line	551
	colm	18
	synt	any
	invoke	2
	unmark
lab L9
	var	2
	var	1
	pnull
	var	3
	str	7
	pnull
	int	1
	var	4
	line	552
	colm	66
	synt	any
	plus
	line	552
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	552
	colm	102
	synt	any
	field	par_only_def
	line	552
	colm	97
	synt	any
	invoke	1
	line	552
	colm	85
	synt	any
	cat
	line	552
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	554
	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	555
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	557
	colm	6
	synt	any
	field	__m
	line	557
	colm	10
	synt	any
	field	Node
	line	557
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	557
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	558
	colm	6
	synt	any
	field	__m
	line	558
	colm	10
	synt	any
	field	ConsNode
	line	558
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	558
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	560
	colm	40
	synt	any
	field	par_id
	line	560
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	561
	colm	47
	synt	any
	field	par_signature
	line	561
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	562
	colm	46
	synt	any
	field	displacement
	line	562
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	563
	colm	39
	synt	any
	field	level
	line	563
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	mark	L8
	var	2
	var	0
	str	4
	pnull
	var	0
	line	564
	colm	57
	synt	any
	field	par_previous_definition
	line	564
	colm	15
	synt	any
	invoke	3
	unmark
lab L8
	mark	L9
	var	2
	var	0
	str	5
	pnull
	var	0
	line	565
	colm	43
	synt	any
	field	par_scope
	line	565
	colm	15
	synt	any
	invoke	3
	unmark
lab L9
	var	2
	var	0
	str	6
	pnull
	var	0
	line	566
	colm	46
	synt	any
	field	par_only_def
	line	566
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	568
	colm	1
	synt	any
	pfail
	end
proc ParameterNode_initially
	local	0,001000,self
	declend
	line	569
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	570
	colm	6
	synt	any
	field	__m
	line	570
	colm	10
	synt	any
	field	Node
	line	570
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	570
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	570
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	570
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	570
	colm	72
	synt	any
	field	post_num
	line	570
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	571
	colm	6
	synt	any
	field	__m
	line	571
	colm	10
	synt	any
	field	ConsNode
	line	571
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	571
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	571
	colm	57
	synt	any
	field	cn_tl_field
	line	571
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	572
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	573
	colm	1
	synt	any
	pfail
	end
proc ParameterNode
	local	0,001000,par_id
	local	1,001000,par_signature
	local	2,001000,displacement
	local	3,001000,level
	local	4,001000,par_previous_definition
	local	5,001000,par_scope
	local	6,001000,par_only_def
	local	7,001000,kind
	local	8,001000,vlineno
	local	9,001000,pre_num
	local	10,001000,post_num
	local	11,001000,cn_hd_field
	local	12,001000,cn_tl_field
	local	13,001000,unique_id
	local	14,000020,self
	local	15,000020,clone
	local	16,000000,ParameterNode__oprec
	local	17,000000,ParameterNodeinitialize
	local	18,000000,Node__oprec
	local	19,000000,Nodeinitialize
	local	20,000000,ConsNode__oprec
	local	21,000000,ConsNodeinitialize
	local	22,000000,ParameterNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	8
	colm	6
	synt	any
	null
	unmark
	var	17
	line	8
	colm	56
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	18
	line	9
	colm	6
	synt	any
	null
	unmark
	var	19
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	16
	line	10
	colm	23
	synt	any
	field	Node
	var	18
	line	10
	colm	29
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	20
	line	11
	colm	6
	synt	any
	null
	unmark
	var	21
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	16
	line	12
	colm	23
	synt	any
	field	ConsNode
	var	20
	line	12
	colm	33
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	14
	var	22
	line	14
	colm	32
	synt	any
	keywd	null
	var	16
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	line	14
	colm	31
	synt	any
	invoke	16
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	14
	line	15
	colm	7
	synt	any
	field	__s
	var	14
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	14
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	14
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	14
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc ParameterNodeinitialize
	local	0,000000,ParameterNode__oprec
	local	1,000000,ParameterNode__methods
	local	2,000000,ParameterNode_dump
	local	3,000000,ParameterNode_dump_tree
	local	4,000000,ParameterNode_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	577
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	579
	colm	6
	synt	any
	field	__m
	line	579
	colm	10
	synt	any
	field	Node
	line	579
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	579
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	580
	colm	6
	synt	any
	field	__m
	line	580
	colm	10
	synt	any
	field	ConsNode
	line	580
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	580
	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	582
	colm	59
	synt	any
	plus
	line	582
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	582
	colm	95
	synt	any
	field	re_id
	line	582
	colm	90
	synt	any
	invoke	1
	line	582
	colm	78
	synt	any
	cat
	line	582
	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	583
	colm	67
	synt	any
	plus
	line	583
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	583
	colm	103
	synt	any
	field	re_denotation
	line	583
	colm	98
	synt	any
	invoke	1
	line	583
	colm	86
	synt	any
	cat
	line	583
	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	584
	colm	66
	synt	any
	plus
	line	584
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	584
	colm	102
	synt	any
	field	re_New_index
	line	584
	colm	97
	synt	any
	invoke	1
	line	584
	colm	85
	synt	any
	cat
	line	584
	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	585
	colm	70
	synt	any
	plus
	line	585
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	585
	colm	106
	synt	any
	field	re_ValueOf_index
	line	585
	colm	101
	synt	any
	invoke	1
	line	585
	colm	89
	synt	any
	cat
	line	585
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	586
	colm	69
	synt	any
	plus
	line	586
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	586
	colm	105
	synt	any
	field	re_assign_index
	line	586
	colm	100
	synt	any
	invoke	1
	line	586
	colm	88
	synt	any
	cat
	line	586
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	588
	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	589
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	591
	colm	6
	synt	any
	field	__m
	line	591
	colm	10
	synt	any
	field	Node
	line	591
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	591
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	592
	colm	6
	synt	any
	field	__m
	line	592
	colm	10
	synt	any
	field	ConsNode
	line	592
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	592
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	594
	colm	39
	synt	any
	field	re_id
	line	594
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	595
	colm	47
	synt	any
	field	re_denotation
	line	595
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	596
	colm	46
	synt	any
	field	re_New_index
	line	596
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	597
	colm	50
	synt	any
	field	re_ValueOf_index
	line	597
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	var	2
	var	0
	str	4
	pnull
	var	0
	line	598
	colm	49
	synt	any
	field	re_assign_index
	line	598
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	600
	colm	1
	synt	any
	pfail
	end
proc RElementNode_initially
	local	0,001000,self
	declend
	line	601
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	602
	colm	6
	synt	any
	field	__m
	line	602
	colm	10
	synt	any
	field	Node
	line	602
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	602
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	602
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	602
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	602
	colm	72
	synt	any
	field	post_num
	line	602
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	603
	colm	6
	synt	any
	field	__m
	line	603
	colm	10
	synt	any
	field	ConsNode
	line	603
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	603
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	603
	colm	57
	synt	any
	field	cn_tl_field
	line	603
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	604
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	605
	colm	1
	synt	any
	pfail
	end
proc RElementNode
	local	0,001000,re_id
	local	1,001000,re_denotation
	local	2,001000,re_New_index
	local	3,001000,re_ValueOf_index
	local	4,001000,re_assign_index
	local	5,001000,kind
	local	6,001000,vlineno
	local	7,001000,pre_num
	local	8,001000,post_num
	local	9,001000,cn_hd_field
	local	10,001000,cn_tl_field
	local	11,001000,unique_id
	local	12,000020,self
	local	13,000020,clone
	local	14,000000,RElementNode__oprec
	local	15,000000,RElementNodeinitialize
	local	16,000000,Node__oprec
	local	17,000000,Nodeinitialize
	local	18,000000,ConsNode__oprec
	local	19,000000,ConsNodeinitialize
	local	20,000000,RElementNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	8
	colm	6
	synt	any
	null
	unmark
	var	15
	line	8
	colm	54
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	9
	colm	6
	synt	any
	null
	unmark
	var	17
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	14
	line	10
	colm	22
	synt	any
	field	Node
	var	16
	line	10
	colm	28
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	18
	line	11
	colm	6
	synt	any
	null
	unmark
	var	19
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	14
	line	12
	colm	22
	synt	any
	field	ConsNode
	var	18
	line	12
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	12
	var	20
	line	14
	colm	31
	synt	any
	keywd	null
	var	14
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	line	14
	colm	30
	synt	any
	invoke	14
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	12
	line	15
	colm	7
	synt	any
	field	__s
	var	12
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	12
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	12
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	12
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc RElementNodeinitialize
	local	0,000000,RElementNode__oprec
	local	1,000000,RElementNode__methods
	local	2,000000,RElementNode_dump
	local	3,000000,RElementNode_dump_tree
	local	4,000000,RElementNode_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_initially
	local	0,001000,self
	declend
	line	627
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	628
	colm	6
	synt	any
	field	__m
	line	628
	colm	10
	synt	any
	field	Node
	line	628
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	628
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	628
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	628
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	628
	colm	72
	synt	any
	field	post_num
	line	628
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	629
	colm	6
	synt	any
	field	__m
	line	629
	colm	10
	synt	any
	field	ConsNode
	line	629
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	629
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	629
	colm	57
	synt	any
	field	cn_tl_field
	line	629
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	630
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	631
	colm	1
	synt	any
	pfail
	end
proc VarSignature
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,var_denotation
	local	3,001000,kind
	local	4,001000,vlineno
	local	5,001000,pre_num
	local	6,001000,post_num
	local	7,001000,cn_hd_field
	local	8,001000,cn_tl_field
	local	9,001000,unique_id
	local	10,000020,self
	local	11,000020,clone
	local	12,000000,VarSignature__oprec
	local	13,000000,VarSignatureinitialize
	local	14,000000,Node__oprec
	local	15,000000,Nodeinitialize
	local	16,000000,ConsNode__oprec
	local	17,000000,ConsNodeinitialize
	local	18,000000,VarSignature__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	12
	line	8
	colm	6
	synt	any
	null
	unmark
	var	13
	line	8
	colm	54
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	9
	colm	6
	synt	any
	null
	unmark
	var	15
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	12
	line	10
	colm	22
	synt	any
	field	Node
	var	14
	line	10
	colm	28
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	11
	colm	6
	synt	any
	null
	unmark
	var	17
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	12
	line	12
	colm	22
	synt	any
	field	ConsNode
	var	16
	line	12
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	10
	var	18
	line	14
	colm	31
	synt	any
	keywd	null
	var	12
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	line	14
	colm	30
	synt	any
	invoke	12
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	10
	line	15
	colm	7
	synt	any
	field	__s
	var	10
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	10
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	10
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	10
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc VarSignatureinitialize
	local	0,000000,VarSignature__oprec
	local	1,000000,VarSignature__methods
	local	2,000000,VarSignature_dump
	local	3,000000,VarSignature_dump_tree
	local	4,000000,VarSignature_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	635
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	637
	colm	6
	synt	any
	field	__m
	line	637
	colm	10
	synt	any
	field	Node
	line	637
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	637
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	638
	colm	6
	synt	any
	field	__m
	line	638
	colm	10
	synt	any
	field	ConsNode
	line	638
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	638
	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	640
	colm	63
	synt	any
	plus
	line	640
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	640
	colm	99
	synt	any
	field	signature
	line	640
	colm	94
	synt	any
	invoke	1
	line	640
	colm	82
	synt	any
	cat
	line	640
	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	641
	colm	62
	synt	any
	plus
	line	641
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	641
	colm	98
	synt	any
	field	sig_done
	line	641
	colm	93
	synt	any
	invoke	1
	line	641
	colm	81
	synt	any
	cat
	line	641
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	642
	colm	68
	synt	any
	plus
	line	642
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	642
	colm	104
	synt	any
	field	val_denotation
	line	642
	colm	99
	synt	any
	invoke	1
	line	642
	colm	87
	synt	any
	cat
	line	642
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	644
	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	645
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	647
	colm	6
	synt	any
	field	__m
	line	647
	colm	10
	synt	any
	field	Node
	line	647
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	647
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	648
	colm	6
	synt	any
	field	__m
	line	648
	colm	10
	synt	any
	field	ConsNode
	line	648
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	648
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	650
	colm	43
	synt	any
	field	signature
	line	650
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	651
	colm	42
	synt	any
	field	sig_done
	line	651
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	var	2
	var	0
	str	2
	pnull
	var	0
	line	652
	colm	48
	synt	any
	field	val_denotation
	line	652
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	654
	colm	1
	synt	any
	pfail
	end
proc ValSignature_initially
	local	0,001000,self
	declend
	line	655
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	656
	colm	6
	synt	any
	field	__m
	line	656
	colm	10
	synt	any
	field	Node
	line	656
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	656
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	656
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	656
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	656
	colm	72
	synt	any
	field	post_num
	line	656
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	657
	colm	6
	synt	any
	field	__m
	line	657
	colm	10
	synt	any
	field	ConsNode
	line	657
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	657
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	657
	colm	57
	synt	any
	field	cn_tl_field
	line	657
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	658
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	659
	colm	1
	synt	any
	pfail
	end
proc ValSignature
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,val_denotation
	local	3,001000,kind
	local	4,001000,vlineno
	local	5,001000,pre_num
	local	6,001000,post_num
	local	7,001000,cn_hd_field
	local	8,001000,cn_tl_field
	local	9,001000,unique_id
	local	10,000020,self
	local	11,000020,clone
	local	12,000000,ValSignature__oprec
	local	13,000000,ValSignatureinitialize
	local	14,000000,Node__oprec
	local	15,000000,Nodeinitialize
	local	16,000000,ConsNode__oprec
	local	17,000000,ConsNodeinitialize
	local	18,000000,ValSignature__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	12
	line	8
	colm	6
	synt	any
	null
	unmark
	var	13
	line	8
	colm	54
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	9
	colm	6
	synt	any
	null
	unmark
	var	15
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	12
	line	10
	colm	22
	synt	any
	field	Node
	var	14
	line	10
	colm	28
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	11
	colm	6
	synt	any
	null
	unmark
	var	17
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	12
	line	12
	colm	22
	synt	any
	field	ConsNode
	var	16
	line	12
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	10
	var	18
	line	14
	colm	31
	synt	any
	keywd	null
	var	12
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	line	14
	colm	30
	synt	any
	invoke	12
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	10
	line	15
	colm	7
	synt	any
	field	__s
	var	10
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	10
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	10
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	10
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc ValSignatureinitialize
	local	0,000000,ValSignature__oprec
	local	1,000000,ValSignature__methods
	local	2,000000,ValSignature_dump
	local	3,000000,ValSignature_dump_tree
	local	4,000000,ValSignature_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	662
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	664
	colm	6
	synt	any
	field	__m
	line	664
	colm	10
	synt	any
	field	Node
	line	664
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	664
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	665
	colm	6
	synt	any
	field	__m
	line	665
	colm	10
	synt	any
	field	ConsNode
	line	665
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	665
	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	666
	colm	63
	synt	any
	plus
	line	666
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	666
	colm	99
	synt	any
	field	signature
	line	666
	colm	94
	synt	any
	invoke	1
	line	666
	colm	82
	synt	any
	cat
	line	666
	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	667
	colm	62
	synt	any
	plus
	line	667
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	667
	colm	98
	synt	any
	field	sig_done
	line	667
	colm	93
	synt	any
	invoke	1
	line	667
	colm	81
	synt	any
	cat
	line	667
	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	668
	colm	71
	synt	any
	plus
	line	668
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	668
	colm	107
	synt	any
	field	fsig_construction
	line	668
	colm	102
	synt	any
	invoke	1
	line	668
	colm	90
	synt	any
	cat
	line	668
	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	669
	colm	66
	synt	any
	plus
	line	669
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	669
	colm	102
	synt	any
	field	fsig_special
	line	669
	colm	97
	synt	any
	invoke	1
	line	669
	colm	85
	synt	any
	cat
	line	669
	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	670
	colm	70
	synt	any
	plus
	line	670
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	670
	colm	106
	synt	any
	field	fsig_slink_known
	line	670
	colm	101
	synt	any
	invoke	1
	line	670
	colm	89
	synt	any
	cat
	line	670
	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	671
	colm	70
	synt	any
	plus
	line	671
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	671
	colm	106
	synt	any
	field	fsig_inline_code
	line	671
	colm	101
	synt	any
	invoke	1
	line	671
	colm	89
	synt	any
	cat
	line	671
	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	672
	colm	69
	synt	any
	plus
	line	672
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	672
	colm	105
	synt	any
	field	fsig_param_list
	line	672
	colm	100
	synt	any
	invoke	1
	line	672
	colm	88
	synt	any
	cat
	line	672
	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	673
	colm	69
	synt	any
	plus
	line	673
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	673
	colm	105
	synt	any
	field	fsig_result_sig
	line	673
	colm	100
	synt	any
	invoke	1
	line	673
	colm	88
	synt	any
	cat
	line	673
	colm	18
	synt	any
	invoke	2
	unmark
lab L11
	var	2
	var	1
	pnull
	var	3
	str	9
	pnull
	int	1
	var	4
	line	674
	colm	67
	synt	any
	plus
	line	674
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	674
	colm	103
	synt	any
	field	fc_code_label
	line	674
	colm	98
	synt	any
	invoke	1
	line	674
	colm	86
	synt	any
	cat
	line	674
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	676
	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	677
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	679
	colm	6
	synt	any
	field	__m
	line	679
	colm	10
	synt	any
	field	Node
	line	679
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	679
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	680
	colm	6
	synt	any
	field	__m
	line	680
	colm	10
	synt	any
	field	ConsNode
	line	680
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	680
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	681
	colm	43
	synt	any
	field	signature
	line	681
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	682
	colm	42
	synt	any
	field	sig_done
	line	682
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	683
	colm	51
	synt	any
	field	fsig_construction
	line	683
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	684
	colm	46
	synt	any
	field	fsig_special
	line	684
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	mark	L8
	var	2
	var	0
	str	4
	pnull
	var	0
	line	685
	colm	50
	synt	any
	field	fsig_slink_known
	line	685
	colm	15
	synt	any
	invoke	3
	unmark
lab L8
	mark	L9
	var	2
	var	0
	str	5
	pnull
	var	0
	line	686
	colm	50
	synt	any
	field	fsig_inline_code
	line	686
	colm	15
	synt	any
	invoke	3
	unmark
lab L9
	mark	L10
	var	2
	var	0
	str	6
	pnull
	var	0
	line	687
	colm	49
	synt	any
	field	fsig_param_list
	line	687
	colm	15
	synt	any
	invoke	3
	unmark
lab L10
	mark	L11
	var	2
	var	0
	str	7
	pnull
	var	0
	line	688
	colm	49
	synt	any
	field	fsig_result_sig
	line	688
	colm	15
	synt	any
	invoke	3
	unmark
lab L11
	var	2
	var	0
	str	8
	pnull
	var	0
	line	689
	colm	47
	synt	any
	field	fc_code_label
	line	689
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	691
	colm	1
	synt	any
	pfail
	end
proc FSignature_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	692
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	693
	colm	6
	synt	any
	field	__m
	line	693
	colm	10
	synt	any
	field	Node
	line	693
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	693
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	693
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	693
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	693
	colm	72
	synt	any
	field	post_num
	line	693
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	694
	colm	6
	synt	any
	field	__m
	line	694
	colm	10
	synt	any
	field	ConsNode
	line	694
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	694
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	694
	colm	57
	synt	any
	field	cn_tl_field
	line	694
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	695
	colm	5
	synt	any
	field	fsig_param_list
	var	1
	line	695
	colm	34
	synt	any
	invoke	0
	line	695
	colm	22
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	line	696
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	697
	colm	1
	synt	any
	pfail
	end
proc FSignature
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,fsig_construction
	local	3,001000,fsig_special
	local	4,001000,fsig_slink_known
	local	5,001000,fsig_inline_code
	local	6,001000,fsig_param_list
	local	7,001000,fsig_result_sig
	local	8,001000,fc_code_label
	local	9,001000,kind
	local	10,001000,vlineno
	local	11,001000,pre_num
	local	12,001000,post_num
	local	13,001000,cn_hd_field
	local	14,001000,cn_tl_field
	local	15,001000,unique_id
	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	699
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	701
	colm	6
	synt	any
	field	__m
	line	701
	colm	10
	synt	any
	field	Node
	line	701
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	701
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	702
	colm	6
	synt	any
	field	__m
	line	702
	colm	10
	synt	any
	field	ConsNode
	line	702
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	702
	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	703
	colm	63
	synt	any
	plus
	line	703
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	703
	colm	99
	synt	any
	field	signature
	line	703
	colm	94
	synt	any
	invoke	1
	line	703
	colm	82
	synt	any
	cat
	line	703
	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	704
	colm	62
	synt	any
	plus
	line	704
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	704
	colm	98
	synt	any
	field	sig_done
	line	704
	colm	93
	synt	any
	invoke	1
	line	704
	colm	81
	synt	any
	cat
	line	704
	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	705
	colm	68
	synt	any
	plus
	line	705
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	705
	colm	104
	synt	any
	field	ts_simple_type
	line	705
	colm	99
	synt	any
	invoke	1
	line	705
	colm	87
	synt	any
	cat
	line	705
	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	706
	colm	70
	synt	any
	plus
	line	706
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	706
	colm	106
	synt	any
	field	ts_local_type_id
	line	706
	colm	101
	synt	any
	invoke	1
	line	706
	colm	89
	synt	any
	cat
	line	706
	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	707
	colm	62
	synt	any
	plus
	line	707
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	707
	colm	98
	synt	any
	field	ts_clist
	line	707
	colm	93
	synt	any
	invoke	1
	line	707
	colm	81
	synt	any
	cat
	line	707
	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	708
	colm	76
	synt	any
	plus
	line	708
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	708
	colm	112
	synt	any
	field	ts_previous_definition
	line	708
	colm	107
	synt	any
	invoke	1
	line	708
	colm	95
	synt	any
	cat
	line	708
	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	709
	colm	67
	synt	any
	plus
	line	709
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	709
	colm	103
	synt	any
	field	ts_const_code
	line	709
	colm	98
	synt	any
	invoke	1
	line	709
	colm	86
	synt	any
	cat
	line	709
	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	710
	colm	68
	synt	any
	plus
	line	710
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	710
	colm	104
	synt	any
	field	ts_string_code
	line	710
	colm	99
	synt	any
	invoke	1
	line	710
	colm	87
	synt	any
	cat
	line	710
	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	711
	colm	69
	synt	any
	plus
	line	711
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	711
	colm	105
	synt	any
	field	ts_element_code
	line	711
	colm	100
	synt	any
	invoke	1
	line	711
	colm	88
	synt	any
	cat
	line	711
	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	712
	colm	67
	synt	any
	plus
	line	712
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	712
	colm	103
	synt	any
	field	ts_string_max
	line	712
	colm	98
	synt	any
	invoke	1
	line	712
	colm	86
	synt	any
	cat
	line	712
	colm	18
	synt	any
	invoke	2
	unmark
lab L13
	var	2
	var	1
	pnull
	var	3
	str	11
	pnull
	int	1
	var	4
	line	713
	colm	68
	synt	any
	plus
	line	713
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	713
	colm	104
	synt	any
	field	ts_meta_concat
	line	713
	colm	99
	synt	any
	invoke	1
	line	713
	colm	87
	synt	any
	cat
	line	713
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	715
	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	716
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	718
	colm	6
	synt	any
	field	__m
	line	718
	colm	10
	synt	any
	field	Node
	line	718
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	718
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	719
	colm	6
	synt	any
	field	__m
	line	719
	colm	10
	synt	any
	field	ConsNode
	line	719
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	719
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	720
	colm	43
	synt	any
	field	signature
	line	720
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	721
	colm	42
	synt	any
	field	sig_done
	line	721
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	722
	colm	48
	synt	any
	field	ts_simple_type
	line	722
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	723
	colm	50
	synt	any
	field	ts_local_type_id
	line	723
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	mark	L8
	var	2
	var	0
	str	4
	pnull
	var	0
	line	724
	colm	42
	synt	any
	field	ts_clist
	line	724
	colm	15
	synt	any
	invoke	3
	unmark
lab L8
	mark	L9
	var	2
	var	0
	str	5
	pnull
	var	0
	line	725
	colm	56
	synt	any
	field	ts_previous_definition
	line	725
	colm	15
	synt	any
	invoke	3
	unmark
lab L9
	mark	L10
	var	2
	var	0
	str	6
	pnull
	var	0
	line	726
	colm	47
	synt	any
	field	ts_const_code
	line	726
	colm	15
	synt	any
	invoke	3
	unmark
lab L10
	mark	L11
	var	2
	var	0
	str	7
	pnull
	var	0
	line	727
	colm	48
	synt	any
	field	ts_string_code
	line	727
	colm	15
	synt	any
	invoke	3
	unmark
lab L11
	mark	L12
	var	2
	var	0
	str	8
	pnull
	var	0
	line	728
	colm	49
	synt	any
	field	ts_element_code
	line	728
	colm	15
	synt	any
	invoke	3
	unmark
lab L12
	mark	L13
	var	2
	var	0
	str	9
	pnull
	var	0
	line	729
	colm	47
	synt	any
	field	ts_string_max
	line	729
	colm	15
	synt	any
	invoke	3
	unmark
lab L13
	var	2
	var	0
	str	10
	pnull
	var	0
	line	730
	colm	48
	synt	any
	field	ts_meta_concat
	line	730
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	732
	colm	1
	synt	any
	pfail
	end
proc TSignature_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	733
	colm	11
	synt	any
	mark	L1
	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	initially
	var	0
	pnull
	var	0
	line	734
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	734
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	734
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	734
	colm	72
	synt	any
	field	post_num
	line	734
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	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	initially
	var	0
	pnull
	var	0
	line	735
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	735
	colm	57
	synt	any
	field	cn_tl_field
	line	735
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	736
	colm	5
	synt	any
	field	ts_clist
	var	1
	line	736
	colm	27
	synt	any
	invoke	0
	line	736
	colm	15
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	line	737
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	738
	colm	1
	synt	any
	pfail
	end
proc TSignature
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,ts_simple_type
	local	3,001000,ts_local_type_id
	local	4,001000,ts_clist
	local	5,001000,ts_previous_definition
	local	6,001000,ts_const_code
	local	7,001000,ts_string_code
	local	8,001000,ts_element_code
	local	9,001000,ts_string_max
	local	10,001000,ts_meta_concat
	local	11,001000,kind
	local	12,001000,vlineno
	local	13,001000,pre_num
	local	14,001000,post_num
	local	15,001000,cn_hd_field
	local	16,001000,cn_tl_field
	local	17,001000,unique_id
	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	740
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	742
	colm	6
	synt	any
	field	__m
	line	742
	colm	10
	synt	any
	field	Node
	line	742
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	742
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	743
	colm	6
	synt	any
	field	__m
	line	743
	colm	10
	synt	any
	field	ConsNode
	line	743
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	743
	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	745
	colm	60
	synt	any
	plus
	line	745
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	745
	colm	96
	synt	any
	field	tsc_id
	line	745
	colm	91
	synt	any
	invoke	1
	line	745
	colm	79
	synt	any
	cat
	line	745
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	746
	colm	67
	synt	any
	plus
	line	746
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	746
	colm	103
	synt	any
	field	tsc_signature
	line	746
	colm	98
	synt	any
	invoke	1
	line	746
	colm	86
	synt	any
	cat
	line	746
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	748
	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	749
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	751
	colm	6
	synt	any
	field	__m
	line	751
	colm	10
	synt	any
	field	Node
	line	751
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	751
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	752
	colm	6
	synt	any
	field	__m
	line	752
	colm	10
	synt	any
	field	ConsNode
	line	752
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	752
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	754
	colm	40
	synt	any
	field	tsc_id
	line	754
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	var	2
	var	0
	str	1
	pnull
	var	0
	line	755
	colm	47
	synt	any
	field	tsc_signature
	line	755
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	757
	colm	1
	synt	any
	pfail
	end
proc TSComponentNode_initially
	local	0,001000,self
	declend
	line	758
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	759
	colm	6
	synt	any
	field	__m
	line	759
	colm	10
	synt	any
	field	Node
	line	759
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	759
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	759
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	759
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	759
	colm	72
	synt	any
	field	post_num
	line	759
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	760
	colm	6
	synt	any
	field	__m
	line	760
	colm	10
	synt	any
	field	ConsNode
	line	760
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	760
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	760
	colm	57
	synt	any
	field	cn_tl_field
	line	760
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	761
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	762
	colm	1
	synt	any
	pfail
	end
proc TSComponentNode
	local	0,001000,tsc_id
	local	1,001000,tsc_signature
	local	2,001000,kind
	local	3,001000,vlineno
	local	4,001000,pre_num
	local	5,001000,post_num
	local	6,001000,cn_hd_field
	local	7,001000,cn_tl_field
	local	8,001000,unique_id
	local	9,000020,self
	local	10,000020,clone
	local	11,000000,TSComponentNode__oprec
	local	12,000000,TSComponentNodeinitialize
	local	13,000000,Node__oprec
	local	14,000000,Nodeinitialize
	local	15,000000,ConsNode__oprec
	local	16,000000,ConsNodeinitialize
	local	17,000000,TSComponentNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	11
	line	8
	colm	6
	synt	any
	null
	unmark
	var	12
	line	8
	colm	60
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	13
	line	9
	colm	6
	synt	any
	null
	unmark
	var	14
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	11
	line	10
	colm	25
	synt	any
	field	Node
	var	13
	line	10
	colm	31
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	15
	line	11
	colm	6
	synt	any
	null
	unmark
	var	16
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	11
	line	12
	colm	25
	synt	any
	field	ConsNode
	var	15
	line	12
	colm	35
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	9
	var	17
	line	14
	colm	34
	synt	any
	keywd	null
	var	11
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	line	14
	colm	33
	synt	any
	invoke	11
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	9
	line	15
	colm	7
	synt	any
	field	__s
	var	9
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	9
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	9
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	9
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc TSComponentNodeinitialize
	local	0,000000,TSComponentNode__oprec
	local	1,000000,TSComponentNode__methods
	local	2,000000,TSComponentNode_dump
	local	3,000000,TSComponentNode_dump_tree
	local	4,000000,TSComponentNode_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	765
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	767
	colm	6
	synt	any
	field	__m
	line	767
	colm	10
	synt	any
	field	Node
	line	767
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	767
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	768
	colm	6
	synt	any
	field	__m
	line	768
	colm	10
	synt	any
	field	ConsNode
	line	768
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	768
	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	770
	colm	59
	synt	any
	plus
	line	770
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	770
	colm	95
	synt	any
	field	dcs_0
	line	770
	colm	90
	synt	any
	invoke	1
	line	770
	colm	78
	synt	any
	cat
	line	770
	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	771
	colm	59
	synt	any
	plus
	line	771
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	771
	colm	95
	synt	any
	field	dcs_1
	line	771
	colm	90
	synt	any
	invoke	1
	line	771
	colm	78
	synt	any
	cat
	line	771
	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	772
	colm	59
	synt	any
	plus
	line	772
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	772
	colm	95
	synt	any
	field	dcs_2
	line	772
	colm	90
	synt	any
	invoke	1
	line	772
	colm	78
	synt	any
	cat
	line	772
	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	773
	colm	59
	synt	any
	plus
	line	773
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	773
	colm	95
	synt	any
	field	dcs_3
	line	773
	colm	90
	synt	any
	invoke	1
	line	773
	colm	78
	synt	any
	cat
	line	773
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	774
	colm	67
	synt	any
	plus
	line	774
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	774
	colm	103
	synt	any
	field	dcsexceptions
	line	774
	colm	98
	synt	any
	invoke	1
	line	774
	colm	86
	synt	any
	cat
	line	774
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	776
	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	777
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	779
	colm	6
	synt	any
	field	__m
	line	779
	colm	10
	synt	any
	field	Node
	line	779
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	779
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	780
	colm	6
	synt	any
	field	__m
	line	780
	colm	10
	synt	any
	field	ConsNode
	line	780
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	780
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	782
	colm	39
	synt	any
	field	dcs_0
	line	782
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	783
	colm	39
	synt	any
	field	dcs_1
	line	783
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	784
	colm	39
	synt	any
	field	dcs_2
	line	784
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	785
	colm	39
	synt	any
	field	dcs_3
	line	785
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	var	2
	var	0
	str	4
	pnull
	var	0
	line	786
	colm	47
	synt	any
	field	dcsexceptions
	line	786
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	788
	colm	1
	synt	any
	pfail
	end
proc DefCharSigNode_initially
	local	0,001000,self
	declend
	line	790
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	791
	colm	6
	synt	any
	field	__m
	line	791
	colm	10
	synt	any
	field	Node
	line	791
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	791
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	791
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	791
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	791
	colm	72
	synt	any
	field	post_num
	line	791
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	792
	colm	6
	synt	any
	field	__m
	line	792
	colm	10
	synt	any
	field	ConsNode
	line	792
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	792
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	792
	colm	57
	synt	any
	field	cn_tl_field
	line	792
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	793
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	794
	colm	1
	synt	any
	pfail
	end
proc DefCharSigNode
	local	0,001000,dcs_0
	local	1,001000,dcs_1
	local	2,001000,dcs_2
	local	3,001000,dcs_3
	local	4,001000,dcsexceptions
	local	5,001000,kind
	local	6,001000,vlineno
	local	7,001000,pre_num
	local	8,001000,post_num
	local	9,001000,cn_hd_field
	local	10,001000,cn_tl_field
	local	11,001000,unique_id
	local	12,000020,self
	local	13,000020,clone
	local	14,000000,DefCharSigNode__oprec
	local	15,000000,DefCharSigNodeinitialize
	local	16,000000,Node__oprec
	local	17,000000,Nodeinitialize
	local	18,000000,ConsNode__oprec
	local	19,000000,ConsNodeinitialize
	local	20,000000,DefCharSigNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	8
	colm	6
	synt	any
	null
	unmark
	var	15
	line	8
	colm	58
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	9
	colm	6
	synt	any
	null
	unmark
	var	17
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	14
	line	10
	colm	24
	synt	any
	field	Node
	var	16
	line	10
	colm	30
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	18
	line	11
	colm	6
	synt	any
	null
	unmark
	var	19
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	14
	line	12
	colm	24
	synt	any
	field	ConsNode
	var	18
	line	12
	colm	34
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	12
	var	20
	line	14
	colm	33
	synt	any
	keywd	null
	var	14
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	line	14
	colm	32
	synt	any
	invoke	14
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	12
	line	15
	colm	7
	synt	any
	field	__s
	var	12
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	12
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	12
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	12
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc DefCharSigNodeinitialize
	local	0,000000,DefCharSigNode__oprec
	local	1,000000,DefCharSigNode__methods
	local	2,000000,DefCharSigNode_dump
	local	3,000000,DefCharSigNode_dump_tree
	local	4,000000,DefCharSigNode_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	798
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	800
	colm	6
	synt	any
	field	__m
	line	800
	colm	10
	synt	any
	field	Node
	line	800
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	800
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	801
	colm	6
	synt	any
	field	__m
	line	801
	colm	10
	synt	any
	field	ConsNode
	line	801
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	801
	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	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	signature
	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 L4
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	804
	colm	62
	synt	any
	plus
	line	804
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	804
	colm	98
	synt	any
	field	sig_done
	line	804
	colm	93
	synt	any
	invoke	1
	line	804
	colm	81
	synt	any
	cat
	line	804
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	806
	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	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
	var	1
	line	809
	colm	25
	synt	any
	invoke	2
	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
	var	1
	line	810
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	812
	colm	43
	synt	any
	field	signature
	line	812
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	var	2
	var	0
	str	1
	pnull
	var	0
	line	813
	colm	42
	synt	any
	field	sig_done
	line	813
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	815
	colm	1
	synt	any
	pfail
	end
proc SignatureSigNode_initially
	local	0,001000,self
	declend
	line	817
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	818
	colm	6
	synt	any
	field	__m
	line	818
	colm	10
	synt	any
	field	Node
	line	818
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	818
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	818
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	818
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	818
	colm	72
	synt	any
	field	post_num
	line	818
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	819
	colm	6
	synt	any
	field	__m
	line	819
	colm	10
	synt	any
	field	ConsNode
	line	819
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	819
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	819
	colm	57
	synt	any
	field	cn_tl_field
	line	819
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	820
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	821
	colm	1
	synt	any
	pfail
	end
proc SignatureSigNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,kind
	local	3,001000,vlineno
	local	4,001000,pre_num
	local	5,001000,post_num
	local	6,001000,cn_hd_field
	local	7,001000,cn_tl_field
	local	8,001000,unique_id
	local	9,000020,self
	local	10,000020,clone
	local	11,000000,SignatureSigNode__oprec
	local	12,000000,SignatureSigNodeinitialize
	local	13,000000,Node__oprec
	local	14,000000,Nodeinitialize
	local	15,000000,ConsNode__oprec
	local	16,000000,ConsNodeinitialize
	local	17,000000,SignatureSigNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	11
	line	8
	colm	6
	synt	any
	null
	unmark
	var	12
	line	8
	colm	62
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	13
	line	9
	colm	6
	synt	any
	null
	unmark
	var	14
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	11
	line	10
	colm	26
	synt	any
	field	Node
	var	13
	line	10
	colm	32
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	15
	line	11
	colm	6
	synt	any
	null
	unmark
	var	16
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	11
	line	12
	colm	26
	synt	any
	field	ConsNode
	var	15
	line	12
	colm	36
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	9
	var	17
	line	14
	colm	35
	synt	any
	keywd	null
	var	11
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	line	14
	colm	34
	synt	any
	invoke	11
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	9
	line	15
	colm	7
	synt	any
	field	__s
	var	9
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	9
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	9
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	9
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc SignatureSigNodeinitialize
	local	0,000000,SignatureSigNode__oprec
	local	1,000000,SignatureSigNode__methods
	local	2,000000,SignatureSigNode_dump
	local	3,000000,SignatureSigNode_dump_tree
	local	4,000000,SignatureSigNode_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	824
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	826
	colm	6
	synt	any
	field	__m
	line	826
	colm	10
	synt	any
	field	Node
	line	826
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	826
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	827
	colm	6
	synt	any
	field	__m
	line	827
	colm	10
	synt	any
	field	ConsNode
	line	827
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	827
	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	829
	colm	63
	synt	any
	plus
	line	829
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	829
	colm	99
	synt	any
	field	signature
	line	829
	colm	94
	synt	any
	invoke	1
	line	829
	colm	82
	synt	any
	cat
	line	829
	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	830
	colm	62
	synt	any
	plus
	line	830
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	830
	colm	98
	synt	any
	field	sig_done
	line	830
	colm	93
	synt	any
	invoke	1
	line	830
	colm	81
	synt	any
	cat
	line	830
	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	831
	colm	61
	synt	any
	plus
	line	831
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	831
	colm	97
	synt	any
	field	ar_size
	line	831
	colm	92
	synt	any
	invoke	1
	line	831
	colm	80
	synt	any
	cat
	line	831
	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	832
	colm	68
	synt	any
	plus
	line	832
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	832
	colm	104
	synt	any
	field	ar_static_link
	line	832
	colm	99
	synt	any
	invoke	1
	line	832
	colm	87
	synt	any
	cat
	line	832
	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	833
	colm	69
	synt	any
	plus
	line	833
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	833
	colm	105
	synt	any
	field	ar_static_level
	line	833
	colm	100
	synt	any
	invoke	1
	line	833
	colm	88
	synt	any
	cat
	line	833
	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	834
	colm	74
	synt	any
	plus
	line	834
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	834
	colm	110
	synt	any
	field	bld_declaration_list
	line	834
	colm	105
	synt	any
	invoke	1
	line	834
	colm	93
	synt	any
	cat
	line	834
	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	835
	colm	65
	synt	any
	plus
	line	835
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	835
	colm	101
	synt	any
	field	bld_den_seq
	line	835
	colm	96
	synt	any
	invoke	1
	line	835
	colm	84
	synt	any
	cat
	line	835
	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	836
	colm	68
	synt	any
	plus
	line	836
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	836
	colm	104
	synt	any
	field	bld_precedence
	line	836
	colm	99
	synt	any
	invoke	1
	line	836
	colm	87
	synt	any
	cat
	line	836
	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	837
	colm	63
	synt	any
	plus
	line	837
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	837
	colm	99
	synt	any
	field	bld_flags
	line	837
	colm	94
	synt	any
	invoke	1
	line	837
	colm	82
	synt	any
	cat
	line	837
	colm	18
	synt	any
	invoke	2
	unmark
lab L12
	var	2
	var	1
	pnull
	var	3
	str	10
	pnull
	int	1
	var	4
	line	838
	colm	66
	synt	any
	plus
	line	838
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	838
	colm	102
	synt	any
	field	fc_code_label
	line	838
	colm	97
	synt	any
	invoke	1
	line	838
	colm	85
	synt	any
	cat
	line	838
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	840
	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	841
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	843
	colm	6
	synt	any
	field	__m
	line	843
	colm	10
	synt	any
	field	Node
	line	843
	colm	15
	synt	any
	field	dump_tree
	var	0
	line	843
	colm	25
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	844
	colm	6
	synt	any
	field	__m
	line	844
	colm	10
	synt	any
	field	ConsNode
	line	844
	colm	19
	synt	any
	field	dump_tree
	var	0
	line	844
	colm	29
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	var	0
	str	0
	pnull
	var	0
	line	846
	colm	54
	synt	any
	field	signature
	line	846
	colm	27
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	1
	var	0
	str	1
	pnull
	var	0
	line	847
	colm	53
	synt	any
	field	sig_done
	line	847
	colm	27
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	1
	var	0
	str	2
	pnull
	var	0
	line	848
	colm	52
	synt	any
	field	ar_size
	line	848
	colm	27
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	1
	var	0
	str	3
	pnull
	var	0
	line	849
	colm	59
	synt	any
	field	ar_static_link
	line	849
	colm	27
	synt	any
	invoke	3
	unmark
lab L7
	mark	L8
	var	1
	var	0
	str	4
	pnull
	var	0
	line	850
	colm	60
	synt	any
	field	ar_static_level
	line	850
	colm	27
	synt	any
	invoke	3
	unmark
lab L8
	mark	L9
	var	1
	var	0
	str	5
	pnull
	var	0
	line	851
	colm	65
	synt	any
	field	bld_declaration_list
	line	851
	colm	27
	synt	any
	invoke	3
	unmark
lab L9
	mark	L10
	var	1
	var	0
	str	6
	pnull
	var	0
	line	852
	colm	56
	synt	any
	field	bld_den_seq
	line	852
	colm	27
	synt	any
	invoke	3
	unmark
lab L10
	mark	L11
	var	1
	var	0
	str	7
	pnull
	var	0
	line	853
	colm	59
	synt	any
	field	bld_precedence
	line	853
	colm	27
	synt	any
	invoke	3
	unmark
lab L11
	mark	L12
	var	1
	var	0
	str	8
	pnull
	var	0
	line	854
	colm	54
	synt	any
	field	bld_flags
	line	854
	colm	27
	synt	any
	invoke	3
	unmark
lab L12
	var	1
	var	0
	str	9
	pnull
	var	0
	line	855
	colm	58
	synt	any
	field	fc_code_label
	line	855
	colm	27
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	857
	colm	1
	synt	any
	pfail
	end
proc BlDenotationNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	con	0,002000,1,0
	declend
	line	858
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	859
	colm	6
	synt	any
	field	__m
	line	859
	colm	10
	synt	any
	field	Node
	line	859
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	859
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	859
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	859
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	859
	colm	72
	synt	any
	field	post_num
	line	859
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	860
	colm	6
	synt	any
	field	__m
	line	860
	colm	10
	synt	any
	field	ConsNode
	line	860
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	860
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	860
	colm	57
	synt	any
	field	cn_tl_field
	line	860
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	861
	colm	5
	synt	any
	field	bld_flags
	int	0
	line	861
	colm	16
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	pnull
	var	0
	line	862
	colm	5
	synt	any
	field	bld_declaration_list
	var	1
	line	862
	colm	39
	synt	any
	invoke	0
	line	862
	colm	27
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	0
	line	863
	colm	5
	synt	any
	field	bld_den_seq
	var	1
	line	863
	colm	30
	synt	any
	invoke	0
	line	863
	colm	18
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	mark	L7
	pnull
	line	864
	colm	7
	synt	any
	pret
lab L7
	synt	any
	pfail
	unmark
lab L6
	pnull
	line	865
	colm	1
	synt	any
	pfail
	end
proc BlDenotationNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,ar_size
	local	3,001000,ar_static_link
	local	4,001000,ar_static_level
	local	5,001000,bld_declaration_list
	local	6,001000,bld_den_seq
	local	7,001000,bld_precedence
	local	8,001000,bld_flags
	local	9,001000,fc_code_label
	local	10,001000,kind
	local	11,001000,vlineno
	local	12,001000,pre_num
	local	13,001000,post_num
	local	14,001000,cn_hd_field
	local	15,001000,cn_tl_field
	local	16,001000,unique_id
	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	866
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	868
	colm	6
	synt	any
	field	__m
	line	868
	colm	10
	synt	any
	field	Node
	line	868
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	2
	line	868
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	869
	colm	6
	synt	any
	field	__m
	line	869
	colm	10
	synt	any
	field	ConsNode
	line	869
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	869
	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	870
	colm	63
	synt	any
	plus
	line	870
	colm	42
	synt	any
	invoke	2
	var	6
	pnull
	var	0
	line	870
	colm	99
	synt	any
	field	signature
	line	870
	colm	94
	synt	any
	invoke	1
	line	870
	colm	82
	synt	any
	cat
	line	870
	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	871
	colm	62
	synt	any
	plus
	line	871
	colm	42
	synt	any
	invoke	2
	var	6
	pnull
	var	0
	line	871
	colm	98
	synt	any
	field	sig_done
	line	871
	colm	93
	synt	any
	invoke	1
	line	871
	colm	81
	synt	any
	cat
	line	871
	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	872
	colm	67
	synt	any
	plus
	line	872
	colm	42
	synt	any
	invoke	2
	var	6
	pnull
	var	0
	line	872
	colm	103
	synt	any
	field	usl_type_list
	line	872
	colm	98
	synt	any
	invoke	1
	line	872
	colm	86
	synt	any
	cat
	line	872
	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	873
	colm	65
	synt	any
	plus
	line	873
	colm	42
	synt	any
	invoke	2
	var	6
	pnull
	var	0
	line	873
	colm	101
	synt	any
	field	usl_den_seq
	line	873
	colm	96
	synt	any
	invoke	1
	line	873
	colm	84
	synt	any
	cat
	line	873
	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	874
	colm	71
	synt	any
	plus
	line	874
	colm	42
	synt	any
	invoke	2
	var	6
	pnull
	var	0
	line	874
	colm	107
	synt	any
	field	usl_previous_list
	line	874
	colm	102
	synt	any
	invoke	1
	line	874
	colm	90
	synt	any
	cat
	line	874
	colm	18
	synt	any
	invoke	2
	unmark
lab L8
	var	3
	var	1
	pnull
	var	4
	str	6
	pnull
	int	1
	var	5
	line	875
	colm	68
	synt	any
	plus
	line	875
	colm	42
	synt	any
	invoke	2
	var	6
	pnull
	var	0
	line	875
	colm	104
	synt	any
	field	usl_precedence
	line	875
	colm	99
	synt	any
	invoke	1
	line	875
	colm	87
	synt	any
	cat
	line	875
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	877
	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	878
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	880
	colm	6
	synt	any
	field	__m
	line	880
	colm	10
	synt	any
	field	Node
	line	880
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	880
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	881
	colm	6
	synt	any
	field	__m
	line	881
	colm	10
	synt	any
	field	ConsNode
	line	881
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	881
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	882
	colm	43
	synt	any
	field	signature
	line	882
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	883
	colm	42
	synt	any
	field	sig_done
	line	883
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	884
	colm	47
	synt	any
	field	usl_type_list
	line	884
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	885
	colm	45
	synt	any
	field	usl_den_seq
	line	885
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	mark	L8
	var	2
	var	0
	str	4
	pnull
	var	0
	line	886
	colm	51
	synt	any
	field	usl_previous_list
	line	886
	colm	15
	synt	any
	invoke	3
	unmark
lab L8
	var	2
	var	0
	str	5
	pnull
	var	0
	line	887
	colm	48
	synt	any
	field	usl_precedence
	line	887
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	889
	colm	1
	synt	any
	pfail
	end
proc UseListNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	890
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	891
	colm	6
	synt	any
	field	__m
	line	891
	colm	10
	synt	any
	field	Node
	line	891
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	891
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	891
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	891
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	891
	colm	72
	synt	any
	field	post_num
	line	891
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	892
	colm	6
	synt	any
	field	__m
	line	892
	colm	10
	synt	any
	field	ConsNode
	line	892
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	892
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	892
	colm	57
	synt	any
	field	cn_tl_field
	line	892
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	893
	colm	5
	synt	any
	field	usl_type_list
	var	1
	line	893
	colm	32
	synt	any
	invoke	0
	line	893
	colm	20
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	pnull
	var	0
	line	894
	colm	5
	synt	any
	field	usl_previous_list
	var	1
	line	894
	colm	36
	synt	any
	invoke	0
	line	894
	colm	24
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	mark	L6
	pnull
	line	895
	colm	7
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	896
	colm	1
	synt	any
	pfail
	end
proc UseListNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,usl_type_list
	local	3,001000,usl_den_seq
	local	4,001000,usl_previous_list
	local	5,001000,usl_precedence
	local	6,001000,kind
	local	7,001000,vlineno
	local	8,001000,pre_num
	local	9,001000,post_num
	local	10,001000,cn_hd_field
	local	11,001000,cn_tl_field
	local	12,001000,unique_id
	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	897
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	899
	colm	6
	synt	any
	field	__m
	line	899
	colm	10
	synt	any
	field	Node
	line	899
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	899
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	900
	colm	6
	synt	any
	field	__m
	line	900
	colm	10
	synt	any
	field	ConsNode
	line	900
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	900
	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	901
	colm	63
	synt	any
	plus
	line	901
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	901
	colm	99
	synt	any
	field	signature
	line	901
	colm	94
	synt	any
	invoke	1
	line	901
	colm	82
	synt	any
	cat
	line	901
	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	902
	colm	62
	synt	any
	plus
	line	902
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	902
	colm	98
	synt	any
	field	sig_done
	line	902
	colm	93
	synt	any
	invoke	1
	line	902
	colm	81
	synt	any
	cat
	line	902
	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	903
	colm	65
	synt	any
	plus
	line	903
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	903
	colm	101
	synt	any
	field	ap_operator
	line	903
	colm	96
	synt	any
	invoke	1
	line	903
	colm	84
	synt	any
	cat
	line	903
	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	904
	colm	61
	synt	any
	plus
	line	904
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	904
	colm	97
	synt	any
	field	ap_args
	line	904
	colm	92
	synt	any
	invoke	1
	line	904
	colm	80
	synt	any
	cat
	line	904
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	905
	colm	66
	synt	any
	plus
	line	905
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	905
	colm	102
	synt	any
	field	ap_void_decl
	line	905
	colm	97
	synt	any
	invoke	1
	line	905
	colm	85
	synt	any
	cat
	line	905
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	907
	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	908
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	910
	colm	6
	synt	any
	field	__m
	line	910
	colm	10
	synt	any
	field	Node
	line	910
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	910
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	911
	colm	6
	synt	any
	field	__m
	line	911
	colm	10
	synt	any
	field	ConsNode
	line	911
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	911
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	912
	colm	43
	synt	any
	field	signature
	line	912
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	913
	colm	42
	synt	any
	field	sig_done
	line	913
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	914
	colm	45
	synt	any
	field	ap_operator
	line	914
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	915
	colm	41
	synt	any
	field	ap_args
	line	915
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	var	2
	var	0
	str	4
	pnull
	var	0
	line	916
	colm	46
	synt	any
	field	ap_void_decl
	line	916
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	918
	colm	1
	synt	any
	pfail
	end
proc ApplicationNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	920
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	921
	colm	6
	synt	any
	field	__m
	line	921
	colm	10
	synt	any
	field	Node
	line	921
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	921
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	921
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	921
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	921
	colm	72
	synt	any
	field	post_num
	line	921
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	922
	colm	6
	synt	any
	field	__m
	line	922
	colm	10
	synt	any
	field	ConsNode
	line	922
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	922
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	922
	colm	57
	synt	any
	field	cn_tl_field
	line	922
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	923
	colm	5
	synt	any
	field	ap_args
	var	1
	line	923
	colm	26
	synt	any
	invoke	0
	line	923
	colm	14
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	line	924
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	925
	colm	1
	synt	any
	pfail
	end
proc ApplicationNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,ap_operator
	local	3,001000,ap_args
	local	4,001000,ap_void_decl
	local	5,001000,kind
	local	6,001000,vlineno
	local	7,001000,pre_num
	local	8,001000,post_num
	local	9,001000,cn_hd_field
	local	10,001000,cn_tl_field
	local	11,001000,unique_id
	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	928
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	930
	colm	6
	synt	any
	field	__m
	line	930
	colm	10
	synt	any
	field	Node
	line	930
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	930
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	931
	colm	6
	synt	any
	field	__m
	line	931
	colm	10
	synt	any
	field	ConsNode
	line	931
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	931
	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	932
	colm	63
	synt	any
	plus
	line	932
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	932
	colm	99
	synt	any
	field	signature
	line	932
	colm	94
	synt	any
	invoke	1
	line	932
	colm	82
	synt	any
	cat
	line	932
	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	933
	colm	62
	synt	any
	plus
	line	933
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	933
	colm	98
	synt	any
	field	sig_done
	line	933
	colm	93
	synt	any
	invoke	1
	line	933
	colm	81
	synt	any
	cat
	line	933
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	934
	colm	66
	synt	any
	plus
	line	934
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	934
	colm	102
	synt	any
	field	enum_id_list
	line	934
	colm	97
	synt	any
	invoke	1
	line	934
	colm	85
	synt	any
	cat
	line	934
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	936
	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	937
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	939
	colm	6
	synt	any
	field	__m
	line	939
	colm	10
	synt	any
	field	Node
	line	939
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	939
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	940
	colm	6
	synt	any
	field	__m
	line	940
	colm	10
	synt	any
	field	ConsNode
	line	940
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	940
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	941
	colm	43
	synt	any
	field	signature
	line	941
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	942
	colm	42
	synt	any
	field	sig_done
	line	942
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	var	2
	var	0
	str	2
	pnull
	var	0
	line	943
	colm	46
	synt	any
	field	enum_id_list
	line	943
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	945
	colm	1
	synt	any
	pfail
	end
proc EnumerationNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	946
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	947
	colm	6
	synt	any
	field	__m
	line	947
	colm	10
	synt	any
	field	Node
	line	947
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	947
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	947
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	947
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	947
	colm	72
	synt	any
	field	post_num
	line	947
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	948
	colm	6
	synt	any
	field	__m
	line	948
	colm	10
	synt	any
	field	ConsNode
	line	948
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	948
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	948
	colm	57
	synt	any
	field	cn_tl_field
	line	948
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	949
	colm	5
	synt	any
	field	enum_id_list
	var	1
	line	949
	colm	31
	synt	any
	invoke	0
	line	949
	colm	19
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	line	950
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	951
	colm	1
	synt	any
	pfail
	end
proc EnumerationNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,enum_id_list
	local	3,001000,kind
	local	4,001000,vlineno
	local	5,001000,pre_num
	local	6,001000,post_num
	local	7,001000,cn_hd_field
	local	8,001000,cn_tl_field
	local	9,001000,unique_id
	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	954
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	956
	colm	6
	synt	any
	field	__m
	line	956
	colm	10
	synt	any
	field	Node
	line	956
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	956
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	957
	colm	6
	synt	any
	field	__m
	line	957
	colm	10
	synt	any
	field	ConsNode
	line	957
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	957
	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	958
	colm	63
	synt	any
	plus
	line	958
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	958
	colm	99
	synt	any
	field	signature
	line	958
	colm	94
	synt	any
	invoke	1
	line	958
	colm	82
	synt	any
	cat
	line	958
	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	959
	colm	62
	synt	any
	plus
	line	959
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	959
	colm	98
	synt	any
	field	sig_done
	line	959
	colm	93
	synt	any
	invoke	1
	line	959
	colm	81
	synt	any
	cat
	line	959
	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	960
	colm	68
	synt	any
	plus
	line	960
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	960
	colm	104
	synt	any
	field	ext_denotation
	line	960
	colm	99
	synt	any
	invoke	1
	line	960
	colm	87
	synt	any
	cat
	line	960
	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	961
	colm	62
	synt	any
	plus
	line	961
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	961
	colm	98
	synt	any
	field	In_index
	line	961
	colm	93
	synt	any
	invoke	1
	line	961
	colm	81
	synt	any
	cat
	line	961
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	962
	colm	63
	synt	any
	plus
	line	962
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	962
	colm	99
	synt	any
	field	Out_index
	line	962
	colm	94
	synt	any
	invoke	1
	line	962
	colm	82
	synt	any
	cat
	line	962
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	964
	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	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	48
	synt	any
	field	ext_denotation
	line	971
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	972
	colm	42
	synt	any
	field	In_index
	line	972
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	var	2
	var	0
	str	4
	pnull
	var	0
	line	973
	colm	43
	synt	any
	field	Out_index
	line	973
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	975
	colm	1
	synt	any
	pfail
	end
proc ExtensionNode_initially
	local	0,001000,self
	declend
	line	976
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	977
	colm	6
	synt	any
	field	__m
	line	977
	colm	10
	synt	any
	field	Node
	line	977
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	977
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	977
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	977
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	977
	colm	72
	synt	any
	field	post_num
	line	977
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	978
	colm	6
	synt	any
	field	__m
	line	978
	colm	10
	synt	any
	field	ConsNode
	line	978
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	978
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	978
	colm	57
	synt	any
	field	cn_tl_field
	line	978
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	979
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	980
	colm	1
	synt	any
	pfail
	end
proc ExtensionNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,ext_denotation
	local	3,001000,In_index
	local	4,001000,Out_index
	local	5,001000,kind
	local	6,001000,vlineno
	local	7,001000,pre_num
	local	8,001000,post_num
	local	9,001000,cn_hd_field
	local	10,001000,cn_tl_field
	local	11,001000,unique_id
	local	12,000020,self
	local	13,000020,clone
	local	14,000000,ExtensionNode__oprec
	local	15,000000,ExtensionNodeinitialize
	local	16,000000,Node__oprec
	local	17,000000,Nodeinitialize
	local	18,000000,ConsNode__oprec
	local	19,000000,ConsNodeinitialize
	local	20,000000,ExtensionNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	8
	colm	6
	synt	any
	null
	unmark
	var	15
	line	8
	colm	56
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	9
	colm	6
	synt	any
	null
	unmark
	var	17
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	14
	line	10
	colm	23
	synt	any
	field	Node
	var	16
	line	10
	colm	29
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	18
	line	11
	colm	6
	synt	any
	null
	unmark
	var	19
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	14
	line	12
	colm	23
	synt	any
	field	ConsNode
	var	18
	line	12
	colm	33
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	12
	var	20
	line	14
	colm	32
	synt	any
	keywd	null
	var	14
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	line	14
	colm	31
	synt	any
	invoke	14
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	12
	line	15
	colm	7
	synt	any
	field	__s
	var	12
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	12
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	12
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	12
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc ExtensionNodeinitialize
	local	0,000000,ExtensionNode__oprec
	local	1,000000,ExtensionNode__methods
	local	2,000000,ExtensionNode_dump
	local	3,000000,ExtensionNode_dump_tree
	local	4,000000,ExtensionNode_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	984
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	986
	colm	6
	synt	any
	field	__m
	line	986
	colm	10
	synt	any
	field	Node
	line	986
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	986
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	987
	colm	6
	synt	any
	field	__m
	line	987
	colm	10
	synt	any
	field	ConsNode
	line	987
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	987
	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	988
	colm	63
	synt	any
	plus
	line	988
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	988
	colm	99
	synt	any
	field	signature
	line	988
	colm	94
	synt	any
	invoke	1
	line	988
	colm	82
	synt	any
	cat
	line	988
	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	989
	colm	62
	synt	any
	plus
	line	989
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	989
	colm	98
	synt	any
	field	sig_done
	line	989
	colm	93
	synt	any
	invoke	1
	line	989
	colm	81
	synt	any
	cat
	line	989
	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	990
	colm	72
	synt	any
	plus
	line	990
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	990
	colm	108
	synt	any
	field	prod_local_type_id
	line	990
	colm	103
	synt	any
	invoke	1
	line	990
	colm	91
	synt	any
	cat
	line	990
	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	991
	colm	69
	synt	any
	plus
	line	991
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	991
	colm	105
	synt	any
	field	prod_components
	line	991
	colm	100
	synt	any
	invoke	1
	line	991
	colm	88
	synt	any
	cat
	line	991
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	992
	colm	78
	synt	any
	plus
	line	992
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	992
	colm	114
	synt	any
	field	prod_previous_definition
	line	992
	colm	109
	synt	any
	invoke	1
	line	992
	colm	97
	synt	any
	cat
	line	992
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	994
	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	995
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	997
	colm	6
	synt	any
	field	__m
	line	997
	colm	10
	synt	any
	field	Node
	line	997
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	997
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	998
	colm	6
	synt	any
	field	__m
	line	998
	colm	10
	synt	any
	field	ConsNode
	line	998
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	998
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	999
	colm	43
	synt	any
	field	signature
	line	999
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1000
	colm	42
	synt	any
	field	sig_done
	line	1000
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1001
	colm	52
	synt	any
	field	prod_local_type_id
	line	1001
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	1002
	colm	49
	synt	any
	field	prod_components
	line	1002
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	var	2
	var	0
	str	4
	pnull
	var	0
	line	1003
	colm	58
	synt	any
	field	prod_previous_definition
	line	1003
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1005
	colm	1
	synt	any
	pfail
	end
proc ProductNode_initially
	local	0,001000,self
	declend
	line	1006
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1007
	colm	6
	synt	any
	field	__m
	line	1007
	colm	10
	synt	any
	field	Node
	line	1007
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1007
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	1007
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	1007
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	1007
	colm	72
	synt	any
	field	post_num
	line	1007
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1008
	colm	6
	synt	any
	field	__m
	line	1008
	colm	10
	synt	any
	field	ConsNode
	line	1008
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1008
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	1008
	colm	57
	synt	any
	field	cn_tl_field
	line	1008
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1009
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1010
	colm	1
	synt	any
	pfail
	end
proc ProductNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,prod_local_type_id
	local	3,001000,prod_components
	local	4,001000,prod_previous_definition
	local	5,001000,kind
	local	6,001000,vlineno
	local	7,001000,pre_num
	local	8,001000,post_num
	local	9,001000,cn_hd_field
	local	10,001000,cn_tl_field
	local	11,001000,unique_id
	local	12,000020,self
	local	13,000020,clone
	local	14,000000,ProductNode__oprec
	local	15,000000,ProductNodeinitialize
	local	16,000000,Node__oprec
	local	17,000000,Nodeinitialize
	local	18,000000,ConsNode__oprec
	local	19,000000,ConsNodeinitialize
	local	20,000000,ProductNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	8
	colm	6
	synt	any
	null
	unmark
	var	15
	line	8
	colm	52
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	9
	colm	6
	synt	any
	null
	unmark
	var	17
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	14
	line	10
	colm	21
	synt	any
	field	Node
	var	16
	line	10
	colm	27
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	18
	line	11
	colm	6
	synt	any
	null
	unmark
	var	19
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	14
	line	12
	colm	21
	synt	any
	field	ConsNode
	var	18
	line	12
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	12
	var	20
	line	14
	colm	30
	synt	any
	keywd	null
	var	14
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	line	14
	colm	29
	synt	any
	invoke	14
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	12
	line	15
	colm	7
	synt	any
	field	__s
	var	12
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	12
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	12
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	12
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc ProductNodeinitialize
	local	0,000000,ProductNode__oprec
	local	1,000000,ProductNode__methods
	local	2,000000,ProductNode_dump
	local	3,000000,ProductNode_dump_tree
	local	4,000000,ProductNode_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	1014
	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
	var	0
	var	1
	line	1016
	colm	20
	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
	var	0
	var	1
	line	1017
	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	1018
	colm	63
	synt	any
	plus
	line	1018
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1018
	colm	99
	synt	any
	field	signature
	line	1018
	colm	94
	synt	any
	invoke	1
	line	1018
	colm	82
	synt	any
	cat
	line	1018
	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	1019
	colm	62
	synt	any
	plus
	line	1019
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1019
	colm	98
	synt	any
	field	sig_done
	line	1019
	colm	93
	synt	any
	invoke	1
	line	1019
	colm	81
	synt	any
	cat
	line	1019
	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	1020
	colm	72
	synt	any
	plus
	line	1020
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1020
	colm	108
	synt	any
	field	rec_component_list
	line	1020
	colm	103
	synt	any
	invoke	1
	line	1020
	colm	91
	synt	any
	cat
	line	1020
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	1021
	colm	77
	synt	any
	plus
	line	1021
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1021
	colm	113
	synt	any
	field	rec_previous_definition
	line	1021
	colm	108
	synt	any
	invoke	1
	line	1021
	colm	96
	synt	any
	cat
	line	1021
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1023
	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	1024
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1026
	colm	6
	synt	any
	field	__m
	line	1026
	colm	10
	synt	any
	field	Node
	line	1026
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1026
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1027
	colm	6
	synt	any
	field	__m
	line	1027
	colm	10
	synt	any
	field	ConsNode
	line	1027
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1027
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1028
	colm	43
	synt	any
	field	signature
	line	1028
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1029
	colm	42
	synt	any
	field	sig_done
	line	1029
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1030
	colm	52
	synt	any
	field	rec_component_list
	line	1030
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	var	2
	var	0
	str	3
	pnull
	var	0
	line	1031
	colm	57
	synt	any
	field	rec_previous_definition
	line	1031
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1033
	colm	1
	synt	any
	pfail
	end
proc RecordConstructionNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	1035
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1036
	colm	6
	synt	any
	field	__m
	line	1036
	colm	10
	synt	any
	field	Node
	line	1036
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1036
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	1036
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	1036
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	1036
	colm	72
	synt	any
	field	post_num
	line	1036
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1037
	colm	6
	synt	any
	field	__m
	line	1037
	colm	10
	synt	any
	field	ConsNode
	line	1037
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1037
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	1037
	colm	57
	synt	any
	field	cn_tl_field
	line	1037
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	1038
	colm	5
	synt	any
	field	rec_component_list
	var	1
	line	1038
	colm	37
	synt	any
	invoke	0
	line	1038
	colm	25
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	line	1039
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	1040
	colm	1
	synt	any
	pfail
	end
proc RecordConstructionNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,rec_component_list
	local	3,001000,rec_previous_definition
	local	4,001000,kind
	local	5,001000,vlineno
	local	6,001000,pre_num
	local	7,001000,post_num
	local	8,001000,cn_hd_field
	local	9,001000,cn_tl_field
	local	10,001000,unique_id
	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	1042
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1044
	colm	6
	synt	any
	field	__m
	line	1044
	colm	10
	synt	any
	field	Node
	line	1044
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1044
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1045
	colm	6
	synt	any
	field	__m
	line	1045
	colm	10
	synt	any
	field	ConsNode
	line	1045
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1045
	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	1046
	colm	63
	synt	any
	plus
	line	1046
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1046
	colm	99
	synt	any
	field	signature
	line	1046
	colm	94
	synt	any
	invoke	1
	line	1046
	colm	82
	synt	any
	cat
	line	1046
	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	1047
	colm	62
	synt	any
	plus
	line	1047
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1047
	colm	98
	synt	any
	field	sig_done
	line	1047
	colm	93
	synt	any
	invoke	1
	line	1047
	colm	81
	synt	any
	cat
	line	1047
	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	1048
	colm	72
	synt	any
	plus
	line	1048
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1048
	colm	108
	synt	any
	field	prod_local_type_id
	line	1048
	colm	103
	synt	any
	invoke	1
	line	1048
	colm	91
	synt	any
	cat
	line	1048
	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	1049
	colm	69
	synt	any
	plus
	line	1049
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1049
	colm	105
	synt	any
	field	prod_components
	line	1049
	colm	100
	synt	any
	invoke	1
	line	1049
	colm	88
	synt	any
	cat
	line	1049
	colm	18
	synt	any
	invoke	2
	unmark
lab L7
	var	2
	var	1
	pnull
	var	3
	str	5
	pnull
	int	1
	var	4
	line	1050
	colm	78
	synt	any
	plus
	line	1050
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1050
	colm	114
	synt	any
	field	prod_previous_definition
	line	1050
	colm	109
	synt	any
	invoke	1
	line	1050
	colm	97
	synt	any
	cat
	line	1050
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1052
	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	1053
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1055
	colm	6
	synt	any
	field	__m
	line	1055
	colm	10
	synt	any
	field	Node
	line	1055
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1055
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1056
	colm	6
	synt	any
	field	__m
	line	1056
	colm	10
	synt	any
	field	ConsNode
	line	1056
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1056
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1057
	colm	43
	synt	any
	field	signature
	line	1057
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1058
	colm	42
	synt	any
	field	sig_done
	line	1058
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1059
	colm	52
	synt	any
	field	prod_local_type_id
	line	1059
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	1060
	colm	49
	synt	any
	field	prod_components
	line	1060
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	var	2
	var	0
	str	4
	pnull
	var	0
	line	1061
	colm	58
	synt	any
	field	prod_previous_definition
	line	1061
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1063
	colm	1
	synt	any
	pfail
	end
proc UnionConstructionNode_initially
	local	0,001000,self
	declend
	line	1064
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1065
	colm	6
	synt	any
	field	__m
	line	1065
	colm	10
	synt	any
	field	Node
	line	1065
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1065
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	1065
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	1065
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	1065
	colm	72
	synt	any
	field	post_num
	line	1065
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1066
	colm	6
	synt	any
	field	__m
	line	1066
	colm	10
	synt	any
	field	ConsNode
	line	1066
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1066
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	1066
	colm	57
	synt	any
	field	cn_tl_field
	line	1066
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1067
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1068
	colm	1
	synt	any
	pfail
	end
proc UnionConstructionNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,prod_local_type_id
	local	3,001000,prod_components
	local	4,001000,prod_previous_definition
	local	5,001000,kind
	local	6,001000,vlineno
	local	7,001000,pre_num
	local	8,001000,post_num
	local	9,001000,cn_hd_field
	local	10,001000,cn_tl_field
	local	11,001000,unique_id
	local	12,000020,self
	local	13,000020,clone
	local	14,000000,UnionConstructionNode__oprec
	local	15,000000,UnionConstructionNodeinitialize
	local	16,000000,Node__oprec
	local	17,000000,Nodeinitialize
	local	18,000000,ConsNode__oprec
	local	19,000000,ConsNodeinitialize
	local	20,000000,UnionConstructionNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	8
	colm	6
	synt	any
	null
	unmark
	var	15
	line	8
	colm	72
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	9
	colm	6
	synt	any
	null
	unmark
	var	17
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	14
	line	10
	colm	31
	synt	any
	field	Node
	var	16
	line	10
	colm	37
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	18
	line	11
	colm	6
	synt	any
	null
	unmark
	var	19
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	14
	line	12
	colm	31
	synt	any
	field	ConsNode
	var	18
	line	12
	colm	41
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	12
	var	20
	line	14
	colm	40
	synt	any
	keywd	null
	var	14
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	line	14
	colm	39
	synt	any
	invoke	14
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	12
	line	15
	colm	7
	synt	any
	field	__s
	var	12
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	12
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	12
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	12
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc UnionConstructionNodeinitialize
	local	0,000000,UnionConstructionNode__oprec
	local	1,000000,UnionConstructionNode__methods
	local	2,000000,UnionConstructionNode_dump
	local	3,000000,UnionConstructionNode_dump_tree
	local	4,000000,UnionConstructionNode_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	1072
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1075
	colm	6
	synt	any
	field	__m
	line	1075
	colm	10
	synt	any
	field	Node
	line	1075
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1075
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1076
	colm	6
	synt	any
	field	__m
	line	1076
	colm	10
	synt	any
	field	ConsNode
	line	1076
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1076
	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	1077
	colm	70
	synt	any
	plus
	line	1077
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1077
	colm	106
	synt	any
	field	wl_local_type_id
	line	1077
	colm	101
	synt	any
	invoke	1
	line	1077
	colm	89
	synt	any
	cat
	line	1077
	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	1078
	colm	71
	synt	any
	plus
	line	1078
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1078
	colm	107
	synt	any
	field	wl_component_list
	line	1078
	colm	102
	synt	any
	invoke	1
	line	1078
	colm	90
	synt	any
	cat
	line	1078
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1079
	colm	76
	synt	any
	plus
	line	1079
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1079
	colm	112
	synt	any
	field	wl_previous_definition
	line	1079
	colm	107
	synt	any
	invoke	1
	line	1079
	colm	95
	synt	any
	cat
	line	1079
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1081
	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	1082
	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_tree
	var	0
	var	1
	line	1085
	colm	25
	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_tree
	var	0
	var	1
	line	1086
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1087
	colm	50
	synt	any
	field	wl_local_type_id
	line	1087
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1088
	colm	51
	synt	any
	field	wl_component_list
	line	1088
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1089
	colm	56
	synt	any
	field	wl_previous_definition
	line	1089
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1091
	colm	1
	synt	any
	pfail
	end
proc WithListNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	1092
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1093
	colm	6
	synt	any
	field	__m
	line	1093
	colm	10
	synt	any
	field	Node
	line	1093
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1093
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	1093
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	1093
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	1093
	colm	72
	synt	any
	field	post_num
	line	1093
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1094
	colm	6
	synt	any
	field	__m
	line	1094
	colm	10
	synt	any
	field	ConsNode
	line	1094
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1094
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	1094
	colm	57
	synt	any
	field	cn_tl_field
	line	1094
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	1095
	colm	5
	synt	any
	field	wl_component_list
	var	1
	line	1095
	colm	36
	synt	any
	invoke	0
	line	1095
	colm	24
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	line	1096
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	1097
	colm	1
	synt	any
	pfail
	end
proc WithListNode
	local	0,001000,wl_local_type_id
	local	1,001000,wl_component_list
	local	2,001000,wl_previous_definition
	local	3,001000,kind
	local	4,001000,vlineno
	local	5,001000,pre_num
	local	6,001000,post_num
	local	7,001000,cn_hd_field
	local	8,001000,cn_tl_field
	local	9,001000,unique_id
	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	1099
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1101
	colm	6
	synt	any
	field	__m
	line	1101
	colm	10
	synt	any
	field	Node
	line	1101
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1101
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1102
	colm	6
	synt	any
	field	__m
	line	1102
	colm	10
	synt	any
	field	ConsNode
	line	1102
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1102
	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	1103
	colm	63
	synt	any
	plus
	line	1103
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1103
	colm	99
	synt	any
	field	signature
	line	1103
	colm	94
	synt	any
	invoke	1
	line	1103
	colm	82
	synt	any
	cat
	line	1103
	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	1104
	colm	62
	synt	any
	plus
	line	1104
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1104
	colm	98
	synt	any
	field	sig_done
	line	1104
	colm	93
	synt	any
	invoke	1
	line	1104
	colm	81
	synt	any
	cat
	line	1104
	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	1105
	colm	66
	synt	any
	plus
	line	1105
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1105
	colm	102
	synt	any
	field	displacement
	line	1105
	colm	97
	synt	any
	invoke	1
	line	1105
	colm	85
	synt	any
	cat
	line	1105
	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	1106
	colm	59
	synt	any
	plus
	line	1106
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1106
	colm	95
	synt	any
	field	level
	line	1106
	colm	90
	synt	any
	invoke	1
	line	1106
	colm	78
	synt	any
	cat
	line	1106
	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	1107
	colm	64
	synt	any
	plus
	line	1107
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1107
	colm	100
	synt	any
	field	mp_primary
	line	1107
	colm	95
	synt	any
	invoke	1
	line	1107
	colm	83
	synt	any
	cat
	line	1107
	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	1108
	colm	70
	synt	any
	plus
	line	1108
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1108
	colm	106
	synt	any
	field	mp_type_modifier
	line	1108
	colm	101
	synt	any
	invoke	1
	line	1108
	colm	89
	synt	any
	cat
	line	1108
	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	1109
	colm	65
	synt	any
	plus
	line	1109
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1109
	colm	101
	synt	any
	field	mp_delete_v
	line	1109
	colm	96
	synt	any
	invoke	1
	line	1109
	colm	84
	synt	any
	cat
	line	1109
	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	1110
	colm	68
	synt	any
	plus
	line	1110
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1110
	colm	104
	synt	any
	field	mp_orig_length
	line	1110
	colm	99
	synt	any
	invoke	1
	line	1110
	colm	87
	synt	any
	cat
	line	1110
	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	1111
	colm	63
	synt	any
	plus
	line	1111
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1111
	colm	99
	synt	any
	field	mp_needed
	line	1111
	colm	94
	synt	any
	invoke	1
	line	1111
	colm	82
	synt	any
	cat
	line	1111
	colm	18
	synt	any
	invoke	2
	unmark
lab L12
	var	2
	var	1
	pnull
	var	3
	str	10
	pnull
	int	1
	var	4
	line	1112
	colm	69
	synt	any
	plus
	line	1112
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1112
	colm	105
	synt	any
	field	mp_no_surr_loop
	line	1112
	colm	100
	synt	any
	invoke	1
	line	1112
	colm	88
	synt	any
	cat
	line	1112
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1114
	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	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	43
	synt	any
	field	signature
	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	42
	synt	any
	field	sig_done
	line	1120
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1121
	colm	46
	synt	any
	field	displacement
	line	1121
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	1122
	colm	39
	synt	any
	field	level
	line	1122
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	mark	L8
	var	2
	var	0
	str	4
	pnull
	var	0
	line	1123
	colm	44
	synt	any
	field	mp_primary
	line	1123
	colm	15
	synt	any
	invoke	3
	unmark
lab L8
	mark	L9
	var	2
	var	0
	str	5
	pnull
	var	0
	line	1124
	colm	50
	synt	any
	field	mp_type_modifier
	line	1124
	colm	15
	synt	any
	invoke	3
	unmark
lab L9
	mark	L10
	var	2
	var	0
	str	6
	pnull
	var	0
	line	1125
	colm	45
	synt	any
	field	mp_delete_v
	line	1125
	colm	15
	synt	any
	invoke	3
	unmark
lab L10
	mark	L11
	var	2
	var	0
	str	7
	pnull
	var	0
	line	1126
	colm	48
	synt	any
	field	mp_orig_length
	line	1126
	colm	15
	synt	any
	invoke	3
	unmark
lab L11
	mark	L12
	var	2
	var	0
	str	8
	pnull
	var	0
	line	1127
	colm	43
	synt	any
	field	mp_needed
	line	1127
	colm	15
	synt	any
	invoke	3
	unmark
lab L12
	var	2
	var	0
	str	9
	pnull
	var	0
	line	1128
	colm	49
	synt	any
	field	mp_no_surr_loop
	line	1128
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1130
	colm	1
	synt	any
	pfail
	end
proc ModPrimaryNode_initially
	local	0,001000,self
	declend
	line	1132
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1133
	colm	6
	synt	any
	field	__m
	line	1133
	colm	10
	synt	any
	field	Node
	line	1133
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1133
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	1133
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	1133
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	1133
	colm	72
	synt	any
	field	post_num
	line	1133
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1134
	colm	6
	synt	any
	field	__m
	line	1134
	colm	10
	synt	any
	field	ConsNode
	line	1134
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1134
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	1134
	colm	57
	synt	any
	field	cn_tl_field
	line	1134
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1135
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1136
	colm	1
	synt	any
	pfail
	end
proc ModPrimaryNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,displacement
	local	3,001000,level
	local	4,001000,mp_primary
	local	5,001000,mp_type_modifier
	local	6,001000,mp_delete_v
	local	7,001000,mp_orig_length
	local	8,001000,mp_needed
	local	9,001000,mp_no_surr_loop
	local	10,001000,kind
	local	11,001000,vlineno
	local	12,001000,pre_num
	local	13,001000,post_num
	local	14,001000,cn_hd_field
	local	15,001000,cn_tl_field
	local	16,001000,unique_id
	local	17,000020,self
	local	18,000020,clone
	local	19,000000,ModPrimaryNode__oprec
	local	20,000000,ModPrimaryNodeinitialize
	local	21,000000,Node__oprec
	local	22,000000,Nodeinitialize
	local	23,000000,ConsNode__oprec
	local	24,000000,ConsNodeinitialize
	local	25,000000,ModPrimaryNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	19
	line	8
	colm	6
	synt	any
	null
	unmark
	var	20
	line	8
	colm	58
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	21
	line	9
	colm	6
	synt	any
	null
	unmark
	var	22
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	19
	line	10
	colm	24
	synt	any
	field	Node
	var	21
	line	10
	colm	30
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	23
	line	11
	colm	6
	synt	any
	null
	unmark
	var	24
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	19
	line	12
	colm	24
	synt	any
	field	ConsNode
	var	23
	line	12
	colm	34
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	17
	var	25
	line	14
	colm	33
	synt	any
	keywd	null
	var	19
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	14
	var	15
	var	16
	line	14
	colm	32
	synt	any
	invoke	19
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	17
	line	15
	colm	7
	synt	any
	field	__s
	var	17
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	17
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	17
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	17
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc ModPrimaryNodeinitialize
	local	0,000000,ModPrimaryNode__oprec
	local	1,000000,ModPrimaryNode__methods
	local	2,000000,ModPrimaryNode_dump
	local	3,000000,ModPrimaryNode_dump_tree
	local	4,000000,ModPrimaryNode_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	1139
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1141
	colm	6
	synt	any
	field	__m
	line	1141
	colm	10
	synt	any
	field	Node
	line	1141
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1141
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1142
	colm	6
	synt	any
	field	__m
	line	1142
	colm	10
	synt	any
	field	ConsNode
	line	1142
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1142
	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	1143
	colm	70
	synt	any
	plus
	line	1143
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1143
	colm	106
	synt	any
	field	el_local_type_id
	line	1143
	colm	101
	synt	any
	invoke	1
	line	1143
	colm	89
	synt	any
	cat
	line	1143
	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	1144
	colm	76
	synt	any
	plus
	line	1144
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1144
	colm	112
	synt	any
	field	el_export_element_list
	line	1144
	colm	107
	synt	any
	invoke	1
	line	1144
	colm	95
	synt	any
	cat
	line	1144
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1145
	colm	76
	synt	any
	plus
	line	1145
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1145
	colm	112
	synt	any
	field	el_previous_definition
	line	1145
	colm	107
	synt	any
	invoke	1
	line	1145
	colm	95
	synt	any
	cat
	line	1145
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1147
	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	1148
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1150
	colm	6
	synt	any
	field	__m
	line	1150
	colm	10
	synt	any
	field	Node
	line	1150
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1150
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1151
	colm	6
	synt	any
	field	__m
	line	1151
	colm	10
	synt	any
	field	ConsNode
	line	1151
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1151
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1152
	colm	50
	synt	any
	field	el_local_type_id
	line	1152
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1153
	colm	56
	synt	any
	field	el_export_element_list
	line	1153
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1154
	colm	56
	synt	any
	field	el_previous_definition
	line	1154
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1156
	colm	1
	synt	any
	pfail
	end
proc ExportListNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	1158
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1159
	colm	6
	synt	any
	field	__m
	line	1159
	colm	10
	synt	any
	field	Node
	line	1159
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1159
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	1159
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	1159
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	1159
	colm	72
	synt	any
	field	post_num
	line	1159
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1160
	colm	6
	synt	any
	field	__m
	line	1160
	colm	10
	synt	any
	field	ConsNode
	line	1160
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1160
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	1160
	colm	57
	synt	any
	field	cn_tl_field
	line	1160
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	1161
	colm	5
	synt	any
	field	el_export_element_list
	var	1
	line	1161
	colm	41
	synt	any
	invoke	0
	line	1161
	colm	29
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	line	1162
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	1163
	colm	1
	synt	any
	pfail
	end
proc ExportListNode
	local	0,001000,el_local_type_id
	local	1,001000,el_export_element_list
	local	2,001000,el_previous_definition
	local	3,001000,kind
	local	4,001000,vlineno
	local	5,001000,pre_num
	local	6,001000,post_num
	local	7,001000,cn_hd_field
	local	8,001000,cn_tl_field
	local	9,001000,unique_id
	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	1164
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1166
	colm	6
	synt	any
	field	__m
	line	1166
	colm	10
	synt	any
	field	Node
	line	1166
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1166
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1167
	colm	6
	synt	any
	field	__m
	line	1167
	colm	10
	synt	any
	field	ConsNode
	line	1167
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1167
	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	1168
	colm	70
	synt	any
	plus
	line	1168
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1168
	colm	106
	synt	any
	field	el_local_type_id
	line	1168
	colm	101
	synt	any
	invoke	1
	line	1168
	colm	89
	synt	any
	cat
	line	1168
	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	1169
	colm	76
	synt	any
	plus
	line	1169
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1169
	colm	112
	synt	any
	field	el_export_element_list
	line	1169
	colm	107
	synt	any
	invoke	1
	line	1169
	colm	95
	synt	any
	cat
	line	1169
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1170
	colm	76
	synt	any
	plus
	line	1170
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1170
	colm	112
	synt	any
	field	el_previous_definition
	line	1170
	colm	107
	synt	any
	invoke	1
	line	1170
	colm	95
	synt	any
	cat
	line	1170
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1172
	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	1173
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1175
	colm	6
	synt	any
	field	__m
	line	1175
	colm	10
	synt	any
	field	Node
	line	1175
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1175
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1176
	colm	6
	synt	any
	field	__m
	line	1176
	colm	10
	synt	any
	field	ConsNode
	line	1176
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1176
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1177
	colm	50
	synt	any
	field	el_local_type_id
	line	1177
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1178
	colm	56
	synt	any
	field	el_export_element_list
	line	1178
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1179
	colm	56
	synt	any
	field	el_previous_definition
	line	1179
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1181
	colm	1
	synt	any
	pfail
	end
proc HideListNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	1182
	colm	11
	synt	any
	mark	L1
	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	initially
	var	0
	pnull
	var	0
	line	1183
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	1183
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	1183
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	1183
	colm	72
	synt	any
	field	post_num
	line	1183
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	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	initially
	var	0
	pnull
	var	0
	line	1184
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	1184
	colm	57
	synt	any
	field	cn_tl_field
	line	1184
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	1185
	colm	5
	synt	any
	field	el_export_element_list
	var	1
	line	1185
	colm	41
	synt	any
	invoke	0
	line	1185
	colm	29
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	line	1186
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	1187
	colm	1
	synt	any
	pfail
	end
proc HideListNode
	local	0,001000,el_local_type_id
	local	1,001000,el_export_element_list
	local	2,001000,el_previous_definition
	local	3,001000,kind
	local	4,001000,vlineno
	local	5,001000,pre_num
	local	6,001000,post_num
	local	7,001000,cn_hd_field
	local	8,001000,cn_tl_field
	local	9,001000,unique_id
	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	1190
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1192
	colm	6
	synt	any
	field	__m
	line	1192
	colm	10
	synt	any
	field	Node
	line	1192
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1192
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1193
	colm	6
	synt	any
	field	__m
	line	1193
	colm	10
	synt	any
	field	ConsNode
	line	1193
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1193
	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	1194
	colm	59
	synt	any
	plus
	line	1194
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1194
	colm	95
	synt	any
	field	ee_id
	line	1194
	colm	90
	synt	any
	invoke	1
	line	1194
	colm	78
	synt	any
	cat
	line	1194
	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	1195
	colm	66
	synt	any
	plus
	line	1195
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1195
	colm	102
	synt	any
	field	ee_signature
	line	1195
	colm	97
	synt	any
	invoke	1
	line	1195
	colm	85
	synt	any
	cat
	line	1195
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1196
	colm	68
	synt	any
	plus
	line	1196
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1196
	colm	104
	synt	any
	field	ee_export_list
	line	1196
	colm	99
	synt	any
	invoke	1
	line	1196
	colm	87
	synt	any
	cat
	line	1196
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1198
	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	1200
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1202
	colm	6
	synt	any
	field	__m
	line	1202
	colm	10
	synt	any
	field	Node
	line	1202
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1202
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1203
	colm	6
	synt	any
	field	__m
	line	1203
	colm	10
	synt	any
	field	ConsNode
	line	1203
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1203
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1204
	colm	39
	synt	any
	field	ee_id
	line	1204
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1205
	colm	46
	synt	any
	field	ee_signature
	line	1205
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1206
	colm	48
	synt	any
	field	ee_export_list
	line	1206
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1208
	colm	1
	synt	any
	pfail
	end
proc ExportElementNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	1210
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1211
	colm	6
	synt	any
	field	__m
	line	1211
	colm	10
	synt	any
	field	Node
	line	1211
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1211
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	1211
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	1211
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	1211
	colm	72
	synt	any
	field	post_num
	line	1211
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1212
	colm	6
	synt	any
	field	__m
	line	1212
	colm	10
	synt	any
	field	ConsNode
	line	1212
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1212
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	1212
	colm	57
	synt	any
	field	cn_tl_field
	line	1212
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	1213
	colm	5
	synt	any
	field	ee_export_list
	var	1
	line	1213
	colm	33
	synt	any
	invoke	0
	line	1213
	colm	21
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	line	1214
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	1215
	colm	1
	synt	any
	pfail
	end
proc ExportElementNode
	local	0,001000,ee_id
	local	1,001000,ee_signature
	local	2,001000,ee_export_list
	local	3,001000,kind
	local	4,001000,vlineno
	local	5,001000,pre_num
	local	6,001000,post_num
	local	7,001000,cn_hd_field
	local	8,001000,cn_tl_field
	local	9,001000,unique_id
	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	1217
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1219
	colm	6
	synt	any
	field	__m
	line	1219
	colm	10
	synt	any
	field	Node
	line	1219
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1219
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	pnull
	pnull
	pnull
	var	0
	line	1220
	colm	6
	synt	any
	field	__m
	line	1220
	colm	10
	synt	any
	field	ConsNode
	line	1220
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1220
	colm	24
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1222
	colm	1
	synt	any
	pfail
	end
proc AllConstantsNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	declend
	line	1223
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1225
	colm	6
	synt	any
	field	__m
	line	1225
	colm	10
	synt	any
	field	Node
	line	1225
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1225
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	pnull
	pnull
	pnull
	var	0
	line	1226
	colm	6
	synt	any
	field	__m
	line	1226
	colm	10
	synt	any
	field	ConsNode
	line	1226
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1226
	colm	29
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1228
	colm	1
	synt	any
	pfail
	end
proc AllConstantsNode_initially
	local	0,001000,self
	declend
	line	1229
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1230
	colm	6
	synt	any
	field	__m
	line	1230
	colm	10
	synt	any
	field	Node
	line	1230
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1230
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	1230
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	1230
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	1230
	colm	72
	synt	any
	field	post_num
	line	1230
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1231
	colm	6
	synt	any
	field	__m
	line	1231
	colm	10
	synt	any
	field	ConsNode
	line	1231
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1231
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	1231
	colm	57
	synt	any
	field	cn_tl_field
	line	1231
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1232
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1233
	colm	1
	synt	any
	pfail
	end
proc AllConstantsNode
	local	0,001000,kind
	local	1,001000,vlineno
	local	2,001000,pre_num
	local	3,001000,post_num
	local	4,001000,cn_hd_field
	local	5,001000,cn_tl_field
	local	6,000020,self
	local	7,000020,clone
	local	8,000000,AllConstantsNode__oprec
	local	9,000000,AllConstantsNodeinitialize
	local	10,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	8
	line	8
	colm	6
	synt	any
	null
	unmark
	var	9
	line	8
	colm	62
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	pnull
	var	6
	var	10
	line	10
	colm	35
	synt	any
	keywd	null
	var	8
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	line	10
	colm	34
	synt	any
	invoke	8
	line	10
	colm	8
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	6
	line	11
	colm	7
	synt	any
	field	__s
	var	6
	line	11
	colm	12
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	mark	L7
	pnull
	pnull
	var	6
	line	12
	colm	7
	synt	any
	field	__m
	line	12
	colm	11
	synt	any
	field	initially
	var	6
	line	12
	colm	21
	synt	any
	invoke	1
	line	12
	colm	28
	synt	any
	esusp
	goto	L8
lab L7
	line	12
	colm	30
	synt	any
	pfail
lab L8
	unmark
lab L6
	mark	L9
	mark	L10
	var	6
	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 AllConstantsNodeinitialize
	local	0,000000,AllConstantsNode__oprec
	local	1,000000,AllConstantsNode__methods
	local	2,000000,AllConstantsNode_dump
	local	3,000000,AllConstantsNode_dump_tree
	local	4,000000,AllConstantsNode_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	63
	synt	any
	invoke	3
	line	17
	colm	35
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	18
	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	1236
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1238
	colm	6
	synt	any
	field	__m
	line	1238
	colm	10
	synt	any
	field	Node
	line	1238
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1238
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1239
	colm	6
	synt	any
	field	__m
	line	1239
	colm	10
	synt	any
	field	ConsNode
	line	1239
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1239
	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	1240
	colm	63
	synt	any
	plus
	line	1240
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1240
	colm	99
	synt	any
	field	signature
	line	1240
	colm	94
	synt	any
	invoke	1
	line	1240
	colm	82
	synt	any
	cat
	line	1240
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1241
	colm	62
	synt	any
	plus
	line	1241
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1241
	colm	98
	synt	any
	field	sig_done
	line	1241
	colm	93
	synt	any
	invoke	1
	line	1241
	colm	81
	synt	any
	cat
	line	1241
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1243
	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	1244
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1246
	colm	6
	synt	any
	field	__m
	line	1246
	colm	10
	synt	any
	field	Node
	line	1246
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1246
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1247
	colm	6
	synt	any
	field	__m
	line	1247
	colm	10
	synt	any
	field	ConsNode
	line	1247
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1247
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1248
	colm	43
	synt	any
	field	signature
	line	1248
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1249
	colm	42
	synt	any
	field	sig_done
	line	1249
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1251
	colm	1
	synt	any
	pfail
	end
proc WordElseNode_initially
	local	0,001000,self
	declend
	line	1253
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1254
	colm	6
	synt	any
	field	__m
	line	1254
	colm	10
	synt	any
	field	Node
	line	1254
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1254
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	1254
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	1254
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	1254
	colm	72
	synt	any
	field	post_num
	line	1254
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1255
	colm	6
	synt	any
	field	__m
	line	1255
	colm	10
	synt	any
	field	ConsNode
	line	1255
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1255
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	1255
	colm	57
	synt	any
	field	cn_tl_field
	line	1255
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1256
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1257
	colm	1
	synt	any
	pfail
	end
proc WordElseNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,kind
	local	3,001000,vlineno
	local	4,001000,pre_num
	local	5,001000,post_num
	local	6,001000,cn_hd_field
	local	7,001000,cn_tl_field
	local	8,001000,unique_id
	local	9,000020,self
	local	10,000020,clone
	local	11,000000,WordElseNode__oprec
	local	12,000000,WordElseNodeinitialize
	local	13,000000,Node__oprec
	local	14,000000,Nodeinitialize
	local	15,000000,ConsNode__oprec
	local	16,000000,ConsNodeinitialize
	local	17,000000,WordElseNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	11
	line	8
	colm	6
	synt	any
	null
	unmark
	var	12
	line	8
	colm	54
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	13
	line	9
	colm	6
	synt	any
	null
	unmark
	var	14
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	11
	line	10
	colm	22
	synt	any
	field	Node
	var	13
	line	10
	colm	28
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	15
	line	11
	colm	6
	synt	any
	null
	unmark
	var	16
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	11
	line	12
	colm	22
	synt	any
	field	ConsNode
	var	15
	line	12
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	9
	var	17
	line	14
	colm	31
	synt	any
	keywd	null
	var	11
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	line	14
	colm	30
	synt	any
	invoke	11
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	9
	line	15
	colm	7
	synt	any
	field	__s
	var	9
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	9
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	9
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	9
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc WordElseNodeinitialize
	local	0,000000,WordElseNode__oprec
	local	1,000000,WordElseNode__methods
	local	2,000000,WordElseNode_dump
	local	3,000000,WordElseNode_dump_tree
	local	4,000000,WordElseNode_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_dumo
	local	0,001000,self
	local	1,000000,nodes_created_file
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	1260
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1262
	colm	6
	synt	any
	field	__m
	line	1262
	colm	10
	synt	any
	field	Node
	line	1262
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1262
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	pnull
	pnull
	pnull
	var	0
	line	1263
	colm	6
	synt	any
	field	__m
	line	1263
	colm	10
	synt	any
	field	ConsNode
	line	1263
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1263
	colm	24
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1265
	colm	1
	synt	any
	pfail
	end
proc WordCandNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	declend
	line	1266
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1268
	colm	6
	synt	any
	field	__m
	line	1268
	colm	10
	synt	any
	field	Node
	line	1268
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1268
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	pnull
	pnull
	pnull
	var	0
	line	1269
	colm	6
	synt	any
	field	__m
	line	1269
	colm	10
	synt	any
	field	ConsNode
	line	1269
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1269
	colm	29
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1271
	colm	1
	synt	any
	pfail
	end
proc WordCandNode_initially
	local	0,001000,self
	declend
	line	1273
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1274
	colm	6
	synt	any
	field	__m
	line	1274
	colm	10
	synt	any
	field	Node
	line	1274
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1274
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	1274
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	1274
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	1274
	colm	72
	synt	any
	field	post_num
	line	1274
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1275
	colm	6
	synt	any
	field	__m
	line	1275
	colm	10
	synt	any
	field	ConsNode
	line	1275
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1275
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	1275
	colm	57
	synt	any
	field	cn_tl_field
	line	1275
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1276
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1277
	colm	1
	synt	any
	pfail
	end
proc WordCandNode
	local	0,001000,kind
	local	1,001000,vlineno
	local	2,001000,pre_num
	local	3,001000,post_num
	local	4,001000,cn_hd_field
	local	5,001000,cn_tl_field
	local	6,001000,unique_id
	local	7,000020,self
	local	8,000020,clone
	local	9,000000,WordCandNode__oprec
	local	10,000000,WordCandNodeinitialize
	local	11,000000,Node__oprec
	local	12,000000,Nodeinitialize
	local	13,000000,ConsNode__oprec
	local	14,000000,ConsNodeinitialize
	local	15,000000,WordCandNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	9
	line	8
	colm	6
	synt	any
	null
	unmark
	var	10
	line	8
	colm	54
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	11
	line	9
	colm	6
	synt	any
	null
	unmark
	var	12
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	9
	line	10
	colm	22
	synt	any
	field	Node
	var	11
	line	10
	colm	28
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	13
	line	11
	colm	6
	synt	any
	null
	unmark
	var	14
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	9
	line	12
	colm	22
	synt	any
	field	ConsNode
	var	13
	line	12
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	7
	var	15
	line	14
	colm	31
	synt	any
	keywd	null
	var	9
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	14
	colm	30
	synt	any
	invoke	9
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	7
	line	15
	colm	7
	synt	any
	field	__s
	var	7
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	7
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	7
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	7
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc WordCandNodeinitialize
	local	0,000000,WordCandNode__oprec
	local	1,000000,WordCandNode__methods
	local	2,000000,WordCandNode_dumo
	local	3,000000,WordCandNode_dump_tree
	local	4,000000,WordCandNode_initially
	local	5,000000,Node_dump
	local	6,000000,ConsNode_cons_dump
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	21
	colm	55
	synt	any
	invoke	5
	line	21
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc WordCorNode_dump
	local	0,001000,self
	local	1,001000,nodes_created_file
	declend
	filen	stree/ststructs_cls.tmp.icn
	line	1280
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1282
	colm	6
	synt	any
	field	__m
	line	1282
	colm	10
	synt	any
	field	Node
	line	1282
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1282
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	pnull
	pnull
	pnull
	var	0
	line	1283
	colm	6
	synt	any
	field	__m
	line	1283
	colm	10
	synt	any
	field	ConsNode
	line	1283
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1283
	colm	24
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1285
	colm	1
	synt	any
	pfail
	end
proc WordCorNode_dump_tree
	local	0,001000,self
	local	1,000000,treefile
	declend
	line	1286
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1288
	colm	6
	synt	any
	field	__m
	line	1288
	colm	10
	synt	any
	field	Node
	line	1288
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1288
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	pnull
	pnull
	pnull
	var	0
	line	1289
	colm	6
	synt	any
	field	__m
	line	1289
	colm	10
	synt	any
	field	ConsNode
	line	1289
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1289
	colm	29
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1291
	colm	1
	synt	any
	pfail
	end
proc WordCorNode_initially
	local	0,001000,self
	declend
	line	1292
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1293
	colm	6
	synt	any
	field	__m
	line	1293
	colm	10
	synt	any
	field	Node
	line	1293
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1293
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	1293
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	1293
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	1293
	colm	72
	synt	any
	field	post_num
	line	1293
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1294
	colm	6
	synt	any
	field	__m
	line	1294
	colm	10
	synt	any
	field	ConsNode
	line	1294
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1294
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	1294
	colm	57
	synt	any
	field	cn_tl_field
	line	1294
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1295
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1296
	colm	1
	synt	any
	pfail
	end
proc WordCorNode
	local	0,001000,kind
	local	1,001000,vlineno
	local	2,001000,pre_num
	local	3,001000,post_num
	local	4,001000,cn_hd_field
	local	5,001000,cn_tl_field
	local	6,001000,unique_id
	local	7,000020,self
	local	8,000020,clone
	local	9,000000,WordCorNode__oprec
	local	10,000000,WordCorNodeinitialize
	local	11,000000,Node__oprec
	local	12,000000,Nodeinitialize
	local	13,000000,ConsNode__oprec
	local	14,000000,ConsNodeinitialize
	local	15,000000,WordCorNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	9
	line	8
	colm	6
	synt	any
	null
	unmark
	var	10
	line	8
	colm	52
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	11
	line	9
	colm	6
	synt	any
	null
	unmark
	var	12
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	9
	line	10
	colm	21
	synt	any
	field	Node
	var	11
	line	10
	colm	27
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	13
	line	11
	colm	6
	synt	any
	null
	unmark
	var	14
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	9
	line	12
	colm	21
	synt	any
	field	ConsNode
	var	13
	line	12
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	7
	var	15
	line	14
	colm	30
	synt	any
	keywd	null
	var	9
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	14
	colm	29
	synt	any
	invoke	9
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	7
	line	15
	colm	7
	synt	any
	field	__s
	var	7
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	7
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	7
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	7
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc WordCorNodeinitialize
	local	0,000000,WordCorNode__oprec
	local	1,000000,WordCorNode__methods
	local	2,000000,WordCorNode_dump
	local	3,000000,WordCorNode_dump_tree
	local	4,000000,WordCorNode_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	1299
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1301
	colm	6
	synt	any
	field	__m
	line	1301
	colm	10
	synt	any
	field	Node
	line	1301
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1301
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1302
	colm	6
	synt	any
	field	__m
	line	1302
	colm	10
	synt	any
	field	ConsNode
	line	1302
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1302
	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	1303
	colm	63
	synt	any
	plus
	line	1303
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1303
	colm	99
	synt	any
	field	signature
	line	1303
	colm	94
	synt	any
	invoke	1
	line	1303
	colm	82
	synt	any
	cat
	line	1303
	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	1304
	colm	62
	synt	any
	plus
	line	1304
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1304
	colm	98
	synt	any
	field	sig_done
	line	1304
	colm	93
	synt	any
	invoke	1
	line	1304
	colm	81
	synt	any
	cat
	line	1304
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1305
	colm	61
	synt	any
	plus
	line	1305
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1305
	colm	97
	synt	any
	field	gl_list
	line	1305
	colm	92
	synt	any
	invoke	1
	line	1305
	colm	80
	synt	any
	cat
	line	1305
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1307
	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	1308
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1310
	colm	6
	synt	any
	field	__m
	line	1310
	colm	10
	synt	any
	field	Node
	line	1310
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1310
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1311
	colm	6
	synt	any
	field	__m
	line	1311
	colm	10
	synt	any
	field	ConsNode
	line	1311
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1311
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1312
	colm	43
	synt	any
	field	signature
	line	1312
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1313
	colm	42
	synt	any
	field	sig_done
	line	1313
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1314
	colm	41
	synt	any
	field	gl_list
	line	1314
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1316
	colm	1
	synt	any
	pfail
	end
proc GuardedListNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	1317
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1318
	colm	6
	synt	any
	field	__m
	line	1318
	colm	10
	synt	any
	field	Node
	line	1318
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1318
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	1318
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	1318
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	1318
	colm	72
	synt	any
	field	post_num
	line	1318
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1319
	colm	6
	synt	any
	field	__m
	line	1319
	colm	10
	synt	any
	field	ConsNode
	line	1319
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1319
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	1319
	colm	57
	synt	any
	field	cn_tl_field
	line	1319
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	1320
	colm	5
	synt	any
	field	gl_list
	var	1
	line	1320
	colm	26
	synt	any
	invoke	0
	line	1320
	colm	14
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	line	1321
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	1322
	colm	1
	synt	any
	pfail
	end
proc GuardedListNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,gl_list
	local	3,001000,kind
	local	4,001000,vlineno
	local	5,001000,pre_num
	local	6,001000,post_num
	local	7,001000,cn_hd_field
	local	8,001000,cn_tl_field
	local	9,001000,unique_id
	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	1324
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1326
	colm	6
	synt	any
	field	__m
	line	1326
	colm	10
	synt	any
	field	Node
	line	1326
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1326
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1327
	colm	6
	synt	any
	field	__m
	line	1327
	colm	10
	synt	any
	field	ConsNode
	line	1327
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1327
	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	1328
	colm	63
	synt	any
	plus
	line	1328
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1328
	colm	99
	synt	any
	field	signature
	line	1328
	colm	94
	synt	any
	invoke	1
	line	1328
	colm	82
	synt	any
	cat
	line	1328
	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	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	sig_done
	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 L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1330
	colm	61
	synt	any
	plus
	line	1330
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1330
	colm	97
	synt	any
	field	gl_list
	line	1330
	colm	92
	synt	any
	invoke	1
	line	1330
	colm	80
	synt	any
	cat
	line	1330
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1332
	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	1333
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1335
	colm	6
	synt	any
	field	__m
	line	1335
	colm	10
	synt	any
	field	Node
	line	1335
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1335
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1336
	colm	6
	synt	any
	field	__m
	line	1336
	colm	10
	synt	any
	field	ConsNode
	line	1336
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1336
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1337
	colm	43
	synt	any
	field	signature
	line	1337
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1338
	colm	42
	synt	any
	field	sig_done
	line	1338
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1339
	colm	41
	synt	any
	field	gl_list
	line	1339
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1341
	colm	1
	synt	any
	pfail
	end
proc LoopDenotationNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	1343
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1344
	colm	6
	synt	any
	field	__m
	line	1344
	colm	10
	synt	any
	field	Node
	line	1344
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1344
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	1344
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	1344
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	1344
	colm	72
	synt	any
	field	post_num
	line	1344
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1345
	colm	6
	synt	any
	field	__m
	line	1345
	colm	10
	synt	any
	field	ConsNode
	line	1345
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1345
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	1345
	colm	57
	synt	any
	field	cn_tl_field
	line	1345
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	1346
	colm	5
	synt	any
	field	gl_list
	var	1
	line	1346
	colm	26
	synt	any
	invoke	0
	line	1346
	colm	14
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	line	1347
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	1348
	colm	1
	synt	any
	pfail
	end
proc LoopDenotationNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,gl_list
	local	3,001000,kind
	local	4,001000,vlineno
	local	5,001000,pre_num
	local	6,001000,post_num
	local	7,001000,cn_hd_field
	local	8,001000,cn_tl_field
	local	9,001000,unique_id
	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	1350
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1352
	colm	6
	synt	any
	field	__m
	line	1352
	colm	10
	synt	any
	field	Node
	line	1352
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1352
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1353
	colm	6
	synt	any
	field	__m
	line	1353
	colm	10
	synt	any
	field	ConsNode
	line	1353
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1353
	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	1354
	colm	62
	synt	any
	plus
	line	1354
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1354
	colm	98
	synt	any
	field	ge_guard
	line	1354
	colm	93
	synt	any
	invoke	1
	line	1354
	colm	81
	synt	any
	cat
	line	1354
	colm	18
	synt	any
	invoke	2
	unmark
lab L4
	var	2
	var	1
	pnull
	var	3
	str	2
	pnull
	int	1
	var	4
	line	1355
	colm	64
	synt	any
	plus
	line	1355
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1355
	colm	100
	synt	any
	field	ge_element
	line	1355
	colm	95
	synt	any
	invoke	1
	line	1355
	colm	83
	synt	any
	cat
	line	1355
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1357
	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	1358
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1360
	colm	6
	synt	any
	field	__m
	line	1360
	colm	10
	synt	any
	field	Node
	line	1360
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1360
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1361
	colm	6
	synt	any
	field	__m
	line	1361
	colm	10
	synt	any
	field	ConsNode
	line	1361
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1361
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1362
	colm	42
	synt	any
	field	ge_guard
	line	1362
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1363
	colm	44
	synt	any
	field	ge_element
	line	1363
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1365
	colm	1
	synt	any
	pfail
	end
proc GuardedElementNode_initially
	local	0,001000,self
	declend
	line	1366
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1367
	colm	6
	synt	any
	field	__m
	line	1367
	colm	10
	synt	any
	field	Node
	line	1367
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1367
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	1367
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	1367
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	1367
	colm	72
	synt	any
	field	post_num
	line	1367
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1368
	colm	6
	synt	any
	field	__m
	line	1368
	colm	10
	synt	any
	field	ConsNode
	line	1368
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1368
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	1368
	colm	57
	synt	any
	field	cn_tl_field
	line	1368
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1369
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1370
	colm	1
	synt	any
	pfail
	end
proc GuardedElementNode
	local	0,001000,ge_guard
	local	1,001000,ge_element
	local	2,001000,kind
	local	3,001000,vlineno
	local	4,001000,pre_num
	local	5,001000,post_num
	local	6,001000,cn_hd_field
	local	7,001000,cn_tl_field
	local	8,001000,unique_id
	local	9,000020,self
	local	10,000020,clone
	local	11,000000,GuardedElementNode__oprec
	local	12,000000,GuardedElementNodeinitialize
	local	13,000000,Node__oprec
	local	14,000000,Nodeinitialize
	local	15,000000,ConsNode__oprec
	local	16,000000,ConsNodeinitialize
	local	17,000000,GuardedElementNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	11
	line	8
	colm	6
	synt	any
	null
	unmark
	var	12
	line	8
	colm	66
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	13
	line	9
	colm	6
	synt	any
	null
	unmark
	var	14
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	11
	line	10
	colm	28
	synt	any
	field	Node
	var	13
	line	10
	colm	34
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	15
	line	11
	colm	6
	synt	any
	null
	unmark
	var	16
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	11
	line	12
	colm	28
	synt	any
	field	ConsNode
	var	15
	line	12
	colm	38
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	9
	var	17
	line	14
	colm	37
	synt	any
	keywd	null
	var	11
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	line	14
	colm	36
	synt	any
	invoke	11
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	9
	line	15
	colm	7
	synt	any
	field	__s
	var	9
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	9
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	9
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	9
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc GuardedElementNodeinitialize
	local	0,000000,GuardedElementNode__oprec
	local	1,000000,GuardedElementNode__methods
	local	2,000000,GuardedElementNode_dump
	local	3,000000,GuardedElementNode_dump_tree
	local	4,000000,GuardedElementNode_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	1373
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1375
	colm	6
	synt	any
	field	__m
	line	1375
	colm	10
	synt	any
	field	Node
	line	1375
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1375
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1376
	colm	6
	synt	any
	field	__m
	line	1376
	colm	10
	synt	any
	field	ConsNode
	line	1376
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1376
	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	1377
	colm	63
	synt	any
	plus
	line	1377
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1377
	colm	99
	synt	any
	field	signature
	line	1377
	colm	94
	synt	any
	invoke	1
	line	1377
	colm	82
	synt	any
	cat
	line	1377
	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	1378
	colm	62
	synt	any
	plus
	line	1378
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1378
	colm	98
	synt	any
	field	sig_done
	line	1378
	colm	93
	synt	any
	invoke	1
	line	1378
	colm	81
	synt	any
	cat
	line	1378
	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	1379
	colm	62
	synt	any
	plus
	line	1379
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1379
	colm	98
	synt	any
	field	sel_type
	line	1379
	colm	93
	synt	any
	invoke	1
	line	1379
	colm	81
	synt	any
	cat
	line	1379
	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	1380
	colm	72
	synt	any
	plus
	line	1380
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1380
	colm	108
	synt	any
	field	id_str_table_index
	line	1380
	colm	103
	synt	any
	invoke	1
	line	1380
	colm	91
	synt	any
	cat
	line	1380
	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	1381
	colm	65
	synt	any
	plus
	line	1381
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1381
	colm	101
	synt	any
	field	id_use_list
	line	1381
	colm	96
	synt	any
	invoke	1
	line	1381
	colm	84
	synt	any
	cat
	line	1381
	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	1382
	colm	72
	synt	any
	plus
	line	1382
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1382
	colm	108
	synt	any
	field	id_last_definition
	line	1382
	colm	103
	synt	any
	invoke	1
	line	1382
	colm	91
	synt	any
	cat
	line	1382
	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	1383
	colm	66
	synt	any
	plus
	line	1383
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1383
	colm	102
	synt	any
	field	id_def_found
	line	1383
	colm	97
	synt	any
	invoke	1
	line	1383
	colm	85
	synt	any
	cat
	line	1383
	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	1384
	colm	63
	synt	any
	plus
	line	1384
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1384
	colm	99
	synt	any
	field	sel_index
	line	1384
	colm	94
	synt	any
	invoke	1
	line	1384
	colm	82
	synt	any
	cat
	line	1384
	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	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	id_appl
	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 L12
	var	2
	var	1
	pnull
	var	3
	str	10
	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	id_forward_ref
	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 L1
	pnull
	line	1388
	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	1389
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1391
	colm	6
	synt	any
	field	__m
	line	1391
	colm	10
	synt	any
	field	Node
	line	1391
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1391
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1392
	colm	6
	synt	any
	field	__m
	line	1392
	colm	10
	synt	any
	field	ConsNode
	line	1392
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1392
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1393
	colm	43
	synt	any
	field	signature
	line	1393
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1394
	colm	42
	synt	any
	field	sig_done
	line	1394
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1395
	colm	42
	synt	any
	field	sel_type
	line	1395
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	1396
	colm	52
	synt	any
	field	id_str_table_index
	line	1396
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	mark	L8
	var	2
	var	0
	str	4
	pnull
	var	0
	line	1397
	colm	45
	synt	any
	field	id_use_list
	line	1397
	colm	15
	synt	any
	invoke	3
	unmark
lab L8
	mark	L9
	var	2
	var	0
	str	5
	pnull
	var	0
	line	1398
	colm	52
	synt	any
	field	id_last_definition
	line	1398
	colm	15
	synt	any
	invoke	3
	unmark
lab L9
	mark	L10
	var	2
	var	0
	str	6
	pnull
	var	0
	line	1399
	colm	46
	synt	any
	field	id_def_found
	line	1399
	colm	15
	synt	any
	invoke	3
	unmark
lab L10
	mark	L11
	var	2
	var	0
	str	7
	pnull
	var	0
	line	1400
	colm	43
	synt	any
	field	sel_index
	line	1400
	colm	15
	synt	any
	invoke	3
	unmark
lab L11
	mark	L12
	var	2
	var	0
	str	8
	pnull
	var	0
	line	1401
	colm	41
	synt	any
	field	id_appl
	line	1401
	colm	15
	synt	any
	invoke	3
	unmark
lab L12
	var	2
	var	0
	str	9
	pnull
	var	0
	line	1402
	colm	48
	synt	any
	field	id_forward_ref
	line	1402
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1404
	colm	1
	synt	any
	pfail
	end
proc OpridNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	1405
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1406
	colm	6
	synt	any
	field	__m
	line	1406
	colm	10
	synt	any
	field	Node
	line	1406
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1406
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	1406
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	1406
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	1406
	colm	72
	synt	any
	field	post_num
	line	1406
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1407
	colm	6
	synt	any
	field	__m
	line	1407
	colm	10
	synt	any
	field	ConsNode
	line	1407
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1407
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	1407
	colm	57
	synt	any
	field	cn_tl_field
	line	1407
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	1408
	colm	5
	synt	any
	field	id_use_list
	var	1
	line	1408
	colm	30
	synt	any
	invoke	0
	line	1408
	colm	18
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	line	1409
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	1410
	colm	1
	synt	any
	pfail
	end
proc OpridNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,sel_type
	local	3,001000,id_str_table_index
	local	4,001000,id_use_list
	local	5,001000,id_last_definition
	local	6,001000,id_def_found
	local	7,001000,sel_index
	local	8,001000,id_appl
	local	9,001000,id_forward_ref
	local	10,001000,kind
	local	11,001000,vlineno
	local	12,001000,pre_num
	local	13,001000,post_num
	local	14,001000,cn_hd_field
	local	15,001000,cn_tl_field
	local	16,001000,unique_id
	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	1412
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1414
	colm	6
	synt	any
	field	__m
	line	1414
	colm	10
	synt	any
	field	Node
	line	1414
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1414
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1415
	colm	6
	synt	any
	field	__m
	line	1415
	colm	10
	synt	any
	field	ConsNode
	line	1415
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1415
	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	1416
	colm	63
	synt	any
	plus
	line	1416
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1416
	colm	99
	synt	any
	field	signature
	line	1416
	colm	94
	synt	any
	invoke	1
	line	1416
	colm	82
	synt	any
	cat
	line	1416
	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	1417
	colm	62
	synt	any
	plus
	line	1417
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1417
	colm	98
	synt	any
	field	sig_done
	line	1417
	colm	93
	synt	any
	invoke	1
	line	1417
	colm	81
	synt	any
	cat
	line	1417
	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	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	sel_type
	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 L6
	mark	L7
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	1419
	colm	72
	synt	any
	plus
	line	1419
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1419
	colm	108
	synt	any
	field	id_str_table_index
	line	1419
	colm	103
	synt	any
	invoke	1
	line	1419
	colm	91
	synt	any
	cat
	line	1419
	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	1420
	colm	65
	synt	any
	plus
	line	1420
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1420
	colm	101
	synt	any
	field	id_use_list
	line	1420
	colm	96
	synt	any
	invoke	1
	line	1420
	colm	84
	synt	any
	cat
	line	1420
	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	1421
	colm	72
	synt	any
	plus
	line	1421
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1421
	colm	108
	synt	any
	field	id_last_definition
	line	1421
	colm	103
	synt	any
	invoke	1
	line	1421
	colm	91
	synt	any
	cat
	line	1421
	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	1422
	colm	66
	synt	any
	plus
	line	1422
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1422
	colm	102
	synt	any
	field	id_def_found
	line	1422
	colm	97
	synt	any
	invoke	1
	line	1422
	colm	85
	synt	any
	cat
	line	1422
	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	1423
	colm	63
	synt	any
	plus
	line	1423
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1423
	colm	99
	synt	any
	field	sel_index
	line	1423
	colm	94
	synt	any
	invoke	1
	line	1423
	colm	82
	synt	any
	cat
	line	1423
	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	1424
	colm	61
	synt	any
	plus
	line	1424
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1424
	colm	97
	synt	any
	field	id_appl
	line	1424
	colm	92
	synt	any
	invoke	1
	line	1424
	colm	80
	synt	any
	cat
	line	1424
	colm	18
	synt	any
	invoke	2
	unmark
lab L12
	var	2
	var	1
	pnull
	var	3
	str	10
	pnull
	int	1
	var	4
	line	1425
	colm	68
	synt	any
	plus
	line	1425
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1425
	colm	104
	synt	any
	field	id_forward_ref
	line	1425
	colm	99
	synt	any
	invoke	1
	line	1425
	colm	87
	synt	any
	cat
	line	1425
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1427
	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	1428
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1430
	colm	6
	synt	any
	field	__m
	line	1430
	colm	10
	synt	any
	field	Node
	line	1430
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1430
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1431
	colm	6
	synt	any
	field	__m
	line	1431
	colm	10
	synt	any
	field	ConsNode
	line	1431
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1431
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1432
	colm	43
	synt	any
	field	signature
	line	1432
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1433
	colm	42
	synt	any
	field	sig_done
	line	1433
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1434
	colm	42
	synt	any
	field	sel_type
	line	1434
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	1435
	colm	52
	synt	any
	field	id_str_table_index
	line	1435
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	mark	L8
	var	2
	var	0
	str	4
	pnull
	var	0
	line	1436
	colm	45
	synt	any
	field	id_use_list
	line	1436
	colm	15
	synt	any
	invoke	3
	unmark
lab L8
	mark	L9
	var	2
	var	0
	str	5
	pnull
	var	0
	line	1437
	colm	52
	synt	any
	field	id_last_definition
	line	1437
	colm	15
	synt	any
	invoke	3
	unmark
lab L9
	mark	L10
	var	2
	var	0
	str	6
	pnull
	var	0
	line	1438
	colm	46
	synt	any
	field	id_def_found
	line	1438
	colm	15
	synt	any
	invoke	3
	unmark
lab L10
	mark	L11
	var	2
	var	0
	str	7
	pnull
	var	0
	line	1439
	colm	43
	synt	any
	field	sel_index
	line	1439
	colm	15
	synt	any
	invoke	3
	unmark
lab L11
	mark	L12
	var	2
	var	0
	str	8
	pnull
	var	0
	line	1440
	colm	41
	synt	any
	field	id_appl
	line	1440
	colm	15
	synt	any
	invoke	3
	unmark
lab L12
	var	2
	var	0
	str	9
	pnull
	var	0
	line	1441
	colm	48
	synt	any
	field	id_forward_ref
	line	1441
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1443
	colm	1
	synt	any
	pfail
	end
proc LetterId_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	1444
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1445
	colm	6
	synt	any
	field	__m
	line	1445
	colm	10
	synt	any
	field	Node
	line	1445
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1445
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	1445
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	1445
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	1445
	colm	72
	synt	any
	field	post_num
	line	1445
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1446
	colm	6
	synt	any
	field	__m
	line	1446
	colm	10
	synt	any
	field	ConsNode
	line	1446
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1446
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	1446
	colm	57
	synt	any
	field	cn_tl_field
	line	1446
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	1447
	colm	5
	synt	any
	field	id_use_list
	var	1
	line	1447
	colm	30
	synt	any
	invoke	0
	line	1447
	colm	18
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	line	1448
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	1449
	colm	1
	synt	any
	pfail
	end
proc LetterId
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,sel_type
	local	3,001000,id_str_table_index
	local	4,001000,id_use_list
	local	5,001000,id_last_definition
	local	6,001000,id_def_found
	local	7,001000,sel_index
	local	8,001000,id_appl
	local	9,001000,id_forward_ref
	local	10,001000,kind
	local	11,001000,vlineno
	local	12,001000,pre_num
	local	13,001000,post_num
	local	14,001000,cn_hd_field
	local	15,001000,cn_tl_field
	local	16,001000,unique_id
	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	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
	mark	L6
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1457
	colm	62
	synt	any
	plus
	line	1457
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1457
	colm	98
	synt	any
	field	sel_type
	line	1457
	colm	93
	synt	any
	invoke	1
	line	1457
	colm	81
	synt	any
	cat
	line	1457
	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	1458
	colm	64
	synt	any
	plus
	line	1458
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1458
	colm	100
	synt	any
	field	str_string
	line	1458
	colm	95
	synt	any
	invoke	1
	line	1458
	colm	83
	synt	any
	cat
	line	1458
	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	1459
	colm	66
	synt	any
	plus
	line	1459
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1459
	colm	102
	synt	any
	field	str_use_list
	line	1459
	colm	97
	synt	any
	invoke	1
	line	1459
	colm	85
	synt	any
	cat
	line	1459
	colm	18
	synt	any
	invoke	2
	unmark
lab L8
	var	2
	var	1
	pnull
	var	3
	str	6
	pnull
	int	1
	var	4
	line	1460
	colm	67
	synt	any
	plus
	line	1460
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1460
	colm	103
	synt	any
	field	str_expansion
	line	1460
	colm	98
	synt	any
	invoke	1
	line	1460
	colm	86
	synt	any
	cat
	line	1460
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1462
	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	1463
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1465
	colm	6
	synt	any
	field	__m
	line	1465
	colm	10
	synt	any
	field	Node
	line	1465
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1465
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1466
	colm	6
	synt	any
	field	__m
	line	1466
	colm	10
	synt	any
	field	ConsNode
	line	1466
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1466
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1467
	colm	43
	synt	any
	field	signature
	line	1467
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1468
	colm	42
	synt	any
	field	sig_done
	line	1468
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1469
	colm	42
	synt	any
	field	sel_type
	line	1469
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	1470
	colm	44
	synt	any
	field	str_string
	line	1470
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	mark	L8
	var	2
	var	0
	str	4
	pnull
	var	0
	line	1471
	colm	46
	synt	any
	field	str_use_list
	line	1471
	colm	15
	synt	any
	invoke	3
	unmark
lab L8
	var	2
	var	0
	str	5
	pnull
	var	0
	line	1472
	colm	47
	synt	any
	field	str_expansion
	line	1472
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1474
	colm	1
	synt	any
	pfail
	end
proc QStrNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	1475
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1476
	colm	6
	synt	any
	field	__m
	line	1476
	colm	10
	synt	any
	field	Node
	line	1476
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1476
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	1476
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	1476
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	1476
	colm	72
	synt	any
	field	post_num
	line	1476
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1477
	colm	6
	synt	any
	field	__m
	line	1477
	colm	10
	synt	any
	field	ConsNode
	line	1477
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1477
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	1477
	colm	57
	synt	any
	field	cn_tl_field
	line	1477
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	1478
	colm	5
	synt	any
	field	str_use_list
	var	1
	line	1478
	colm	31
	synt	any
	invoke	0
	line	1478
	colm	19
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	line	1479
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	1480
	colm	1
	synt	any
	pfail
	end
proc QStrNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,sel_type
	local	3,001000,str_string
	local	4,001000,str_use_list
	local	5,001000,str_expansion
	local	6,001000,kind
	local	7,001000,vlineno
	local	8,001000,pre_num
	local	9,001000,post_num
	local	10,001000,cn_hd_field
	local	11,001000,cn_tl_field
	local	12,001000,unique_id
	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	1482
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1484
	colm	6
	synt	any
	field	__m
	line	1484
	colm	10
	synt	any
	field	Node
	line	1484
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1484
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1485
	colm	6
	synt	any
	field	__m
	line	1485
	colm	10
	synt	any
	field	ConsNode
	line	1485
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1485
	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	1486
	colm	63
	synt	any
	plus
	line	1486
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1486
	colm	99
	synt	any
	field	signature
	line	1486
	colm	94
	synt	any
	invoke	1
	line	1486
	colm	82
	synt	any
	cat
	line	1486
	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	1487
	colm	62
	synt	any
	plus
	line	1487
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1487
	colm	98
	synt	any
	field	sig_done
	line	1487
	colm	93
	synt	any
	invoke	1
	line	1487
	colm	81
	synt	any
	cat
	line	1487
	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	1488
	colm	62
	synt	any
	plus
	line	1488
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1488
	colm	98
	synt	any
	field	sel_type
	line	1488
	colm	93
	synt	any
	invoke	1
	line	1488
	colm	81
	synt	any
	cat
	line	1488
	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	1489
	colm	64
	synt	any
	plus
	line	1489
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1489
	colm	100
	synt	any
	field	str_string
	line	1489
	colm	95
	synt	any
	invoke	1
	line	1489
	colm	83
	synt	any
	cat
	line	1489
	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	1490
	colm	66
	synt	any
	plus
	line	1490
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1490
	colm	102
	synt	any
	field	str_use_list
	line	1490
	colm	97
	synt	any
	invoke	1
	line	1490
	colm	85
	synt	any
	cat
	line	1490
	colm	18
	synt	any
	invoke	2
	unmark
lab L8
	var	2
	var	1
	pnull
	var	3
	str	6
	pnull
	int	1
	var	4
	line	1491
	colm	67
	synt	any
	plus
	line	1491
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1491
	colm	103
	synt	any
	field	str_expansion
	line	1491
	colm	98
	synt	any
	invoke	1
	line	1491
	colm	86
	synt	any
	cat
	line	1491
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1493
	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	1494
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1496
	colm	6
	synt	any
	field	__m
	line	1496
	colm	10
	synt	any
	field	Node
	line	1496
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1496
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1497
	colm	6
	synt	any
	field	__m
	line	1497
	colm	10
	synt	any
	field	ConsNode
	line	1497
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1497
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1498
	colm	43
	synt	any
	field	signature
	line	1498
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1499
	colm	42
	synt	any
	field	sig_done
	line	1499
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1500
	colm	42
	synt	any
	field	sel_type
	line	1500
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	1501
	colm	44
	synt	any
	field	str_string
	line	1501
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	mark	L8
	var	2
	var	0
	str	4
	pnull
	var	0
	line	1502
	colm	46
	synt	any
	field	str_use_list
	line	1502
	colm	15
	synt	any
	invoke	3
	unmark
lab L8
	var	2
	var	0
	str	5
	pnull
	var	0
	line	1503
	colm	47
	synt	any
	field	str_expansion
	line	1503
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1505
	colm	1
	synt	any
	pfail
	end
proc UQStrNode_initially
	local	0,001000,self
	local	1,000000,emptylist
	declend
	line	1506
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1507
	colm	6
	synt	any
	field	__m
	line	1507
	colm	10
	synt	any
	field	Node
	line	1507
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1507
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	1507
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	1507
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	1507
	colm	72
	synt	any
	field	post_num
	line	1507
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1508
	colm	6
	synt	any
	field	__m
	line	1508
	colm	10
	synt	any
	field	ConsNode
	line	1508
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1508
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	1508
	colm	57
	synt	any
	field	cn_tl_field
	line	1508
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	1509
	colm	5
	synt	any
	field	str_use_list
	var	1
	line	1509
	colm	30
	synt	any
	invoke	0
	line	1509
	colm	18
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	line	1510
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	1511
	colm	1
	synt	any
	pfail
	end
proc UQStrNode
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,sel_type
	local	3,001000,str_string
	local	4,001000,str_use_list
	local	5,001000,str_expansion
	local	6,001000,kind
	local	7,001000,vlineno
	local	8,001000,pre_num
	local	9,001000,post_num
	local	10,001000,cn_hd_field
	local	11,001000,cn_tl_field
	local	12,001000,unique_id
	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	1513
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1515
	colm	6
	synt	any
	field	__m
	line	1515
	colm	10
	synt	any
	field	Node
	line	1515
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1515
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1516
	colm	6
	synt	any
	field	__m
	line	1516
	colm	10
	synt	any
	field	ConsNode
	line	1516
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1516
	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	1517
	colm	63
	synt	any
	plus
	line	1517
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1517
	colm	99
	synt	any
	field	signature
	line	1517
	colm	94
	synt	any
	invoke	1
	line	1517
	colm	82
	synt	any
	cat
	line	1517
	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	1518
	colm	62
	synt	any
	plus
	line	1518
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1518
	colm	98
	synt	any
	field	sig_done
	line	1518
	colm	93
	synt	any
	invoke	1
	line	1518
	colm	81
	synt	any
	cat
	line	1518
	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	1519
	colm	61
	synt	any
	plus
	line	1519
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1519
	colm	97
	synt	any
	field	ar_size
	line	1519
	colm	92
	synt	any
	invoke	1
	line	1519
	colm	80
	synt	any
	cat
	line	1519
	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	1520
	colm	68
	synt	any
	plus
	line	1520
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1520
	colm	104
	synt	any
	field	ar_static_link
	line	1520
	colm	99
	synt	any
	invoke	1
	line	1520
	colm	87
	synt	any
	cat
	line	1520
	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	1521
	colm	69
	synt	any
	plus
	line	1521
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1521
	colm	105
	synt	any
	field	ar_static_level
	line	1521
	colm	100
	synt	any
	invoke	1
	line	1521
	colm	88
	synt	any
	cat
	line	1521
	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	1522
	colm	61
	synt	any
	plus
	line	1522
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1522
	colm	97
	synt	any
	field	fc_body
	line	1522
	colm	92
	synt	any
	invoke	1
	line	1522
	colm	80
	synt	any
	cat
	line	1522
	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	1523
	colm	67
	synt	any
	plus
	line	1523
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1523
	colm	103
	synt	any
	field	fc_complexity
	line	1523
	colm	98
	synt	any
	invoke	1
	line	1523
	colm	86
	synt	any
	cat
	line	1523
	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	1524
	colm	67
	synt	any
	plus
	line	1524
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1524
	colm	103
	synt	any
	field	fc_code_label
	line	1524
	colm	98
	synt	any
	invoke	1
	line	1524
	colm	86
	synt	any
	cat
	line	1524
	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	1525
	colm	66
	synt	any
	plus
	line	1525
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1525
	colm	102
	synt	any
	field	fc_free_vars
	line	1525
	colm	97
	synt	any
	invoke	1
	line	1525
	colm	85
	synt	any
	cat
	line	1525
	colm	18
	synt	any
	invoke	2
	unmark
lab L12
	var	2
	var	1
	pnull
	var	3
	str	10
	pnull
	int	1
	var	4
	line	1526
	colm	68
	synt	any
	plus
	line	1526
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1526
	colm	104
	synt	any
	field	fc_body_needed
	line	1526
	colm	99
	synt	any
	invoke	1
	line	1526
	colm	87
	synt	any
	cat
	line	1526
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1528
	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	1529
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1531
	colm	6
	synt	any
	field	__m
	line	1531
	colm	10
	synt	any
	field	Node
	line	1531
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1531
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1532
	colm	6
	synt	any
	field	__m
	line	1532
	colm	10
	synt	any
	field	ConsNode
	line	1532
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1532
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1533
	colm	43
	synt	any
	field	signature
	line	1533
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1534
	colm	42
	synt	any
	field	sig_done
	line	1534
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1535
	colm	41
	synt	any
	field	ar_size
	line	1535
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	mark	L7
	var	2
	var	0
	str	3
	pnull
	var	0
	line	1536
	colm	48
	synt	any
	field	ar_static_link
	line	1536
	colm	15
	synt	any
	invoke	3
	unmark
lab L7
	mark	L8
	var	2
	var	0
	str	4
	pnull
	var	0
	line	1537
	colm	49
	synt	any
	field	ar_static_level
	line	1537
	colm	15
	synt	any
	invoke	3
	unmark
lab L8
	mark	L9
	var	2
	var	0
	str	5
	pnull
	var	0
	line	1538
	colm	41
	synt	any
	field	fc_body
	line	1538
	colm	15
	synt	any
	invoke	3
	unmark
lab L9
	mark	L10
	var	2
	var	0
	str	6
	pnull
	var	0
	line	1539
	colm	47
	synt	any
	field	fc_complexity
	line	1539
	colm	15
	synt	any
	invoke	3
	unmark
lab L10
	mark	L11
	var	2
	var	0
	str	7
	pnull
	var	0
	line	1540
	colm	47
	synt	any
	field	fc_code_label
	line	1540
	colm	15
	synt	any
	invoke	3
	unmark
lab L11
	mark	L12
	var	2
	var	0
	str	8
	pnull
	var	0
	line	1541
	colm	46
	synt	any
	field	fc_free_vars
	line	1541
	colm	15
	synt	any
	invoke	3
	unmark
lab L12
	var	2
	var	0
	str	9
	pnull
	var	0
	line	1542
	colm	48
	synt	any
	field	fc_body_needed
	line	1542
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1544
	colm	1
	synt	any
	pfail
	end
proc FConstruction_initially
	local	0,001000,self
	declend
	line	1545
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1546
	colm	6
	synt	any
	field	__m
	line	1546
	colm	10
	synt	any
	field	Node
	line	1546
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1546
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	1546
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	1546
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	1546
	colm	72
	synt	any
	field	post_num
	line	1546
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1547
	colm	6
	synt	any
	field	__m
	line	1547
	colm	10
	synt	any
	field	ConsNode
	line	1547
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1547
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	1547
	colm	57
	synt	any
	field	cn_tl_field
	line	1547
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1548
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1549
	colm	1
	synt	any
	pfail
	end
proc FConstruction
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,ar_size
	local	3,001000,ar_static_link
	local	4,001000,ar_static_level
	local	5,001000,fc_body
	local	6,001000,fc_complexity
	local	7,001000,fc_code_label
	local	8,001000,fc_free_vars
	local	9,001000,fc_body_needed
	local	10,001000,kind
	local	11,001000,vlineno
	local	12,001000,pre_num
	local	13,001000,post_num
	local	14,001000,cn_hd_field
	local	15,001000,cn_tl_field
	local	16,001000,unique_id
	local	17,000020,self
	local	18,000020,clone
	local	19,000000,FConstruction__oprec
	local	20,000000,FConstructioninitialize
	local	21,000000,Node__oprec
	local	22,000000,Nodeinitialize
	local	23,000000,ConsNode__oprec
	local	24,000000,ConsNodeinitialize
	local	25,000000,FConstruction__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	19
	line	8
	colm	6
	synt	any
	null
	unmark
	var	20
	line	8
	colm	56
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	21
	line	9
	colm	6
	synt	any
	null
	unmark
	var	22
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	19
	line	10
	colm	23
	synt	any
	field	Node
	var	21
	line	10
	colm	29
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	23
	line	11
	colm	6
	synt	any
	null
	unmark
	var	24
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	19
	line	12
	colm	23
	synt	any
	field	ConsNode
	var	23
	line	12
	colm	33
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	17
	var	25
	line	14
	colm	32
	synt	any
	keywd	null
	var	19
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	14
	var	15
	var	16
	line	14
	colm	31
	synt	any
	invoke	19
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	17
	line	15
	colm	7
	synt	any
	field	__s
	var	17
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	17
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	17
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	17
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc FConstructioninitialize
	local	0,000000,FConstruction__oprec
	local	1,000000,FConstruction__methods
	local	2,000000,FConstruction_dump
	local	3,000000,FConstruction_dump_tree
	local	4,000000,FConstruction_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	1552
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1554
	colm	6
	synt	any
	field	__m
	line	1554
	colm	10
	synt	any
	field	Node
	line	1554
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1554
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1555
	colm	6
	synt	any
	field	__m
	line	1555
	colm	10
	synt	any
	field	ConsNode
	line	1555
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1555
	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	1556
	colm	72
	synt	any
	plus
	line	1556
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1556
	colm	108
	synt	any
	field	fv_last_definition
	line	1556
	colm	103
	synt	any
	invoke	1
	line	1556
	colm	91
	synt	any
	cat
	line	1556
	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	1557
	colm	62
	synt	any
	plus
	line	1557
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1557
	colm	98
	synt	any
	field	fv_surr_
	line	1557
	colm	93
	synt	any
	invoke	1
	line	1557
	colm	81
	synt	any
	cat
	line	1557
	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	1558
	colm	67
	synt	any
	plus
	line	1558
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1558
	colm	103
	synt	any
	field	fv_surr_index
	line	1558
	colm	98
	synt	any
	invoke	1
	line	1558
	colm	86
	synt	any
	cat
	line	1558
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	1559
	colm	62
	synt	any
	plus
	line	1559
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1559
	colm	98
	synt	any
	field	fv_index
	line	1559
	colm	93
	synt	any
	invoke	1
	line	1559
	colm	81
	synt	any
	cat
	line	1559
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1561
	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	1562
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1564
	colm	6
	synt	any
	field	__m
	line	1564
	colm	10
	synt	any
	field	Node
	line	1564
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1564
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1565
	colm	6
	synt	any
	field	__m
	line	1565
	colm	10
	synt	any
	field	ConsNode
	line	1565
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1565
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1566
	colm	52
	synt	any
	field	fv_last_definition
	line	1566
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1567
	colm	42
	synt	any
	field	fv_surr_
	line	1567
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1568
	colm	47
	synt	any
	field	fv_surr_index
	line	1568
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	var	2
	var	0
	str	3
	pnull
	var	0
	line	1569
	colm	42
	synt	any
	field	fv_index
	line	1569
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1571
	colm	1
	synt	any
	pfail
	end
proc FreeVarNode_initially
	local	0,001000,self
	declend
	line	1572
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1573
	colm	6
	synt	any
	field	__m
	line	1573
	colm	10
	synt	any
	field	Node
	line	1573
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1573
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	1573
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	1573
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	1573
	colm	72
	synt	any
	field	post_num
	line	1573
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1574
	colm	6
	synt	any
	field	__m
	line	1574
	colm	10
	synt	any
	field	ConsNode
	line	1574
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1574
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	1574
	colm	57
	synt	any
	field	cn_tl_field
	line	1574
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1575
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1576
	colm	1
	synt	any
	pfail
	end
proc FreeVarNode
	local	0,001000,fv_last_definition
	local	1,001000,fv_surr_class
	local	2,001000,fv_surr_index
	local	3,001000,fv_index
	local	4,001000,kind
	local	5,001000,vlineno
	local	6,001000,pre_num
	local	7,001000,post_num
	local	8,001000,cn_hd_field
	local	9,001000,cn_tl_field
	local	10,001000,unique_id
	local	11,000020,self
	local	12,000020,clone
	local	13,000000,FreeVarNode__oprec
	local	14,000000,FreeVarNodeinitialize
	local	15,000000,Node__oprec
	local	16,000000,Nodeinitialize
	local	17,000000,ConsNode__oprec
	local	18,000000,ConsNodeinitialize
	local	19,000000,FreeVarNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	13
	line	8
	colm	6
	synt	any
	null
	unmark
	var	14
	line	8
	colm	52
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	15
	line	9
	colm	6
	synt	any
	null
	unmark
	var	16
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	13
	line	10
	colm	21
	synt	any
	field	Node
	var	15
	line	10
	colm	27
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	17
	line	11
	colm	6
	synt	any
	null
	unmark
	var	18
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	13
	line	12
	colm	21
	synt	any
	field	ConsNode
	var	17
	line	12
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	11
	var	19
	line	14
	colm	30
	synt	any
	keywd	null
	var	13
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	line	14
	colm	29
	synt	any
	invoke	13
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	11
	line	15
	colm	7
	synt	any
	field	__s
	var	11
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	11
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	11
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	11
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc FreeVarNodeinitialize
	local	0,000000,FreeVarNode__oprec
	local	1,000000,FreeVarNode__methods
	local	2,000000,FreeVarNode_dump
	local	3,000000,FreeVarNode_dump_tree
	local	4,000000,FreeVarNode_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	1579
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1581
	colm	6
	synt	any
	field	__m
	line	1581
	colm	10
	synt	any
	field	Node
	line	1581
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1581
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1582
	colm	6
	synt	any
	field	__m
	line	1582
	colm	10
	synt	any
	field	ConsNode
	line	1582
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1582
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	var	2
	var	1
	pnull
	var	3
	str	0
	pnull
	int	1
	var	4
	line	1583
	colm	62
	synt	any
	plus
	line	1583
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1583
	colm	98
	synt	any
	field	ext_name
	line	1583
	colm	93
	synt	any
	invoke	1
	line	1583
	colm	81
	synt	any
	cat
	line	1583
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1585
	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	1586
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1588
	colm	6
	synt	any
	field	__m
	line	1588
	colm	10
	synt	any
	field	Node
	line	1588
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1588
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1589
	colm	6
	synt	any
	field	__m
	line	1589
	colm	10
	synt	any
	field	ConsNode
	line	1589
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1589
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1590
	colm	42
	synt	any
	field	ext_name
	line	1590
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1592
	colm	1
	synt	any
	pfail
	end
proc ExternDefNode_initially
	local	0,001000,self
	declend
	line	1593
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1594
	colm	6
	synt	any
	field	__m
	line	1594
	colm	10
	synt	any
	field	Node
	line	1594
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1594
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	1594
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	1594
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	1594
	colm	72
	synt	any
	field	post_num
	line	1594
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1595
	colm	6
	synt	any
	field	__m
	line	1595
	colm	10
	synt	any
	field	ConsNode
	line	1595
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1595
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	1595
	colm	57
	synt	any
	field	cn_tl_field
	line	1595
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1596
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1597
	colm	1
	synt	any
	pfail
	end
proc ExternDefNode
	local	0,001000,ext_name
	local	1,001000,kind
	local	2,001000,vlineno
	local	3,001000,pre_num
	local	4,001000,post_num
	local	5,001000,cn_hd_field
	local	6,001000,cn_tl_field
	local	7,001000,unique_id
	local	8,000020,self
	local	9,000020,clone
	local	10,000000,ExternDefNode__oprec
	local	11,000000,ExternDefNodeinitialize
	local	12,000000,Node__oprec
	local	13,000000,Nodeinitialize
	local	14,000000,ConsNode__oprec
	local	15,000000,ConsNodeinitialize
	local	16,000000,ExternDefNode__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	10
	line	8
	colm	6
	synt	any
	null
	unmark
	var	11
	line	8
	colm	56
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	12
	line	9
	colm	6
	synt	any
	null
	unmark
	var	13
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	10
	line	10
	colm	23
	synt	any
	field	Node
	var	12
	line	10
	colm	29
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	11
	colm	6
	synt	any
	null
	unmark
	var	15
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	10
	line	12
	colm	23
	synt	any
	field	ConsNode
	var	14
	line	12
	colm	33
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	8
	var	16
	line	14
	colm	32
	synt	any
	keywd	null
	var	10
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	line	14
	colm	31
	synt	any
	invoke	10
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	8
	line	15
	colm	7
	synt	any
	field	__s
	var	8
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	8
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	8
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	8
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc ExternDefNodeinitialize
	local	0,000000,ExternDefNode__oprec
	local	1,000000,ExternDefNode__methods
	local	2,000000,ExternDefNode_dump
	local	3,000000,ExternDefNode_dump_tree
	local	4,000000,ExternDefNode_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	1600
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1602
	colm	6
	synt	any
	field	__m
	line	1602
	colm	10
	synt	any
	field	Node
	line	1602
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1602
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1603
	colm	6
	synt	any
	field	__m
	line	1603
	colm	10
	synt	any
	field	ConsNode
	line	1603
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1603
	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	1604
	colm	63
	synt	any
	plus
	line	1604
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1604
	colm	99
	synt	any
	field	signature
	line	1604
	colm	94
	synt	any
	invoke	1
	line	1604
	colm	82
	synt	any
	cat
	line	1604
	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	1605
	colm	62
	synt	any
	plus
	line	1605
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1605
	colm	98
	synt	any
	field	sig_done
	line	1605
	colm	93
	synt	any
	invoke	1
	line	1605
	colm	81
	synt	any
	cat
	line	1605
	colm	18
	synt	any
	invoke	2
	unmark
lab L5
	var	2
	var	1
	pnull
	var	3
	str	3
	pnull
	int	1
	var	4
	line	1606
	colm	64
	synt	any
	plus
	line	1606
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1606
	colm	100
	synt	any
	field	r_ext_name
	line	1606
	colm	95
	synt	any
	invoke	1
	line	1606
	colm	83
	synt	any
	cat
	line	1606
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1608
	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	1609
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1611
	colm	6
	synt	any
	field	__m
	line	1611
	colm	10
	synt	any
	field	Node
	line	1611
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1611
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1612
	colm	6
	synt	any
	field	__m
	line	1612
	colm	10
	synt	any
	field	ConsNode
	line	1612
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1612
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1613
	colm	43
	synt	any
	field	signature
	line	1613
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1614
	colm	42
	synt	any
	field	sig_done
	line	1614
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1615
	colm	44
	synt	any
	field	r_ext_name
	line	1615
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1617
	colm	1
	synt	any
	pfail
	end
proc RExternDef_initially
	local	0,001000,self
	declend
	line	1618
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1619
	colm	6
	synt	any
	field	__m
	line	1619
	colm	10
	synt	any
	field	Node
	line	1619
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1619
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	1619
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	1619
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	1619
	colm	72
	synt	any
	field	post_num
	line	1619
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1620
	colm	6
	synt	any
	field	__m
	line	1620
	colm	10
	synt	any
	field	ConsNode
	line	1620
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1620
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	1620
	colm	57
	synt	any
	field	cn_tl_field
	line	1620
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1621
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1622
	colm	1
	synt	any
	pfail
	end
proc RExternDef
	local	0,001000,signature
	local	1,001000,sig_done
	local	2,001000,r_ext_name
	local	3,001000,kind
	local	4,001000,vlineno
	local	5,001000,pre_num
	local	6,001000,post_num
	local	7,001000,cn_hd_field
	local	8,001000,cn_tl_field
	local	9,001000,unique_id
	local	10,000020,self
	local	11,000020,clone
	local	12,000000,RExternDef__oprec
	local	13,000000,RExternDefinitialize
	local	14,000000,Node__oprec
	local	15,000000,Nodeinitialize
	local	16,000000,ConsNode__oprec
	local	17,000000,ConsNodeinitialize
	local	18,000000,RExternDef__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	12
	line	8
	colm	6
	synt	any
	null
	unmark
	var	13
	line	8
	colm	50
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	9
	colm	6
	synt	any
	null
	unmark
	var	15
	line	9
	colm	38
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	12
	line	10
	colm	20
	synt	any
	field	Node
	var	14
	line	10
	colm	26
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	11
	colm	6
	synt	any
	null
	unmark
	var	17
	line	11
	colm	46
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	12
	line	12
	colm	20
	synt	any
	field	ConsNode
	var	16
	line	12
	colm	30
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	10
	var	18
	line	14
	colm	29
	synt	any
	keywd	null
	var	12
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	line	14
	colm	28
	synt	any
	invoke	12
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	10
	line	15
	colm	7
	synt	any
	field	__s
	var	10
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	10
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	10
	line	16
	colm	21
	synt	any
	invoke	1
	line	16
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	10
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc RExternDefinitialize
	local	0,000000,RExternDef__oprec
	local	1,000000,RExternDef__methods
	local	2,000000,RExternDef_dump
	local	3,000000,RExternDef_dump_tree
	local	4,000000,RExternDef_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	1625
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1627
	colm	6
	synt	any
	field	__m
	line	1627
	colm	10
	synt	any
	field	Node
	line	1627
	colm	15
	synt	any
	field	dump
	var	0
	var	1
	line	1627
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1628
	colm	6
	synt	any
	field	__m
	line	1628
	colm	10
	synt	any
	field	ConsNode
	line	1628
	colm	19
	synt	any
	field	dump
	var	0
	var	1
	line	1628
	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	1629
	colm	63
	synt	any
	plus
	line	1629
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1629
	colm	99
	synt	any
	field	dcse_char
	line	1629
	colm	94
	synt	any
	invoke	1
	line	1629
	colm	82
	synt	any
	cat
	line	1629
	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	1630
	colm	65
	synt	any
	plus
	line	1630
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1630
	colm	101
	synt	any
	field	dcse_inline
	line	1630
	colm	96
	synt	any
	invoke	1
	line	1630
	colm	84
	synt	any
	cat
	line	1630
	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	1631
	colm	66
	synt	any
	plus
	line	1631
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1631
	colm	102
	synt	any
	field	dcse_special
	line	1631
	colm	97
	synt	any
	invoke	1
	line	1631
	colm	85
	synt	any
	cat
	line	1631
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	var	2
	var	1
	pnull
	var	3
	str	4
	pnull
	int	1
	var	4
	line	1632
	colm	71
	synt	any
	plus
	line	1632
	colm	42
	synt	any
	invoke	2
	var	5
	pnull
	var	0
	line	1632
	colm	107
	synt	any
	field	dcse_construction
	line	1632
	colm	102
	synt	any
	invoke	1
	line	1632
	colm	90
	synt	any
	cat
	line	1632
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	1634
	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	1635
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1637
	colm	6
	synt	any
	field	__m
	line	1637
	colm	10
	synt	any
	field	Node
	line	1637
	colm	15
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1637
	colm	25
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1638
	colm	6
	synt	any
	field	__m
	line	1638
	colm	10
	synt	any
	field	ConsNode
	line	1638
	colm	19
	synt	any
	field	dump_tree
	var	0
	var	1
	line	1638
	colm	29
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	2
	var	0
	str	0
	pnull
	var	0
	line	1639
	colm	43
	synt	any
	field	dcse_char
	line	1639
	colm	15
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	var	2
	var	0
	str	1
	pnull
	var	0
	line	1640
	colm	45
	synt	any
	field	dcse_inline
	line	1640
	colm	15
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	var	2
	var	0
	str	2
	pnull
	var	0
	line	1641
	colm	46
	synt	any
	field	dcse_special
	line	1641
	colm	15
	synt	any
	invoke	3
	unmark
lab L6
	var	2
	var	0
	str	3
	pnull
	var	0
	line	1642
	colm	51
	synt	any
	field	dcse_construction
	line	1642
	colm	15
	synt	any
	invoke	3
	unmark
lab L1
	pnull
	line	1644
	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	1647
	colm	11
	synt	any
	mark	L1
	line	1648
	colm	1
	synt	ifelse
	mark	L2
	pnull
	var	1
	var	0
	line	1648
	colm	8
	synt	any
	invoke	1
	str	0
	line	1648
	colm	13
	synt	any
	lexeq
	unmark
	mark	L4
	var	0
	line	1648
	colm	31
	synt	any
	pret
lab L4
	synt	any
	pfail
	goto	L3
lab L2
	line	1649
	colm	7
	synt	ifelse
	mark	L5
	pnull
	var	1
	var	0
	line	1649
	colm	14
	synt	any
	invoke	1
	str	1
	line	1649
	colm	19
	synt	any
	lexeq
	unmark
	mark	L7
	var	0
	line	1649
	colm	35
	synt	any
	pret
lab L7
	synt	any
	pfail
	goto	L6
lab L5
	line	1650
	colm	7
	synt	ifelse
	mark	L8
	pnull
	var	1
	var	0
	line	1650
	colm	14
	synt	any
	invoke	1
	str	2
	line	1650
	colm	19
	synt	any
	lexeq
	unmark
	mark	L10
	var	0
	line	1650
	colm	34
	synt	any
	pret
lab L10
	synt	any
	pfail
	goto	L9
lab L8
	mark	L11
	var	1
	var	0
	line	1651
	colm	18
	synt	any
	invoke	1
	line	1651
	colm	7
	synt	any
	pret
lab L11
	synt	any
	pfail
lab L9
	line	1650
	colm	7
	synt	endifelse
lab L6
	line	1649
	colm	7
	synt	endifelse
lab L3
	line	1648
	colm	1
	synt	endifelse
	unmark
lab L1
	pnull
	line	1652
	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	1655
	colm	12
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	pnull
	var	5
	var	7
	str	0
	str	1
	line	1658
	colm	15
	synt	any
	invoke	2
	line	1658
	colm	8
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	6
	var	8
	line	1659
	colm	14
	synt	any
	invoke	0
	line	1659
	colm	8
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	3
	int	2
	line	1660
	colm	5
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	var	9
	var	8
	line	1661
	colm	15
	synt	any
	invoke	0
	line	1661
	colm	9
	synt	any
	asgn
	unmark
lab L7
	pnull
	var	10
	int	2
	line	1662
	colm	17
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	3
	dup
	int	3
	line	1664
	colm	5
	synt	any
	plus
	asgn
	unmark
lab L8
	mark	L9
	line	1665
	colm	2
	synt	if
	mark0
	pnull
	var	3
	int	4
	line	1665
	colm	9
	synt	any
	numgt
	unmark
	mark	L10
	pnull
	line	1665
	colm	23
	synt	any
	pret
lab L10
	synt	any
	pfail
	line	1665
	colm	2
	synt	endif
	unmark
lab L9
	mark	L11
	line	1666
	colm	2
	synt	ifelse
	mark	L12
	pnull
	var	11
	var	2
	line	1666
	colm	9
	synt	any
	invoke	1
	str	5
	line	1666
	colm	14
	synt	any
	lexeq
	unmark
	var	12
	var	13
	pnull
	var	14
	var	1
	pnull
	int	6
	var	10
	line	1666
	colm	59
	synt	any
	plus
	line	1666
	colm	51
	synt	any
	invoke	2
	var	2
	line	1666
	colm	78
	synt	any
	cat
	line	1666
	colm	37
	synt	any
	invoke	2
	goto	L13
lab L12
	line	1667
	colm	6
	synt	ifelse
	mark	L14
	pnull
	var	11
	var	2
	line	1667
	colm	13
	synt	any
	invoke	1
	str	7
	line	1667
	colm	18
	synt	any
	lexeq
	unmark
	var	12
	var	13
	pnull
	var	14
	var	1
	pnull
	int	6
	var	10
	line	1667
	colm	62
	synt	any
	plus
	line	1667
	colm	54
	synt	any
	invoke	2
	var	2
	line	1667
	colm	81
	synt	any
	cat
	line	1667
	colm	40
	synt	any
	invoke	2
	goto	L15
lab L14
	line	1668
	colm	6
	synt	ifelse
	mark	L16
	pnull
	var	11
	var	2
	line	1668
	colm	13
	synt	any
	invoke	1
	str	8
	line	1668
	colm	18
	synt	any
	lexeq
	unmark
	var	12
	var	13
	pnull
	var	14
	var	1
	pnull
	int	6
	var	10
	line	1668
	colm	60
	synt	any
	plus
	line	1668
	colm	52
	synt	any
	invoke	2
	var	2
	line	1668
	colm	79
	synt	any
	cat
	line	1668
	colm	38
	synt	any
	invoke	2
	goto	L17
lab L16
	line	1669
	colm	6
	synt	ifelse
	mark	L18
	pnull
	var	11
	var	2
	line	1669
	colm	13
	synt	any
	invoke	1
	str	9
	line	1669
	colm	18
	synt	any
	lexeq
	unmark
	var	12
	var	13
	pnull
	var	14
	var	1
	pnull
	int	6
	var	10
	line	1669
	colm	69
	synt	any
	plus
	line	1669
	colm	61
	synt	any
	invoke	2
	var	11
	var	2
	line	1669
	colm	95
	synt	any
	invoke	1
	line	1669
	colm	88
	synt	any
	cat
	line	1669
	colm	47
	synt	any
	invoke	2
	goto	L19
lab L18
	line	1670
	colm	6
	synt	ifelse
	mark	L20
	pnull
	var	11
	var	2
	line	1670
	colm	13
	synt	any
	invoke	1
	str	10
	line	1670
	colm	18
	synt	any
	lexeq
	unmark
	var	12
	var	13
	pnull
	var	14
	var	1
	pnull
	int	6
	var	10
	line	1670
	colm	60
	synt	any
	plus
	line	1670
	colm	52
	synt	any
	invoke	2
	var	11
	var	2
	line	1670
	colm	86
	synt	any
	invoke	1
	line	1670
	colm	79
	synt	any
	cat
	line	1670
	colm	38
	synt	any
	invoke	2
	goto	L21
lab L20
	line	1671
	colm	6
	synt	ifelse
	mark	L22
	pnull
	var	11
	var	2
	line	1671
	colm	13
	synt	any
	invoke	1
	str	11
	line	1671
	colm	18
	synt	any
	lexeq
	unmark
	var	12
	var	13
	pnull
	var	14
	var	1
	pnull
	int	6
	var	10
	line	1671
	colm	60
	synt	any
	plus
	line	1671
	colm	52
	synt	any
	invoke	2
	var	11
	var	2
	line	1671
	colm	86
	synt	any
	invoke	1
	line	1671
	colm	79
	synt	any
	cat
	line	1671
	colm	38
	synt	any
	invoke	2
	goto	L23
lab L22
	line	1672
	colm	6
	synt	ifelse
	mark	L24
	pnull
	var	11
	var	2
	line	1672
	colm	13
	synt	any
	invoke	1
	str	12
	line	1672
	colm	18
	synt	any
	lexeq
	unmark
	var	12
	var	13
	pnull
	var	14
	var	1
	pnull
	int	6
	var	10
	line	1672
	colm	60
	synt	any
	plus
	line	1672
	colm	52
	synt	any
	invoke	2
	var	11
	var	2
	line	1672
	colm	86
	synt	any
	invoke	1
	line	1672
	colm	79
	synt	any
	cat
	line	1672
	colm	38
	synt	any
	invoke	2
	goto	L25
lab L24
	line	1673
	colm	6
	synt	ifelse
	mark	L26
	pnull
	var	11
	var	2
	line	1673
	colm	13
	synt	any
	invoke	1
	str	13
	line	1673
	colm	18
	synt	any
	lexeq
	unmark
	var	12
	var	13
	pnull
	var	14
	var	1
	pnull
	int	6
	var	10
	line	1673
	colm	60
	synt	any
	plus
	line	1673
	colm	52
	synt	any
	invoke	2
	var	11
	var	2
	line	1673
	colm	86
	synt	any
	invoke	1
	line	1673
	colm	79
	synt	any
	cat
	line	1673
	colm	38
	synt	any
	invoke	2
	goto	L27
lab L26
	line	1674
	colm	6
	synt	ifelse
	mark	L28
	pnull
	var	11
	var	2
	line	1674
	colm	13
	synt	any
	invoke	1
	str	14
	line	1674
	colm	18
	synt	any
	lexeq
	unmark
	var	12
	var	13
	pnull
	var	14
	var	1
	pnull
	int	6
	var	10
	line	1674
	colm	65
	synt	any
	plus
	line	1674
	colm	57
	synt	any
	invoke	2
	var	11
	var	2
	line	1674
	colm	91
	synt	any
	invoke	1
	line	1674
	colm	84
	synt	any
	cat
	line	1674
	colm	43
	synt	any
	invoke	2
	goto	L29
lab L28
	line	1675
	colm	6
	synt	ifelse
	mark	L30
	pnull
	var	11
	var	2
	line	1675
	colm	13
	synt	any
	invoke	1
	str	15
	line	1675
	colm	18
	synt	any
	lexeq
	unmark
	var	12
	var	13
	pnull
	var	14
	var	1
	pnull
	int	6
	var	10
	line	1675
	colm	59
	synt	any
	plus
	line	1675
	colm	51
	synt	any
	invoke	2
	var	11
	var	2
	line	1675
	colm	85
	synt	any
	invoke	1
	line	1675
	colm	78
	synt	any
	cat
	line	1675
	colm	37
	synt	any
	invoke	2
	goto	L31
lab L30
	line	1676
	colm	6
	synt	ifelse
	mark	L32
	pnull
	var	11
	var	2
	line	1676
	colm	13
	synt	any
	invoke	1
	str	16
	line	1676
	colm	18
	synt	any
	lexeq
	unmark
	var	12
	var	13
	pnull
	var	14
	var	1
	pnull
	int	6
	var	10
	line	1676
	colm	61
	synt	any
	plus
	line	1676
	colm	53
	synt	any
	invoke	2
	var	11
	var	2
	line	1676
	colm	87
	synt	any
	invoke	1
	line	1676
	colm	80
	synt	any
	cat
	line	1676
	colm	39
	synt	any
	invoke	2
	goto	L33
lab L32
	line	1677
	colm	6
	synt	ifelse
	mark	L34
	pnull
	var	11
	var	2
	line	1677
	colm	13
	synt	any
	invoke	1
	str	17
	line	1677
	colm	18
	synt	any
	lexeq
	unmark
	var	12
	var	13
	pnull
	var	14
	var	1
	pnull
	int	6
	var	10
	line	1677
	colm	62
	synt	any
	plus
	line	1677
	colm	54
	synt	any
	invoke	2
	var	11
	var	2
	line	1677
	colm	88
	synt	any
	invoke	1
	line	1677
	colm	81
	synt	any
	cat
	line	1677
	colm	40
	synt	any
	invoke	2
	goto	L35
lab L34
	line	1678
	colm	6
	synt	ifelse
	mark	L36
	pnull
	var	11
	var	2
	line	1678
	colm	13
	synt	any
	invoke	1
	str	18
	line	1678
	colm	18
	synt	any
	lexeq
	unmark
	var	12
	var	13
	pnull
	var	14
	var	1
	pnull
	int	6
	var	10
	line	1678
	colm	61
	synt	any
	plus
	line	1678
	colm	53
	synt	any
	invoke	2
	var	11
	var	2
	line	1678
	colm	87
	synt	any
	invoke	1
	line	1678
	colm	80
	synt	any
	cat
	line	1678
	colm	39
	synt	any
	invoke	2
	goto	L37
lab L36
	mark	L38
	pnull
	var	10
	dup
	int	3
	line	1679
	colm	24
	synt	any
	plus
	asgn
	unmark
lab L38
	mark	L39
	line	1680
	colm	8
	synt	if
	mark0
	mark	L40
	var	15
	var	6
	var	1
	line	1680
	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	1681
	colm	31
	synt	any
	cat
	var	11
	var	2
	line	1681
	colm	45
	synt	any
	invoke	1
	line	1681
	colm	38
	synt	any
	cat
	line	1681
	colm	13
	synt	any
	invoke	2
	unmark
lab L41
	var	16
	var	6
	var	1
	line	1682
	colm	14
	synt	any
	invoke	2
	line	1680
	colm	8
	synt	endif
	unmark
lab L39
	mark	L42
	line	1684
	colm	5
	synt	ifelse
	mark	L43
	mark	L45
	var	15
	var	9
	var	2
	line	1684
	colm	19
	synt	any
	invoke	2
	unmark
	efail
lab L45
	pnull
	unmark
	mark	L46
	var	16
	var	9
	var	2
	line	1686
	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	1687
	colm	59
	synt	any
	plus
	line	1687
	colm	34
	synt	any
	invoke	2
	var	1
	line	1687
	colm	78
	synt	any
	cat
	line	1687
	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	1688
	colm	60
	synt	any
	plus
	line	1688
	colm	34
	synt	any
	invoke	2
	var	11
	var	2
	line	1688
	colm	86
	synt	any
	invoke	1
	line	1688
	colm	79
	synt	any
	cat
	line	1688
	colm	20
	synt	any
	invoke	2
	unmark
lab L48
	mark	L49
	pnull
	var	2
	line	1689
	colm	17
	synt	any
	field	dump_tree
	var	13
	line	1689
	colm	27
	synt	any
	invoke	1
	unmark
lab L49
	var	12
	var	13
	pnull
	var	14
	str	21
	pnull
	int	6
	var	10
	line	1690
	colm	52
	synt	any
	plus
	line	1690
	colm	34
	synt	any
	invoke	2
	var	11
	var	2
	line	1690
	colm	78
	synt	any
	invoke	1
	line	1690
	colm	71
	synt	any
	cat
	line	1690
	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	1694
	colm	75
	synt	any
	plus
	line	1694
	colm	34
	synt	any
	invoke	2
	var	1
	line	1694
	colm	94
	synt	any
	cat
	line	1694
	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	1695
	colm	75
	synt	any
	plus
	line	1695
	colm	34
	synt	any
	invoke	2
	var	11
	var	2
	line	1695
	colm	101
	synt	any
	invoke	1
	line	1695
	colm	94
	synt	any
	cat
	line	1695
	colm	20
	synt	any
	invoke	2
	unmark
lab L51
	mark	L52
	pnull
	var	2
	line	1696
	colm	17
	synt	any
	field	dump
	var	13
	line	1696
	colm	22
	synt	any
	invoke	1
	unmark
lab L52
	var	12
	var	13
	pnull
	var	14
	str	24
	pnull
	int	6
	var	10
	line	1697
	colm	68
	synt	any
	plus
	line	1697
	colm	34
	synt	any
	invoke	2
	var	11
	var	2
	line	1697
	colm	93
	synt	any
	invoke	1
	line	1697
	colm	87
	synt	any
	cat
	line	1697
	colm	20
	synt	any
	invoke	2
lab L44
	line	1684
	colm	5
	synt	endifelse
	unmark
lab L42
	pnull
	var	10
	dup
	int	3
	line	1699
	colm	24
	synt	any
	minus
	asgn
lab L37
	line	1678
	colm	6
	synt	endifelse
lab L35
	line	1677
	colm	6
	synt	endifelse
lab L33
	line	1676
	colm	6
	synt	endifelse
lab L31
	line	1675
	colm	6
	synt	endifelse
lab L29
	line	1674
	colm	6
	synt	endifelse
lab L27
	line	1673
	colm	6
	synt	endifelse
lab L25
	line	1672
	colm	6
	synt	endifelse
lab L23
	line	1671
	colm	6
	synt	endifelse
lab L21
	line	1670
	colm	6
	synt	endifelse
lab L19
	line	1669
	colm	6
	synt	endifelse
lab L17
	line	1668
	colm	6
	synt	endifelse
lab L15
	line	1667
	colm	6
	synt	endifelse
lab L13
	line	1666
	colm	2
	synt	endifelse
	unmark
lab L11
	pnull
	line	1701
	colm	1
	synt	any
	pfail
	end
