version	U12.1.00
uid	ststructs_cls.tmp.u1-1444157219-0
record	Node__state,6
	0,__s
	1,__m
	2,kind
	3,vlineno
	4,pre_num
	5,post_num
record	Node__methods,2
	0,dump
	1,initially
record	ConsNode__state,5
	0,__s
	1,__m
	2,unique_id
	3,cn_hd_field
	4,cn_tl_field
record	ConsNode__methods,3
	0,dump
	1,cons_dump
	2,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,13
	0,dump
	1,list_dump
	2,first
	3,last
	4,setfirst
	5,setlast
	6,conc
	7,length
	8,list_to_array
	9,initially
	10,cons_dump
	11,Node
	12,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,5
	0,dump
	1,initially
	2,cons_dump
	3,Node
	4,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,5
	0,dump
	1,initially
	2,cons_dump
	3,Node
	4,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,5
	0,dump
	1,initially
	2,cons_dump
	3,Node
	4,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,5
	0,dump
	1,initially
	2,cons_dump
	3,Node
	4,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,5
	0,dump
	1,initially
	2,cons_dump
	3,Node
	4,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,5
	0,dump
	1,initially
	2,cons_dump
	3,Node
	4,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,5
	0,dump
	1,initially
	2,cons_dump
	3,Node
	4,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,5
	0,dump
	1,initially
	2,cons_dump
	3,Node
	4,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,5
	0,dump
	1,initially
	2,cons_dump
	3,Node
	4,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,5
	0,dump
	1,initially
	2,cons_dump
	3,Node
	4,ConsNode
record	BlDenotationNode__state,18
	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,kind
	12,vlineno
	13,pre_num
	14,post_num
	15,cn_hd_field
	16,cn_tl_field
	17,unique_id
record	BlDenotationNode__methods,5
	0,dump
	1,initially
	2,cons_dump
	3,Node
	4,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,5
	0,dump
	1,initially
	2,cons_dump
	3,Node
	4,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,5
	0,dump
	1,initially
	2,cons_dump
	3,Node
	4,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,5
	0,dump
	1,initially
	2,cons_dump
	3,Node
	4,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,5
	0,dump
	1,initially
	2,cons_dump
	3,Node
	4,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,5
	0,dump
	1,initially
	2,cons_dump
	3,Node
	4,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,5
	0,dump
	1,initially
	2,cons_dump
	3,Node
	4,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,5
	0,dump
	1,initially
	2,cons_dump
	3,Node
	4,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,5
	0,dump
	1,initially
	2,cons_dump
	3,Node
	4,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,5
	0,dump
	1,initially
	2,cons_dump
	3,Node
	4,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,5
	0,dump
	1,initially
	2,cons_dump
	3,Node
	4,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,5
	0,dump
	1,initially
	2,cons_dump
	3,Node
	4,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,5
	0,dump
	1,initially
	2,cons_dump
	3,Node
	4,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,2
	0,dump
	1,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,5
	0,dump
	1,initially
	2,cons_dump
	3,Node
	4,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,6
	0,dumo
	1,initially
	2,dump
	3,cons_dump
	4,Node
	5,ConsNode
record	WordCorNode__state,9
	0,__s
	1,__m
	2,kind
	3,vlineno
	4,pre_num
	5,post_num
	6,cn_hd_field
	7,cn_tl_field
	8,unique_id
record	WordCorNode__methods,5
	0,dump
	1,initially
	2,cons_dump
	3,Node
	4,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,5
	0,dump
	1,initially
	2,cons_dump
	3,Node
	4,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,5
	0,dump
	1,initially
	2,cons_dump
	3,Node
	4,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,5
	0,dump
	1,initially
	2,cons_dump
	3,Node
	4,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,5
	0,dump
	1,initially
	2,cons_dump
	3,Node
	4,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,5
	0,dump
	1,initially
	2,cons_dump
	3,Node
	4,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,5
	0,dump
	1,initially
	2,cons_dump
	3,Node
	4,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,5
	0,dump
	1,initially
	2,cons_dump
	3,Node
	4,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,5
	0,dump
	1,initially
	2,cons_dump
	3,Node
	4,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,5
	0,dump
	1,initially
	2,cons_dump
	3,Node
	4,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,5
	0,dump
	1,initially
	2,cons_dump
	3,Node
	4,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,5
	0,dump
	1,initially
	2,cons_dump
	3,Node
	4,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,5
	0,dump
	1,initially
	2,cons_dump
	3,Node
	4,ConsNode
impl	error
global	498
	0,000001,dloadflag,0
	1,000001,initflag,0
	2,000001,BADflag,0
	3,000001,aflag,0
	4,000001,yydebug,0
	5,000001,ifname,0
	6,000001,ofname,0
	7,000001,sigfname,0
	8,000001,optfname,0
	9,000001,actual_ifname,0
	10,000001,Mflag,0
	11,000001,cflag,0
	12,000001,pflag,0
	13,000001,Lflag,0
	14,000001,Pflag,0
	15,000001,Tflag,0
	16,000001,Gflag,0
	17,000001,Vflag,0
	18,000001,Nflag,0
	19,000001,fflag,0
	20,000001,Fflag,0
	21,000001,Rflag,0
	22,000001,OOflag,0
	23,000001,OOOflag,0
	24,000001,Oflag,0
	25,000001,Xflag,0
	26,000001,xflag,0
	27,000001,hflag,0
	28,000001,dbgmsg,0
	29,000001,insrtptr,0
	30,000001,nil,0
	31,000001,indx_assign,0
	32,000001,indx_passign,0
	33,000001,indx_massign,0
	34,000001,indx_or,0
	35,000001,indx_and,0
	36,000001,indx_not,0
	37,000001,indx_equals,0
	38,000001,indx_less,0
	39,000001,indx_le,0
	40,000001,indx_ge,0
	41,000001,indx_ne,0
	42,000001,indx_greater,0
	43,000001,indx_plus,0
	44,000001,indx_minus,0
	45,000001,indx_times,0
	46,000001,indx_divide,0
	47,000001,indx_mod,0
	48,000001,indx_pconc,0
	49,000001,indx_sconc,0
	50,000001,indx_exp,0
	51,000001,indx_deref,0
	52,000001,indx_subscr,0
	53,000001,indx_New,0
	54,000001,indx_ValueOf,0
	55,000001,indx_First,0
	56,000001,indx_Last,0
	57,000001,indx_Pred,0
	58,000001,indx_Succ,0
	59,000001,indx_Ord,0
	60,000001,indx_OrdInv,0
	61,000001,indx_Card,0
	62,000001,indx_In,0
	63,000001,indx_Out,0
	64,000001,indx_put,0
	65,000001,indx_Callcc,0
	66,000001,indx_size,0
	67,000001,indx_ptr_New,0
	68,000001,indx_init_New,0
	69,000001,indx_empty,0
	70,000001,indx_standard,0
	71,000001,indx_inline,0
	72,000001,pend,0
	73,000001,indx_Boolean,0
	74,000001,indx_Void,0
	75,000001,indx_true,0
	76,000001,indx_false,0
	77,000001,indx_simple,0
	78,000001,indx_Null,0
	79,000001,indx_Mk,0
	80,000001,indx_Integer,0
	81,000001,indx_Array,0
	82,000001,sig_assign,0
	83,000001,sig_equals,0
	84,000001,sig_less,0
	85,000001,sig_greater,0
	86,000001,sig_New,0
	87,000001,sig_const,0
	88,000001,sig_ValueOf,0
	89,000001,sig_pconc,0
	90,000001,sig_sconc,0
	91,000001,sig_Signature,0
	92,000001,val_Boolean,0
	93,000001,val_Integer,0
	94,000001,val_Void,0
	95,000001,var_Void,0
	96,000001,sel_true,0
	97,000001,sel_false,0
	98,000001,id_Boolean,0
	99,000001,id_Integer,0
	100,000001,id_Void,0
	101,000001,id_put,0
	102,000001,id_ValueOf,0
	103,000001,id_New,0
	104,000001,id_size,0
	105,000001,id_Null,0
	106,000001,id_times,0
	107,000001,id_plus,0
	108,000001,appl_Null,0
	109,000001,yyvline,0
	110,000001,stt_table,0
	111,000001,stt_unique_cnt,0
	112,000001,stt_reference_cnt,0
	113,000001,reverse_stt,0
	114,000001,errfile,0
	115,000001,reduce,0
	116,000001,progress,0
	117,000001,debug_file,0
	118,000001,stats,0
	119,000001,nodes,0
	120,000001,ccode_file,0
	121,000001,nodes_created_file,0
	122,000001,lists_created_file,0
	123,000001,cons_file,0
	124,000001,line_cnt,0
	125,000001,char_cnt,0
	126,000001,token_cnt,0
	127,000001,reserved_id_cnt,0
	128,000001,reserved_op_cnt,0
	129,000001,numeral_cnt,0
	130,000001,nodes_total_cnt,0
	131,000001,nodes_made_cnt,0
	132,000001,lists_total_cnt,0
	133,000001,lists_made_cnt,0
	134,000001,yyn_switches_cnt,0
	135,000001,yyn_compute_cnt,0
	136,000001,newstate_cnt,0
	137,000001,setstate_cnt,0
	138,000001,backup_cnt,0
	139,000001,default_cnt,0
	140,000001,reduce_cnt,0
	141,000001,errlab_cnt,0
	142,000001,errlab1_cnt,0
	143,000001,defined_id_cnt,0
	144,000001,defined_op_cnt,0
	145,000001,seperator_cnt,0
	146,000001,RIC_table,0
	147,000001,RIC_op_code_cnt,0
	148,000001,RIC_table_entry_cnt,0
	149,000001,comments_cnt,0
	150,000001,sing_quoted_cnt,0
	151,000001,dbl_quoted_cnt,0
	152,000001,infile,0
	153,000001,optfile,0
	154,000001,entry_name,0
	155,000001,yyinfnm,0
	156,000001,yyline,0
	157,000001,addposition,0
	158,000001,inline_cnvt,0
	159,000001,Ginline_cnvt,0
	160,000001,Vinline_cnvt,0
	161,000001,paramstop,0
	162,000001,denseqstop,0
	163,000001,condstop,0
	164,000001,declstop,0
	165,000001,stxtree,0
	166,000001,yystate,0
	167,000001,global_fn_count,0
	168,000001,scanstk,0
	169,000001,stktop,0
	170,000001,scansavc,0
	171,000001,yydescr,0
	172,000001,has_externs,0
	173,000001,argcnt_from_kind,0
	174,000001,parser_actions_cnt,0
	175,000001,linebuf,0
	176,000001,restab,0
	177,000001,cctab,0
	178,000001,tokenlgth,0
	179,000001,decl_num,0
	180,000001,decl_nums,0
	181,000001,Outer_arg,0
	182,000001,file_sigs,0
	183,000001,decl_num_in,0
	184,000001,sig_table,0
	185,000001,unique_node_id,0
	186,000005,special,2
	187,000005,mklist,1
	188,000005,emptylist,0
	189,000005,is_list,1
	190,000005,is_empty,1
	191,000005,split,12
	192,000005,conc,2
	193,000005,addleft,2
	194,000005,addright,2
	195,000005,Node_dump,1
	196,000005,Node_initially,5
	197,000011,Node__state,6
	198,000011,Node__methods,2
	199,000001,Node__oprec,0
	200,000005,Node,4
	201,000005,Nodeinitialize,0
	202,000005,ConsNode_dump,1
	203,000005,ConsNode_cons_dump,1
	204,000005,ConsNode_initially,3
	205,000011,ConsNode__state,5
	206,000011,ConsNode__methods,3
	207,000001,ConsNode__oprec,0
	208,000005,ConsNode,2
	209,000005,ConsNodeinitialize,0
	210,000005,ListHeaderNode_dump,1
	211,000005,ListHeaderNode_list_dump,1
	212,000005,ListHeaderNode_first,1
	213,000005,ListHeaderNode_last,1
	214,000005,ListHeaderNode_setfirst,2
	215,000005,ListHeaderNode_setlast,2
	216,000005,ListHeaderNode_conc,2
	217,000005,ListHeaderNode_length,1
	218,000005,ListHeaderNode_list_to_array,1
	219,000005,ListHeaderNode_initially,1
	220,000011,ListHeaderNode__state,11
	221,000011,ListHeaderNode__methods,13
	222,000001,ListHeaderNode__oprec,0
	223,000005,ListHeaderNode,9
	224,000005,ListHeaderNodeinitialize,0
	225,000005,DeclarationNode_dump,1
	226,000005,DeclarationNode_initially,1
	227,000011,DeclarationNode__state,24
	228,000011,DeclarationNode__methods,5
	229,000001,DeclarationNode__oprec,0
	230,000005,DeclarationNode,22
	231,000005,DeclarationNodeinitialize,0
	232,000005,ParameterNode_dump,1
	233,000005,ParameterNode_initially,1
	234,000011,ParameterNode__state,16
	235,000011,ParameterNode__methods,5
	236,000001,ParameterNode__oprec,0
	237,000005,ParameterNode,14
	238,000005,ParameterNodeinitialize,0
	239,000005,RElementNode_dump,1
	240,000005,RElementNode_initially,1
	241,000011,RElementNode__state,14
	242,000011,RElementNode__methods,5
	243,000001,RElementNode__oprec,0
	244,000005,RElementNode,12
	245,000005,RElementNodeinitialize,0
	246,000005,VarSignature_dump,1
	247,000005,VarSignature_initially,1
	248,000011,VarSignature__state,12
	249,000011,VarSignature__methods,5
	250,000001,VarSignature__oprec,0
	251,000005,VarSignature,10
	252,000005,VarSignatureinitialize,0
	253,000005,ValSignature_dump,1
	254,000005,ValSignature_initially,1
	255,000011,ValSignature__state,12
	256,000011,ValSignature__methods,5
	257,000001,ValSignature__oprec,0
	258,000005,ValSignature,10
	259,000005,ValSignatureinitialize,0
	260,000005,FSignature_dump,1
	261,000005,FSignature_initially,1
	262,000011,FSignature__state,18
	263,000011,FSignature__methods,5
	264,000001,FSignature__oprec,0
	265,000005,FSignature,16
	266,000005,FSignatureinitialize,0
	267,000005,TSignature_dump,1
	268,000005,TSignature_initially,1
	269,000011,TSignature__state,20
	270,000011,TSignature__methods,5
	271,000001,TSignature__oprec,0
	272,000005,TSignature,18
	273,000005,TSignatureinitialize,0
	274,000005,TSComponentNode_dump,1
	275,000005,TSComponentNode_initially,1
	276,000011,TSComponentNode__state,11
	277,000011,TSComponentNode__methods,5
	278,000001,TSComponentNode__oprec,0
	279,000005,TSComponentNode,9
	280,000005,TSComponentNodeinitialize,0
	281,000005,DefCharSigNode_dump,1
	282,000005,DefCharSigNode_initially,1
	283,000011,DefCharSigNode__state,14
	284,000011,DefCharSigNode__methods,5
	285,000001,DefCharSigNode__oprec,0
	286,000005,DefCharSigNode,12
	287,000005,DefCharSigNodeinitialize,0
	288,000005,SignatureSigNode_dump,1
	289,000005,SignatureSigNode_initially,1
	290,000011,SignatureSigNode__state,11
	291,000011,SignatureSigNode__methods,5
	292,000001,SignatureSigNode__oprec,0
	293,000005,SignatureSigNode,9
	294,000005,SignatureSigNodeinitialize,0
	295,000005,BlDenotationNode_dump,1
	296,000005,BlDenotationNode_initially,1
	297,000011,BlDenotationNode__state,18
	298,000011,BlDenotationNode__methods,5
	299,000001,BlDenotationNode__oprec,0
	300,000005,BlDenotationNode,16
	301,000005,BlDenotationNodeinitialize,0
	302,000005,UseListNode_dump,1
	303,000005,UseListNode_initially,1
	304,000011,UseListNode__state,15
	305,000011,UseListNode__methods,5
	306,000001,UseListNode__oprec,0
	307,000005,UseListNode,13
	308,000005,UseListNodeinitialize,0
	309,000005,ApplicationNode_dump,1
	310,000005,ApplicationNode_initially,1
	311,000011,ApplicationNode__state,14
	312,000011,ApplicationNode__methods,5
	313,000001,ApplicationNode__oprec,0
	314,000005,ApplicationNode,12
	315,000005,ApplicationNodeinitialize,0
	316,000005,EnumerationNode_dump,1
	317,000005,EnumerationNode_initially,1
	318,000011,EnumerationNode__state,12
	319,000011,EnumerationNode__methods,5
	320,000001,EnumerationNode__oprec,0
	321,000005,EnumerationNode,10
	322,000005,EnumerationNodeinitialize,0
	323,000005,ExtensionNode_dump,1
	324,000005,ExtensionNode_initially,1
	325,000011,ExtensionNode__state,14
	326,000011,ExtensionNode__methods,5
	327,000001,ExtensionNode__oprec,0
	328,000005,ExtensionNode,12
	329,000005,ExtensionNodeinitialize,0
	330,000005,ProductNode_dump,1
	331,000005,ProductNode_initially,1
	332,000011,ProductNode__state,14
	333,000011,ProductNode__methods,5
	334,000001,ProductNode__oprec,0
	335,000005,ProductNode,12
	336,000005,ProductNodeinitialize,0
	337,000005,RecordConstructionNode_dump,1
	338,000005,RecordConstructionNode_initially,1
	339,000011,RecordConstructionNode__state,13
	340,000011,RecordConstructionNode__methods,5
	341,000001,RecordConstructionNode__oprec,0
	342,000005,RecordConstructionNode,11
	343,000005,RecordConstructionNodeinitialize,0
	344,000005,UnionConstructionNode_dump,1
	345,000005,UnionConstructionNode_initially,1
	346,000011,UnionConstructionNode__state,14
	347,000011,UnionConstructionNode__methods,5
	348,000001,UnionConstructionNode__oprec,0
	349,000005,UnionConstructionNode,12
	350,000005,UnionConstructionNodeinitialize,0
	351,000005,WithListNode_dump,1
	352,000005,WithListNode_initially,1
	353,000011,WithListNode__state,12
	354,000011,WithListNode__methods,5
	355,000001,WithListNode__oprec,0
	356,000005,WithListNode,10
	357,000005,WithListNodeinitialize,0
	358,000005,ModPrimaryNode_dump,1
	359,000005,ModPrimaryNode_initially,1
	360,000011,ModPrimaryNode__state,19
	361,000011,ModPrimaryNode__methods,5
	362,000001,ModPrimaryNode__oprec,0
	363,000005,ModPrimaryNode,17
	364,000005,ModPrimaryNodeinitialize,0
	365,000005,ExportListNode_dump,1
	366,000005,ExportListNode_initially,1
	367,000011,ExportListNode__state,12
	368,000011,ExportListNode__methods,5
	369,000001,ExportListNode__oprec,0
	370,000005,ExportListNode,10
	371,000005,ExportListNodeinitialize,0
	372,000005,HideListNode_dump,1
	373,000005,HideListNode_initially,1
	374,000011,HideListNode__state,12
	375,000011,HideListNode__methods,5
	376,000001,HideListNode__oprec,0
	377,000005,HideListNode,10
	378,000005,HideListNodeinitialize,0
	379,000005,ExportElementNode_dump,1
	380,000005,ExportElementNode_initially,1
	381,000011,ExportElementNode__state,12
	382,000011,ExportElementNode__methods,5
	383,000001,ExportElementNode__oprec,0
	384,000005,ExportElementNode,10
	385,000005,ExportElementNodeinitialize,0
	386,000005,AllConstantsNode_dump,1
	387,000005,AllConstantsNode_initially,1
	388,000011,AllConstantsNode__state,8
	389,000011,AllConstantsNode__methods,2
	390,000001,AllConstantsNode__oprec,0
	391,000005,AllConstantsNode,6
	392,000005,AllConstantsNodeinitialize,0
	393,000005,WordElseNode_dump,1
	394,000005,WordElseNode_initially,1
	395,000011,WordElseNode__state,11
	396,000011,WordElseNode__methods,5
	397,000001,WordElseNode__oprec,0
	398,000005,WordElseNode,9
	399,000005,WordElseNodeinitialize,0
	400,000005,WordCandNode_dumo,1
	401,000005,WordCandNode_initially,1
	402,000011,WordCandNode__state,9
	403,000011,WordCandNode__methods,6
	404,000001,WordCandNode__oprec,0
	405,000005,WordCandNode,7
	406,000005,WordCandNodeinitialize,0
	407,000005,WordCorNode_dump,1
	408,000005,WordCorNode_initially,1
	409,000011,WordCorNode__state,9
	410,000011,WordCorNode__methods,5
	411,000001,WordCorNode__oprec,0
	412,000005,WordCorNode,7
	413,000005,WordCorNodeinitialize,0
	414,000005,GuardedListNode_dump,1
	415,000005,GuardedListNode_initially,1
	416,000011,GuardedListNode__state,12
	417,000011,GuardedListNode__methods,5
	418,000001,GuardedListNode__oprec,0
	419,000005,GuardedListNode,10
	420,000005,GuardedListNodeinitialize,0
	421,000005,LoopDenotationNode_dump,1
	422,000005,LoopDenotationNode_initially,1
	423,000011,LoopDenotationNode__state,12
	424,000011,LoopDenotationNode__methods,5
	425,000001,LoopDenotationNode__oprec,0
	426,000005,LoopDenotationNode,10
	427,000005,LoopDenotationNodeinitialize,0
	428,000005,GuardedElementNode_dump,1
	429,000005,GuardedElementNode_initially,1
	430,000011,GuardedElementNode__state,11
	431,000011,GuardedElementNode__methods,5
	432,000001,GuardedElementNode__oprec,0
	433,000005,GuardedElementNode,9
	434,000005,GuardedElementNodeinitialize,0
	435,000005,OpridNode_dump,1
	436,000005,OpridNode_initially,1
	437,000011,OpridNode__state,19
	438,000011,OpridNode__methods,5
	439,000001,OpridNode__oprec,0
	440,000005,OpridNode,17
	441,000005,OpridNodeinitialize,0
	442,000005,LetterId_dump,1
	443,000005,LetterId_initially,1
	444,000011,LetterId__state,19
	445,000011,LetterId__methods,5
	446,000001,LetterId__oprec,0
	447,000005,LetterId,17
	448,000005,LetterIdinitialize,0
	449,000005,QStrNode_dump,1
	450,000005,QStrNode_initially,1
	451,000011,QStrNode__state,15
	452,000011,QStrNode__methods,5
	453,000001,QStrNode__oprec,0
	454,000005,QStrNode,13
	455,000005,QStrNodeinitialize,0
	456,000005,UQStrNode_dump,1
	457,000005,UQStrNode_initially,1
	458,000011,UQStrNode__state,15
	459,000011,UQStrNode__methods,5
	460,000001,UQStrNode__oprec,0
	461,000005,UQStrNode,13
	462,000005,UQStrNodeinitialize,0
	463,000005,FConstruction_dump,1
	464,000005,FConstruction_initially,1
	465,000011,FConstruction__state,19
	466,000011,FConstruction__methods,5
	467,000001,FConstruction__oprec,0
	468,000005,FConstruction,17
	469,000005,FConstructioninitialize,0
	470,000005,FreeVarNode_dump,1
	471,000005,FreeVarNode_initially,1
	472,000011,FreeVarNode__state,13
	473,000011,FreeVarNode__methods,5
	474,000001,FreeVarNode__oprec,0
	475,000005,FreeVarNode,11
	476,000005,FreeVarNodeinitialize,0
	477,000005,ExternDefNode_dump,1
	478,000005,ExternDefNode_initially,1
	479,000011,ExternDefNode__state,10
	480,000011,ExternDefNode__methods,5
	481,000001,ExternDefNode__oprec,0
	482,000005,ExternDefNode,8
	483,000005,ExternDefNodeinitialize,0
	484,000005,RExternDef_dump,1
	485,000005,RExternDef_initially,1
	486,000011,RExternDef__state,12
	487,000011,RExternDef__methods,5
	488,000001,RExternDef__oprec,0
	489,000005,RExternDef,10
	490,000005,RExternDefinitialize,0
	491,000005,DcsException_dump,1
	492,000011,DcsException__state,13
	493,000011,DcsException__methods,5
	494,000001,DcsException__oprec,0
	495,000005,DcsException,4
	496,000005,DcsExceptioninitialize,0
	497,000005,dump_info,1

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	4
	colm	12
	synt	any
	mark	L1
	var	2
	var	3
	var	0
	int	0
	line	5
	colm	15
	synt	any
	invoke	2
	var	1
	line	5
	colm	8
	synt	any
	invoke	2
	unmark
lab L1
	pnull
	line	6
	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	8
	colm	12
	synt	any
	mark	L1
	var	4
	str	0
	line	10
	colm	11
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	var	5
	str	0
	line	11
	colm	13
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	6
	str	0
	line	12
	colm	13
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	7
	str	0
	line	13
	colm	13
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	pnull
	var	8
	dup
	int	1
	line	16
	colm	21
	synt	any
	plus
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	9
	dup
	int	1
	line	17
	colm	20
	synt	any
	plus
	asgn
	unmark
lab L6
	mark	L7
	pnull
	var	3
	var	10
	line	18
	colm	19
	synt	any
	invoke	0
	line	18
	colm	7
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	line	20
	colm	5
	synt	every
	mark0
	pnull
	var	2
	pnull
	var	0
	line	20
	colm	17
	synt	any
	bang
	line	20
	colm	14
	synt	any
	asgn
	pop
	mark0
	mark	L11
	var	5
	pnull
	str	2
	var	11
	var	2
	line	21
	colm	49
	synt	any
	invoke	1
	line	21
	colm	37
	synt	any
	cat
	line	21
	colm	17
	synt	any
	invoke	1
	unmark
lab L11
	mark	L12
	var	4
	pnull
	str	2
	var	11
	var	2
	line	22
	colm	47
	synt	any
	invoke	1
	line	22
	colm	35
	synt	any
	cat
	line	22
	colm	15
	synt	any
	invoke	1
	unmark
lab L12
	mark	L13
	line	23
	colm	9
	synt	if
	mark0
	pnull
	var	2
	line	23
	colm	12
	synt	any
	nonnull
	unmark
	pnull
	var	2
	line	24
	colm	14
	synt	any
	field	dump
	line	24
	colm	19
	synt	any
	invoke	0
	line	23
	colm	9
	synt	endif
	unmark
lab L13
	mark	L14
	var	7
	str	3
	line	26
	colm	17
	synt	any
	invoke	1
	unmark
lab L14
	mark	L15
	line	27
	colm	9
	synt	ifelse
	mark	L16
	pnull
	var	3
	line	27
	colm	12
	synt	any
	nonnull
	unmark
	pnull
	var	3
	line	28
	colm	14
	synt	any
	field	cons_dump
	line	28
	colm	24
	synt	any
	invoke	0
	goto	L17
lab L16
	var	7
	str	4
	line	30
	colm	21
	synt	any
	invoke	1
lab L17
	line	27
	colm	9
	synt	endifelse
	unmark
lab L15
	mark	L18
	var	7
	str	5
	line	31
	colm	17
	synt	any
	invoke	1
	unmark
lab L18
	mark	L19
	line	32
	colm	9
	synt	ifelse
	mark	L20
	pnull
	var	2
	line	32
	colm	12
	synt	any
	nonnull
	unmark
	pnull
	var	2
	line	33
	colm	14
	synt	any
	field	cons_dump
	line	33
	colm	24
	synt	any
	invoke	0
	goto	L21
lab L20
	var	7
	str	6
	line	35
	colm	21
	synt	any
	invoke	1
lab L21
	line	32
	colm	9
	synt	endifelse
	unmark
lab L19
	mark	L22
	var	12
	var	3
	var	2
	line	36
	colm	17
	synt	any
	invoke	2
	unmark
lab L22
	mark	L23
	var	7
	str	7
	line	37
	colm	17
	synt	any
	invoke	1
	unmark
lab L23
	line	38
	colm	9
	synt	ifelse
	mark	L24
	pnull
	var	3
	line	38
	colm	12
	synt	any
	nonnull
	unmark
	pnull
	var	3
	line	39
	colm	14
	synt	any
	field	cons_dump
	line	39
	colm	24
	synt	any
	invoke	0
	goto	L25
lab L24
	var	7
	str	8
	line	41
	colm	21
	synt	any
	invoke	1
lab L25
	line	38
	colm	9
	synt	endifelse
	unmark
lab L9
	efail
lab L10
	line	20
	colm	5
	synt	endevery
	unmark
lab L8
	mark	L26
	var	7
	str	9
	line	43
	colm	13
	synt	any
	invoke	1
	unmark
lab L26
	mark	L27
	line	44
	colm	9
	synt	ifelse
	mark	L28
	pnull
	var	3
	line	44
	colm	12
	synt	any
	nonnull
	unmark
	pnull
	var	3
	line	45
	colm	14
	synt	any
	field	cons_dump
	line	45
	colm	24
	synt	any
	invoke	0
	goto	L29
lab L28
	var	7
	str	4
	line	47
	colm	21
	synt	any
	invoke	1
lab L29
	line	44
	colm	9
	synt	endifelse
	unmark
lab L27
	mark	L30
	mark	L31
	var	3
	line	48
	colm	5
	synt	any
	pret
lab L31
	synt	any
	pfail
	unmark
lab L30
	pnull
	line	49
	colm	2
	synt	any
	pfail
	end
proc emptylist
	local	0,000000,nodeinfo
	local	1,000000,listinfo
	local	2,000000,ret
	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	50
	colm	12
	synt	any
	mark	L1
	var	0
	str	0
	line	51
	colm	13
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	var	1
	str	0
	line	52
	colm	13
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	var	2
	var	3
	pnull
	int	1
	var	4
	var	4
	line	54
	colm	19
	synt	any
	llist	3
	line	54
	colm	18
	synt	any
	invoke	1
	line	54
	colm	9
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	2
	line	55
	colm	8
	synt	any
	field	dump
	line	55
	colm	13
	synt	any
	invoke	0
	unmark
lab L4
	mark	L5
	mark	L6
	var	2
	line	56
	colm	5
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	57
	colm	2
	synt	any
	pfail
	end
proc is_list
	local	0,001000,l
	con	0,002000,1,0
	declend
	line	68
	colm	12
	synt	any
	mark	L1
	line	69
	colm	5
	synt	if
	mark0
	pnull
	var	0
	line	69
	colm	9
	synt	any
	null
	unmark
	line	69
	colm	18
	synt	any
	pfail
	line	69
	colm	5
	synt	endif
	unmark
lab L1
	mark	L2
	line	70
	colm	5
	synt	ifelse
	mark	L3
	pnull
	pnull
	var	0
	line	70
	colm	9
	synt	any
	field	kind
	int	0
	line	70
	colm	15
	synt	any
	numeq
	unmark
	mark	L5
	pnull
	line	71
	colm	10
	synt	any
	pret
lab L5
	synt	any
	pfail
	goto	L4
lab L3
	line	72
	colm	10
	synt	any
	pfail
lab L4
	line	70
	colm	5
	synt	endifelse
	unmark
lab L2
	pnull
	line	73
	colm	2
	synt	any
	pfail
	end
proc is_empty
	local	0,001000,l
	local	1,000000,nodeinfo
	local	2,000000,listinfo
	con	0,010000,13,151,163,040,145,155,160,164,171,040,124,122,125,105
	con	1,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	2,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	76
	colm	12
	synt	any
	mark	L1
	line	77
	colm	5
	synt	if
	mark0
	pnull
	var	0
	line	77
	colm	8
	synt	any
	null
	unmark
	mark	L2
	var	1
	str	0
	line	78
	colm	17
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	2
	str	0
	line	79
	colm	17
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	pnull
	line	80
	colm	9
	synt	any
	pret
lab L4
	synt	any
	pfail
	line	77
	colm	5
	synt	endif
	unmark
lab L1
	mark	L5
	line	82
	colm	5
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	82
	colm	10
	synt	any
	field	lh_first
	line	82
	colm	8
	synt	any
	null
	unmark
	mark	L6
	var	1
	str	1
	line	83
	colm	17
	synt	any
	invoke	1
	unmark
lab L6
	mark	L7
	var	2
	str	1
	line	84
	colm	17
	synt	any
	invoke	1
	unmark
lab L7
	mark	L8
	pnull
	line	85
	colm	9
	synt	any
	pret
lab L8
	synt	any
	pfail
	line	82
	colm	5
	synt	endif
	unmark
lab L5
	mark	L9
	var	1
	str	2
	line	87
	colm	13
	synt	any
	invoke	1
	unmark
lab L9
	mark	L10
	var	2
	str	2
	line	88
	colm	13
	synt	any
	invoke	1
	unmark
lab L10
	mark	L11
	line	89
	colm	5
	synt	any
	pfail
	unmark
lab L11
	pnull
	line	90
	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,ag10
	local	23,000000,rpt_err
	local	24,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	92
	colm	12
	synt	any
	mark	L1
	pnull
	var	13
	var	16
	line	96
	colm	28
	synt	any
	invoke	0
	line	96
	colm	16
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	var	17
	str	0
	line	97
	colm	13
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	18
	str	0
	line	98
	colm	13
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	pnull
	var	15
	pnull
	var	1
	line	99
	colm	19
	synt	any
	field	cn_hd_field
	line	99
	colm	9
	synt	any
	asgn
	unmark
lab L4
	mark	L5
lab L6
	line	100
	colm	5
	synt	while
	mark0
	pnull
	var	15
	line	100
	colm	11
	synt	any
	nonnull
	unmark
	mark	L6
	mark	L9
	pnull
	var	14
	pnull
	var	15
	line	101
	colm	18
	synt	any
	field	cn_hd_field
	line	101
	colm	11
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	var	19
	pnull
	str	1
	var	0
	line	103
	colm	46
	synt	any
	cat
	line	103
	colm	19
	synt	any
	invoke	1
	unmark
lab L11
	mark	L12
	line	104
	colm	13
	synt	case
	mark0
	pnull
	var	20
	pnull
	var	0
	int	2
	line	104
	colm	44
	synt	any
	plus
	line	104
	colm	36
	synt	any
	subsc
	eret
	mark	L14
	ccase
	int	3
	line	105
	colm	18
	synt	any
	eqv
	unmark
	pop
	pnull
	var	12
	var	21
	pnull
	var	0
	line	105
	colm	35
	synt	any
	llist	1
	line	105
	colm	34
	synt	any
	invoke	1
	line	105
	colm	25
	synt	any
	asgn
	goto	L13
lab L14
	mark	L15
	ccase
	int	2
	line	106
	colm	18
	synt	any
	eqv
	unmark
	pop
	pnull
	var	12
	var	21
	pnull
	var	0
	var	14
	line	106
	colm	35
	synt	any
	llist	2
	line	106
	colm	34
	synt	any
	invoke	1
	line	106
	colm	25
	synt	any
	asgn
	goto	L13
lab L15
	mark	L16
	ccase
	int	4
	line	107
	colm	18
	synt	any
	eqv
	unmark
	pop
	pnull
	var	12
	var	21
	pnull
	var	0
	var	14
	var	2
	line	107
	colm	35
	synt	any
	llist	3
	line	107
	colm	34
	synt	any
	invoke	1
	line	107
	colm	25
	synt	any
	asgn
	goto	L13
lab L16
	mark	L17
	ccase
	int	5
	line	108
	colm	18
	synt	any
	eqv
	unmark
	pop
	pnull
	var	12
	var	21
	pnull
	var	0
	var	14
	var	2
	var	3
	line	108
	colm	35
	synt	any
	llist	4
	line	108
	colm	34
	synt	any
	invoke	1
	line	108
	colm	25
	synt	any
	asgn
	goto	L13
lab L17
	mark	L18
	ccase
	int	6
	line	109
	colm	18
	synt	any
	eqv
	unmark
	pop
	pnull
	var	12
	var	21
	pnull
	var	0
	var	14
	var	2
	var	3
	var	4
	line	109
	colm	35
	synt	any
	llist	5
	line	109
	colm	34
	synt	any
	invoke	1
	line	109
	colm	25
	synt	any
	asgn
	goto	L13
lab L18
	mark	L19
	ccase
	int	7
	line	110
	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	110
	colm	35
	synt	any
	llist	6
	line	110
	colm	34
	synt	any
	invoke	1
	line	110
	colm	25
	synt	any
	asgn
	goto	L13
lab L19
	mark	L20
	ccase
	int	8
	line	111
	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	111
	colm	35
	synt	any
	llist	7
	line	111
	colm	34
	synt	any
	invoke	1
	line	111
	colm	25
	synt	any
	asgn
	goto	L13
lab L20
	mark	L21
	ccase
	int	9
	line	112
	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	112
	colm	35
	synt	any
	llist	8
	line	112
	colm	34
	synt	any
	invoke	1
	line	112
	colm	25
	synt	any
	asgn
	goto	L13
lab L21
	mark	L22
	ccase
	int	10
	line	113
	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	113
	colm	35
	synt	any
	llist	9
	line	113
	colm	34
	synt	any
	invoke	1
	line	113
	colm	25
	synt	any
	asgn
	goto	L13
lab L22
	mark	L23
	ccase
	int	11
	line	114
	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	114
	colm	87
	synt	any
	field	arg8
	line	114
	colm	35
	synt	any
	llist	9
	line	114
	colm	34
	synt	any
	invoke	1
	line	114
	colm	25
	synt	any
	asgn
	goto	L13
lab L23
	mark	L24
	ccase
	int	12
	line	115
	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	115
	colm	36
	synt	any
	llist	11
	line	115
	colm	35
	synt	any
	invoke	1
	line	115
	colm	26
	synt	any
	asgn
	goto	L13
lab L24
	mark	L25
	ccase
	int	13
	line	116
	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	22
	line	116
	colm	36
	synt	any
	llist	12
	line	116
	colm	35
	synt	any
	invoke	1
	line	116
	colm	26
	synt	any
	asgn
	goto	L13
lab L25
	pop
	var	23
	pnull
	str	14
	var	0
	line	117
	colm	67
	synt	any
	cat
	line	117
	colm	33
	synt	any
	invoke	1
lab L13
	line	104
	colm	13
	synt	endcase
	unmark
lab L12
	var	24
	var	13
	var	12
	line	119
	colm	21
	synt	any
	invoke	2
	unmark
lab L10
	pnull
	var	15
	pnull
	var	14
	line	122
	colm	17
	synt	any
	field	cn_tl_field
	line	122
	colm	13
	synt	any
	asgn
lab L7
	unmark
	goto	L6
lab L8
	line	100
	colm	5
	synt	endwhile
	unmark
lab L5
	mark	L26
	var	18
	str	15
	line	125
	colm	13
	synt	any
	invoke	1
	unmark
lab L26
	mark	L27
	pnull
	var	13
	line	126
	colm	11
	synt	any
	field	dump
	line	126
	colm	16
	synt	any
	invoke	0
	unmark
lab L27
	mark	L28
	mark	L29
	var	13
	line	127
	colm	5
	synt	any
	pret
lab L29
	synt	any
	pfail
	unmark
lab L28
	pnull
	line	128
	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	129
	colm	12
	synt	any
	mark	L1
	line	130
	colm	5
	synt	if
	mark0
	var	2
	var	0
	line	130
	colm	18
	synt	any
	invoke	1
	unmark
	mark	L2
	var	3
	var	0
	line	132
	colm	18
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	line	133
	colm	13
	synt	any
	pret
lab L3
	synt	any
	pfail
	line	130
	colm	5
	synt	endif
	unmark
lab L1
	mark	L4
	line	135
	colm	5
	synt	if
	mark0
	mark	L5
	var	2
	var	1
	line	135
	colm	22
	synt	any
	invoke	1
	unmark
	efail
lab L5
	pnull
	unmark
	mark	L6
	pnull
	pnull
	pnull
	var	0
	line	137
	colm	15
	synt	any
	field	lh_last
	line	137
	colm	23
	synt	any
	field	cn_tl_field
	pnull
	var	1
	line	137
	colm	41
	synt	any
	field	lh_first
	line	137
	colm	36
	synt	any
	asgn
	unmark
lab L6
	pnull
	pnull
	var	0
	line	138
	colm	15
	synt	any
	field	lh_last
	pnull
	var	1
	line	138
	colm	29
	synt	any
	field	lh_last
	line	138
	colm	24
	synt	any
	asgn
	line	135
	colm	5
	synt	endif
	unmark
lab L4
	mark	L7
	pnull
	pnull
	var	1
	line	142
	colm	12
	synt	any
	field	lh_last
	pnull
	pnull
	var	1
	line	142
	colm	27
	synt	any
	field	lh_first
	var	4
	line	142
	colm	37
	synt	any
	asgn
	line	142
	colm	21
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	var	3
	var	1
	line	143
	colm	10
	synt	any
	invoke	1
	unmark
lab L8
	mark	L9
	mark	L10
	var	0
	line	144
	colm	5
	synt	any
	pret
lab L10
	synt	any
	pfail
	unmark
lab L9
	pnull
	line	145
	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	150
	colm	12
	synt	any
	mark	L1
	var	3
	pnull
	str	0
	var	4
	var	1
	line	152
	colm	48
	synt	any
	invoke	1
	line	152
	colm	36
	synt	any
	cat
	line	152
	colm	9
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	var	5
	pnull
	str	0
	var	4
	var	1
	line	153
	colm	48
	synt	any
	invoke	1
	line	153
	colm	36
	synt	any
	cat
	line	153
	colm	9
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	line	155
	colm	1
	synt	if
	mark0
	pnull
	var	1
	line	155
	colm	6
	synt	any
	null
	unmark
	mark	L4
	var	0
	line	155
	colm	16
	synt	any
	pret
lab L4
	synt	any
	pfail
	line	155
	colm	1
	synt	endif
	unmark
lab L3
	mark	L5
	line	157
	colm	2
	synt	ifelse
	mark	L6
	var	6
	var	0
	line	157
	colm	14
	synt	any
	invoke	1
	unmark
	mark	L8
	pnull
	var	2
	var	7
	var	8
	var	1
	line	158
	colm	19
	synt	any
	invoke	1
	var	9
	line	158
	colm	14
	synt	any
	invoke	2
	line	158
	colm	3
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	0
	line	159
	colm	2
	synt	any
	field	lh_first
	var	2
	line	159
	colm	12
	synt	any
	asgn
	unmark
lab L9
	pnull
	pnull
	var	0
	line	160
	colm	2
	synt	any
	field	lh_last
	var	2
	line	160
	colm	11
	synt	any
	asgn
	goto	L7
lab L6
	pnull
	pnull
	var	0
	line	162
	colm	2
	synt	any
	field	lh_first
	var	7
	var	8
	var	1
	line	162
	colm	28
	synt	any
	invoke	1
	pnull
	var	0
	line	162
	colm	33
	synt	any
	field	lh_first
	line	162
	colm	23
	synt	any
	invoke	2
	line	162
	colm	12
	synt	any
	asgn
lab L7
	line	157
	colm	2
	synt	endifelse
	unmark
lab L5
	mark	L10
	var	10
	str	1
	line	164
	colm	9
	synt	any
	invoke	1
	unmark
lab L10
	mark	L11
	pnull
	var	0
	line	165
	colm	2
	synt	any
	field	cons_dump
	line	165
	colm	12
	synt	any
	invoke	0
	unmark
lab L11
	mark	L12
	mark	L13
	var	0
	line	166
	colm	1
	synt	any
	pret
lab L13
	synt	any
	pfail
	unmark
lab L12
	pnull
	line	167
	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	173
	colm	12
	synt	any
	mark	L1
	var	3
	pnull
	str	0
	var	4
	var	1
	line	175
	colm	53
	synt	any
	invoke	1
	line	175
	colm	41
	synt	any
	cat
	line	175
	colm	13
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	var	5
	pnull
	str	0
	var	4
	var	1
	line	176
	colm	53
	synt	any
	invoke	1
	line	176
	colm	41
	synt	any
	cat
	line	176
	colm	13
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	line	177
	colm	5
	synt	if
	mark0
	pnull
	var	1
	line	177
	colm	9
	synt	any
	null
	unmark
	mark	L4
	var	5
	pnull
	str	1
	var	4
	var	0
	line	178
	colm	62
	synt	any
	invoke	1
	line	178
	colm	50
	synt	any
	cat
	line	178
	colm	17
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	var	3
	pnull
	str	1
	var	4
	var	0
	line	179
	colm	62
	synt	any
	invoke	1
	line	179
	colm	50
	synt	any
	cat
	line	179
	colm	17
	synt	any
	invoke	1
	unmark
lab L5
	mark	L6
	var	0
	line	180
	colm	9
	synt	any
	pret
lab L6
	synt	any
	pfail
	line	177
	colm	5
	synt	endif
	unmark
lab L3
	mark	L7
	pnull
	var	2
	var	6
	var	7
	var	1
	line	182
	colm	23
	synt	any
	invoke	1
	var	8
	line	182
	colm	18
	synt	any
	invoke	2
	line	182
	colm	7
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	var	5
	pnull
	str	2
	var	4
	var	2
	line	183
	colm	44
	synt	any
	invoke	1
	line	183
	colm	32
	synt	any
	cat
	line	183
	colm	13
	synt	any
	invoke	1
	unmark
lab L8
	mark	L9
	var	3
	pnull
	str	2
	var	4
	var	2
	line	184
	colm	44
	synt	any
	invoke	1
	line	184
	colm	32
	synt	any
	cat
	line	184
	colm	13
	synt	any
	invoke	1
	unmark
lab L9
	mark	L10
	pnull
	var	2
	line	185
	colm	6
	synt	any
	field	dump
	line	185
	colm	11
	synt	any
	invoke	0
	unmark
lab L10
	mark	L11
	line	186
	colm	5
	synt	ifelse
	mark	L12
	var	9
	var	0
	line	186
	colm	18
	synt	any
	invoke	1
	unmark
	mark	L14
	var	5
	pnull
	str	3
	var	4
	var	0
	line	187
	colm	53
	synt	any
	invoke	1
	line	187
	colm	41
	synt	any
	cat
	line	187
	colm	17
	synt	any
	invoke	1
	unmark
lab L14
	mark	L15
	var	3
	pnull
	str	3
	var	4
	var	0
	line	188
	colm	53
	synt	any
	invoke	1
	line	188
	colm	41
	synt	any
	cat
	line	188
	colm	17
	synt	any
	invoke	1
	unmark
lab L15
	mark	L16
	pnull
	pnull
	var	0
	line	189
	colm	10
	synt	any
	field	lh_first
	var	2
	line	189
	colm	20
	synt	any
	asgn
	unmark
lab L16
	mark	L17
	pnull
	pnull
	var	0
	line	190
	colm	10
	synt	any
	field	lh_last
	var	2
	line	190
	colm	19
	synt	any
	asgn
	unmark
lab L17
	mark	L18
	var	5
	str	4
	line	191
	colm	17
	synt	any
	invoke	1
	unmark
lab L18
	mark	L19
	var	3
	str	4
	line	192
	colm	17
	synt	any
	invoke	1
	unmark
lab L19
	pnull
	var	0
	line	193
	colm	10
	synt	any
	field	dump
	line	193
	colm	15
	synt	any
	invoke	0
	goto	L13
lab L12
	mark	L20
	pnull
	pnull
	pnull
	var	0
	line	196
	colm	10
	synt	any
	field	lh_last
	line	196
	colm	18
	synt	any
	field	cn_tl_field
	var	2
	line	196
	colm	31
	synt	any
	asgn
	unmark
lab L20
	mark	L21
	pnull
	pnull
	var	0
	line	197
	colm	10
	synt	any
	field	lh_last
	var	2
	line	197
	colm	19
	synt	any
	asgn
	unmark
lab L21
	mark	L22
	var	3
	str	5
	line	198
	colm	17
	synt	any
	invoke	1
	unmark
lab L22
	mark	L23
	var	5
	str	5
	line	199
	colm	17
	synt	any
	invoke	1
	unmark
lab L23
	mark	L24
	pnull
	pnull
	var	0
	line	200
	colm	10
	synt	any
	field	lh_last
	line	200
	colm	18
	synt	any
	field	dump
	line	200
	colm	23
	synt	any
	invoke	0
	unmark
lab L24
	mark	L25
	var	5
	str	6
	line	201
	colm	17
	synt	any
	invoke	1
	unmark
lab L25
	pnull
	var	0
	line	203
	colm	10
	synt	any
	field	dump
	line	203
	colm	15
	synt	any
	invoke	0
lab L13
	line	186
	colm	5
	synt	endifelse
	unmark
lab L11
	mark	L26
	var	10
	str	7
	line	207
	colm	13
	synt	any
	invoke	1
	unmark
lab L26
	mark	L27
	pnull
	var	0
	line	208
	colm	6
	synt	any
	field	cons_dump
	line	208
	colm	16
	synt	any
	invoke	0
	unmark
lab L27
	mark	L28
	mark	L29
	var	0
	line	209
	colm	5
	synt	any
	pret
lab L29
	synt	any
	pfail
	unmark
lab L28
	pnull
	line	210
	colm	2
	synt	any
	pfail
	end
proc Node_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,000000,dump_info
	con	0,010000,9,153,151,156,144,040,040,040,075,040
	con	1,002000,2,40
	con	2,010000,12,166,154,151,156,145,156,157,040,040,040,075,040
	con	3,010000,12,160,162,145,137,156,165,155,040,040,040,075,040
	con	4,010000,13,160,157,163,164,137,156,165,155,040,040,040,075,040
	declend
	line	214
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	1
	pnull
	var	2
	str	0
	int	1
	line	216
	colm	26
	synt	any
	invoke	2
	pnull
	var	0
	line	216
	colm	50
	synt	any
	field	kind
	line	216
	colm	43
	synt	any
	cat
	line	216
	colm	21
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	pnull
	var	2
	str	2
	int	1
	line	217
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	217
	colm	63
	synt	any
	field	vlineno
	line	217
	colm	58
	synt	any
	invoke	1
	line	217
	colm	46
	synt	any
	cat
	line	217
	colm	21
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	pnull
	var	2
	str	3
	int	1
	line	218
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	218
	colm	63
	synt	any
	field	pre_num
	line	218
	colm	58
	synt	any
	invoke	1
	line	218
	colm	46
	synt	any
	cat
	line	218
	colm	21
	synt	any
	invoke	1
	unmark
lab L4
	var	1
	pnull
	var	2
	str	4
	int	1
	line	219
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	219
	colm	64
	synt	any
	field	post_num
	line	219
	colm	59
	synt	any
	invoke	1
	line	219
	colm	47
	synt	any
	cat
	line	219
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	221
	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	222
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	224
	colm	5
	synt	any
	field	kind
	var	1
	line	224
	colm	10
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	225
	colm	5
	synt	any
	field	vlineno
	var	2
	line	225
	colm	13
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	pnull
	var	0
	line	226
	colm	5
	synt	any
	field	pre_num
	var	3
	line	226
	colm	13
	synt	any
	asgn
	unmark
lab L4
	pnull
	pnull
	var	0
	line	227
	colm	5
	synt	any
	field	post_num
	var	4
	line	227
	colm	14
	synt	any
	asgn
	unmark
lab L1
	mark	L5
	mark	L6
	pnull
	line	229
	colm	7
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	230
	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
	line	234
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	line	237
	colm	3
	synt	if
	mark0
	pnull
	var	6
	line	237
	colm	6
	synt	any
	null
	unmark
	var	7
	line	237
	colm	38
	synt	any
	invoke	0
	line	237
	colm	3
	synt	endif
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	pnull
	var	4
	var	8
	line	239
	colm	23
	synt	any
	keywd	null
	var	6
	line	239
	colm	22
	synt	any
	invoke	2
	line	239
	colm	8
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	4
	line	240
	colm	7
	synt	any
	field	__s
	var	4
	line	240
	colm	12
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	mark	L7
	pnull
	pnull
	var	4
	line	241
	colm	7
	synt	any
	field	__m
	line	241
	colm	11
	synt	any
	field	initially
	var	4
	var	0
	var	1
	var	2
	var	3
	line	241
	colm	21
	synt	any
	invoke	5
	line	241
	colm	46
	synt	any
	esusp
	goto	L8
lab L7
	line	241
	colm	48
	synt	any
	pfail
lab L8
	unmark
lab L6
	mark	L9
	mark	L10
	var	4
	line	242
	colm	3
	synt	any
	pret
lab L10
	synt	any
	pfail
	unmark
lab L9
	pnull
	line	243
	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_initially
	declend
	line	245
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	line	246
	colm	39
	synt	any
	invoke	2
	line	246
	colm	23
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	247
	colm	1
	synt	any
	pfail
	end
proc ConsNode_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,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,40
	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	234
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	1
	pnull
	var	2
	str	0
	int	1
	line	236
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	236
	colm	67
	synt	any
	field	cn_hd_field
	line	236
	colm	62
	synt	any
	invoke	1
	line	236
	colm	50
	synt	any
	cat
	line	236
	colm	21
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	pnull
	var	2
	str	2
	int	1
	line	237
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	237
	colm	67
	synt	any
	field	cn_tl_field
	line	237
	colm	62
	synt	any
	invoke	1
	line	237
	colm	50
	synt	any
	cat
	line	237
	colm	21
	synt	any
	invoke	1
	unmark
lab L3
	var	1
	pnull
	var	2
	str	3
	int	1
	line	238
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	238
	colm	65
	synt	any
	field	unique_id
	line	238
	colm	60
	synt	any
	invoke	1
	line	238
	colm	48
	synt	any
	cat
	line	238
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	240
	colm	1
	synt	any
	pfail
	end
proc ConsNode_cons_dump
	local	0,001000,self
	local	1,000000,consinfo
	local	2,000000,left
	local	3,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,40
	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	241
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	1
	pnull
	var	2
	str	0
	int	1
	line	243
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	243
	colm	67
	synt	any
	field	cn_hd_field
	line	243
	colm	62
	synt	any
	invoke	1
	line	243
	colm	50
	synt	any
	cat
	line	243
	colm	21
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	var	1
	pnull
	var	2
	str	2
	int	1
	line	244
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	244
	colm	67
	synt	any
	field	cn_tl_field
	line	244
	colm	62
	synt	any
	invoke	1
	line	244
	colm	50
	synt	any
	cat
	line	244
	colm	21
	synt	any
	invoke	1
	unmark
lab L3
	var	1
	pnull
	var	2
	str	3
	int	1
	line	245
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	245
	colm	65
	synt	any
	field	unique_id
	line	245
	colm	60
	synt	any
	invoke	1
	line	245
	colm	48
	synt	any
	cat
	line	245
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	247
	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	267
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	269
	colm	5
	synt	any
	field	cn_tl_field
	var	2
	line	269
	colm	17
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	270
	colm	5
	synt	any
	field	cn_hd_field
	var	1
	line	270
	colm	17
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	3
	dup
	int	0
	line	272
	colm	16
	synt	any
	plus
	asgn
	unmark
lab L4
	pnull
	pnull
	var	0
	line	273
	colm	5
	synt	any
	field	unique_id
	var	3
	line	273
	colm	15
	synt	any
	asgn
	unmark
lab L1
	mark	L5
	mark	L6
	pnull
	line	275
	colm	7
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	276
	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
	line	280
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	line	283
	colm	3
	synt	if
	mark0
	pnull
	var	4
	line	283
	colm	6
	synt	any
	null
	unmark
	var	5
	line	283
	colm	46
	synt	any
	invoke	0
	line	283
	colm	3
	synt	endif
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	pnull
	var	2
	var	6
	line	285
	colm	27
	synt	any
	keywd	null
	var	4
	line	285
	colm	26
	synt	any
	invoke	2
	line	285
	colm	8
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	2
	line	286
	colm	7
	synt	any
	field	__s
	var	2
	line	286
	colm	12
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	mark	L7
	pnull
	pnull
	var	2
	line	287
	colm	7
	synt	any
	field	__m
	line	287
	colm	11
	synt	any
	field	initially
	var	2
	var	0
	var	1
	line	287
	colm	21
	synt	any
	invoke	3
	line	287
	colm	40
	synt	any
	esusp
	goto	L8
lab L7
	line	287
	colm	42
	synt	any
	pfail
lab L8
	unmark
lab L6
	mark	L9
	mark	L10
	var	2
	line	288
	colm	3
	synt	any
	pret
lab L10
	synt	any
	pfail
	unmark
lab L9
	pnull
	line	289
	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_cons_dump
	local	4,000000,ConsNode_initially
	declend
	line	291
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	line	292
	colm	47
	synt	any
	invoke	3
	line	292
	colm	27
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	293
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNode_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,000000,dump_info
	con	0,010000,13,154,150,137,146,151,162,163,164,040,040,040,075,040
	con	1,002000,2,40
	con	2,010000,12,154,150,137,154,141,163,164,040,040,040,075,040
	declend
	line	280
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	282
	colm	6
	synt	any
	field	__m
	line	282
	colm	10
	synt	any
	field	Node
	line	282
	colm	15
	synt	any
	field	dump
	var	0
	line	282
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	283
	colm	6
	synt	any
	field	__m
	line	283
	colm	10
	synt	any
	field	ConsNode
	line	283
	colm	19
	synt	any
	field	dump
	var	0
	line	283
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	pnull
	var	2
	str	0
	int	1
	line	284
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	284
	colm	64
	synt	any
	field	lh_first
	line	284
	colm	59
	synt	any
	invoke	1
	line	284
	colm	47
	synt	any
	cat
	line	284
	colm	21
	synt	any
	invoke	1
	unmark
lab L4
	var	1
	pnull
	var	2
	str	2
	int	1
	line	285
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	285
	colm	63
	synt	any
	field	lh_last
	line	285
	colm	58
	synt	any
	invoke	1
	line	285
	colm	46
	synt	any
	cat
	line	285
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	287
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNode_list_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,000000,dump_info
	con	0,010000,13,154,150,137,146,151,162,163,164,040,040,040,075,040
	con	1,002000,2,40
	con	2,010000,12,154,150,137,154,141,163,164,040,040,040,075,040
	declend
	line	288
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	290
	colm	6
	synt	any
	field	__m
	line	290
	colm	10
	synt	any
	field	Node
	line	290
	colm	15
	synt	any
	field	dump
	var	0
	line	290
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	291
	colm	6
	synt	any
	field	__m
	line	291
	colm	10
	synt	any
	field	ConsNode
	line	291
	colm	19
	synt	any
	field	dump
	var	0
	line	291
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	pnull
	var	2
	str	0
	int	1
	line	292
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	292
	colm	64
	synt	any
	field	lh_first
	line	292
	colm	59
	synt	any
	invoke	1
	line	292
	colm	47
	synt	any
	cat
	line	292
	colm	21
	synt	any
	invoke	1
	unmark
lab L4
	var	1
	pnull
	var	2
	str	2
	int	1
	line	293
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	293
	colm	63
	synt	any
	field	lh_last
	line	293
	colm	58
	synt	any
	invoke	1
	line	293
	colm	46
	synt	any
	cat
	line	293
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	295
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNode_first
	local	0,001000,self
	declend
	line	298
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	299
	colm	12
	synt	any
	field	lh_first
	line	299
	colm	1
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	300
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNode_last
	local	0,001000,self
	declend
	line	303
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	304
	colm	13
	synt	any
	field	lh_last
	line	304
	colm	2
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	305
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNode_setfirst
	local	0,001000,self
	local	1,001000,p
	declend
	line	307
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	308
	colm	5
	synt	any
	field	lh_first
	var	1
	line	308
	colm	14
	synt	any
	asgn
	unmark
lab L1
	pnull
	line	309
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNode_setlast
	local	0,001000,self
	local	1,001000,p
	declend
	line	310
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	311
	colm	5
	synt	any
	field	lh_last
	var	1
	line	311
	colm	13
	synt	any
	asgn
	unmark
lab L1
	pnull
	line	312
	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	323
	colm	11
	synt	any
	mark	L1
	line	324
	colm	2
	synt	if
	mark0
	var	2
	var	0
	line	324
	colm	14
	synt	any
	invoke	1
	unmark
	mark	L2
	var	1
	line	326
	colm	1
	synt	any
	pret
lab L2
	synt	any
	pfail
	line	324
	colm	2
	synt	endif
	unmark
lab L1
	mark	L3
	line	328
	colm	1
	synt	if
	mark0
	mark	L4
	var	2
	var	1
	line	328
	colm	18
	synt	any
	invoke	1
	unmark
	efail
lab L4
	pnull
	unmark
	mark	L5
	pnull
	pnull
	var	0
	line	330
	colm	5
	synt	any
	field	cn_tl_field
	line	330
	colm	17
	synt	any
	field	cn_settail
	pnull
	var	1
	line	330
	colm	31
	synt	any
	field	cn_hd_field
	line	330
	colm	28
	synt	any
	invoke	1
	unmark
lab L5
	pnull
	var	0
	line	331
	colm	5
	synt	any
	field	cn_settail
	pnull
	var	1
	line	331
	colm	19
	synt	any
	field	cn_tl_field
	line	331
	colm	16
	synt	any
	invoke	1
	line	328
	colm	1
	synt	endif
	unmark
lab L3
	mark	L6
	pnull
	var	1
	pnull
	pnull
	var	1
	line	333
	colm	9
	synt	any
	field	hd_field
	pnull
	pnull
	var	1
	line	333
	colm	24
	synt	any
	field	tl_field
	var	3
	line	333
	colm	34
	synt	any
	asgn
	line	333
	colm	19
	synt	any
	asgn
	line	333
	colm	4
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	pnull
	var	1
	line	336
	colm	3
	synt	any
	field	lh_last
	pnull
	pnull
	var	1
	line	336
	colm	17
	synt	any
	field	lh_first
	var	3
	line	336
	colm	27
	synt	any
	asgn
	line	336
	colm	12
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	var	4
	var	1
	line	337
	colm	6
	synt	any
	invoke	1
	unmark
lab L8
	mark	L9
	mark	L10
	var	0
	line	338
	colm	1
	synt	any
	pret
lab L10
	synt	any
	pfail
	unmark
lab L9
	pnull
	line	339
	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	347
	colm	11
	synt	any
	mark	L1
	var	4
	str	0
	line	349
	colm	9
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	var	1
	int	1
	line	350
	colm	7
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	var	4
	pnull
	pnull
	pnull
	str	2
	var	1
	line	351
	colm	28
	synt	any
	cat
	str	3
	line	351
	colm	37
	synt	any
	cat
	var	5
	pnull
	var	0
	line	351
	colm	88
	synt	any
	field	lh_first
	line	351
	colm	83
	synt	any
	invoke	1
	line	351
	colm	70
	synt	any
	cat
	line	351
	colm	9
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	pnull
	var	3
	pnull
	var	0
	line	353
	colm	12
	synt	any
	field	lh_first
	line	353
	colm	5
	synt	any
	asgn
	unmark
lab L4
	mark	L5
lab L6
	line	354
	colm	2
	synt	while
	mark0
	pnull
	var	3
	line	354
	colm	8
	synt	any
	nonnull
	unmark
	mark	L6
	mark	L9
	pnull
	var	2
	pnull
	var	3
	line	355
	colm	9
	synt	any
	field	cn_hd_field
	line	355
	colm	3
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	pnull
	var	1
	dup
	int	4
	line	356
	colm	7
	synt	any
	plus
	asgn
	unmark
lab L10
	mark	L11
	pnull
	var	3
	pnull
	var	3
	line	357
	colm	11
	synt	any
	field	cn_tl_field
	line	357
	colm	5
	synt	any
	asgn
	unmark
lab L11
	var	4
	pnull
	pnull
	pnull
	str	2
	var	1
	line	358
	colm	28
	synt	any
	cat
	str	5
	line	358
	colm	37
	synt	any
	cat
	var	5
	var	2
	line	358
	colm	70
	synt	any
	invoke	1
	line	358
	colm	58
	synt	any
	cat
	line	358
	colm	9
	synt	any
	invoke	1
lab L7
	unmark
	goto	L6
lab L8
	line	354
	colm	2
	synt	endwhile
	unmark
lab L5
	mark	L12
	mark	L13
	var	1
	line	360
	colm	1
	synt	any
	pret
lab L13
	synt	any
	pfail
	unmark
lab L12
	pnull
	line	361
	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	371
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	pnull
	var	0
	line	373
	colm	12
	synt	any
	field	length
	line	373
	colm	19
	synt	any
	invoke	0
	line	373
	colm	5
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	5
	var	7
	pnull
	var	2
	int	0
	line	374
	colm	16
	synt	any
	plus
	line	374
	colm	11
	synt	any
	invoke	1
	line	374
	colm	4
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	6
	int	1
	line	375
	colm	7
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	var	8
	pnull
	pnull
	pnull
	str	2
	var	6
	line	376
	colm	35
	synt	any
	cat
	str	3
	line	376
	colm	44
	synt	any
	cat
	var	9
	pnull
	var	0
	line	376
	colm	95
	synt	any
	field	lh_first
	line	376
	colm	90
	synt	any
	invoke	1
	line	376
	colm	77
	synt	any
	cat
	line	376
	colm	9
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	pnull
	var	3
	pnull
	var	0
	line	377
	colm	12
	synt	any
	field	lh_first
	line	377
	colm	5
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	var	8
	pnull
	pnull
	pnull
	str	4
	var	2
	line	378
	colm	33
	synt	any
	cat
	str	5
	line	378
	colm	40
	synt	any
	cat
	var	9
	var	3
	line	378
	colm	65
	synt	any
	invoke	1
	line	378
	colm	53
	synt	any
	cat
	line	378
	colm	9
	synt	any
	invoke	1
	unmark
lab L6
	mark	L7
lab L8
	line	379
	colm	1
	synt	while
	mark0
	pnull
	var	3
	line	379
	colm	7
	synt	any
	nonnull
	unmark
	mark	L8
	mark	L11
	pnull
	var	4
	pnull
	var	3
	line	380
	colm	9
	synt	any
	field	cn_hd_field
	line	380
	colm	3
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	pnull
	var	6
	dup
	int	0
	line	381
	colm	7
	synt	any
	plus
	asgn
	unmark
lab L12
	mark	L13
	var	8
	pnull
	pnull
	pnull
	str	6
	var	6
	line	382
	colm	35
	synt	any
	cat
	str	7
	line	382
	colm	44
	synt	any
	cat
	var	9
	var	4
	line	382
	colm	67
	synt	any
	invoke	1
	line	382
	colm	55
	synt	any
	cat
	line	382
	colm	9
	synt	any
	invoke	1
	unmark
lab L13
	mark	L14
	pnull
	pnull
	var	5
	var	6
	line	383
	colm	3
	synt	any
	subsc
	var	4
	line	383
	colm	11
	synt	any
	asgn
	unmark
lab L14
	pnull
	var	3
	pnull
	var	3
	line	384
	colm	11
	synt	any
	field	cn_tl_field
	line	384
	colm	5
	synt	any
	asgn
lab L9
	unmark
	goto	L8
lab L10
	line	379
	colm	1
	synt	endwhile
	unmark
lab L7
	mark	L15
	pnull
	var	1
	var	10
	var	2
	var	5
	line	386
	colm	11
	synt	any
	invoke	2
	line	386
	colm	3
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	mark	L17
	var	1
	line	387
	colm	1
	synt	any
	pret
lab L17
	synt	any
	pfail
	unmark
lab L16
	pnull
	line	388
	colm	1
	synt	any
	pfail
	end
proc ListHeaderNode_initially
	local	0,001000,self
	local	1,000000,nil
	declend
	line	389
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	390
	colm	6
	synt	any
	field	__m
	line	390
	colm	10
	synt	any
	field	Node
	line	390
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	390
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	390
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	390
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	390
	colm	72
	synt	any
	field	post_num
	line	390
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	391
	colm	6
	synt	any
	field	__m
	line	391
	colm	10
	synt	any
	field	ConsNode
	line	391
	colm	19
	synt	any
	field	initially
	var	0
	var	1
	var	1
	line	391
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	392
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	393
	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
	line	397
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	400
	colm	3
	synt	if
	mark0
	pnull
	var	11
	line	400
	colm	6
	synt	any
	null
	unmark
	var	12
	line	400
	colm	58
	synt	any
	invoke	0
	line	400
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	401
	colm	3
	synt	if
	mark0
	pnull
	var	13
	line	401
	colm	6
	synt	any
	null
	unmark
	var	14
	line	401
	colm	38
	synt	any
	invoke	0
	line	401
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	11
	line	402
	colm	24
	synt	any
	field	Node
	var	13
	line	402
	colm	30
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	403
	colm	3
	synt	if
	mark0
	pnull
	var	15
	line	403
	colm	6
	synt	any
	null
	unmark
	var	16
	line	403
	colm	46
	synt	any
	invoke	0
	line	403
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	11
	line	404
	colm	24
	synt	any
	field	ConsNode
	var	15
	line	404
	colm	34
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	9
	var	17
	line	406
	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	406
	colm	32
	synt	any
	invoke	11
	line	406
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	9
	line	407
	colm	7
	synt	any
	field	__s
	var	9
	line	407
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	9
	line	408
	colm	7
	synt	any
	field	__m
	line	408
	colm	11
	synt	any
	field	initially
	var	9
	line	408
	colm	21
	synt	any
	invoke	1
	line	408
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	408
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	9
	line	409
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	410
	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_list_dump
	local	4,000000,ListHeaderNode_first
	local	5,000000,ListHeaderNode_last
	local	6,000000,ListHeaderNode_setfirst
	local	7,000000,ListHeaderNode_setlast
	local	8,000000,ListHeaderNode_conc
	local	9,000000,ListHeaderNode_length
	local	10,000000,ListHeaderNode_list_to_array
	local	11,000000,ListHeaderNode_initially
	local	12,000000,ConsNode_cons_dump
	declend
	line	412
	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
	line	413
	colm	59
	synt	any
	invoke	11
	line	413
	colm	33
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	414
	colm	1
	synt	any
	pfail
	end
proc DeclarationNode_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,000000,dump_info
	con	0,010000,12,144,145,143,154,137,151,144,040,040,040,075,040
	con	1,002000,2,40
	con	2,010000,20,144,145,143,154,137,144,145,156,157,164,141,164,151,157,156,040,040,040,075,040
	con	3,010000,17,144,151,163,160,154,141,143,145,155,145,156,164,040,040,040,075,040
	con	4,010000,10,154,145,166,145,154,040,040,040,075,040
	con	5,010000,19,144,145,143,154,137,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	6,010000,14,144,145,143,154,137,144,157,156,145,040,040,040,075,040
	con	7,010000,20,144,145,143,154,137,163,151,147,137,164,162,141,156,163,160,040,040,040,075,040
	con	8,010000,22,144,145,143,154,137,151,156,156,145,162,155,157,163,164,137,151,144,040,040,040,075,040
	con	9,010000,29,144,145,143,154,137,160,162,145,166,151,157,165,163,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	con	10,010000,15,144,145,143,154,137,163,143,157,160,145,040,040,040,075,040
	con	11,010000,21,144,145,143,154,137,143,141,156,137,142,145,137,162,145,146,144,040,040,040,075,040
	con	12,010000,17,144,145,143,154,137,163,160,145,143,151,141,154,040,040,040,075,040
	con	13,010000,19,144,145,143,154,137,163,145,154,137,151,156,144,145,170,040,040,040,075,040
	con	14,010000,16,144,145,143,154,137,156,145,145,144,145,144,040,040,040,075,040
	con	15,010000,19,144,145,143,154,137,143,157,156,163,164,137,166,141,154,040,040,040,075,040
	declend
	line	398
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	400
	colm	6
	synt	any
	field	__m
	line	400
	colm	10
	synt	any
	field	Node
	line	400
	colm	15
	synt	any
	field	dump
	var	0
	line	400
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	401
	colm	6
	synt	any
	field	__m
	line	401
	colm	10
	synt	any
	field	ConsNode
	line	401
	colm	19
	synt	any
	field	dump
	var	0
	line	401
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	pnull
	var	2
	str	0
	int	1
	line	402
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	402
	colm	63
	synt	any
	field	decl_id
	line	402
	colm	58
	synt	any
	invoke	1
	line	402
	colm	46
	synt	any
	cat
	line	402
	colm	21
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	var	1
	pnull
	var	2
	str	2
	int	1
	line	403
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	403
	colm	71
	synt	any
	field	decl_denotation
	line	403
	colm	66
	synt	any
	invoke	1
	line	403
	colm	54
	synt	any
	cat
	line	403
	colm	21
	synt	any
	invoke	1
	unmark
lab L5
	mark	L6
	var	1
	pnull
	var	2
	str	3
	int	1
	line	404
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	404
	colm	68
	synt	any
	field	displacement
	line	404
	colm	63
	synt	any
	invoke	1
	line	404
	colm	51
	synt	any
	cat
	line	404
	colm	21
	synt	any
	invoke	1
	unmark
lab L6
	mark	L7
	var	1
	pnull
	var	2
	str	4
	int	1
	line	405
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	405
	colm	61
	synt	any
	field	level
	line	405
	colm	56
	synt	any
	invoke	1
	line	405
	colm	44
	synt	any
	cat
	line	405
	colm	21
	synt	any
	invoke	1
	unmark
lab L7
	mark	L8
	var	1
	pnull
	var	2
	str	5
	int	1
	line	406
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	406
	colm	70
	synt	any
	field	decl_signature
	line	406
	colm	65
	synt	any
	invoke	1
	line	406
	colm	53
	synt	any
	cat
	line	406
	colm	21
	synt	any
	invoke	1
	unmark
lab L8
	mark	L9
	var	1
	pnull
	var	2
	str	6
	int	1
	line	407
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	407
	colm	65
	synt	any
	field	decl_done
	line	407
	colm	60
	synt	any
	invoke	1
	line	407
	colm	48
	synt	any
	cat
	line	407
	colm	21
	synt	any
	invoke	1
	unmark
lab L9
	mark	L10
	var	1
	pnull
	var	2
	str	7
	int	1
	line	408
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	408
	colm	71
	synt	any
	field	decl_sig_transp
	line	408
	colm	66
	synt	any
	invoke	1
	line	408
	colm	54
	synt	any
	cat
	line	408
	colm	21
	synt	any
	invoke	1
	unmark
lab L10
	mark	L11
	var	1
	pnull
	var	2
	str	8
	int	1
	line	409
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	409
	colm	73
	synt	any
	field	decl_innermost_id
	line	409
	colm	68
	synt	any
	invoke	1
	line	409
	colm	56
	synt	any
	cat
	line	409
	colm	21
	synt	any
	invoke	1
	unmark
lab L11
	mark	L12
	var	1
	pnull
	var	2
	str	9
	int	1
	line	410
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	410
	colm	80
	synt	any
	field	decl_previous_definition
	line	410
	colm	75
	synt	any
	invoke	1
	line	410
	colm	63
	synt	any
	cat
	line	410
	colm	21
	synt	any
	invoke	1
	unmark
lab L12
	mark	L13
	var	1
	pnull
	var	2
	str	10
	int	1
	line	411
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	411
	colm	66
	synt	any
	field	decl_scope
	line	411
	colm	61
	synt	any
	invoke	1
	line	411
	colm	49
	synt	any
	cat
	line	411
	colm	21
	synt	any
	invoke	1
	unmark
lab L13
	mark	L14
	var	1
	pnull
	var	2
	str	11
	int	1
	line	412
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	412
	colm	72
	synt	any
	field	decl_can_be_refd
	line	412
	colm	67
	synt	any
	invoke	1
	line	412
	colm	55
	synt	any
	cat
	line	412
	colm	21
	synt	any
	invoke	1
	unmark
lab L14
	mark	L15
	var	1
	pnull
	var	2
	str	12
	int	1
	line	413
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	413
	colm	68
	synt	any
	field	decl_special
	line	413
	colm	63
	synt	any
	invoke	1
	line	413
	colm	51
	synt	any
	cat
	line	413
	colm	21
	synt	any
	invoke	1
	unmark
lab L15
	mark	L16
	var	1
	pnull
	var	2
	str	13
	int	1
	line	414
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	414
	colm	70
	synt	any
	field	decl_sel_index
	line	414
	colm	65
	synt	any
	invoke	1
	line	414
	colm	53
	synt	any
	cat
	line	414
	colm	21
	synt	any
	invoke	1
	unmark
lab L16
	mark	L17
	var	1
	pnull
	var	2
	str	14
	int	1
	line	415
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	415
	colm	67
	synt	any
	field	decl_needed
	line	415
	colm	62
	synt	any
	invoke	1
	line	415
	colm	50
	synt	any
	cat
	line	415
	colm	21
	synt	any
	invoke	1
	unmark
lab L17
	var	1
	pnull
	var	2
	str	15
	int	1
	line	416
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	416
	colm	70
	synt	any
	field	decl_const_val
	line	416
	colm	65
	synt	any
	invoke	1
	line	416
	colm	53
	synt	any
	cat
	line	416
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	418
	colm	1
	synt	any
	pfail
	end
proc DeclarationNode_initially
	local	0,001000,self
	declend
	line	419
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	420
	colm	6
	synt	any
	field	__m
	line	420
	colm	10
	synt	any
	field	Node
	line	420
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	420
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	420
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	420
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	420
	colm	72
	synt	any
	field	post_num
	line	420
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	421
	colm	6
	synt	any
	field	__m
	line	421
	colm	10
	synt	any
	field	ConsNode
	line	421
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	421
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	421
	colm	57
	synt	any
	field	cn_tl_field
	line	421
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	422
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	423
	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
	line	427
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	430
	colm	3
	synt	if
	mark0
	pnull
	var	24
	line	430
	colm	6
	synt	any
	null
	unmark
	var	25
	line	430
	colm	60
	synt	any
	invoke	0
	line	430
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	431
	colm	3
	synt	if
	mark0
	pnull
	var	26
	line	431
	colm	6
	synt	any
	null
	unmark
	var	27
	line	431
	colm	38
	synt	any
	invoke	0
	line	431
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	24
	line	432
	colm	25
	synt	any
	field	Node
	var	26
	line	432
	colm	31
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	433
	colm	3
	synt	if
	mark0
	pnull
	var	28
	line	433
	colm	6
	synt	any
	null
	unmark
	var	29
	line	433
	colm	46
	synt	any
	invoke	0
	line	433
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	24
	line	434
	colm	25
	synt	any
	field	ConsNode
	var	28
	line	434
	colm	35
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	22
	var	30
	line	436
	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	436
	colm	33
	synt	any
	invoke	24
	line	436
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	22
	line	437
	colm	7
	synt	any
	field	__s
	var	22
	line	437
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	22
	line	438
	colm	7
	synt	any
	field	__m
	line	438
	colm	11
	synt	any
	field	initially
	var	22
	line	438
	colm	21
	synt	any
	invoke	1
	line	438
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	438
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	22
	line	439
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	440
	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_initially
	local	4,000000,ConsNode_cons_dump
	declend
	line	442
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	line	443
	colm	61
	synt	any
	invoke	3
	line	443
	colm	34
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	444
	colm	1
	synt	any
	pfail
	end
proc ParameterNode_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,000000,dump_info
	con	0,010000,11,160,141,162,137,151,144,040,040,040,075,040
	con	1,002000,2,40
	con	2,010000,18,160,141,162,137,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	3,010000,17,144,151,163,160,154,141,143,145,155,145,156,164,040,040,040,075,040
	con	4,010000,10,154,145,166,145,154,040,040,040,075,040
	con	5,010000,28,160,141,162,137,160,162,145,166,151,157,165,163,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	con	6,010000,14,160,141,162,137,163,143,157,160,145,040,040,040,075,040
	con	7,010000,17,160,141,162,137,157,156,154,171,137,144,145,146,040,040,040,075,040
	declend
	line	426
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	428
	colm	6
	synt	any
	field	__m
	line	428
	colm	10
	synt	any
	field	Node
	line	428
	colm	15
	synt	any
	field	dump
	var	0
	line	428
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	429
	colm	6
	synt	any
	field	__m
	line	429
	colm	10
	synt	any
	field	ConsNode
	line	429
	colm	19
	synt	any
	field	dump
	var	0
	line	429
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	pnull
	var	2
	str	0
	int	1
	line	431
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	431
	colm	62
	synt	any
	field	par_id
	line	431
	colm	57
	synt	any
	invoke	1
	line	431
	colm	45
	synt	any
	cat
	line	431
	colm	21
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	var	1
	pnull
	var	2
	str	2
	int	1
	line	432
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	432
	colm	69
	synt	any
	field	par_signature
	line	432
	colm	64
	synt	any
	invoke	1
	line	432
	colm	52
	synt	any
	cat
	line	432
	colm	21
	synt	any
	invoke	1
	unmark
lab L5
	mark	L6
	var	1
	pnull
	var	2
	str	3
	int	1
	line	433
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	433
	colm	68
	synt	any
	field	displacement
	line	433
	colm	63
	synt	any
	invoke	1
	line	433
	colm	51
	synt	any
	cat
	line	433
	colm	21
	synt	any
	invoke	1
	unmark
lab L6
	mark	L7
	var	1
	pnull
	var	2
	str	4
	int	1
	line	434
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	434
	colm	61
	synt	any
	field	level
	line	434
	colm	56
	synt	any
	invoke	1
	line	434
	colm	44
	synt	any
	cat
	line	434
	colm	21
	synt	any
	invoke	1
	unmark
lab L7
	mark	L8
	var	1
	pnull
	var	2
	str	5
	int	1
	line	435
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	435
	colm	79
	synt	any
	field	par_previous_definition
	line	435
	colm	74
	synt	any
	invoke	1
	line	435
	colm	62
	synt	any
	cat
	line	435
	colm	21
	synt	any
	invoke	1
	unmark
lab L8
	mark	L9
	var	1
	pnull
	var	2
	str	6
	int	1
	line	436
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	436
	colm	65
	synt	any
	field	par_scope
	line	436
	colm	60
	synt	any
	invoke	1
	line	436
	colm	48
	synt	any
	cat
	line	436
	colm	21
	synt	any
	invoke	1
	unmark
lab L9
	var	1
	pnull
	var	2
	str	7
	int	1
	line	437
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	437
	colm	68
	synt	any
	field	par_only_def
	line	437
	colm	63
	synt	any
	invoke	1
	line	437
	colm	51
	synt	any
	cat
	line	437
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	439
	colm	1
	synt	any
	pfail
	end
proc ParameterNode_initially
	local	0,001000,self
	declend
	line	440
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	441
	colm	6
	synt	any
	field	__m
	line	441
	colm	10
	synt	any
	field	Node
	line	441
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	441
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	441
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	441
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	441
	colm	72
	synt	any
	field	post_num
	line	441
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	442
	colm	6
	synt	any
	field	__m
	line	442
	colm	10
	synt	any
	field	ConsNode
	line	442
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	442
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	442
	colm	57
	synt	any
	field	cn_tl_field
	line	442
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	443
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	444
	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
	line	448
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	451
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	451
	colm	6
	synt	any
	null
	unmark
	var	17
	line	451
	colm	56
	synt	any
	invoke	0
	line	451
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	452
	colm	3
	synt	if
	mark0
	pnull
	var	18
	line	452
	colm	6
	synt	any
	null
	unmark
	var	19
	line	452
	colm	38
	synt	any
	invoke	0
	line	452
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	16
	line	453
	colm	23
	synt	any
	field	Node
	var	18
	line	453
	colm	29
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	454
	colm	3
	synt	if
	mark0
	pnull
	var	20
	line	454
	colm	6
	synt	any
	null
	unmark
	var	21
	line	454
	colm	46
	synt	any
	invoke	0
	line	454
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	16
	line	455
	colm	23
	synt	any
	field	ConsNode
	var	20
	line	455
	colm	33
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	14
	var	22
	line	457
	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	457
	colm	31
	synt	any
	invoke	16
	line	457
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	14
	line	458
	colm	7
	synt	any
	field	__s
	var	14
	line	458
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	14
	line	459
	colm	7
	synt	any
	field	__m
	line	459
	colm	11
	synt	any
	field	initially
	var	14
	line	459
	colm	21
	synt	any
	invoke	1
	line	459
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	459
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	14
	line	460
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	461
	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_initially
	local	4,000000,ConsNode_cons_dump
	declend
	line	463
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	line	464
	colm	57
	synt	any
	invoke	3
	line	464
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	465
	colm	1
	synt	any
	pfail
	end
proc RElementNode_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,000000,dump_info
	con	0,010000,10,162,145,137,151,144,040,040,040,075,040
	con	1,002000,2,40
	con	2,010000,18,162,145,137,144,145,156,157,164,141,164,151,157,156,040,040,040,075,040
	con	3,010000,17,162,145,137,116,145,167,137,151,156,144,145,170,040,040,040,075,040
	con	4,010000,21,162,145,137,126,141,154,165,145,117,146,137,151,156,144,145,170,040,040,040,075,040
	con	5,010000,20,162,145,137,141,163,163,151,147,156,137,151,156,144,145,170,040,040,040,075,040
	declend
	line	448
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	450
	colm	6
	synt	any
	field	__m
	line	450
	colm	10
	synt	any
	field	Node
	line	450
	colm	15
	synt	any
	field	dump
	var	0
	line	450
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	451
	colm	6
	synt	any
	field	__m
	line	451
	colm	10
	synt	any
	field	ConsNode
	line	451
	colm	19
	synt	any
	field	dump
	var	0
	line	451
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	pnull
	var	2
	str	0
	int	1
	line	453
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	453
	colm	61
	synt	any
	field	re_id
	line	453
	colm	56
	synt	any
	invoke	1
	line	453
	colm	44
	synt	any
	cat
	line	453
	colm	21
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	var	1
	pnull
	var	2
	str	2
	int	1
	line	454
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	454
	colm	69
	synt	any
	field	re_denotation
	line	454
	colm	64
	synt	any
	invoke	1
	line	454
	colm	52
	synt	any
	cat
	line	454
	colm	21
	synt	any
	invoke	1
	unmark
lab L5
	mark	L6
	var	1
	pnull
	var	2
	str	3
	int	1
	line	455
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	455
	colm	68
	synt	any
	field	re_New_index
	line	455
	colm	63
	synt	any
	invoke	1
	line	455
	colm	51
	synt	any
	cat
	line	455
	colm	21
	synt	any
	invoke	1
	unmark
lab L6
	mark	L7
	var	1
	pnull
	var	2
	str	4
	int	1
	line	456
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	456
	colm	72
	synt	any
	field	re_ValueOf_index
	line	456
	colm	67
	synt	any
	invoke	1
	line	456
	colm	55
	synt	any
	cat
	line	456
	colm	21
	synt	any
	invoke	1
	unmark
lab L7
	var	1
	pnull
	var	2
	str	5
	int	1
	line	457
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	457
	colm	71
	synt	any
	field	re_assign_index
	line	457
	colm	66
	synt	any
	invoke	1
	line	457
	colm	54
	synt	any
	cat
	line	457
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	459
	colm	1
	synt	any
	pfail
	end
proc RElementNode_initially
	local	0,001000,self
	declend
	line	460
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	461
	colm	6
	synt	any
	field	__m
	line	461
	colm	10
	synt	any
	field	Node
	line	461
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	461
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	461
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	461
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	461
	colm	72
	synt	any
	field	post_num
	line	461
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	462
	colm	6
	synt	any
	field	__m
	line	462
	colm	10
	synt	any
	field	ConsNode
	line	462
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	462
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	462
	colm	57
	synt	any
	field	cn_tl_field
	line	462
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	463
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	464
	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
	line	468
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	471
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	471
	colm	6
	synt	any
	null
	unmark
	var	15
	line	471
	colm	54
	synt	any
	invoke	0
	line	471
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	472
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	472
	colm	6
	synt	any
	null
	unmark
	var	17
	line	472
	colm	38
	synt	any
	invoke	0
	line	472
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	14
	line	473
	colm	22
	synt	any
	field	Node
	var	16
	line	473
	colm	28
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	474
	colm	3
	synt	if
	mark0
	pnull
	var	18
	line	474
	colm	6
	synt	any
	null
	unmark
	var	19
	line	474
	colm	46
	synt	any
	invoke	0
	line	474
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	14
	line	475
	colm	22
	synt	any
	field	ConsNode
	var	18
	line	475
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	12
	var	20
	line	477
	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	477
	colm	30
	synt	any
	invoke	14
	line	477
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	12
	line	478
	colm	7
	synt	any
	field	__s
	var	12
	line	478
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	12
	line	479
	colm	7
	synt	any
	field	__m
	line	479
	colm	11
	synt	any
	field	initially
	var	12
	line	479
	colm	21
	synt	any
	invoke	1
	line	479
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	479
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	12
	line	480
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	481
	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_initially
	local	4,000000,ConsNode_cons_dump
	declend
	line	483
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	line	484
	colm	55
	synt	any
	invoke	3
	line	484
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	485
	colm	1
	synt	any
	pfail
	end
proc VarSignature_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,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,40
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,19,166,141,162,137,144,145,156,157,164,141,164,151,157,156,040,040,040,075,040
	declend
	line	467
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	469
	colm	6
	synt	any
	field	__m
	line	469
	colm	10
	synt	any
	field	Node
	line	469
	colm	15
	synt	any
	field	dump
	var	0
	line	469
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	470
	colm	6
	synt	any
	field	__m
	line	470
	colm	10
	synt	any
	field	ConsNode
	line	470
	colm	19
	synt	any
	field	dump
	var	0
	line	470
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	pnull
	var	2
	str	0
	int	1
	line	471
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	471
	colm	65
	synt	any
	field	signature
	line	471
	colm	60
	synt	any
	invoke	1
	line	471
	colm	48
	synt	any
	cat
	line	471
	colm	21
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	var	1
	pnull
	var	2
	str	2
	int	1
	line	472
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	472
	colm	64
	synt	any
	field	sig_done
	line	472
	colm	59
	synt	any
	invoke	1
	line	472
	colm	47
	synt	any
	cat
	line	472
	colm	21
	synt	any
	invoke	1
	unmark
lab L5
	var	1
	pnull
	var	2
	str	3
	int	1
	line	473
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	473
	colm	70
	synt	any
	field	var_denotation
	line	473
	colm	65
	synt	any
	invoke	1
	line	473
	colm	53
	synt	any
	cat
	line	473
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	475
	colm	1
	synt	any
	pfail
	end
proc VarSignature_initially
	local	0,001000,self
	declend
	line	477
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	478
	colm	6
	synt	any
	field	__m
	line	478
	colm	10
	synt	any
	field	Node
	line	478
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	478
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	478
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	478
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	478
	colm	72
	synt	any
	field	post_num
	line	478
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	479
	colm	6
	synt	any
	field	__m
	line	479
	colm	10
	synt	any
	field	ConsNode
	line	479
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	479
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	479
	colm	57
	synt	any
	field	cn_tl_field
	line	479
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	480
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	481
	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
	line	485
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	488
	colm	3
	synt	if
	mark0
	pnull
	var	12
	line	488
	colm	6
	synt	any
	null
	unmark
	var	13
	line	488
	colm	54
	synt	any
	invoke	0
	line	488
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	489
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	489
	colm	6
	synt	any
	null
	unmark
	var	15
	line	489
	colm	38
	synt	any
	invoke	0
	line	489
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	12
	line	490
	colm	22
	synt	any
	field	Node
	var	14
	line	490
	colm	28
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	491
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	491
	colm	6
	synt	any
	null
	unmark
	var	17
	line	491
	colm	46
	synt	any
	invoke	0
	line	491
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	12
	line	492
	colm	22
	synt	any
	field	ConsNode
	var	16
	line	492
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	10
	var	18
	line	494
	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	494
	colm	30
	synt	any
	invoke	12
	line	494
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	10
	line	495
	colm	7
	synt	any
	field	__s
	var	10
	line	495
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	10
	line	496
	colm	7
	synt	any
	field	__m
	line	496
	colm	11
	synt	any
	field	initially
	var	10
	line	496
	colm	21
	synt	any
	invoke	1
	line	496
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	496
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	10
	line	497
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	498
	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_initially
	local	4,000000,ConsNode_cons_dump
	declend
	line	500
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	line	501
	colm	55
	synt	any
	invoke	3
	line	501
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	502
	colm	1
	synt	any
	pfail
	end
proc ValSignature_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,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,40
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,19,166,141,154,137,144,145,156,157,164,141,164,151,157,156,040,040,040,075,040
	declend
	line	485
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	487
	colm	6
	synt	any
	field	__m
	line	487
	colm	10
	synt	any
	field	Node
	line	487
	colm	15
	synt	any
	field	dump
	var	0
	line	487
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	488
	colm	6
	synt	any
	field	__m
	line	488
	colm	10
	synt	any
	field	ConsNode
	line	488
	colm	19
	synt	any
	field	dump
	var	0
	line	488
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	pnull
	var	2
	str	0
	int	1
	line	490
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	490
	colm	65
	synt	any
	field	signature
	line	490
	colm	60
	synt	any
	invoke	1
	line	490
	colm	48
	synt	any
	cat
	line	490
	colm	21
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	var	1
	pnull
	var	2
	str	2
	int	1
	line	491
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	491
	colm	64
	synt	any
	field	sig_done
	line	491
	colm	59
	synt	any
	invoke	1
	line	491
	colm	47
	synt	any
	cat
	line	491
	colm	21
	synt	any
	invoke	1
	unmark
lab L5
	var	1
	pnull
	var	2
	str	3
	int	1
	line	492
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	492
	colm	70
	synt	any
	field	val_denotation
	line	492
	colm	65
	synt	any
	invoke	1
	line	492
	colm	53
	synt	any
	cat
	line	492
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	494
	colm	1
	synt	any
	pfail
	end
proc ValSignature_initially
	local	0,001000,self
	declend
	line	495
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	496
	colm	6
	synt	any
	field	__m
	line	496
	colm	10
	synt	any
	field	Node
	line	496
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	496
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	496
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	496
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	496
	colm	72
	synt	any
	field	post_num
	line	496
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	497
	colm	6
	synt	any
	field	__m
	line	497
	colm	10
	synt	any
	field	ConsNode
	line	497
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	497
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	497
	colm	57
	synt	any
	field	cn_tl_field
	line	497
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	498
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	499
	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
	line	503
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	506
	colm	3
	synt	if
	mark0
	pnull
	var	12
	line	506
	colm	6
	synt	any
	null
	unmark
	var	13
	line	506
	colm	54
	synt	any
	invoke	0
	line	506
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	507
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	507
	colm	6
	synt	any
	null
	unmark
	var	15
	line	507
	colm	38
	synt	any
	invoke	0
	line	507
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	12
	line	508
	colm	22
	synt	any
	field	Node
	var	14
	line	508
	colm	28
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	509
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	509
	colm	6
	synt	any
	null
	unmark
	var	17
	line	509
	colm	46
	synt	any
	invoke	0
	line	509
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	12
	line	510
	colm	22
	synt	any
	field	ConsNode
	var	16
	line	510
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	10
	var	18
	line	512
	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	512
	colm	30
	synt	any
	invoke	12
	line	512
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	10
	line	513
	colm	7
	synt	any
	field	__s
	var	10
	line	513
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	10
	line	514
	colm	7
	synt	any
	field	__m
	line	514
	colm	11
	synt	any
	field	initially
	var	10
	line	514
	colm	21
	synt	any
	invoke	1
	line	514
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	514
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	10
	line	515
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	516
	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_initially
	local	4,000000,ConsNode_cons_dump
	declend
	line	518
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	line	519
	colm	55
	synt	any
	invoke	3
	line	519
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	520
	colm	1
	synt	any
	pfail
	end
proc FSignature_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,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,40
	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
	declend
	line	502
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	504
	colm	6
	synt	any
	field	__m
	line	504
	colm	10
	synt	any
	field	Node
	line	504
	colm	15
	synt	any
	field	dump
	var	0
	line	504
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	505
	colm	6
	synt	any
	field	__m
	line	505
	colm	10
	synt	any
	field	ConsNode
	line	505
	colm	19
	synt	any
	field	dump
	var	0
	line	505
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	pnull
	var	2
	str	0
	int	1
	line	506
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	506
	colm	65
	synt	any
	field	signature
	line	506
	colm	60
	synt	any
	invoke	1
	line	506
	colm	48
	synt	any
	cat
	line	506
	colm	21
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	var	1
	pnull
	var	2
	str	2
	int	1
	line	507
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	507
	colm	64
	synt	any
	field	sig_done
	line	507
	colm	59
	synt	any
	invoke	1
	line	507
	colm	47
	synt	any
	cat
	line	507
	colm	21
	synt	any
	invoke	1
	unmark
lab L5
	mark	L6
	var	1
	pnull
	var	2
	str	3
	int	1
	line	508
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	508
	colm	73
	synt	any
	field	fsig_construction
	line	508
	colm	68
	synt	any
	invoke	1
	line	508
	colm	56
	synt	any
	cat
	line	508
	colm	21
	synt	any
	invoke	1
	unmark
lab L6
	mark	L7
	var	1
	pnull
	var	2
	str	4
	int	1
	line	509
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	509
	colm	68
	synt	any
	field	fsig_special
	line	509
	colm	63
	synt	any
	invoke	1
	line	509
	colm	51
	synt	any
	cat
	line	509
	colm	21
	synt	any
	invoke	1
	unmark
lab L7
	mark	L8
	var	1
	pnull
	var	2
	str	5
	int	1
	line	510
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	510
	colm	72
	synt	any
	field	fsig_slink_known
	line	510
	colm	67
	synt	any
	invoke	1
	line	510
	colm	55
	synt	any
	cat
	line	510
	colm	21
	synt	any
	invoke	1
	unmark
lab L8
	mark	L9
	var	1
	pnull
	var	2
	str	6
	int	1
	line	511
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	511
	colm	72
	synt	any
	field	fsig_inline_code
	line	511
	colm	67
	synt	any
	invoke	1
	line	511
	colm	55
	synt	any
	cat
	line	511
	colm	21
	synt	any
	invoke	1
	unmark
lab L9
	mark	L10
	var	1
	pnull
	var	2
	str	7
	int	1
	line	512
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	512
	colm	71
	synt	any
	field	fsig_param_list
	line	512
	colm	66
	synt	any
	invoke	1
	line	512
	colm	54
	synt	any
	cat
	line	512
	colm	21
	synt	any
	invoke	1
	unmark
lab L10
	var	1
	pnull
	var	2
	str	8
	int	1
	line	513
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	513
	colm	71
	synt	any
	field	fsig_result_sig
	line	513
	colm	66
	synt	any
	invoke	1
	line	513
	colm	54
	synt	any
	cat
	line	513
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	515
	colm	1
	synt	any
	pfail
	end
proc FSignature_initially
	local	0,001000,self
	declend
	line	516
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	517
	colm	6
	synt	any
	field	__m
	line	517
	colm	10
	synt	any
	field	Node
	line	517
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	517
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	517
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	517
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	517
	colm	72
	synt	any
	field	post_num
	line	517
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	518
	colm	6
	synt	any
	field	__m
	line	518
	colm	10
	synt	any
	field	ConsNode
	line	518
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	518
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	518
	colm	57
	synt	any
	field	cn_tl_field
	line	518
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	519
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	520
	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
	line	524
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	527
	colm	3
	synt	if
	mark0
	pnull
	var	18
	line	527
	colm	6
	synt	any
	null
	unmark
	var	19
	line	527
	colm	50
	synt	any
	invoke	0
	line	527
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	528
	colm	3
	synt	if
	mark0
	pnull
	var	20
	line	528
	colm	6
	synt	any
	null
	unmark
	var	21
	line	528
	colm	38
	synt	any
	invoke	0
	line	528
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	18
	line	529
	colm	20
	synt	any
	field	Node
	var	20
	line	529
	colm	26
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	530
	colm	3
	synt	if
	mark0
	pnull
	var	22
	line	530
	colm	6
	synt	any
	null
	unmark
	var	23
	line	530
	colm	46
	synt	any
	invoke	0
	line	530
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	18
	line	531
	colm	20
	synt	any
	field	ConsNode
	var	22
	line	531
	colm	30
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	16
	var	24
	line	533
	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	533
	colm	28
	synt	any
	invoke	18
	line	533
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	16
	line	534
	colm	7
	synt	any
	field	__s
	var	16
	line	534
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	16
	line	535
	colm	7
	synt	any
	field	__m
	line	535
	colm	11
	synt	any
	field	initially
	var	16
	line	535
	colm	21
	synt	any
	invoke	1
	line	535
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	535
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	16
	line	536
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	537
	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_initially
	local	4,000000,ConsNode_cons_dump
	declend
	line	539
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	line	540
	colm	51
	synt	any
	invoke	3
	line	540
	colm	29
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	541
	colm	1
	synt	any
	pfail
	end
proc TSignature_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,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,40
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,19,164,163,137,163,151,155,160,154,145,137,164,171,160,145,040,040,040,075,040
	con	4,010000,21,164,163,137,154,157,143,141,154,137,164,171,160,145,137,151,144,040,040,040,075,040
	con	5,010000,13,164,163,137,143,154,151,163,164,040,040,040,075,040
	con	6,010000,27,164,163,137,160,162,145,166,151,157,165,163,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	con	7,010000,18,164,163,137,143,157,156,163,164,137,143,157,144,145,040,040,040,075,040
	con	8,010000,19,164,163,137,163,164,162,151,156,147,137,143,157,144,145,040,040,040,075,040
	con	9,010000,20,164,163,137,145,154,145,155,145,156,164,137,143,157,144,145,040,040,040,075,040
	con	10,010000,18,164,163,137,163,164,162,151,156,147,137,155,141,170,040,040,040,075,040
	con	11,010000,19,164,163,137,155,145,164,141,137,143,157,156,143,141,164,040,040,040,075,040
	declend
	line	523
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	525
	colm	6
	synt	any
	field	__m
	line	525
	colm	10
	synt	any
	field	Node
	line	525
	colm	15
	synt	any
	field	dump
	var	0
	line	525
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	526
	colm	6
	synt	any
	field	__m
	line	526
	colm	10
	synt	any
	field	ConsNode
	line	526
	colm	19
	synt	any
	field	dump
	var	0
	line	526
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	pnull
	var	2
	str	0
	int	1
	line	527
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	527
	colm	65
	synt	any
	field	signature
	line	527
	colm	60
	synt	any
	invoke	1
	line	527
	colm	48
	synt	any
	cat
	line	527
	colm	21
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	var	1
	pnull
	var	2
	str	2
	int	1
	line	528
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	528
	colm	64
	synt	any
	field	sig_done
	line	528
	colm	59
	synt	any
	invoke	1
	line	528
	colm	47
	synt	any
	cat
	line	528
	colm	21
	synt	any
	invoke	1
	unmark
lab L5
	mark	L6
	var	1
	pnull
	var	2
	str	3
	int	1
	line	529
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	529
	colm	70
	synt	any
	field	ts_simple_type
	line	529
	colm	65
	synt	any
	invoke	1
	line	529
	colm	53
	synt	any
	cat
	line	529
	colm	21
	synt	any
	invoke	1
	unmark
lab L6
	mark	L7
	var	1
	pnull
	var	2
	str	4
	int	1
	line	530
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	530
	colm	72
	synt	any
	field	ts_local_type_id
	line	530
	colm	67
	synt	any
	invoke	1
	line	530
	colm	55
	synt	any
	cat
	line	530
	colm	21
	synt	any
	invoke	1
	unmark
lab L7
	mark	L8
	var	1
	pnull
	var	2
	str	5
	int	1
	line	531
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	531
	colm	64
	synt	any
	field	ts_clist
	line	531
	colm	59
	synt	any
	invoke	1
	line	531
	colm	47
	synt	any
	cat
	line	531
	colm	21
	synt	any
	invoke	1
	unmark
lab L8
	mark	L9
	var	1
	pnull
	var	2
	str	6
	int	1
	line	532
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	532
	colm	78
	synt	any
	field	ts_previous_definition
	line	532
	colm	73
	synt	any
	invoke	1
	line	532
	colm	61
	synt	any
	cat
	line	532
	colm	21
	synt	any
	invoke	1
	unmark
lab L9
	mark	L10
	var	1
	pnull
	var	2
	str	7
	int	1
	line	533
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	533
	colm	69
	synt	any
	field	ts_const_code
	line	533
	colm	64
	synt	any
	invoke	1
	line	533
	colm	52
	synt	any
	cat
	line	533
	colm	21
	synt	any
	invoke	1
	unmark
lab L10
	mark	L11
	var	1
	pnull
	var	2
	str	8
	int	1
	line	534
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	534
	colm	70
	synt	any
	field	ts_string_code
	line	534
	colm	65
	synt	any
	invoke	1
	line	534
	colm	53
	synt	any
	cat
	line	534
	colm	21
	synt	any
	invoke	1
	unmark
lab L11
	mark	L12
	var	1
	pnull
	var	2
	str	9
	int	1
	line	535
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	535
	colm	71
	synt	any
	field	ts_element_code
	line	535
	colm	66
	synt	any
	invoke	1
	line	535
	colm	54
	synt	any
	cat
	line	535
	colm	21
	synt	any
	invoke	1
	unmark
lab L12
	mark	L13
	var	1
	pnull
	var	2
	str	10
	int	1
	line	536
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	536
	colm	69
	synt	any
	field	ts_string_max
	line	536
	colm	64
	synt	any
	invoke	1
	line	536
	colm	52
	synt	any
	cat
	line	536
	colm	21
	synt	any
	invoke	1
	unmark
lab L13
	var	1
	pnull
	var	2
	str	11
	int	1
	line	537
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	537
	colm	70
	synt	any
	field	ts_meta_concat
	line	537
	colm	65
	synt	any
	invoke	1
	line	537
	colm	53
	synt	any
	cat
	line	537
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	539
	colm	1
	synt	any
	pfail
	end
proc TSignature_initially
	local	0,001000,self
	declend
	line	540
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	541
	colm	6
	synt	any
	field	__m
	line	541
	colm	10
	synt	any
	field	Node
	line	541
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	541
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	541
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	541
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	541
	colm	72
	synt	any
	field	post_num
	line	541
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	542
	colm	6
	synt	any
	field	__m
	line	542
	colm	10
	synt	any
	field	ConsNode
	line	542
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	542
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	542
	colm	57
	synt	any
	field	cn_tl_field
	line	542
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	543
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	544
	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
	line	548
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	551
	colm	3
	synt	if
	mark0
	pnull
	var	20
	line	551
	colm	6
	synt	any
	null
	unmark
	var	21
	line	551
	colm	50
	synt	any
	invoke	0
	line	551
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	552
	colm	3
	synt	if
	mark0
	pnull
	var	22
	line	552
	colm	6
	synt	any
	null
	unmark
	var	23
	line	552
	colm	38
	synt	any
	invoke	0
	line	552
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	20
	line	553
	colm	20
	synt	any
	field	Node
	var	22
	line	553
	colm	26
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	554
	colm	3
	synt	if
	mark0
	pnull
	var	24
	line	554
	colm	6
	synt	any
	null
	unmark
	var	25
	line	554
	colm	46
	synt	any
	invoke	0
	line	554
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	20
	line	555
	colm	20
	synt	any
	field	ConsNode
	var	24
	line	555
	colm	30
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	18
	var	26
	line	557
	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	557
	colm	28
	synt	any
	invoke	20
	line	557
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	18
	line	558
	colm	7
	synt	any
	field	__s
	var	18
	line	558
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	18
	line	559
	colm	7
	synt	any
	field	__m
	line	559
	colm	11
	synt	any
	field	initially
	var	18
	line	559
	colm	21
	synt	any
	invoke	1
	line	559
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	559
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	18
	line	560
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	561
	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_initially
	local	4,000000,ConsNode_cons_dump
	declend
	line	563
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	line	564
	colm	51
	synt	any
	invoke	3
	line	564
	colm	29
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	565
	colm	1
	synt	any
	pfail
	end
proc TSComponentNode_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,000000,dump_info
	con	0,010000,11,164,163,143,137,151,144,040,040,040,075,040
	con	1,002000,2,40
	con	2,010000,18,164,163,143,137,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	declend
	line	547
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	549
	colm	6
	synt	any
	field	__m
	line	549
	colm	10
	synt	any
	field	Node
	line	549
	colm	15
	synt	any
	field	dump
	var	0
	line	549
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	550
	colm	6
	synt	any
	field	__m
	line	550
	colm	10
	synt	any
	field	ConsNode
	line	550
	colm	19
	synt	any
	field	dump
	var	0
	line	550
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	pnull
	var	2
	str	0
	int	1
	line	552
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	552
	colm	62
	synt	any
	field	tsc_id
	line	552
	colm	57
	synt	any
	invoke	1
	line	552
	colm	45
	synt	any
	cat
	line	552
	colm	21
	synt	any
	invoke	1
	unmark
lab L4
	var	1
	pnull
	var	2
	str	2
	int	1
	line	553
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	553
	colm	69
	synt	any
	field	tsc_signature
	line	553
	colm	64
	synt	any
	invoke	1
	line	553
	colm	52
	synt	any
	cat
	line	553
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	555
	colm	1
	synt	any
	pfail
	end
proc TSComponentNode_initially
	local	0,001000,self
	declend
	line	556
	colm	11
	synt	any
	mark	L1
	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	initially
	var	0
	pnull
	var	0
	line	557
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	557
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	557
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	557
	colm	72
	synt	any
	field	post_num
	line	557
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	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	initially
	var	0
	pnull
	var	0
	line	558
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	558
	colm	57
	synt	any
	field	cn_tl_field
	line	558
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	559
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	560
	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
	line	564
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	567
	colm	3
	synt	if
	mark0
	pnull
	var	11
	line	567
	colm	6
	synt	any
	null
	unmark
	var	12
	line	567
	colm	60
	synt	any
	invoke	0
	line	567
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	568
	colm	3
	synt	if
	mark0
	pnull
	var	13
	line	568
	colm	6
	synt	any
	null
	unmark
	var	14
	line	568
	colm	38
	synt	any
	invoke	0
	line	568
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	11
	line	569
	colm	25
	synt	any
	field	Node
	var	13
	line	569
	colm	31
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	570
	colm	3
	synt	if
	mark0
	pnull
	var	15
	line	570
	colm	6
	synt	any
	null
	unmark
	var	16
	line	570
	colm	46
	synt	any
	invoke	0
	line	570
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	11
	line	571
	colm	25
	synt	any
	field	ConsNode
	var	15
	line	571
	colm	35
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	9
	var	17
	line	573
	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	573
	colm	33
	synt	any
	invoke	11
	line	573
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	9
	line	574
	colm	7
	synt	any
	field	__s
	var	9
	line	574
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	9
	line	575
	colm	7
	synt	any
	field	__m
	line	575
	colm	11
	synt	any
	field	initially
	var	9
	line	575
	colm	21
	synt	any
	invoke	1
	line	575
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	575
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	9
	line	576
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	577
	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_initially
	local	4,000000,ConsNode_cons_dump
	declend
	line	579
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	line	580
	colm	61
	synt	any
	invoke	3
	line	580
	colm	34
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	581
	colm	1
	synt	any
	pfail
	end
proc DefCharSigNode_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,000000,dump_info
	con	0,010000,10,144,143,163,137,060,040,040,040,075,040
	con	1,002000,2,40
	con	2,010000,10,144,143,163,137,061,040,040,040,075,040
	con	3,010000,10,144,143,163,137,062,040,040,040,075,040
	con	4,010000,10,144,143,163,137,063,040,040,040,075,040
	con	5,010000,18,144,143,163,145,170,143,145,160,164,151,157,156,163,040,040,040,075,040
	declend
	line	563
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	565
	colm	6
	synt	any
	field	__m
	line	565
	colm	10
	synt	any
	field	Node
	line	565
	colm	15
	synt	any
	field	dump
	var	0
	line	565
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	566
	colm	6
	synt	any
	field	__m
	line	566
	colm	10
	synt	any
	field	ConsNode
	line	566
	colm	19
	synt	any
	field	dump
	var	0
	line	566
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	pnull
	var	2
	str	0
	int	1
	line	568
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	568
	colm	61
	synt	any
	field	dcs_0
	line	568
	colm	56
	synt	any
	invoke	1
	line	568
	colm	44
	synt	any
	cat
	line	568
	colm	21
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	var	1
	pnull
	var	2
	str	2
	int	1
	line	569
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	569
	colm	61
	synt	any
	field	dcs_1
	line	569
	colm	56
	synt	any
	invoke	1
	line	569
	colm	44
	synt	any
	cat
	line	569
	colm	21
	synt	any
	invoke	1
	unmark
lab L5
	mark	L6
	var	1
	pnull
	var	2
	str	3
	int	1
	line	570
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	570
	colm	61
	synt	any
	field	dcs_2
	line	570
	colm	56
	synt	any
	invoke	1
	line	570
	colm	44
	synt	any
	cat
	line	570
	colm	21
	synt	any
	invoke	1
	unmark
lab L6
	mark	L7
	var	1
	pnull
	var	2
	str	4
	int	1
	line	571
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	571
	colm	61
	synt	any
	field	dcs_3
	line	571
	colm	56
	synt	any
	invoke	1
	line	571
	colm	44
	synt	any
	cat
	line	571
	colm	21
	synt	any
	invoke	1
	unmark
lab L7
	var	1
	pnull
	var	2
	str	5
	int	1
	line	572
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	572
	colm	69
	synt	any
	field	dcsexceptions
	line	572
	colm	64
	synt	any
	invoke	1
	line	572
	colm	52
	synt	any
	cat
	line	572
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	574
	colm	1
	synt	any
	pfail
	end
proc DefCharSigNode_initially
	local	0,001000,self
	declend
	line	576
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	577
	colm	6
	synt	any
	field	__m
	line	577
	colm	10
	synt	any
	field	Node
	line	577
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	577
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	577
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	577
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	577
	colm	72
	synt	any
	field	post_num
	line	577
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	578
	colm	6
	synt	any
	field	__m
	line	578
	colm	10
	synt	any
	field	ConsNode
	line	578
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	578
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	578
	colm	57
	synt	any
	field	cn_tl_field
	line	578
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	579
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	580
	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
	line	584
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	587
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	587
	colm	6
	synt	any
	null
	unmark
	var	15
	line	587
	colm	58
	synt	any
	invoke	0
	line	587
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	588
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	588
	colm	6
	synt	any
	null
	unmark
	var	17
	line	588
	colm	38
	synt	any
	invoke	0
	line	588
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	14
	line	589
	colm	24
	synt	any
	field	Node
	var	16
	line	589
	colm	30
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	590
	colm	3
	synt	if
	mark0
	pnull
	var	18
	line	590
	colm	6
	synt	any
	null
	unmark
	var	19
	line	590
	colm	46
	synt	any
	invoke	0
	line	590
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	14
	line	591
	colm	24
	synt	any
	field	ConsNode
	var	18
	line	591
	colm	34
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	12
	var	20
	line	593
	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	593
	colm	32
	synt	any
	invoke	14
	line	593
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	12
	line	594
	colm	7
	synt	any
	field	__s
	var	12
	line	594
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	12
	line	595
	colm	7
	synt	any
	field	__m
	line	595
	colm	11
	synt	any
	field	initially
	var	12
	line	595
	colm	21
	synt	any
	invoke	1
	line	595
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	595
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	12
	line	596
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	597
	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_initially
	local	4,000000,ConsNode_cons_dump
	declend
	line	599
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	line	600
	colm	59
	synt	any
	invoke	3
	line	600
	colm	33
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	601
	colm	1
	synt	any
	pfail
	end
proc SignatureSigNode_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,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,40
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	declend
	line	584
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	586
	colm	6
	synt	any
	field	__m
	line	586
	colm	10
	synt	any
	field	Node
	line	586
	colm	15
	synt	any
	field	dump
	var	0
	line	586
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	587
	colm	6
	synt	any
	field	__m
	line	587
	colm	10
	synt	any
	field	ConsNode
	line	587
	colm	19
	synt	any
	field	dump
	var	0
	line	587
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	pnull
	var	2
	str	0
	int	1
	line	589
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	589
	colm	65
	synt	any
	field	signature
	line	589
	colm	60
	synt	any
	invoke	1
	line	589
	colm	48
	synt	any
	cat
	line	589
	colm	21
	synt	any
	invoke	1
	unmark
lab L4
	var	1
	pnull
	var	2
	str	2
	int	1
	line	590
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	590
	colm	64
	synt	any
	field	sig_done
	line	590
	colm	59
	synt	any
	invoke	1
	line	590
	colm	47
	synt	any
	cat
	line	590
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	592
	colm	1
	synt	any
	pfail
	end
proc SignatureSigNode_initially
	local	0,001000,self
	declend
	line	594
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	595
	colm	6
	synt	any
	field	__m
	line	595
	colm	10
	synt	any
	field	Node
	line	595
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	595
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	595
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	595
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	595
	colm	72
	synt	any
	field	post_num
	line	595
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	596
	colm	6
	synt	any
	field	__m
	line	596
	colm	10
	synt	any
	field	ConsNode
	line	596
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	596
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	596
	colm	57
	synt	any
	field	cn_tl_field
	line	596
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	597
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	598
	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
	line	602
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	605
	colm	3
	synt	if
	mark0
	pnull
	var	11
	line	605
	colm	6
	synt	any
	null
	unmark
	var	12
	line	605
	colm	62
	synt	any
	invoke	0
	line	605
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	606
	colm	3
	synt	if
	mark0
	pnull
	var	13
	line	606
	colm	6
	synt	any
	null
	unmark
	var	14
	line	606
	colm	38
	synt	any
	invoke	0
	line	606
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	11
	line	607
	colm	26
	synt	any
	field	Node
	var	13
	line	607
	colm	32
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	608
	colm	3
	synt	if
	mark0
	pnull
	var	15
	line	608
	colm	6
	synt	any
	null
	unmark
	var	16
	line	608
	colm	46
	synt	any
	invoke	0
	line	608
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	11
	line	609
	colm	26
	synt	any
	field	ConsNode
	var	15
	line	609
	colm	36
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	9
	var	17
	line	611
	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	611
	colm	34
	synt	any
	invoke	11
	line	611
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	9
	line	612
	colm	7
	synt	any
	field	__s
	var	9
	line	612
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	9
	line	613
	colm	7
	synt	any
	field	__m
	line	613
	colm	11
	synt	any
	field	initially
	var	9
	line	613
	colm	21
	synt	any
	invoke	1
	line	613
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	613
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	9
	line	614
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	615
	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_initially
	local	4,000000,ConsNode_cons_dump
	declend
	line	617
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	line	618
	colm	63
	synt	any
	invoke	3
	line	618
	colm	35
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	619
	colm	1
	synt	any
	pfail
	end
proc BlDenotationNode_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,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,40
	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
	declend
	line	601
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	603
	colm	6
	synt	any
	field	__m
	line	603
	colm	10
	synt	any
	field	Node
	line	603
	colm	15
	synt	any
	field	dump
	var	0
	line	603
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	604
	colm	6
	synt	any
	field	__m
	line	604
	colm	10
	synt	any
	field	ConsNode
	line	604
	colm	19
	synt	any
	field	dump
	var	0
	line	604
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	pnull
	var	2
	str	0
	int	1
	line	606
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	606
	colm	65
	synt	any
	field	signature
	line	606
	colm	60
	synt	any
	invoke	1
	line	606
	colm	48
	synt	any
	cat
	line	606
	colm	21
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	var	1
	pnull
	var	2
	str	2
	int	1
	line	607
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	607
	colm	64
	synt	any
	field	sig_done
	line	607
	colm	59
	synt	any
	invoke	1
	line	607
	colm	47
	synt	any
	cat
	line	607
	colm	21
	synt	any
	invoke	1
	unmark
lab L5
	mark	L6
	var	1
	pnull
	var	2
	str	3
	int	1
	line	608
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	608
	colm	63
	synt	any
	field	ar_size
	line	608
	colm	58
	synt	any
	invoke	1
	line	608
	colm	46
	synt	any
	cat
	line	608
	colm	21
	synt	any
	invoke	1
	unmark
lab L6
	mark	L7
	var	1
	pnull
	var	2
	str	4
	int	1
	line	609
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	609
	colm	70
	synt	any
	field	ar_static_link
	line	609
	colm	65
	synt	any
	invoke	1
	line	609
	colm	53
	synt	any
	cat
	line	609
	colm	21
	synt	any
	invoke	1
	unmark
lab L7
	mark	L8
	var	1
	pnull
	var	2
	str	5
	int	1
	line	610
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	610
	colm	71
	synt	any
	field	ar_static_level
	line	610
	colm	66
	synt	any
	invoke	1
	line	610
	colm	54
	synt	any
	cat
	line	610
	colm	21
	synt	any
	invoke	1
	unmark
lab L8
	mark	L9
	var	1
	pnull
	var	2
	str	6
	int	1
	line	611
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	611
	colm	76
	synt	any
	field	bld_declaration_list
	line	611
	colm	71
	synt	any
	invoke	1
	line	611
	colm	59
	synt	any
	cat
	line	611
	colm	21
	synt	any
	invoke	1
	unmark
lab L9
	mark	L10
	var	1
	pnull
	var	2
	str	7
	int	1
	line	612
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	612
	colm	67
	synt	any
	field	bld_den_seq
	line	612
	colm	62
	synt	any
	invoke	1
	line	612
	colm	50
	synt	any
	cat
	line	612
	colm	21
	synt	any
	invoke	1
	unmark
lab L10
	mark	L11
	var	1
	pnull
	var	2
	str	8
	int	1
	line	613
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	613
	colm	70
	synt	any
	field	bld_precedence
	line	613
	colm	65
	synt	any
	invoke	1
	line	613
	colm	53
	synt	any
	cat
	line	613
	colm	21
	synt	any
	invoke	1
	unmark
lab L11
	var	1
	pnull
	var	2
	str	9
	int	1
	line	614
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	614
	colm	65
	synt	any
	field	bld_flags
	line	614
	colm	60
	synt	any
	invoke	1
	line	614
	colm	48
	synt	any
	cat
	line	614
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	616
	colm	1
	synt	any
	pfail
	end
proc BlDenotationNode_initially
	local	0,001000,self
	declend
	line	617
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	618
	colm	6
	synt	any
	field	__m
	line	618
	colm	10
	synt	any
	field	Node
	line	618
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	618
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	618
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	618
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	618
	colm	72
	synt	any
	field	post_num
	line	618
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	619
	colm	6
	synt	any
	field	__m
	line	619
	colm	10
	synt	any
	field	ConsNode
	line	619
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	619
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	619
	colm	57
	synt	any
	field	cn_tl_field
	line	619
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	620
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	621
	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,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,BlDenotationNode__oprec
	local	19,000000,BlDenotationNodeinitialize
	local	20,000000,Node__oprec
	local	21,000000,Nodeinitialize
	local	22,000000,ConsNode__oprec
	local	23,000000,ConsNodeinitialize
	local	24,000000,BlDenotationNode__state
	declend
	line	625
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	628
	colm	3
	synt	if
	mark0
	pnull
	var	18
	line	628
	colm	6
	synt	any
	null
	unmark
	var	19
	line	628
	colm	62
	synt	any
	invoke	0
	line	628
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	629
	colm	3
	synt	if
	mark0
	pnull
	var	20
	line	629
	colm	6
	synt	any
	null
	unmark
	var	21
	line	629
	colm	38
	synt	any
	invoke	0
	line	629
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	18
	line	630
	colm	26
	synt	any
	field	Node
	var	20
	line	630
	colm	32
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	631
	colm	3
	synt	if
	mark0
	pnull
	var	22
	line	631
	colm	6
	synt	any
	null
	unmark
	var	23
	line	631
	colm	46
	synt	any
	invoke	0
	line	631
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	18
	line	632
	colm	26
	synt	any
	field	ConsNode
	var	22
	line	632
	colm	36
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	16
	var	24
	line	634
	colm	35
	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	634
	colm	34
	synt	any
	invoke	18
	line	634
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	16
	line	635
	colm	7
	synt	any
	field	__s
	var	16
	line	635
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	16
	line	636
	colm	7
	synt	any
	field	__m
	line	636
	colm	11
	synt	any
	field	initially
	var	16
	line	636
	colm	21
	synt	any
	invoke	1
	line	636
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	636
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	16
	line	637
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	638
	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_initially
	local	4,000000,ConsNode_cons_dump
	declend
	line	640
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	line	641
	colm	63
	synt	any
	invoke	3
	line	641
	colm	35
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	642
	colm	1
	synt	any
	pfail
	end
proc UseListNode_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,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,40
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,18,165,163,154,137,164,171,160,145,137,154,151,163,164,040,040,040,075,040
	con	4,010000,16,165,163,154,137,144,145,156,137,163,145,161,040,040,040,075,040
	con	5,010000,22,165,163,154,137,160,162,145,166,151,157,165,163,137,154,151,163,164,040,040,040,075,040
	con	6,010000,19,165,163,154,137,160,162,145,143,145,144,145,156,143,145,040,040,040,075,040
	declend
	line	624
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	626
	colm	6
	synt	any
	field	__m
	line	626
	colm	10
	synt	any
	field	Node
	line	626
	colm	15
	synt	any
	field	dump
	var	0
	line	626
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	627
	colm	6
	synt	any
	field	__m
	line	627
	colm	10
	synt	any
	field	ConsNode
	line	627
	colm	19
	synt	any
	field	dump
	var	0
	line	627
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	pnull
	var	2
	str	0
	int	1
	line	628
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	628
	colm	65
	synt	any
	field	signature
	line	628
	colm	60
	synt	any
	invoke	1
	line	628
	colm	48
	synt	any
	cat
	line	628
	colm	21
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	var	1
	pnull
	var	2
	str	2
	int	1
	line	629
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	629
	colm	64
	synt	any
	field	sig_done
	line	629
	colm	59
	synt	any
	invoke	1
	line	629
	colm	47
	synt	any
	cat
	line	629
	colm	21
	synt	any
	invoke	1
	unmark
lab L5
	mark	L6
	var	1
	pnull
	var	2
	str	3
	int	1
	line	630
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	630
	colm	69
	synt	any
	field	usl_type_list
	line	630
	colm	64
	synt	any
	invoke	1
	line	630
	colm	52
	synt	any
	cat
	line	630
	colm	21
	synt	any
	invoke	1
	unmark
lab L6
	mark	L7
	var	1
	pnull
	var	2
	str	4
	int	1
	line	631
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	631
	colm	67
	synt	any
	field	usl_den_seq
	line	631
	colm	62
	synt	any
	invoke	1
	line	631
	colm	50
	synt	any
	cat
	line	631
	colm	21
	synt	any
	invoke	1
	unmark
lab L7
	mark	L8
	var	1
	pnull
	var	2
	str	5
	int	1
	line	632
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	632
	colm	73
	synt	any
	field	usl_previous_list
	line	632
	colm	68
	synt	any
	invoke	1
	line	632
	colm	56
	synt	any
	cat
	line	632
	colm	21
	synt	any
	invoke	1
	unmark
lab L8
	var	1
	pnull
	var	2
	str	6
	int	1
	line	633
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	633
	colm	70
	synt	any
	field	usl_precedence
	line	633
	colm	65
	synt	any
	invoke	1
	line	633
	colm	53
	synt	any
	cat
	line	633
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	635
	colm	1
	synt	any
	pfail
	end
proc UseListNode_initially
	local	0,001000,self
	declend
	line	636
	colm	11
	synt	any
	mark	L1
	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	initially
	var	0
	pnull
	var	0
	line	637
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	637
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	637
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	637
	colm	72
	synt	any
	field	post_num
	line	637
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	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	initially
	var	0
	pnull
	var	0
	line	638
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	638
	colm	57
	synt	any
	field	cn_tl_field
	line	638
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	639
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	640
	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
	line	644
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	647
	colm	3
	synt	if
	mark0
	pnull
	var	15
	line	647
	colm	6
	synt	any
	null
	unmark
	var	16
	line	647
	colm	52
	synt	any
	invoke	0
	line	647
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	648
	colm	3
	synt	if
	mark0
	pnull
	var	17
	line	648
	colm	6
	synt	any
	null
	unmark
	var	18
	line	648
	colm	38
	synt	any
	invoke	0
	line	648
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	15
	line	649
	colm	21
	synt	any
	field	Node
	var	17
	line	649
	colm	27
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	650
	colm	3
	synt	if
	mark0
	pnull
	var	19
	line	650
	colm	6
	synt	any
	null
	unmark
	var	20
	line	650
	colm	46
	synt	any
	invoke	0
	line	650
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	15
	line	651
	colm	21
	synt	any
	field	ConsNode
	var	19
	line	651
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	13
	var	21
	line	653
	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	653
	colm	29
	synt	any
	invoke	15
	line	653
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	13
	line	654
	colm	7
	synt	any
	field	__s
	var	13
	line	654
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	13
	line	655
	colm	7
	synt	any
	field	__m
	line	655
	colm	11
	synt	any
	field	initially
	var	13
	line	655
	colm	21
	synt	any
	invoke	1
	line	655
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	655
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	13
	line	656
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	657
	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_initially
	local	4,000000,ConsNode_cons_dump
	declend
	line	659
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	line	660
	colm	53
	synt	any
	invoke	3
	line	660
	colm	30
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	661
	colm	1
	synt	any
	pfail
	end
proc ApplicationNode_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,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,40
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,16,141,160,137,157,160,145,162,141,164,157,162,040,040,040,075,040
	con	4,010000,12,141,160,137,141,162,147,163,040,040,040,075,040
	con	5,010000,17,141,160,137,166,157,151,144,137,144,145,143,154,040,040,040,075,040
	declend
	line	643
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	645
	colm	6
	synt	any
	field	__m
	line	645
	colm	10
	synt	any
	field	Node
	line	645
	colm	15
	synt	any
	field	dump
	var	0
	line	645
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	646
	colm	6
	synt	any
	field	__m
	line	646
	colm	10
	synt	any
	field	ConsNode
	line	646
	colm	19
	synt	any
	field	dump
	var	0
	line	646
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	pnull
	var	2
	str	0
	int	1
	line	647
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	647
	colm	65
	synt	any
	field	signature
	line	647
	colm	60
	synt	any
	invoke	1
	line	647
	colm	48
	synt	any
	cat
	line	647
	colm	21
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	var	1
	pnull
	var	2
	str	2
	int	1
	line	648
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	648
	colm	64
	synt	any
	field	sig_done
	line	648
	colm	59
	synt	any
	invoke	1
	line	648
	colm	47
	synt	any
	cat
	line	648
	colm	21
	synt	any
	invoke	1
	unmark
lab L5
	mark	L6
	var	1
	pnull
	var	2
	str	3
	int	1
	line	649
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	649
	colm	67
	synt	any
	field	ap_operator
	line	649
	colm	62
	synt	any
	invoke	1
	line	649
	colm	50
	synt	any
	cat
	line	649
	colm	21
	synt	any
	invoke	1
	unmark
lab L6
	mark	L7
	var	1
	pnull
	var	2
	str	4
	int	1
	line	650
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	650
	colm	63
	synt	any
	field	ap_args
	line	650
	colm	58
	synt	any
	invoke	1
	line	650
	colm	46
	synt	any
	cat
	line	650
	colm	21
	synt	any
	invoke	1
	unmark
lab L7
	var	1
	pnull
	var	2
	str	5
	int	1
	line	651
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	651
	colm	68
	synt	any
	field	ap_void_decl
	line	651
	colm	63
	synt	any
	invoke	1
	line	651
	colm	51
	synt	any
	cat
	line	651
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	653
	colm	1
	synt	any
	pfail
	end
proc ApplicationNode_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 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
	line	663
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	666
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	666
	colm	6
	synt	any
	null
	unmark
	var	15
	line	666
	colm	60
	synt	any
	invoke	0
	line	666
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	667
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	667
	colm	6
	synt	any
	null
	unmark
	var	17
	line	667
	colm	38
	synt	any
	invoke	0
	line	667
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	14
	line	668
	colm	25
	synt	any
	field	Node
	var	16
	line	668
	colm	31
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	669
	colm	3
	synt	if
	mark0
	pnull
	var	18
	line	669
	colm	6
	synt	any
	null
	unmark
	var	19
	line	669
	colm	46
	synt	any
	invoke	0
	line	669
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	14
	line	670
	colm	25
	synt	any
	field	ConsNode
	var	18
	line	670
	colm	35
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	12
	var	20
	line	672
	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	672
	colm	33
	synt	any
	invoke	14
	line	672
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	12
	line	673
	colm	7
	synt	any
	field	__s
	var	12
	line	673
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	12
	line	674
	colm	7
	synt	any
	field	__m
	line	674
	colm	11
	synt	any
	field	initially
	var	12
	line	674
	colm	21
	synt	any
	invoke	1
	line	674
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	674
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	12
	line	675
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	676
	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_initially
	local	4,000000,ConsNode_cons_dump
	declend
	line	678
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	line	679
	colm	61
	synt	any
	invoke	3
	line	679
	colm	34
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	680
	colm	1
	synt	any
	pfail
	end
proc EnumerationNode_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,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,40
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,17,145,156,165,155,137,151,144,137,154,151,163,164,040,040,040,075,040
	declend
	line	663
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	665
	colm	6
	synt	any
	field	__m
	line	665
	colm	10
	synt	any
	field	Node
	line	665
	colm	15
	synt	any
	field	dump
	var	0
	line	665
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	666
	colm	6
	synt	any
	field	__m
	line	666
	colm	10
	synt	any
	field	ConsNode
	line	666
	colm	19
	synt	any
	field	dump
	var	0
	line	666
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	pnull
	var	2
	str	0
	int	1
	line	667
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	667
	colm	65
	synt	any
	field	signature
	line	667
	colm	60
	synt	any
	invoke	1
	line	667
	colm	48
	synt	any
	cat
	line	667
	colm	21
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	var	1
	pnull
	var	2
	str	2
	int	1
	line	668
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	668
	colm	64
	synt	any
	field	sig_done
	line	668
	colm	59
	synt	any
	invoke	1
	line	668
	colm	47
	synt	any
	cat
	line	668
	colm	21
	synt	any
	invoke	1
	unmark
lab L5
	var	1
	pnull
	var	2
	str	3
	int	1
	line	669
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	669
	colm	68
	synt	any
	field	enum_id_list
	line	669
	colm	63
	synt	any
	invoke	1
	line	669
	colm	51
	synt	any
	cat
	line	669
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	671
	colm	1
	synt	any
	pfail
	end
proc EnumerationNode_initially
	local	0,001000,self
	declend
	line	672
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	673
	colm	6
	synt	any
	field	__m
	line	673
	colm	10
	synt	any
	field	Node
	line	673
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	673
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	673
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	673
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	673
	colm	72
	synt	any
	field	post_num
	line	673
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	674
	colm	6
	synt	any
	field	__m
	line	674
	colm	10
	synt	any
	field	ConsNode
	line	674
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	674
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	674
	colm	57
	synt	any
	field	cn_tl_field
	line	674
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	675
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	676
	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
	line	680
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	683
	colm	3
	synt	if
	mark0
	pnull
	var	12
	line	683
	colm	6
	synt	any
	null
	unmark
	var	13
	line	683
	colm	60
	synt	any
	invoke	0
	line	683
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	684
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	684
	colm	6
	synt	any
	null
	unmark
	var	15
	line	684
	colm	38
	synt	any
	invoke	0
	line	684
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	12
	line	685
	colm	25
	synt	any
	field	Node
	var	14
	line	685
	colm	31
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	686
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	686
	colm	6
	synt	any
	null
	unmark
	var	17
	line	686
	colm	46
	synt	any
	invoke	0
	line	686
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	12
	line	687
	colm	25
	synt	any
	field	ConsNode
	var	16
	line	687
	colm	35
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	10
	var	18
	line	689
	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	689
	colm	33
	synt	any
	invoke	12
	line	689
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	10
	line	690
	colm	7
	synt	any
	field	__s
	var	10
	line	690
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	10
	line	691
	colm	7
	synt	any
	field	__m
	line	691
	colm	11
	synt	any
	field	initially
	var	10
	line	691
	colm	21
	synt	any
	invoke	1
	line	691
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	691
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	10
	line	692
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	693
	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_initially
	local	4,000000,ConsNode_cons_dump
	declend
	line	695
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	line	696
	colm	61
	synt	any
	invoke	3
	line	696
	colm	34
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	697
	colm	1
	synt	any
	pfail
	end
proc ExtensionNode_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,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,40
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,19,145,170,164,137,144,145,156,157,164,141,164,151,157,156,040,040,040,075,040
	con	4,010000,13,111,156,137,151,156,144,145,170,040,040,040,075,040
	con	5,010000,14,117,165,164,137,151,156,144,145,170,040,040,040,075,040
	declend
	line	680
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	682
	colm	6
	synt	any
	field	__m
	line	682
	colm	10
	synt	any
	field	Node
	line	682
	colm	15
	synt	any
	field	dump
	var	0
	line	682
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	683
	colm	6
	synt	any
	field	__m
	line	683
	colm	10
	synt	any
	field	ConsNode
	line	683
	colm	19
	synt	any
	field	dump
	var	0
	line	683
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	pnull
	var	2
	str	0
	int	1
	line	684
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	684
	colm	65
	synt	any
	field	signature
	line	684
	colm	60
	synt	any
	invoke	1
	line	684
	colm	48
	synt	any
	cat
	line	684
	colm	21
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	var	1
	pnull
	var	2
	str	2
	int	1
	line	685
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	685
	colm	64
	synt	any
	field	sig_done
	line	685
	colm	59
	synt	any
	invoke	1
	line	685
	colm	47
	synt	any
	cat
	line	685
	colm	21
	synt	any
	invoke	1
	unmark
lab L5
	mark	L6
	var	1
	pnull
	var	2
	str	3
	int	1
	line	686
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	686
	colm	70
	synt	any
	field	ext_denotation
	line	686
	colm	65
	synt	any
	invoke	1
	line	686
	colm	53
	synt	any
	cat
	line	686
	colm	21
	synt	any
	invoke	1
	unmark
lab L6
	mark	L7
	var	1
	pnull
	var	2
	str	4
	int	1
	line	687
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	687
	colm	64
	synt	any
	field	In_index
	line	687
	colm	59
	synt	any
	invoke	1
	line	687
	colm	47
	synt	any
	cat
	line	687
	colm	21
	synt	any
	invoke	1
	unmark
lab L7
	var	1
	pnull
	var	2
	str	5
	int	1
	line	688
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	688
	colm	65
	synt	any
	field	Out_index
	line	688
	colm	60
	synt	any
	invoke	1
	line	688
	colm	48
	synt	any
	cat
	line	688
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	690
	colm	1
	synt	any
	pfail
	end
proc ExtensionNode_initially
	local	0,001000,self
	declend
	line	691
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	692
	colm	6
	synt	any
	field	__m
	line	692
	colm	10
	synt	any
	field	Node
	line	692
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	692
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	692
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	692
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	692
	colm	72
	synt	any
	field	post_num
	line	692
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	693
	colm	6
	synt	any
	field	__m
	line	693
	colm	10
	synt	any
	field	ConsNode
	line	693
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	693
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	693
	colm	57
	synt	any
	field	cn_tl_field
	line	693
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	694
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	695
	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
	line	699
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	702
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	702
	colm	6
	synt	any
	null
	unmark
	var	15
	line	702
	colm	56
	synt	any
	invoke	0
	line	702
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	703
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	703
	colm	6
	synt	any
	null
	unmark
	var	17
	line	703
	colm	38
	synt	any
	invoke	0
	line	703
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	14
	line	704
	colm	23
	synt	any
	field	Node
	var	16
	line	704
	colm	29
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	705
	colm	3
	synt	if
	mark0
	pnull
	var	18
	line	705
	colm	6
	synt	any
	null
	unmark
	var	19
	line	705
	colm	46
	synt	any
	invoke	0
	line	705
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	14
	line	706
	colm	23
	synt	any
	field	ConsNode
	var	18
	line	706
	colm	33
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	12
	var	20
	line	708
	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	708
	colm	31
	synt	any
	invoke	14
	line	708
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	12
	line	709
	colm	7
	synt	any
	field	__s
	var	12
	line	709
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	12
	line	710
	colm	7
	synt	any
	field	__m
	line	710
	colm	11
	synt	any
	field	initially
	var	12
	line	710
	colm	21
	synt	any
	invoke	1
	line	710
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	710
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	12
	line	711
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	712
	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_initially
	local	4,000000,ConsNode_cons_dump
	declend
	line	714
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	line	715
	colm	57
	synt	any
	invoke	3
	line	715
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	716
	colm	1
	synt	any
	pfail
	end
proc ProductNode_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,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,40
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,23,160,162,157,144,137,154,157,143,141,154,137,164,171,160,145,137,151,144,040,040,040,075,040
	con	4,010000,20,160,162,157,144,137,143,157,155,160,157,156,145,156,164,163,040,040,040,075,040
	con	5,010000,29,160,162,157,144,137,160,162,145,166,151,157,165,163,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	declend
	line	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
	line	701
	colm	20
	synt	any
	invoke	1
	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
	line	702
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	pnull
	var	2
	str	0
	int	1
	line	703
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	703
	colm	65
	synt	any
	field	signature
	line	703
	colm	60
	synt	any
	invoke	1
	line	703
	colm	48
	synt	any
	cat
	line	703
	colm	21
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	var	1
	pnull
	var	2
	str	2
	int	1
	line	704
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	704
	colm	64
	synt	any
	field	sig_done
	line	704
	colm	59
	synt	any
	invoke	1
	line	704
	colm	47
	synt	any
	cat
	line	704
	colm	21
	synt	any
	invoke	1
	unmark
lab L5
	mark	L6
	var	1
	pnull
	var	2
	str	3
	int	1
	line	705
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	705
	colm	74
	synt	any
	field	prod_local_type_id
	line	705
	colm	69
	synt	any
	invoke	1
	line	705
	colm	57
	synt	any
	cat
	line	705
	colm	21
	synt	any
	invoke	1
	unmark
lab L6
	mark	L7
	var	1
	pnull
	var	2
	str	4
	int	1
	line	706
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	706
	colm	71
	synt	any
	field	prod_components
	line	706
	colm	66
	synt	any
	invoke	1
	line	706
	colm	54
	synt	any
	cat
	line	706
	colm	21
	synt	any
	invoke	1
	unmark
lab L7
	var	1
	pnull
	var	2
	str	5
	int	1
	line	707
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	707
	colm	80
	synt	any
	field	prod_previous_definition
	line	707
	colm	75
	synt	any
	invoke	1
	line	707
	colm	63
	synt	any
	cat
	line	707
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	709
	colm	1
	synt	any
	pfail
	end
proc ProductNode_initially
	local	0,001000,self
	declend
	line	710
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	711
	colm	6
	synt	any
	field	__m
	line	711
	colm	10
	synt	any
	field	Node
	line	711
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	711
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	711
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	711
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	711
	colm	72
	synt	any
	field	post_num
	line	711
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	712
	colm	6
	synt	any
	field	__m
	line	712
	colm	10
	synt	any
	field	ConsNode
	line	712
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	712
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	712
	colm	57
	synt	any
	field	cn_tl_field
	line	712
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	713
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	714
	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
	line	718
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	721
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	721
	colm	6
	synt	any
	null
	unmark
	var	15
	line	721
	colm	52
	synt	any
	invoke	0
	line	721
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	722
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	722
	colm	6
	synt	any
	null
	unmark
	var	17
	line	722
	colm	38
	synt	any
	invoke	0
	line	722
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	14
	line	723
	colm	21
	synt	any
	field	Node
	var	16
	line	723
	colm	27
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	724
	colm	3
	synt	if
	mark0
	pnull
	var	18
	line	724
	colm	6
	synt	any
	null
	unmark
	var	19
	line	724
	colm	46
	synt	any
	invoke	0
	line	724
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	14
	line	725
	colm	21
	synt	any
	field	ConsNode
	var	18
	line	725
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	12
	var	20
	line	727
	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	727
	colm	29
	synt	any
	invoke	14
	line	727
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	12
	line	728
	colm	7
	synt	any
	field	__s
	var	12
	line	728
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	12
	line	729
	colm	7
	synt	any
	field	__m
	line	729
	colm	11
	synt	any
	field	initially
	var	12
	line	729
	colm	21
	synt	any
	invoke	1
	line	729
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	729
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	12
	line	730
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	731
	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_initially
	local	4,000000,ConsNode_cons_dump
	declend
	line	733
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	line	734
	colm	53
	synt	any
	invoke	3
	line	734
	colm	30
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	735
	colm	1
	synt	any
	pfail
	end
proc RecordConstructionNode_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,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,40
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,23,162,145,143,137,143,157,155,160,157,156,145,156,164,137,154,151,163,164,040,040,040,075,040
	con	4,010000,28,162,145,143,137,160,162,145,166,151,157,165,163,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	declend
	line	718
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	720
	colm	6
	synt	any
	field	__m
	line	720
	colm	10
	synt	any
	field	Node
	line	720
	colm	15
	synt	any
	field	dump
	var	0
	line	720
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	721
	colm	6
	synt	any
	field	__m
	line	721
	colm	10
	synt	any
	field	ConsNode
	line	721
	colm	19
	synt	any
	field	dump
	var	0
	line	721
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	pnull
	var	2
	str	0
	int	1
	line	722
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	722
	colm	65
	synt	any
	field	signature
	line	722
	colm	60
	synt	any
	invoke	1
	line	722
	colm	48
	synt	any
	cat
	line	722
	colm	21
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	var	1
	pnull
	var	2
	str	2
	int	1
	line	723
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	723
	colm	64
	synt	any
	field	sig_done
	line	723
	colm	59
	synt	any
	invoke	1
	line	723
	colm	47
	synt	any
	cat
	line	723
	colm	21
	synt	any
	invoke	1
	unmark
lab L5
	mark	L6
	var	1
	pnull
	var	2
	str	3
	int	1
	line	724
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	724
	colm	74
	synt	any
	field	rec_component_list
	line	724
	colm	69
	synt	any
	invoke	1
	line	724
	colm	57
	synt	any
	cat
	line	724
	colm	21
	synt	any
	invoke	1
	unmark
lab L6
	var	1
	pnull
	var	2
	str	4
	int	1
	line	725
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	725
	colm	79
	synt	any
	field	rec_previous_definition
	line	725
	colm	74
	synt	any
	invoke	1
	line	725
	colm	62
	synt	any
	cat
	line	725
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	727
	colm	1
	synt	any
	pfail
	end
proc RecordConstructionNode_initially
	local	0,001000,self
	declend
	line	729
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	730
	colm	6
	synt	any
	field	__m
	line	730
	colm	10
	synt	any
	field	Node
	line	730
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	730
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	730
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	730
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	730
	colm	72
	synt	any
	field	post_num
	line	730
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	731
	colm	6
	synt	any
	field	__m
	line	731
	colm	10
	synt	any
	field	ConsNode
	line	731
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	731
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	731
	colm	57
	synt	any
	field	cn_tl_field
	line	731
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	732
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	733
	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
	line	737
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	740
	colm	3
	synt	if
	mark0
	pnull
	var	13
	line	740
	colm	6
	synt	any
	null
	unmark
	var	14
	line	740
	colm	74
	synt	any
	invoke	0
	line	740
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	741
	colm	3
	synt	if
	mark0
	pnull
	var	15
	line	741
	colm	6
	synt	any
	null
	unmark
	var	16
	line	741
	colm	38
	synt	any
	invoke	0
	line	741
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	13
	line	742
	colm	32
	synt	any
	field	Node
	var	15
	line	742
	colm	38
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	743
	colm	3
	synt	if
	mark0
	pnull
	var	17
	line	743
	colm	6
	synt	any
	null
	unmark
	var	18
	line	743
	colm	46
	synt	any
	invoke	0
	line	743
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	13
	line	744
	colm	32
	synt	any
	field	ConsNode
	var	17
	line	744
	colm	42
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	11
	var	19
	line	746
	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	746
	colm	40
	synt	any
	invoke	13
	line	746
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	11
	line	747
	colm	7
	synt	any
	field	__s
	var	11
	line	747
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	11
	line	748
	colm	7
	synt	any
	field	__m
	line	748
	colm	11
	synt	any
	field	initially
	var	11
	line	748
	colm	21
	synt	any
	invoke	1
	line	748
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	748
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	11
	line	749
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	750
	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_initially
	local	4,000000,ConsNode_cons_dump
	declend
	line	752
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	line	753
	colm	75
	synt	any
	invoke	3
	line	753
	colm	41
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	754
	colm	1
	synt	any
	pfail
	end
proc UnionConstructionNode_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,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,40
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,23,160,162,157,144,137,154,157,143,141,154,137,164,171,160,145,137,151,144,040,040,040,075,040
	con	4,010000,20,160,162,157,144,137,143,157,155,160,157,156,145,156,164,163,040,040,040,075,040
	con	5,010000,29,160,162,157,144,137,160,162,145,166,151,157,165,163,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	declend
	line	736
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	738
	colm	6
	synt	any
	field	__m
	line	738
	colm	10
	synt	any
	field	Node
	line	738
	colm	15
	synt	any
	field	dump
	var	0
	line	738
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	739
	colm	6
	synt	any
	field	__m
	line	739
	colm	10
	synt	any
	field	ConsNode
	line	739
	colm	19
	synt	any
	field	dump
	var	0
	line	739
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	pnull
	var	2
	str	0
	int	1
	line	740
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	740
	colm	65
	synt	any
	field	signature
	line	740
	colm	60
	synt	any
	invoke	1
	line	740
	colm	48
	synt	any
	cat
	line	740
	colm	21
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	var	1
	pnull
	var	2
	str	2
	int	1
	line	741
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	741
	colm	64
	synt	any
	field	sig_done
	line	741
	colm	59
	synt	any
	invoke	1
	line	741
	colm	47
	synt	any
	cat
	line	741
	colm	21
	synt	any
	invoke	1
	unmark
lab L5
	mark	L6
	var	1
	pnull
	var	2
	str	3
	int	1
	line	742
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	742
	colm	74
	synt	any
	field	prod_local_type_id
	line	742
	colm	69
	synt	any
	invoke	1
	line	742
	colm	57
	synt	any
	cat
	line	742
	colm	21
	synt	any
	invoke	1
	unmark
lab L6
	mark	L7
	var	1
	pnull
	var	2
	str	4
	int	1
	line	743
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	743
	colm	71
	synt	any
	field	prod_components
	line	743
	colm	66
	synt	any
	invoke	1
	line	743
	colm	54
	synt	any
	cat
	line	743
	colm	21
	synt	any
	invoke	1
	unmark
lab L7
	var	1
	pnull
	var	2
	str	5
	int	1
	line	744
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	744
	colm	80
	synt	any
	field	prod_previous_definition
	line	744
	colm	75
	synt	any
	invoke	1
	line	744
	colm	63
	synt	any
	cat
	line	744
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	746
	colm	1
	synt	any
	pfail
	end
proc UnionConstructionNode_initially
	local	0,001000,self
	declend
	line	747
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	748
	colm	6
	synt	any
	field	__m
	line	748
	colm	10
	synt	any
	field	Node
	line	748
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	748
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	748
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	748
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	748
	colm	72
	synt	any
	field	post_num
	line	748
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	749
	colm	6
	synt	any
	field	__m
	line	749
	colm	10
	synt	any
	field	ConsNode
	line	749
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	749
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	749
	colm	57
	synt	any
	field	cn_tl_field
	line	749
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	750
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	751
	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
	line	755
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	758
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	758
	colm	6
	synt	any
	null
	unmark
	var	15
	line	758
	colm	72
	synt	any
	invoke	0
	line	758
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	759
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	759
	colm	6
	synt	any
	null
	unmark
	var	17
	line	759
	colm	38
	synt	any
	invoke	0
	line	759
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	14
	line	760
	colm	31
	synt	any
	field	Node
	var	16
	line	760
	colm	37
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	761
	colm	3
	synt	if
	mark0
	pnull
	var	18
	line	761
	colm	6
	synt	any
	null
	unmark
	var	19
	line	761
	colm	46
	synt	any
	invoke	0
	line	761
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	14
	line	762
	colm	31
	synt	any
	field	ConsNode
	var	18
	line	762
	colm	41
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	12
	var	20
	line	764
	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	764
	colm	39
	synt	any
	invoke	14
	line	764
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	12
	line	765
	colm	7
	synt	any
	field	__s
	var	12
	line	765
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	12
	line	766
	colm	7
	synt	any
	field	__m
	line	766
	colm	11
	synt	any
	field	initially
	var	12
	line	766
	colm	21
	synt	any
	invoke	1
	line	766
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	766
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	12
	line	767
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	768
	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_initially
	local	4,000000,ConsNode_cons_dump
	declend
	line	770
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	line	771
	colm	73
	synt	any
	invoke	3
	line	771
	colm	40
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	772
	colm	1
	synt	any
	pfail
	end
proc WithListNode_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,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,40
	con	2,010000,22,167,154,137,143,157,155,160,157,156,145,156,164,137,154,151,163,164,040,040,040,075,040
	con	3,010000,27,167,154,137,160,162,145,166,151,157,165,163,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	declend
	line	755
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	758
	colm	6
	synt	any
	field	__m
	line	758
	colm	10
	synt	any
	field	Node
	line	758
	colm	15
	synt	any
	field	dump
	var	0
	line	758
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	759
	colm	6
	synt	any
	field	__m
	line	759
	colm	10
	synt	any
	field	ConsNode
	line	759
	colm	19
	synt	any
	field	dump
	var	0
	line	759
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	pnull
	var	2
	str	0
	int	1
	line	760
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	760
	colm	72
	synt	any
	field	wl_local_type_id
	line	760
	colm	67
	synt	any
	invoke	1
	line	760
	colm	55
	synt	any
	cat
	line	760
	colm	21
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	var	1
	pnull
	var	2
	str	2
	int	1
	line	761
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	761
	colm	73
	synt	any
	field	wl_component_list
	line	761
	colm	68
	synt	any
	invoke	1
	line	761
	colm	56
	synt	any
	cat
	line	761
	colm	21
	synt	any
	invoke	1
	unmark
lab L5
	var	1
	pnull
	var	2
	str	3
	int	1
	line	762
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	762
	colm	78
	synt	any
	field	wl_previous_definition
	line	762
	colm	73
	synt	any
	invoke	1
	line	762
	colm	61
	synt	any
	cat
	line	762
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	764
	colm	1
	synt	any
	pfail
	end
proc WithListNode_initially
	local	0,001000,self
	declend
	line	765
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	766
	colm	6
	synt	any
	field	__m
	line	766
	colm	10
	synt	any
	field	Node
	line	766
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	766
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	766
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	766
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	766
	colm	72
	synt	any
	field	post_num
	line	766
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	767
	colm	6
	synt	any
	field	__m
	line	767
	colm	10
	synt	any
	field	ConsNode
	line	767
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	767
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	767
	colm	57
	synt	any
	field	cn_tl_field
	line	767
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	768
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	769
	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
	line	773
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	776
	colm	3
	synt	if
	mark0
	pnull
	var	12
	line	776
	colm	6
	synt	any
	null
	unmark
	var	13
	line	776
	colm	54
	synt	any
	invoke	0
	line	776
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	777
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	777
	colm	6
	synt	any
	null
	unmark
	var	15
	line	777
	colm	38
	synt	any
	invoke	0
	line	777
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	12
	line	778
	colm	22
	synt	any
	field	Node
	var	14
	line	778
	colm	28
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	779
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	779
	colm	6
	synt	any
	null
	unmark
	var	17
	line	779
	colm	46
	synt	any
	invoke	0
	line	779
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	12
	line	780
	colm	22
	synt	any
	field	ConsNode
	var	16
	line	780
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	10
	var	18
	line	782
	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	782
	colm	30
	synt	any
	invoke	12
	line	782
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	10
	line	783
	colm	7
	synt	any
	field	__s
	var	10
	line	783
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	10
	line	784
	colm	7
	synt	any
	field	__m
	line	784
	colm	11
	synt	any
	field	initially
	var	10
	line	784
	colm	21
	synt	any
	invoke	1
	line	784
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	784
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	10
	line	785
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	786
	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_initially
	local	4,000000,ConsNode_cons_dump
	declend
	line	788
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	line	789
	colm	55
	synt	any
	invoke	3
	line	789
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	790
	colm	1
	synt	any
	pfail
	end
proc ModPrimaryNode_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,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,40
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,17,144,151,163,160,154,141,143,145,155,145,156,164,040,040,040,075,040
	con	4,010000,10,154,145,166,145,154,040,040,040,075,040
	con	5,010000,15,155,160,137,160,162,151,155,141,162,171,040,040,040,075,040
	con	6,010000,21,155,160,137,164,171,160,145,137,155,157,144,151,146,151,145,162,040,040,040,075,040
	con	7,010000,16,155,160,137,144,145,154,145,164,145,137,166,040,040,040,075,040
	con	8,010000,19,155,160,137,157,162,151,147,137,154,145,156,147,164,150,040,040,040,075,040
	con	9,010000,14,155,160,137,156,145,145,144,145,144,040,040,040,075,040
	con	10,010000,20,155,160,137,156,157,137,163,165,162,162,137,154,157,157,160,040,040,040,075,040
	declend
	line	772
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	774
	colm	6
	synt	any
	field	__m
	line	774
	colm	10
	synt	any
	field	Node
	line	774
	colm	15
	synt	any
	field	dump
	var	0
	line	774
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	775
	colm	6
	synt	any
	field	__m
	line	775
	colm	10
	synt	any
	field	ConsNode
	line	775
	colm	19
	synt	any
	field	dump
	var	0
	line	775
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	pnull
	var	2
	str	0
	int	1
	line	776
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	776
	colm	65
	synt	any
	field	signature
	line	776
	colm	60
	synt	any
	invoke	1
	line	776
	colm	48
	synt	any
	cat
	line	776
	colm	21
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	var	1
	pnull
	var	2
	str	2
	int	1
	line	777
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	777
	colm	64
	synt	any
	field	sig_done
	line	777
	colm	59
	synt	any
	invoke	1
	line	777
	colm	47
	synt	any
	cat
	line	777
	colm	21
	synt	any
	invoke	1
	unmark
lab L5
	mark	L6
	var	1
	pnull
	var	2
	str	3
	int	1
	line	778
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	778
	colm	68
	synt	any
	field	displacement
	line	778
	colm	63
	synt	any
	invoke	1
	line	778
	colm	51
	synt	any
	cat
	line	778
	colm	21
	synt	any
	invoke	1
	unmark
lab L6
	mark	L7
	var	1
	pnull
	var	2
	str	4
	int	1
	line	779
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	779
	colm	61
	synt	any
	field	level
	line	779
	colm	56
	synt	any
	invoke	1
	line	779
	colm	44
	synt	any
	cat
	line	779
	colm	21
	synt	any
	invoke	1
	unmark
lab L7
	mark	L8
	var	1
	pnull
	var	2
	str	5
	int	1
	line	780
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	780
	colm	66
	synt	any
	field	mp_primary
	line	780
	colm	61
	synt	any
	invoke	1
	line	780
	colm	49
	synt	any
	cat
	line	780
	colm	21
	synt	any
	invoke	1
	unmark
lab L8
	mark	L9
	var	1
	pnull
	var	2
	str	6
	int	1
	line	781
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	781
	colm	72
	synt	any
	field	mp_type_modifier
	line	781
	colm	67
	synt	any
	invoke	1
	line	781
	colm	55
	synt	any
	cat
	line	781
	colm	21
	synt	any
	invoke	1
	unmark
lab L9
	mark	L10
	var	1
	pnull
	var	2
	str	7
	int	1
	line	782
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	782
	colm	67
	synt	any
	field	mp_delete_v
	line	782
	colm	62
	synt	any
	invoke	1
	line	782
	colm	50
	synt	any
	cat
	line	782
	colm	21
	synt	any
	invoke	1
	unmark
lab L10
	mark	L11
	var	1
	pnull
	var	2
	str	8
	int	1
	line	783
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	783
	colm	70
	synt	any
	field	mp_orig_length
	line	783
	colm	65
	synt	any
	invoke	1
	line	783
	colm	53
	synt	any
	cat
	line	783
	colm	21
	synt	any
	invoke	1
	unmark
lab L11
	mark	L12
	var	1
	pnull
	var	2
	str	9
	int	1
	line	784
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	784
	colm	65
	synt	any
	field	mp_needed
	line	784
	colm	60
	synt	any
	invoke	1
	line	784
	colm	48
	synt	any
	cat
	line	784
	colm	21
	synt	any
	invoke	1
	unmark
lab L12
	var	1
	pnull
	var	2
	str	10
	int	1
	line	785
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	785
	colm	71
	synt	any
	field	mp_no_surr_loop
	line	785
	colm	66
	synt	any
	invoke	1
	line	785
	colm	54
	synt	any
	cat
	line	785
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	787
	colm	1
	synt	any
	pfail
	end
proc ModPrimaryNode_initially
	local	0,001000,self
	declend
	line	789
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	790
	colm	6
	synt	any
	field	__m
	line	790
	colm	10
	synt	any
	field	Node
	line	790
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	790
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	790
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	790
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	790
	colm	72
	synt	any
	field	post_num
	line	790
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	791
	colm	6
	synt	any
	field	__m
	line	791
	colm	10
	synt	any
	field	ConsNode
	line	791
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	791
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	791
	colm	57
	synt	any
	field	cn_tl_field
	line	791
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	792
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	793
	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
	line	797
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	800
	colm	3
	synt	if
	mark0
	pnull
	var	19
	line	800
	colm	6
	synt	any
	null
	unmark
	var	20
	line	800
	colm	58
	synt	any
	invoke	0
	line	800
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	801
	colm	3
	synt	if
	mark0
	pnull
	var	21
	line	801
	colm	6
	synt	any
	null
	unmark
	var	22
	line	801
	colm	38
	synt	any
	invoke	0
	line	801
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	19
	line	802
	colm	24
	synt	any
	field	Node
	var	21
	line	802
	colm	30
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	803
	colm	3
	synt	if
	mark0
	pnull
	var	23
	line	803
	colm	6
	synt	any
	null
	unmark
	var	24
	line	803
	colm	46
	synt	any
	invoke	0
	line	803
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	19
	line	804
	colm	24
	synt	any
	field	ConsNode
	var	23
	line	804
	colm	34
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	17
	var	25
	line	806
	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	806
	colm	32
	synt	any
	invoke	19
	line	806
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	17
	line	807
	colm	7
	synt	any
	field	__s
	var	17
	line	807
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	17
	line	808
	colm	7
	synt	any
	field	__m
	line	808
	colm	11
	synt	any
	field	initially
	var	17
	line	808
	colm	21
	synt	any
	invoke	1
	line	808
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	808
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	17
	line	809
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	810
	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_initially
	local	4,000000,ConsNode_cons_dump
	declend
	line	812
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	line	813
	colm	59
	synt	any
	invoke	3
	line	813
	colm	33
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	814
	colm	1
	synt	any
	pfail
	end
proc ExportListNode_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,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,40
	con	2,010000,27,145,154,137,145,170,160,157,162,164,137,145,154,145,155,145,156,164,137,154,151,163,164,040,040,040,075,040
	con	3,010000,27,145,154,137,160,162,145,166,151,157,165,163,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	declend
	line	796
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	798
	colm	6
	synt	any
	field	__m
	line	798
	colm	10
	synt	any
	field	Node
	line	798
	colm	15
	synt	any
	field	dump
	var	0
	line	798
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	799
	colm	6
	synt	any
	field	__m
	line	799
	colm	10
	synt	any
	field	ConsNode
	line	799
	colm	19
	synt	any
	field	dump
	var	0
	line	799
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	pnull
	var	2
	str	0
	int	1
	line	800
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	800
	colm	72
	synt	any
	field	el_local_type_id
	line	800
	colm	67
	synt	any
	invoke	1
	line	800
	colm	55
	synt	any
	cat
	line	800
	colm	21
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	var	1
	pnull
	var	2
	str	2
	int	1
	line	801
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	801
	colm	78
	synt	any
	field	el_export_element_list
	line	801
	colm	73
	synt	any
	invoke	1
	line	801
	colm	61
	synt	any
	cat
	line	801
	colm	21
	synt	any
	invoke	1
	unmark
lab L5
	var	1
	pnull
	var	2
	str	3
	int	1
	line	802
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	802
	colm	78
	synt	any
	field	el_previous_definition
	line	802
	colm	73
	synt	any
	invoke	1
	line	802
	colm	61
	synt	any
	cat
	line	802
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	804
	colm	1
	synt	any
	pfail
	end
proc ExportListNode_initially
	local	0,001000,self
	declend
	line	806
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	807
	colm	6
	synt	any
	field	__m
	line	807
	colm	10
	synt	any
	field	Node
	line	807
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	807
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	807
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	807
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	807
	colm	72
	synt	any
	field	post_num
	line	807
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	808
	colm	6
	synt	any
	field	__m
	line	808
	colm	10
	synt	any
	field	ConsNode
	line	808
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	808
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	808
	colm	57
	synt	any
	field	cn_tl_field
	line	808
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	809
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	810
	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
	line	814
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	817
	colm	3
	synt	if
	mark0
	pnull
	var	12
	line	817
	colm	6
	synt	any
	null
	unmark
	var	13
	line	817
	colm	58
	synt	any
	invoke	0
	line	817
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	818
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	818
	colm	6
	synt	any
	null
	unmark
	var	15
	line	818
	colm	38
	synt	any
	invoke	0
	line	818
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	12
	line	819
	colm	24
	synt	any
	field	Node
	var	14
	line	819
	colm	30
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	820
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	820
	colm	6
	synt	any
	null
	unmark
	var	17
	line	820
	colm	46
	synt	any
	invoke	0
	line	820
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	12
	line	821
	colm	24
	synt	any
	field	ConsNode
	var	16
	line	821
	colm	34
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	10
	var	18
	line	823
	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	823
	colm	32
	synt	any
	invoke	12
	line	823
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	10
	line	824
	colm	7
	synt	any
	field	__s
	var	10
	line	824
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	10
	line	825
	colm	7
	synt	any
	field	__m
	line	825
	colm	11
	synt	any
	field	initially
	var	10
	line	825
	colm	21
	synt	any
	invoke	1
	line	825
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	825
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	10
	line	826
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	827
	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_initially
	local	4,000000,ConsNode_cons_dump
	declend
	line	829
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	line	830
	colm	59
	synt	any
	invoke	3
	line	830
	colm	33
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	831
	colm	1
	synt	any
	pfail
	end
proc HideListNode_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,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,40
	con	2,010000,27,145,154,137,145,170,160,157,162,164,137,145,154,145,155,145,156,164,137,154,151,163,164,040,040,040,075,040
	con	3,010000,27,145,154,137,160,162,145,166,151,157,165,163,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	declend
	line	811
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	813
	colm	6
	synt	any
	field	__m
	line	813
	colm	10
	synt	any
	field	Node
	line	813
	colm	15
	synt	any
	field	dump
	var	0
	line	813
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	814
	colm	6
	synt	any
	field	__m
	line	814
	colm	10
	synt	any
	field	ConsNode
	line	814
	colm	19
	synt	any
	field	dump
	var	0
	line	814
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	pnull
	var	2
	str	0
	int	1
	line	815
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	815
	colm	72
	synt	any
	field	el_local_type_id
	line	815
	colm	67
	synt	any
	invoke	1
	line	815
	colm	55
	synt	any
	cat
	line	815
	colm	21
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	var	1
	pnull
	var	2
	str	2
	int	1
	line	816
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	816
	colm	78
	synt	any
	field	el_export_element_list
	line	816
	colm	73
	synt	any
	invoke	1
	line	816
	colm	61
	synt	any
	cat
	line	816
	colm	21
	synt	any
	invoke	1
	unmark
lab L5
	var	1
	pnull
	var	2
	str	3
	int	1
	line	817
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	817
	colm	78
	synt	any
	field	el_previous_definition
	line	817
	colm	73
	synt	any
	invoke	1
	line	817
	colm	61
	synt	any
	cat
	line	817
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	819
	colm	1
	synt	any
	pfail
	end
proc HideListNode_initially
	local	0,001000,self
	declend
	line	820
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	821
	colm	6
	synt	any
	field	__m
	line	821
	colm	10
	synt	any
	field	Node
	line	821
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	821
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	821
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	821
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	821
	colm	72
	synt	any
	field	post_num
	line	821
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	822
	colm	6
	synt	any
	field	__m
	line	822
	colm	10
	synt	any
	field	ConsNode
	line	822
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	822
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	822
	colm	57
	synt	any
	field	cn_tl_field
	line	822
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	823
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	824
	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
	line	828
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	831
	colm	3
	synt	if
	mark0
	pnull
	var	12
	line	831
	colm	6
	synt	any
	null
	unmark
	var	13
	line	831
	colm	54
	synt	any
	invoke	0
	line	831
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	832
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	832
	colm	6
	synt	any
	null
	unmark
	var	15
	line	832
	colm	38
	synt	any
	invoke	0
	line	832
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	12
	line	833
	colm	22
	synt	any
	field	Node
	var	14
	line	833
	colm	28
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	834
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	834
	colm	6
	synt	any
	null
	unmark
	var	17
	line	834
	colm	46
	synt	any
	invoke	0
	line	834
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	12
	line	835
	colm	22
	synt	any
	field	ConsNode
	var	16
	line	835
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	10
	var	18
	line	837
	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	837
	colm	30
	synt	any
	invoke	12
	line	837
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	10
	line	838
	colm	7
	synt	any
	field	__s
	var	10
	line	838
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	10
	line	839
	colm	7
	synt	any
	field	__m
	line	839
	colm	11
	synt	any
	field	initially
	var	10
	line	839
	colm	21
	synt	any
	invoke	1
	line	839
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	839
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	10
	line	840
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	841
	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_initially
	local	4,000000,ConsNode_cons_dump
	declend
	line	843
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	line	844
	colm	55
	synt	any
	invoke	3
	line	844
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	845
	colm	1
	synt	any
	pfail
	end
proc ExportElementNode_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,000000,dump_info
	con	0,010000,10,145,145,137,151,144,040,040,040,075,040
	con	1,002000,2,40
	con	2,010000,17,145,145,137,163,151,147,156,141,164,165,162,145,040,040,040,075,040
	con	3,010000,19,145,145,137,145,170,160,157,162,164,137,154,151,163,164,040,040,040,075,040
	declend
	line	828
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	830
	colm	6
	synt	any
	field	__m
	line	830
	colm	10
	synt	any
	field	Node
	line	830
	colm	15
	synt	any
	field	dump
	var	0
	line	830
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	831
	colm	6
	synt	any
	field	__m
	line	831
	colm	10
	synt	any
	field	ConsNode
	line	831
	colm	19
	synt	any
	field	dump
	var	0
	line	831
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	pnull
	var	2
	str	0
	int	1
	line	832
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	832
	colm	61
	synt	any
	field	ee_id
	line	832
	colm	56
	synt	any
	invoke	1
	line	832
	colm	44
	synt	any
	cat
	line	832
	colm	21
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	var	1
	pnull
	var	2
	str	2
	int	1
	line	833
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	833
	colm	68
	synt	any
	field	ee_signature
	line	833
	colm	63
	synt	any
	invoke	1
	line	833
	colm	51
	synt	any
	cat
	line	833
	colm	21
	synt	any
	invoke	1
	unmark
lab L5
	var	1
	pnull
	var	2
	str	3
	int	1
	line	834
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	834
	colm	70
	synt	any
	field	ee_export_list
	line	834
	colm	65
	synt	any
	invoke	1
	line	834
	colm	53
	synt	any
	cat
	line	834
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	836
	colm	1
	synt	any
	pfail
	end
proc ExportElementNode_initially
	local	0,001000,self
	declend
	line	838
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	839
	colm	6
	synt	any
	field	__m
	line	839
	colm	10
	synt	any
	field	Node
	line	839
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	839
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	839
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	839
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	839
	colm	72
	synt	any
	field	post_num
	line	839
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	840
	colm	6
	synt	any
	field	__m
	line	840
	colm	10
	synt	any
	field	ConsNode
	line	840
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	840
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	840
	colm	57
	synt	any
	field	cn_tl_field
	line	840
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	841
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	842
	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
	line	846
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	849
	colm	3
	synt	if
	mark0
	pnull
	var	12
	line	849
	colm	6
	synt	any
	null
	unmark
	var	13
	line	849
	colm	64
	synt	any
	invoke	0
	line	849
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	850
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	850
	colm	6
	synt	any
	null
	unmark
	var	15
	line	850
	colm	38
	synt	any
	invoke	0
	line	850
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	12
	line	851
	colm	27
	synt	any
	field	Node
	var	14
	line	851
	colm	33
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	852
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	852
	colm	6
	synt	any
	null
	unmark
	var	17
	line	852
	colm	46
	synt	any
	invoke	0
	line	852
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	12
	line	853
	colm	27
	synt	any
	field	ConsNode
	var	16
	line	853
	colm	37
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	10
	var	18
	line	855
	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	855
	colm	35
	synt	any
	invoke	12
	line	855
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	10
	line	856
	colm	7
	synt	any
	field	__s
	var	10
	line	856
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	10
	line	857
	colm	7
	synt	any
	field	__m
	line	857
	colm	11
	synt	any
	field	initially
	var	10
	line	857
	colm	21
	synt	any
	invoke	1
	line	857
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	857
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	10
	line	858
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	859
	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_initially
	local	4,000000,ConsNode_cons_dump
	declend
	line	861
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	line	862
	colm	65
	synt	any
	invoke	3
	line	862
	colm	36
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	863
	colm	1
	synt	any
	pfail
	end
proc AllConstantsNode_dump
	local	0,001000,self
	declend
	line	845
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	847
	colm	6
	synt	any
	field	__m
	line	847
	colm	10
	synt	any
	field	Node
	line	847
	colm	15
	synt	any
	field	dump
	var	0
	line	847
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	pnull
	pnull
	pnull
	var	0
	line	848
	colm	6
	synt	any
	field	__m
	line	848
	colm	10
	synt	any
	field	ConsNode
	line	848
	colm	19
	synt	any
	field	dump
	var	0
	line	848
	colm	24
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	850
	colm	1
	synt	any
	pfail
	end
proc AllConstantsNode_initially
	local	0,001000,self
	declend
	line	851
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	852
	colm	6
	synt	any
	field	__m
	line	852
	colm	10
	synt	any
	field	Node
	line	852
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	852
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	852
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	852
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	852
	colm	72
	synt	any
	field	post_num
	line	852
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	853
	colm	6
	synt	any
	field	__m
	line	853
	colm	10
	synt	any
	field	ConsNode
	line	853
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	853
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	853
	colm	57
	synt	any
	field	cn_tl_field
	line	853
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	854
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	855
	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
	line	859
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	line	862
	colm	3
	synt	if
	mark0
	pnull
	var	8
	line	862
	colm	6
	synt	any
	null
	unmark
	var	9
	line	862
	colm	62
	synt	any
	invoke	0
	line	862
	colm	3
	synt	endif
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	pnull
	var	6
	var	10
	line	864
	colm	35
	synt	any
	keywd	null
	var	8
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	line	864
	colm	34
	synt	any
	invoke	8
	line	864
	colm	8
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	6
	line	865
	colm	7
	synt	any
	field	__s
	var	6
	line	865
	colm	12
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	mark	L7
	pnull
	pnull
	var	6
	line	866
	colm	7
	synt	any
	field	__m
	line	866
	colm	11
	synt	any
	field	initially
	var	6
	line	866
	colm	21
	synt	any
	invoke	1
	line	866
	colm	28
	synt	any
	esusp
	goto	L8
lab L7
	line	866
	colm	30
	synt	any
	pfail
lab L8
	unmark
lab L6
	mark	L9
	mark	L10
	var	6
	line	867
	colm	3
	synt	any
	pret
lab L10
	synt	any
	pfail
	unmark
lab L9
	pnull
	line	868
	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_initially
	declend
	line	870
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	line	871
	colm	63
	synt	any
	invoke	2
	line	871
	colm	35
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	872
	colm	1
	synt	any
	pfail
	end
proc WordElseNode_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,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,40
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	declend
	line	858
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	860
	colm	6
	synt	any
	field	__m
	line	860
	colm	10
	synt	any
	field	Node
	line	860
	colm	15
	synt	any
	field	dump
	var	0
	line	860
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	861
	colm	6
	synt	any
	field	__m
	line	861
	colm	10
	synt	any
	field	ConsNode
	line	861
	colm	19
	synt	any
	field	dump
	var	0
	line	861
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	pnull
	var	2
	str	0
	int	1
	line	862
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	862
	colm	65
	synt	any
	field	signature
	line	862
	colm	60
	synt	any
	invoke	1
	line	862
	colm	48
	synt	any
	cat
	line	862
	colm	21
	synt	any
	invoke	1
	unmark
lab L4
	var	1
	pnull
	var	2
	str	2
	int	1
	line	863
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	863
	colm	64
	synt	any
	field	sig_done
	line	863
	colm	59
	synt	any
	invoke	1
	line	863
	colm	47
	synt	any
	cat
	line	863
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	865
	colm	1
	synt	any
	pfail
	end
proc WordElseNode_initially
	local	0,001000,self
	declend
	line	867
	colm	11
	synt	any
	mark	L1
	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	initially
	var	0
	pnull
	var	0
	line	868
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	868
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	868
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	868
	colm	72
	synt	any
	field	post_num
	line	868
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	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	initially
	var	0
	pnull
	var	0
	line	869
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	869
	colm	57
	synt	any
	field	cn_tl_field
	line	869
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	870
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	871
	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
	line	875
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	878
	colm	3
	synt	if
	mark0
	pnull
	var	11
	line	878
	colm	6
	synt	any
	null
	unmark
	var	12
	line	878
	colm	54
	synt	any
	invoke	0
	line	878
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	879
	colm	3
	synt	if
	mark0
	pnull
	var	13
	line	879
	colm	6
	synt	any
	null
	unmark
	var	14
	line	879
	colm	38
	synt	any
	invoke	0
	line	879
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	11
	line	880
	colm	22
	synt	any
	field	Node
	var	13
	line	880
	colm	28
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	881
	colm	3
	synt	if
	mark0
	pnull
	var	15
	line	881
	colm	6
	synt	any
	null
	unmark
	var	16
	line	881
	colm	46
	synt	any
	invoke	0
	line	881
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	11
	line	882
	colm	22
	synt	any
	field	ConsNode
	var	15
	line	882
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	9
	var	17
	line	884
	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	884
	colm	30
	synt	any
	invoke	11
	line	884
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	9
	line	885
	colm	7
	synt	any
	field	__s
	var	9
	line	885
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	9
	line	886
	colm	7
	synt	any
	field	__m
	line	886
	colm	11
	synt	any
	field	initially
	var	9
	line	886
	colm	21
	synt	any
	invoke	1
	line	886
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	886
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	9
	line	887
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	888
	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_initially
	local	4,000000,ConsNode_cons_dump
	declend
	line	890
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	line	891
	colm	55
	synt	any
	invoke	3
	line	891
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	892
	colm	1
	synt	any
	pfail
	end
proc WordCandNode_dumo
	local	0,001000,self
	declend
	line	874
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	876
	colm	6
	synt	any
	field	__m
	line	876
	colm	10
	synt	any
	field	Node
	line	876
	colm	15
	synt	any
	field	dump
	var	0
	line	876
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	pnull
	pnull
	pnull
	var	0
	line	877
	colm	6
	synt	any
	field	__m
	line	877
	colm	10
	synt	any
	field	ConsNode
	line	877
	colm	19
	synt	any
	field	dump
	var	0
	line	877
	colm	24
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	879
	colm	1
	synt	any
	pfail
	end
proc WordCandNode_initially
	local	0,001000,self
	declend
	line	881
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	882
	colm	6
	synt	any
	field	__m
	line	882
	colm	10
	synt	any
	field	Node
	line	882
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	882
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	882
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	882
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	882
	colm	72
	synt	any
	field	post_num
	line	882
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	883
	colm	6
	synt	any
	field	__m
	line	883
	colm	10
	synt	any
	field	ConsNode
	line	883
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	883
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	883
	colm	57
	synt	any
	field	cn_tl_field
	line	883
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	884
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	885
	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
	line	889
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	892
	colm	3
	synt	if
	mark0
	pnull
	var	9
	line	892
	colm	6
	synt	any
	null
	unmark
	var	10
	line	892
	colm	54
	synt	any
	invoke	0
	line	892
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	893
	colm	3
	synt	if
	mark0
	pnull
	var	11
	line	893
	colm	6
	synt	any
	null
	unmark
	var	12
	line	893
	colm	38
	synt	any
	invoke	0
	line	893
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	9
	line	894
	colm	22
	synt	any
	field	Node
	var	11
	line	894
	colm	28
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	895
	colm	3
	synt	if
	mark0
	pnull
	var	13
	line	895
	colm	6
	synt	any
	null
	unmark
	var	14
	line	895
	colm	46
	synt	any
	invoke	0
	line	895
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	9
	line	896
	colm	22
	synt	any
	field	ConsNode
	var	13
	line	896
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	7
	var	15
	line	898
	colm	31
	synt	any
	keywd	null
	var	9
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	898
	colm	30
	synt	any
	invoke	9
	line	898
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	7
	line	899
	colm	7
	synt	any
	field	__s
	var	7
	line	899
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	7
	line	900
	colm	7
	synt	any
	field	__m
	line	900
	colm	11
	synt	any
	field	initially
	var	7
	line	900
	colm	21
	synt	any
	invoke	1
	line	900
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	900
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	7
	line	901
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	902
	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_initially
	local	4,000000,Node_dump
	local	5,000000,ConsNode_cons_dump
	declend
	line	904
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	line	905
	colm	55
	synt	any
	invoke	4
	line	905
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	906
	colm	1
	synt	any
	pfail
	end
proc WordCorNode_dump
	local	0,001000,self
	declend
	line	888
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	890
	colm	6
	synt	any
	field	__m
	line	890
	colm	10
	synt	any
	field	Node
	line	890
	colm	15
	synt	any
	field	dump
	var	0
	line	890
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	pnull
	pnull
	pnull
	var	0
	line	891
	colm	6
	synt	any
	field	__m
	line	891
	colm	10
	synt	any
	field	ConsNode
	line	891
	colm	19
	synt	any
	field	dump
	var	0
	line	891
	colm	24
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	893
	colm	1
	synt	any
	pfail
	end
proc WordCorNode_initially
	local	0,001000,self
	declend
	line	894
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	895
	colm	6
	synt	any
	field	__m
	line	895
	colm	10
	synt	any
	field	Node
	line	895
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	895
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	895
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	895
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	895
	colm	72
	synt	any
	field	post_num
	line	895
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	896
	colm	6
	synt	any
	field	__m
	line	896
	colm	10
	synt	any
	field	ConsNode
	line	896
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	896
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	896
	colm	57
	synt	any
	field	cn_tl_field
	line	896
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	897
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	898
	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
	line	902
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	905
	colm	3
	synt	if
	mark0
	pnull
	var	9
	line	905
	colm	6
	synt	any
	null
	unmark
	var	10
	line	905
	colm	52
	synt	any
	invoke	0
	line	905
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	906
	colm	3
	synt	if
	mark0
	pnull
	var	11
	line	906
	colm	6
	synt	any
	null
	unmark
	var	12
	line	906
	colm	38
	synt	any
	invoke	0
	line	906
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	9
	line	907
	colm	21
	synt	any
	field	Node
	var	11
	line	907
	colm	27
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	908
	colm	3
	synt	if
	mark0
	pnull
	var	13
	line	908
	colm	6
	synt	any
	null
	unmark
	var	14
	line	908
	colm	46
	synt	any
	invoke	0
	line	908
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	9
	line	909
	colm	21
	synt	any
	field	ConsNode
	var	13
	line	909
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	7
	var	15
	line	911
	colm	30
	synt	any
	keywd	null
	var	9
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	911
	colm	29
	synt	any
	invoke	9
	line	911
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	7
	line	912
	colm	7
	synt	any
	field	__s
	var	7
	line	912
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	7
	line	913
	colm	7
	synt	any
	field	__m
	line	913
	colm	11
	synt	any
	field	initially
	var	7
	line	913
	colm	21
	synt	any
	invoke	1
	line	913
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	913
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	7
	line	914
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	915
	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_initially
	local	4,000000,ConsNode_cons_dump
	declend
	line	917
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	line	918
	colm	53
	synt	any
	invoke	3
	line	918
	colm	30
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	919
	colm	1
	synt	any
	pfail
	end
proc GuardedListNode_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,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,40
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,12,147,154,137,154,151,163,164,040,040,040,075,040
	declend
	line	901
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	903
	colm	6
	synt	any
	field	__m
	line	903
	colm	10
	synt	any
	field	Node
	line	903
	colm	15
	synt	any
	field	dump
	var	0
	line	903
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	904
	colm	6
	synt	any
	field	__m
	line	904
	colm	10
	synt	any
	field	ConsNode
	line	904
	colm	19
	synt	any
	field	dump
	var	0
	line	904
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	pnull
	var	2
	str	0
	int	1
	line	905
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	905
	colm	65
	synt	any
	field	signature
	line	905
	colm	60
	synt	any
	invoke	1
	line	905
	colm	48
	synt	any
	cat
	line	905
	colm	21
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	var	1
	pnull
	var	2
	str	2
	int	1
	line	906
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	906
	colm	64
	synt	any
	field	sig_done
	line	906
	colm	59
	synt	any
	invoke	1
	line	906
	colm	47
	synt	any
	cat
	line	906
	colm	21
	synt	any
	invoke	1
	unmark
lab L5
	var	1
	pnull
	var	2
	str	3
	int	1
	line	907
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	907
	colm	63
	synt	any
	field	gl_list
	line	907
	colm	58
	synt	any
	invoke	1
	line	907
	colm	46
	synt	any
	cat
	line	907
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	909
	colm	1
	synt	any
	pfail
	end
proc GuardedListNode_initially
	local	0,001000,self
	declend
	line	910
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	911
	colm	6
	synt	any
	field	__m
	line	911
	colm	10
	synt	any
	field	Node
	line	911
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	911
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	911
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	911
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	911
	colm	72
	synt	any
	field	post_num
	line	911
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	912
	colm	6
	synt	any
	field	__m
	line	912
	colm	10
	synt	any
	field	ConsNode
	line	912
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	912
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	912
	colm	57
	synt	any
	field	cn_tl_field
	line	912
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	913
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	914
	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
	line	918
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	921
	colm	3
	synt	if
	mark0
	pnull
	var	12
	line	921
	colm	6
	synt	any
	null
	unmark
	var	13
	line	921
	colm	60
	synt	any
	invoke	0
	line	921
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	922
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	922
	colm	6
	synt	any
	null
	unmark
	var	15
	line	922
	colm	38
	synt	any
	invoke	0
	line	922
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	12
	line	923
	colm	25
	synt	any
	field	Node
	var	14
	line	923
	colm	31
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	924
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	924
	colm	6
	synt	any
	null
	unmark
	var	17
	line	924
	colm	46
	synt	any
	invoke	0
	line	924
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	12
	line	925
	colm	25
	synt	any
	field	ConsNode
	var	16
	line	925
	colm	35
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	10
	var	18
	line	927
	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	927
	colm	33
	synt	any
	invoke	12
	line	927
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	10
	line	928
	colm	7
	synt	any
	field	__s
	var	10
	line	928
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	10
	line	929
	colm	7
	synt	any
	field	__m
	line	929
	colm	11
	synt	any
	field	initially
	var	10
	line	929
	colm	21
	synt	any
	invoke	1
	line	929
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	929
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	10
	line	930
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	931
	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_initially
	local	4,000000,ConsNode_cons_dump
	declend
	line	933
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	line	934
	colm	61
	synt	any
	invoke	3
	line	934
	colm	34
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	935
	colm	1
	synt	any
	pfail
	end
proc LoopDenotationNode_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,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,40
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,12,147,154,137,154,151,163,164,040,040,040,075,040
	declend
	line	917
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	919
	colm	6
	synt	any
	field	__m
	line	919
	colm	10
	synt	any
	field	Node
	line	919
	colm	15
	synt	any
	field	dump
	var	0
	line	919
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	920
	colm	6
	synt	any
	field	__m
	line	920
	colm	10
	synt	any
	field	ConsNode
	line	920
	colm	19
	synt	any
	field	dump
	var	0
	line	920
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	pnull
	var	2
	str	0
	int	1
	line	921
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	921
	colm	65
	synt	any
	field	signature
	line	921
	colm	60
	synt	any
	invoke	1
	line	921
	colm	48
	synt	any
	cat
	line	921
	colm	21
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	var	1
	pnull
	var	2
	str	2
	int	1
	line	922
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	922
	colm	64
	synt	any
	field	sig_done
	line	922
	colm	59
	synt	any
	invoke	1
	line	922
	colm	47
	synt	any
	cat
	line	922
	colm	21
	synt	any
	invoke	1
	unmark
lab L5
	var	1
	pnull
	var	2
	str	3
	int	1
	line	923
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	923
	colm	63
	synt	any
	field	gl_list
	line	923
	colm	58
	synt	any
	invoke	1
	line	923
	colm	46
	synt	any
	cat
	line	923
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	925
	colm	1
	synt	any
	pfail
	end
proc LoopDenotationNode_initially
	local	0,001000,self
	declend
	line	927
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	928
	colm	6
	synt	any
	field	__m
	line	928
	colm	10
	synt	any
	field	Node
	line	928
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	928
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	928
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	928
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	928
	colm	72
	synt	any
	field	post_num
	line	928
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	929
	colm	6
	synt	any
	field	__m
	line	929
	colm	10
	synt	any
	field	ConsNode
	line	929
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	929
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	929
	colm	57
	synt	any
	field	cn_tl_field
	line	929
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	930
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	931
	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
	line	935
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	938
	colm	3
	synt	if
	mark0
	pnull
	var	12
	line	938
	colm	6
	synt	any
	null
	unmark
	var	13
	line	938
	colm	66
	synt	any
	invoke	0
	line	938
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	939
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	939
	colm	6
	synt	any
	null
	unmark
	var	15
	line	939
	colm	38
	synt	any
	invoke	0
	line	939
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	12
	line	940
	colm	28
	synt	any
	field	Node
	var	14
	line	940
	colm	34
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	941
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	941
	colm	6
	synt	any
	null
	unmark
	var	17
	line	941
	colm	46
	synt	any
	invoke	0
	line	941
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	12
	line	942
	colm	28
	synt	any
	field	ConsNode
	var	16
	line	942
	colm	38
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	10
	var	18
	line	944
	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	944
	colm	36
	synt	any
	invoke	12
	line	944
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	10
	line	945
	colm	7
	synt	any
	field	__s
	var	10
	line	945
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	10
	line	946
	colm	7
	synt	any
	field	__m
	line	946
	colm	11
	synt	any
	field	initially
	var	10
	line	946
	colm	21
	synt	any
	invoke	1
	line	946
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	946
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	10
	line	947
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	948
	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_initially
	local	4,000000,ConsNode_cons_dump
	declend
	line	950
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	line	951
	colm	67
	synt	any
	invoke	3
	line	951
	colm	37
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	952
	colm	1
	synt	any
	pfail
	end
proc GuardedElementNode_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,000000,dump_info
	con	0,010000,13,147,145,137,147,165,141,162,144,040,040,040,075,040
	con	1,002000,2,40
	con	2,010000,15,147,145,137,145,154,145,155,145,156,164,040,040,040,075,040
	declend
	line	934
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	936
	colm	6
	synt	any
	field	__m
	line	936
	colm	10
	synt	any
	field	Node
	line	936
	colm	15
	synt	any
	field	dump
	var	0
	line	936
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	937
	colm	6
	synt	any
	field	__m
	line	937
	colm	10
	synt	any
	field	ConsNode
	line	937
	colm	19
	synt	any
	field	dump
	var	0
	line	937
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	pnull
	var	2
	str	0
	int	1
	line	938
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	938
	colm	64
	synt	any
	field	ge_guard
	line	938
	colm	59
	synt	any
	invoke	1
	line	938
	colm	47
	synt	any
	cat
	line	938
	colm	21
	synt	any
	invoke	1
	unmark
lab L4
	var	1
	pnull
	var	2
	str	2
	int	1
	line	939
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	939
	colm	66
	synt	any
	field	ge_element
	line	939
	colm	61
	synt	any
	invoke	1
	line	939
	colm	49
	synt	any
	cat
	line	939
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	941
	colm	1
	synt	any
	pfail
	end
proc GuardedElementNode_initially
	local	0,001000,self
	declend
	line	942
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	943
	colm	6
	synt	any
	field	__m
	line	943
	colm	10
	synt	any
	field	Node
	line	943
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	943
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	943
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	943
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	943
	colm	72
	synt	any
	field	post_num
	line	943
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	944
	colm	6
	synt	any
	field	__m
	line	944
	colm	10
	synt	any
	field	ConsNode
	line	944
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	944
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	944
	colm	57
	synt	any
	field	cn_tl_field
	line	944
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	945
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	946
	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
	line	950
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	953
	colm	3
	synt	if
	mark0
	pnull
	var	11
	line	953
	colm	6
	synt	any
	null
	unmark
	var	12
	line	953
	colm	66
	synt	any
	invoke	0
	line	953
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	954
	colm	3
	synt	if
	mark0
	pnull
	var	13
	line	954
	colm	6
	synt	any
	null
	unmark
	var	14
	line	954
	colm	38
	synt	any
	invoke	0
	line	954
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	11
	line	955
	colm	28
	synt	any
	field	Node
	var	13
	line	955
	colm	34
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	956
	colm	3
	synt	if
	mark0
	pnull
	var	15
	line	956
	colm	6
	synt	any
	null
	unmark
	var	16
	line	956
	colm	46
	synt	any
	invoke	0
	line	956
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	11
	line	957
	colm	28
	synt	any
	field	ConsNode
	var	15
	line	957
	colm	38
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	9
	var	17
	line	959
	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	959
	colm	36
	synt	any
	invoke	11
	line	959
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	9
	line	960
	colm	7
	synt	any
	field	__s
	var	9
	line	960
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	9
	line	961
	colm	7
	synt	any
	field	__m
	line	961
	colm	11
	synt	any
	field	initially
	var	9
	line	961
	colm	21
	synt	any
	invoke	1
	line	961
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	961
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	9
	line	962
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	963
	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_initially
	local	4,000000,ConsNode_cons_dump
	declend
	line	965
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	line	966
	colm	67
	synt	any
	invoke	3
	line	966
	colm	37
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	967
	colm	1
	synt	any
	pfail
	end
proc OpridNode_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,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,40
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,13,163,145,154,137,164,171,160,145,040,040,040,075,040
	con	4,010000,23,151,144,137,163,164,162,137,164,141,142,154,145,137,151,156,144,145,170,040,040,040,075,040
	con	5,010000,16,151,144,137,165,163,145,137,154,151,163,164,040,040,040,075,040
	con	6,010000,23,151,144,137,154,141,163,164,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	con	7,010000,17,151,144,137,144,145,146,137,146,157,165,156,144,040,040,040,075,040
	con	8,010000,14,163,145,154,137,151,156,144,145,170,040,040,040,075,040
	con	9,010000,12,151,144,137,141,160,160,154,040,040,040,075,040
	con	10,010000,19,151,144,137,146,157,162,167,141,162,144,137,162,145,146,040,040,040,075,040
	declend
	line	949
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	951
	colm	6
	synt	any
	field	__m
	line	951
	colm	10
	synt	any
	field	Node
	line	951
	colm	15
	synt	any
	field	dump
	var	0
	line	951
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	952
	colm	6
	synt	any
	field	__m
	line	952
	colm	10
	synt	any
	field	ConsNode
	line	952
	colm	19
	synt	any
	field	dump
	var	0
	line	952
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	pnull
	var	2
	str	0
	int	1
	line	953
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	953
	colm	65
	synt	any
	field	signature
	line	953
	colm	60
	synt	any
	invoke	1
	line	953
	colm	48
	synt	any
	cat
	line	953
	colm	21
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	var	1
	pnull
	var	2
	str	2
	int	1
	line	954
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	954
	colm	64
	synt	any
	field	sig_done
	line	954
	colm	59
	synt	any
	invoke	1
	line	954
	colm	47
	synt	any
	cat
	line	954
	colm	21
	synt	any
	invoke	1
	unmark
lab L5
	mark	L6
	var	1
	pnull
	var	2
	str	3
	int	1
	line	955
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	955
	colm	64
	synt	any
	field	sel_type
	line	955
	colm	59
	synt	any
	invoke	1
	line	955
	colm	47
	synt	any
	cat
	line	955
	colm	21
	synt	any
	invoke	1
	unmark
lab L6
	mark	L7
	var	1
	pnull
	var	2
	str	4
	int	1
	line	956
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	956
	colm	74
	synt	any
	field	id_str_table_index
	line	956
	colm	69
	synt	any
	invoke	1
	line	956
	colm	57
	synt	any
	cat
	line	956
	colm	21
	synt	any
	invoke	1
	unmark
lab L7
	mark	L8
	var	1
	pnull
	var	2
	str	5
	int	1
	line	957
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	957
	colm	67
	synt	any
	field	id_use_list
	line	957
	colm	62
	synt	any
	invoke	1
	line	957
	colm	50
	synt	any
	cat
	line	957
	colm	21
	synt	any
	invoke	1
	unmark
lab L8
	mark	L9
	var	1
	pnull
	var	2
	str	6
	int	1
	line	958
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	958
	colm	74
	synt	any
	field	id_last_definition
	line	958
	colm	69
	synt	any
	invoke	1
	line	958
	colm	57
	synt	any
	cat
	line	958
	colm	21
	synt	any
	invoke	1
	unmark
lab L9
	mark	L10
	var	1
	pnull
	var	2
	str	7
	int	1
	line	959
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	959
	colm	68
	synt	any
	field	id_def_found
	line	959
	colm	63
	synt	any
	invoke	1
	line	959
	colm	51
	synt	any
	cat
	line	959
	colm	21
	synt	any
	invoke	1
	unmark
lab L10
	mark	L11
	var	1
	pnull
	var	2
	str	8
	int	1
	line	960
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	960
	colm	65
	synt	any
	field	sel_index
	line	960
	colm	60
	synt	any
	invoke	1
	line	960
	colm	48
	synt	any
	cat
	line	960
	colm	21
	synt	any
	invoke	1
	unmark
lab L11
	mark	L12
	var	1
	pnull
	var	2
	str	9
	int	1
	line	961
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	961
	colm	63
	synt	any
	field	id_appl
	line	961
	colm	58
	synt	any
	invoke	1
	line	961
	colm	46
	synt	any
	cat
	line	961
	colm	21
	synt	any
	invoke	1
	unmark
lab L12
	var	1
	pnull
	var	2
	str	10
	int	1
	line	962
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	962
	colm	70
	synt	any
	field	id_forward_ref
	line	962
	colm	65
	synt	any
	invoke	1
	line	962
	colm	53
	synt	any
	cat
	line	962
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	964
	colm	1
	synt	any
	pfail
	end
proc OpridNode_initially
	local	0,001000,self
	declend
	line	965
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	966
	colm	6
	synt	any
	field	__m
	line	966
	colm	10
	synt	any
	field	Node
	line	966
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	966
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	966
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	966
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	966
	colm	72
	synt	any
	field	post_num
	line	966
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	967
	colm	6
	synt	any
	field	__m
	line	967
	colm	10
	synt	any
	field	ConsNode
	line	967
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	967
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	967
	colm	57
	synt	any
	field	cn_tl_field
	line	967
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	968
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	969
	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
	line	973
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	976
	colm	3
	synt	if
	mark0
	pnull
	var	19
	line	976
	colm	6
	synt	any
	null
	unmark
	var	20
	line	976
	colm	48
	synt	any
	invoke	0
	line	976
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	977
	colm	3
	synt	if
	mark0
	pnull
	var	21
	line	977
	colm	6
	synt	any
	null
	unmark
	var	22
	line	977
	colm	38
	synt	any
	invoke	0
	line	977
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	19
	line	978
	colm	19
	synt	any
	field	Node
	var	21
	line	978
	colm	25
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	979
	colm	3
	synt	if
	mark0
	pnull
	var	23
	line	979
	colm	6
	synt	any
	null
	unmark
	var	24
	line	979
	colm	46
	synt	any
	invoke	0
	line	979
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	19
	line	980
	colm	19
	synt	any
	field	ConsNode
	var	23
	line	980
	colm	29
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	17
	var	25
	line	982
	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	982
	colm	27
	synt	any
	invoke	19
	line	982
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	17
	line	983
	colm	7
	synt	any
	field	__s
	var	17
	line	983
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	17
	line	984
	colm	7
	synt	any
	field	__m
	line	984
	colm	11
	synt	any
	field	initially
	var	17
	line	984
	colm	21
	synt	any
	invoke	1
	line	984
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	984
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	17
	line	985
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	986
	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_initially
	local	4,000000,ConsNode_cons_dump
	declend
	line	988
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	line	989
	colm	49
	synt	any
	invoke	3
	line	989
	colm	28
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	990
	colm	1
	synt	any
	pfail
	end
proc LetterId_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,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,40
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,13,163,145,154,137,164,171,160,145,040,040,040,075,040
	con	4,010000,23,151,144,137,163,164,162,137,164,141,142,154,145,137,151,156,144,145,170,040,040,040,075,040
	con	5,010000,16,151,144,137,165,163,145,137,154,151,163,164,040,040,040,075,040
	con	6,010000,23,151,144,137,154,141,163,164,137,144,145,146,151,156,151,164,151,157,156,040,040,040,075,040
	con	7,010000,17,151,144,137,144,145,146,137,146,157,165,156,144,040,040,040,075,040
	con	8,010000,14,163,145,154,137,151,156,144,145,170,040,040,040,075,040
	con	9,010000,12,151,144,137,141,160,160,154,040,040,040,075,040
	con	10,010000,19,151,144,137,146,157,162,167,141,162,144,137,162,145,146,040,040,040,075,040
	declend
	line	972
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	974
	colm	6
	synt	any
	field	__m
	line	974
	colm	10
	synt	any
	field	Node
	line	974
	colm	15
	synt	any
	field	dump
	var	0
	line	974
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	975
	colm	6
	synt	any
	field	__m
	line	975
	colm	10
	synt	any
	field	ConsNode
	line	975
	colm	19
	synt	any
	field	dump
	var	0
	line	975
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	pnull
	var	2
	str	0
	int	1
	line	976
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	976
	colm	65
	synt	any
	field	signature
	line	976
	colm	60
	synt	any
	invoke	1
	line	976
	colm	48
	synt	any
	cat
	line	976
	colm	21
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	var	1
	pnull
	var	2
	str	2
	int	1
	line	977
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	977
	colm	64
	synt	any
	field	sig_done
	line	977
	colm	59
	synt	any
	invoke	1
	line	977
	colm	47
	synt	any
	cat
	line	977
	colm	21
	synt	any
	invoke	1
	unmark
lab L5
	mark	L6
	var	1
	pnull
	var	2
	str	3
	int	1
	line	978
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	978
	colm	64
	synt	any
	field	sel_type
	line	978
	colm	59
	synt	any
	invoke	1
	line	978
	colm	47
	synt	any
	cat
	line	978
	colm	21
	synt	any
	invoke	1
	unmark
lab L6
	mark	L7
	var	1
	pnull
	var	2
	str	4
	int	1
	line	979
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	979
	colm	74
	synt	any
	field	id_str_table_index
	line	979
	colm	69
	synt	any
	invoke	1
	line	979
	colm	57
	synt	any
	cat
	line	979
	colm	21
	synt	any
	invoke	1
	unmark
lab L7
	mark	L8
	var	1
	pnull
	var	2
	str	5
	int	1
	line	980
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	980
	colm	67
	synt	any
	field	id_use_list
	line	980
	colm	62
	synt	any
	invoke	1
	line	980
	colm	50
	synt	any
	cat
	line	980
	colm	21
	synt	any
	invoke	1
	unmark
lab L8
	mark	L9
	var	1
	pnull
	var	2
	str	6
	int	1
	line	981
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	981
	colm	74
	synt	any
	field	id_last_definition
	line	981
	colm	69
	synt	any
	invoke	1
	line	981
	colm	57
	synt	any
	cat
	line	981
	colm	21
	synt	any
	invoke	1
	unmark
lab L9
	mark	L10
	var	1
	pnull
	var	2
	str	7
	int	1
	line	982
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	982
	colm	68
	synt	any
	field	id_def_found
	line	982
	colm	63
	synt	any
	invoke	1
	line	982
	colm	51
	synt	any
	cat
	line	982
	colm	21
	synt	any
	invoke	1
	unmark
lab L10
	mark	L11
	var	1
	pnull
	var	2
	str	8
	int	1
	line	983
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	983
	colm	65
	synt	any
	field	sel_index
	line	983
	colm	60
	synt	any
	invoke	1
	line	983
	colm	48
	synt	any
	cat
	line	983
	colm	21
	synt	any
	invoke	1
	unmark
lab L11
	mark	L12
	var	1
	pnull
	var	2
	str	9
	int	1
	line	984
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	984
	colm	63
	synt	any
	field	id_appl
	line	984
	colm	58
	synt	any
	invoke	1
	line	984
	colm	46
	synt	any
	cat
	line	984
	colm	21
	synt	any
	invoke	1
	unmark
lab L12
	var	1
	pnull
	var	2
	str	10
	int	1
	line	985
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	985
	colm	70
	synt	any
	field	id_forward_ref
	line	985
	colm	65
	synt	any
	invoke	1
	line	985
	colm	53
	synt	any
	cat
	line	985
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	987
	colm	1
	synt	any
	pfail
	end
proc LetterId_initially
	local	0,001000,self
	declend
	line	988
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	989
	colm	6
	synt	any
	field	__m
	line	989
	colm	10
	synt	any
	field	Node
	line	989
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	989
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	989
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	989
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	989
	colm	72
	synt	any
	field	post_num
	line	989
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	990
	colm	6
	synt	any
	field	__m
	line	990
	colm	10
	synt	any
	field	ConsNode
	line	990
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	990
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	990
	colm	57
	synt	any
	field	cn_tl_field
	line	990
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	991
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	992
	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
	line	996
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	999
	colm	3
	synt	if
	mark0
	pnull
	var	19
	line	999
	colm	6
	synt	any
	null
	unmark
	var	20
	line	999
	colm	46
	synt	any
	invoke	0
	line	999
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	1000
	colm	3
	synt	if
	mark0
	pnull
	var	21
	line	1000
	colm	6
	synt	any
	null
	unmark
	var	22
	line	1000
	colm	38
	synt	any
	invoke	0
	line	1000
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	19
	line	1001
	colm	18
	synt	any
	field	Node
	var	21
	line	1001
	colm	24
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	1002
	colm	3
	synt	if
	mark0
	pnull
	var	23
	line	1002
	colm	6
	synt	any
	null
	unmark
	var	24
	line	1002
	colm	46
	synt	any
	invoke	0
	line	1002
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	19
	line	1003
	colm	18
	synt	any
	field	ConsNode
	var	23
	line	1003
	colm	28
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	17
	var	25
	line	1005
	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	1005
	colm	26
	synt	any
	invoke	19
	line	1005
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	17
	line	1006
	colm	7
	synt	any
	field	__s
	var	17
	line	1006
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	17
	line	1007
	colm	7
	synt	any
	field	__m
	line	1007
	colm	11
	synt	any
	field	initially
	var	17
	line	1007
	colm	21
	synt	any
	invoke	1
	line	1007
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	1007
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	17
	line	1008
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	1009
	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_initially
	local	4,000000,ConsNode_cons_dump
	declend
	line	1011
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	line	1012
	colm	47
	synt	any
	invoke	3
	line	1012
	colm	27
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	1013
	colm	1
	synt	any
	pfail
	end
proc QStrNode_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,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,40
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,13,163,145,154,137,164,171,160,145,040,040,040,075,040
	con	4,010000,15,163,164,162,137,163,164,162,151,156,147,040,040,040,075,040
	con	5,010000,17,163,164,162,137,165,163,145,137,154,151,163,164,040,040,040,075,040
	con	6,010000,18,163,164,162,137,145,170,160,141,156,163,151,157,156,040,040,040,075,040
	declend
	line	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
	var	0
	line	997
	colm	20
	synt	any
	invoke	1
	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
	var	0
	line	998
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	pnull
	var	2
	str	0
	int	1
	line	999
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	999
	colm	65
	synt	any
	field	signature
	line	999
	colm	60
	synt	any
	invoke	1
	line	999
	colm	48
	synt	any
	cat
	line	999
	colm	21
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	var	1
	pnull
	var	2
	str	2
	int	1
	line	1000
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	1000
	colm	64
	synt	any
	field	sig_done
	line	1000
	colm	59
	synt	any
	invoke	1
	line	1000
	colm	47
	synt	any
	cat
	line	1000
	colm	21
	synt	any
	invoke	1
	unmark
lab L5
	mark	L6
	var	1
	pnull
	var	2
	str	3
	int	1
	line	1001
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	1001
	colm	64
	synt	any
	field	sel_type
	line	1001
	colm	59
	synt	any
	invoke	1
	line	1001
	colm	47
	synt	any
	cat
	line	1001
	colm	21
	synt	any
	invoke	1
	unmark
lab L6
	mark	L7
	var	1
	pnull
	var	2
	str	4
	int	1
	line	1002
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	1002
	colm	66
	synt	any
	field	str_string
	line	1002
	colm	61
	synt	any
	invoke	1
	line	1002
	colm	49
	synt	any
	cat
	line	1002
	colm	21
	synt	any
	invoke	1
	unmark
lab L7
	mark	L8
	var	1
	pnull
	var	2
	str	5
	int	1
	line	1003
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	1003
	colm	68
	synt	any
	field	str_use_list
	line	1003
	colm	63
	synt	any
	invoke	1
	line	1003
	colm	51
	synt	any
	cat
	line	1003
	colm	21
	synt	any
	invoke	1
	unmark
lab L8
	var	1
	pnull
	var	2
	str	6
	int	1
	line	1004
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	1004
	colm	69
	synt	any
	field	str_expansion
	line	1004
	colm	64
	synt	any
	invoke	1
	line	1004
	colm	52
	synt	any
	cat
	line	1004
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	1006
	colm	1
	synt	any
	pfail
	end
proc QStrNode_initially
	local	0,001000,self
	declend
	line	1007
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1008
	colm	6
	synt	any
	field	__m
	line	1008
	colm	10
	synt	any
	field	Node
	line	1008
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1008
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	1008
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	1008
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	1008
	colm	72
	synt	any
	field	post_num
	line	1008
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1009
	colm	6
	synt	any
	field	__m
	line	1009
	colm	10
	synt	any
	field	ConsNode
	line	1009
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1009
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	1009
	colm	57
	synt	any
	field	cn_tl_field
	line	1009
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1010
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1011
	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
	line	1015
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	1018
	colm	3
	synt	if
	mark0
	pnull
	var	15
	line	1018
	colm	6
	synt	any
	null
	unmark
	var	16
	line	1018
	colm	46
	synt	any
	invoke	0
	line	1018
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	1019
	colm	3
	synt	if
	mark0
	pnull
	var	17
	line	1019
	colm	6
	synt	any
	null
	unmark
	var	18
	line	1019
	colm	38
	synt	any
	invoke	0
	line	1019
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	15
	line	1020
	colm	18
	synt	any
	field	Node
	var	17
	line	1020
	colm	24
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	1021
	colm	3
	synt	if
	mark0
	pnull
	var	19
	line	1021
	colm	6
	synt	any
	null
	unmark
	var	20
	line	1021
	colm	46
	synt	any
	invoke	0
	line	1021
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	15
	line	1022
	colm	18
	synt	any
	field	ConsNode
	var	19
	line	1022
	colm	28
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	13
	var	21
	line	1024
	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	1024
	colm	26
	synt	any
	invoke	15
	line	1024
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	13
	line	1025
	colm	7
	synt	any
	field	__s
	var	13
	line	1025
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	13
	line	1026
	colm	7
	synt	any
	field	__m
	line	1026
	colm	11
	synt	any
	field	initially
	var	13
	line	1026
	colm	21
	synt	any
	invoke	1
	line	1026
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	1026
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	13
	line	1027
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	1028
	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_initially
	local	4,000000,ConsNode_cons_dump
	declend
	line	1030
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	line	1031
	colm	47
	synt	any
	invoke	3
	line	1031
	colm	27
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	1032
	colm	1
	synt	any
	pfail
	end
proc UQStrNode_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,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,40
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,13,163,145,154,137,164,171,160,145,040,040,040,075,040
	con	4,010000,15,163,164,162,137,163,164,162,151,156,147,040,040,040,075,040
	con	5,010000,17,163,164,162,137,165,163,145,137,154,151,163,164,040,040,040,075,040
	con	6,010000,18,163,164,162,137,145,170,160,141,156,163,151,157,156,040,040,040,075,040
	declend
	line	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
	line	1016
	colm	20
	synt	any
	invoke	1
	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
	line	1017
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	pnull
	var	2
	str	0
	int	1
	line	1018
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	1018
	colm	65
	synt	any
	field	signature
	line	1018
	colm	60
	synt	any
	invoke	1
	line	1018
	colm	48
	synt	any
	cat
	line	1018
	colm	21
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	var	1
	pnull
	var	2
	str	2
	int	1
	line	1019
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	1019
	colm	64
	synt	any
	field	sig_done
	line	1019
	colm	59
	synt	any
	invoke	1
	line	1019
	colm	47
	synt	any
	cat
	line	1019
	colm	21
	synt	any
	invoke	1
	unmark
lab L5
	mark	L6
	var	1
	pnull
	var	2
	str	3
	int	1
	line	1020
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	1020
	colm	64
	synt	any
	field	sel_type
	line	1020
	colm	59
	synt	any
	invoke	1
	line	1020
	colm	47
	synt	any
	cat
	line	1020
	colm	21
	synt	any
	invoke	1
	unmark
lab L6
	mark	L7
	var	1
	pnull
	var	2
	str	4
	int	1
	line	1021
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	1021
	colm	66
	synt	any
	field	str_string
	line	1021
	colm	61
	synt	any
	invoke	1
	line	1021
	colm	49
	synt	any
	cat
	line	1021
	colm	21
	synt	any
	invoke	1
	unmark
lab L7
	mark	L8
	var	1
	pnull
	var	2
	str	5
	int	1
	line	1022
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	1022
	colm	68
	synt	any
	field	str_use_list
	line	1022
	colm	63
	synt	any
	invoke	1
	line	1022
	colm	51
	synt	any
	cat
	line	1022
	colm	21
	synt	any
	invoke	1
	unmark
lab L8
	var	1
	pnull
	var	2
	str	6
	int	1
	line	1023
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	1023
	colm	69
	synt	any
	field	str_expansion
	line	1023
	colm	64
	synt	any
	invoke	1
	line	1023
	colm	52
	synt	any
	cat
	line	1023
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	1025
	colm	1
	synt	any
	pfail
	end
proc UQStrNode_initially
	local	0,001000,self
	declend
	line	1026
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1027
	colm	6
	synt	any
	field	__m
	line	1027
	colm	10
	synt	any
	field	Node
	line	1027
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1027
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	1027
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	1027
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	1027
	colm	72
	synt	any
	field	post_num
	line	1027
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1028
	colm	6
	synt	any
	field	__m
	line	1028
	colm	10
	synt	any
	field	ConsNode
	line	1028
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1028
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	1028
	colm	57
	synt	any
	field	cn_tl_field
	line	1028
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1029
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1030
	colm	1
	synt	any
	pfail
	end
proc 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
	line	1034
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	1037
	colm	3
	synt	if
	mark0
	pnull
	var	15
	line	1037
	colm	6
	synt	any
	null
	unmark
	var	16
	line	1037
	colm	48
	synt	any
	invoke	0
	line	1037
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	1038
	colm	3
	synt	if
	mark0
	pnull
	var	17
	line	1038
	colm	6
	synt	any
	null
	unmark
	var	18
	line	1038
	colm	38
	synt	any
	invoke	0
	line	1038
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	15
	line	1039
	colm	19
	synt	any
	field	Node
	var	17
	line	1039
	colm	25
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	1040
	colm	3
	synt	if
	mark0
	pnull
	var	19
	line	1040
	colm	6
	synt	any
	null
	unmark
	var	20
	line	1040
	colm	46
	synt	any
	invoke	0
	line	1040
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	15
	line	1041
	colm	19
	synt	any
	field	ConsNode
	var	19
	line	1041
	colm	29
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	13
	var	21
	line	1043
	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	1043
	colm	27
	synt	any
	invoke	15
	line	1043
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	13
	line	1044
	colm	7
	synt	any
	field	__s
	var	13
	line	1044
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	13
	line	1045
	colm	7
	synt	any
	field	__m
	line	1045
	colm	11
	synt	any
	field	initially
	var	13
	line	1045
	colm	21
	synt	any
	invoke	1
	line	1045
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	1045
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	13
	line	1046
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	1047
	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_initially
	local	4,000000,ConsNode_cons_dump
	declend
	line	1049
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	line	1050
	colm	49
	synt	any
	invoke	3
	line	1050
	colm	28
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	1051
	colm	1
	synt	any
	pfail
	end
proc FConstruction_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,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,40
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,12,141,162,137,163,151,172,145,040,040,040,075,040
	con	4,010000,19,141,162,137,163,164,141,164,151,143,137,154,151,156,153,040,040,040,075,040
	con	5,010000,20,141,162,137,163,164,141,164,151,143,137,154,145,166,145,154,040,040,040,075,040
	con	6,010000,12,146,143,137,142,157,144,171,040,040,040,075,040
	con	7,010000,18,146,143,137,143,157,155,160,154,145,170,151,164,171,040,040,040,075,040
	con	8,010000,18,146,143,137,143,157,144,145,137,154,141,142,145,154,040,040,040,075,040
	con	9,010000,17,146,143,137,146,162,145,145,137,166,141,162,163,040,040,040,075,040
	con	10,010000,19,146,143,137,142,157,144,171,137,156,145,145,144,145,144,040,040,040,075,040
	declend
	line	1033
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1035
	colm	6
	synt	any
	field	__m
	line	1035
	colm	10
	synt	any
	field	Node
	line	1035
	colm	15
	synt	any
	field	dump
	var	0
	line	1035
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1036
	colm	6
	synt	any
	field	__m
	line	1036
	colm	10
	synt	any
	field	ConsNode
	line	1036
	colm	19
	synt	any
	field	dump
	var	0
	line	1036
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	pnull
	var	2
	str	0
	int	1
	line	1037
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	1037
	colm	65
	synt	any
	field	signature
	line	1037
	colm	60
	synt	any
	invoke	1
	line	1037
	colm	48
	synt	any
	cat
	line	1037
	colm	21
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	var	1
	pnull
	var	2
	str	2
	int	1
	line	1038
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	1038
	colm	64
	synt	any
	field	sig_done
	line	1038
	colm	59
	synt	any
	invoke	1
	line	1038
	colm	47
	synt	any
	cat
	line	1038
	colm	21
	synt	any
	invoke	1
	unmark
lab L5
	mark	L6
	var	1
	pnull
	var	2
	str	3
	int	1
	line	1039
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	1039
	colm	63
	synt	any
	field	ar_size
	line	1039
	colm	58
	synt	any
	invoke	1
	line	1039
	colm	46
	synt	any
	cat
	line	1039
	colm	21
	synt	any
	invoke	1
	unmark
lab L6
	mark	L7
	var	1
	pnull
	var	2
	str	4
	int	1
	line	1040
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	1040
	colm	70
	synt	any
	field	ar_static_link
	line	1040
	colm	65
	synt	any
	invoke	1
	line	1040
	colm	53
	synt	any
	cat
	line	1040
	colm	21
	synt	any
	invoke	1
	unmark
lab L7
	mark	L8
	var	1
	pnull
	var	2
	str	5
	int	1
	line	1041
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	1041
	colm	71
	synt	any
	field	ar_static_level
	line	1041
	colm	66
	synt	any
	invoke	1
	line	1041
	colm	54
	synt	any
	cat
	line	1041
	colm	21
	synt	any
	invoke	1
	unmark
lab L8
	mark	L9
	var	1
	pnull
	var	2
	str	6
	int	1
	line	1042
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	1042
	colm	63
	synt	any
	field	fc_body
	line	1042
	colm	58
	synt	any
	invoke	1
	line	1042
	colm	46
	synt	any
	cat
	line	1042
	colm	21
	synt	any
	invoke	1
	unmark
lab L9
	mark	L10
	var	1
	pnull
	var	2
	str	7
	int	1
	line	1043
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	1043
	colm	69
	synt	any
	field	fc_complexity
	line	1043
	colm	64
	synt	any
	invoke	1
	line	1043
	colm	52
	synt	any
	cat
	line	1043
	colm	21
	synt	any
	invoke	1
	unmark
lab L10
	mark	L11
	var	1
	pnull
	var	2
	str	8
	int	1
	line	1044
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	1044
	colm	69
	synt	any
	field	fc_code_label
	line	1044
	colm	64
	synt	any
	invoke	1
	line	1044
	colm	52
	synt	any
	cat
	line	1044
	colm	21
	synt	any
	invoke	1
	unmark
lab L11
	mark	L12
	var	1
	pnull
	var	2
	str	9
	int	1
	line	1045
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	1045
	colm	68
	synt	any
	field	fc_free_vars
	line	1045
	colm	63
	synt	any
	invoke	1
	line	1045
	colm	51
	synt	any
	cat
	line	1045
	colm	21
	synt	any
	invoke	1
	unmark
lab L12
	var	1
	pnull
	var	2
	str	10
	int	1
	line	1046
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	1046
	colm	70
	synt	any
	field	fc_body_needed
	line	1046
	colm	65
	synt	any
	invoke	1
	line	1046
	colm	53
	synt	any
	cat
	line	1046
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	1048
	colm	1
	synt	any
	pfail
	end
proc FConstruction_initially
	local	0,001000,self
	declend
	line	1049
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1050
	colm	6
	synt	any
	field	__m
	line	1050
	colm	10
	synt	any
	field	Node
	line	1050
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1050
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	1050
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	1050
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	1050
	colm	72
	synt	any
	field	post_num
	line	1050
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1051
	colm	6
	synt	any
	field	__m
	line	1051
	colm	10
	synt	any
	field	ConsNode
	line	1051
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1051
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	1051
	colm	57
	synt	any
	field	cn_tl_field
	line	1051
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1052
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1053
	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
	line	1057
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	1060
	colm	3
	synt	if
	mark0
	pnull
	var	19
	line	1060
	colm	6
	synt	any
	null
	unmark
	var	20
	line	1060
	colm	56
	synt	any
	invoke	0
	line	1060
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	1061
	colm	3
	synt	if
	mark0
	pnull
	var	21
	line	1061
	colm	6
	synt	any
	null
	unmark
	var	22
	line	1061
	colm	38
	synt	any
	invoke	0
	line	1061
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	19
	line	1062
	colm	23
	synt	any
	field	Node
	var	21
	line	1062
	colm	29
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	1063
	colm	3
	synt	if
	mark0
	pnull
	var	23
	line	1063
	colm	6
	synt	any
	null
	unmark
	var	24
	line	1063
	colm	46
	synt	any
	invoke	0
	line	1063
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	19
	line	1064
	colm	23
	synt	any
	field	ConsNode
	var	23
	line	1064
	colm	33
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	17
	var	25
	line	1066
	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	1066
	colm	31
	synt	any
	invoke	19
	line	1066
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	17
	line	1067
	colm	7
	synt	any
	field	__s
	var	17
	line	1067
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	17
	line	1068
	colm	7
	synt	any
	field	__m
	line	1068
	colm	11
	synt	any
	field	initially
	var	17
	line	1068
	colm	21
	synt	any
	invoke	1
	line	1068
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	1068
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	17
	line	1069
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	1070
	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_initially
	local	4,000000,ConsNode_cons_dump
	declend
	line	1072
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	line	1073
	colm	57
	synt	any
	invoke	3
	line	1073
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	1074
	colm	1
	synt	any
	pfail
	end
proc FreeVarNode_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,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,40
	con	2,010000,13,146,166,137,163,165,162,162,137,040,040,040,075,040
	con	3,010000,18,146,166,137,163,165,162,162,137,151,156,144,145,170,040,040,040,075,040
	con	4,010000,13,146,166,137,151,156,144,145,170,040,040,040,075,040
	declend
	line	1056
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1058
	colm	6
	synt	any
	field	__m
	line	1058
	colm	10
	synt	any
	field	Node
	line	1058
	colm	15
	synt	any
	field	dump
	var	0
	line	1058
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1059
	colm	6
	synt	any
	field	__m
	line	1059
	colm	10
	synt	any
	field	ConsNode
	line	1059
	colm	19
	synt	any
	field	dump
	var	0
	line	1059
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	pnull
	var	2
	str	0
	int	1
	line	1060
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	1060
	colm	74
	synt	any
	field	fv_last_definition
	line	1060
	colm	69
	synt	any
	invoke	1
	line	1060
	colm	57
	synt	any
	cat
	line	1060
	colm	21
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	var	1
	pnull
	var	2
	str	2
	int	1
	line	1061
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	1061
	colm	64
	synt	any
	field	fv_surr_
	line	1061
	colm	59
	synt	any
	invoke	1
	line	1061
	colm	47
	synt	any
	cat
	line	1061
	colm	21
	synt	any
	invoke	1
	unmark
lab L5
	mark	L6
	var	1
	pnull
	var	2
	str	3
	int	1
	line	1062
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	1062
	colm	69
	synt	any
	field	fv_surr_index
	line	1062
	colm	64
	synt	any
	invoke	1
	line	1062
	colm	52
	synt	any
	cat
	line	1062
	colm	21
	synt	any
	invoke	1
	unmark
lab L6
	var	1
	pnull
	var	2
	str	4
	int	1
	line	1063
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	1063
	colm	64
	synt	any
	field	fv_index
	line	1063
	colm	59
	synt	any
	invoke	1
	line	1063
	colm	47
	synt	any
	cat
	line	1063
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	1065
	colm	1
	synt	any
	pfail
	end
proc FreeVarNode_initially
	local	0,001000,self
	declend
	line	1066
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1067
	colm	6
	synt	any
	field	__m
	line	1067
	colm	10
	synt	any
	field	Node
	line	1067
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1067
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	1067
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	1067
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	1067
	colm	72
	synt	any
	field	post_num
	line	1067
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1068
	colm	6
	synt	any
	field	__m
	line	1068
	colm	10
	synt	any
	field	ConsNode
	line	1068
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1068
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	1068
	colm	57
	synt	any
	field	cn_tl_field
	line	1068
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1069
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1070
	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
	line	1074
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	1077
	colm	3
	synt	if
	mark0
	pnull
	var	13
	line	1077
	colm	6
	synt	any
	null
	unmark
	var	14
	line	1077
	colm	52
	synt	any
	invoke	0
	line	1077
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	1078
	colm	3
	synt	if
	mark0
	pnull
	var	15
	line	1078
	colm	6
	synt	any
	null
	unmark
	var	16
	line	1078
	colm	38
	synt	any
	invoke	0
	line	1078
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	13
	line	1079
	colm	21
	synt	any
	field	Node
	var	15
	line	1079
	colm	27
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	1080
	colm	3
	synt	if
	mark0
	pnull
	var	17
	line	1080
	colm	6
	synt	any
	null
	unmark
	var	18
	line	1080
	colm	46
	synt	any
	invoke	0
	line	1080
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	13
	line	1081
	colm	21
	synt	any
	field	ConsNode
	var	17
	line	1081
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	11
	var	19
	line	1083
	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	1083
	colm	29
	synt	any
	invoke	13
	line	1083
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	11
	line	1084
	colm	7
	synt	any
	field	__s
	var	11
	line	1084
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	11
	line	1085
	colm	7
	synt	any
	field	__m
	line	1085
	colm	11
	synt	any
	field	initially
	var	11
	line	1085
	colm	21
	synt	any
	invoke	1
	line	1085
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	1085
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	11
	line	1086
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	1087
	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_initially
	local	4,000000,ConsNode_cons_dump
	declend
	line	1089
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	line	1090
	colm	53
	synt	any
	invoke	3
	line	1090
	colm	30
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	1091
	colm	1
	synt	any
	pfail
	end
proc ExternDefNode_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,000000,dump_info
	con	0,010000,13,145,170,164,137,156,141,155,145,040,040,040,075,040
	con	1,002000,2,40
	declend
	line	1073
	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
	line	1075
	colm	20
	synt	any
	invoke	1
	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
	line	1076
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	var	1
	pnull
	var	2
	str	0
	int	1
	line	1077
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	1077
	colm	64
	synt	any
	field	ext_name
	line	1077
	colm	59
	synt	any
	invoke	1
	line	1077
	colm	47
	synt	any
	cat
	line	1077
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	1079
	colm	1
	synt	any
	pfail
	end
proc ExternDefNode_initially
	local	0,001000,self
	declend
	line	1080
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1081
	colm	6
	synt	any
	field	__m
	line	1081
	colm	10
	synt	any
	field	Node
	line	1081
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1081
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	1081
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	1081
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	1081
	colm	72
	synt	any
	field	post_num
	line	1081
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1082
	colm	6
	synt	any
	field	__m
	line	1082
	colm	10
	synt	any
	field	ConsNode
	line	1082
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1082
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	1082
	colm	57
	synt	any
	field	cn_tl_field
	line	1082
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1083
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1084
	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
	line	1088
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	1091
	colm	3
	synt	if
	mark0
	pnull
	var	10
	line	1091
	colm	6
	synt	any
	null
	unmark
	var	11
	line	1091
	colm	56
	synt	any
	invoke	0
	line	1091
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	1092
	colm	3
	synt	if
	mark0
	pnull
	var	12
	line	1092
	colm	6
	synt	any
	null
	unmark
	var	13
	line	1092
	colm	38
	synt	any
	invoke	0
	line	1092
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	10
	line	1093
	colm	23
	synt	any
	field	Node
	var	12
	line	1093
	colm	29
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	1094
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	1094
	colm	6
	synt	any
	null
	unmark
	var	15
	line	1094
	colm	46
	synt	any
	invoke	0
	line	1094
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	10
	line	1095
	colm	23
	synt	any
	field	ConsNode
	var	14
	line	1095
	colm	33
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	8
	var	16
	line	1097
	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	1097
	colm	31
	synt	any
	invoke	10
	line	1097
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	8
	line	1098
	colm	7
	synt	any
	field	__s
	var	8
	line	1098
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	8
	line	1099
	colm	7
	synt	any
	field	__m
	line	1099
	colm	11
	synt	any
	field	initially
	var	8
	line	1099
	colm	21
	synt	any
	invoke	1
	line	1099
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	1099
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	8
	line	1100
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	1101
	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_initially
	local	4,000000,ConsNode_cons_dump
	declend
	line	1103
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	line	1104
	colm	57
	synt	any
	invoke	3
	line	1104
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	1105
	colm	1
	synt	any
	pfail
	end
proc RExternDef_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,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,40
	con	2,010000,13,163,151,147,137,144,157,156,145,040,040,040,075,040
	con	3,010000,15,162,137,145,170,164,137,156,141,155,145,040,040,040,075,040
	declend
	line	1087
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1089
	colm	6
	synt	any
	field	__m
	line	1089
	colm	10
	synt	any
	field	Node
	line	1089
	colm	15
	synt	any
	field	dump
	var	0
	line	1089
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1090
	colm	6
	synt	any
	field	__m
	line	1090
	colm	10
	synt	any
	field	ConsNode
	line	1090
	colm	19
	synt	any
	field	dump
	var	0
	line	1090
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	pnull
	var	2
	str	0
	int	1
	line	1091
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	1091
	colm	65
	synt	any
	field	signature
	line	1091
	colm	60
	synt	any
	invoke	1
	line	1091
	colm	48
	synt	any
	cat
	line	1091
	colm	21
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	var	1
	pnull
	var	2
	str	2
	int	1
	line	1092
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	1092
	colm	64
	synt	any
	field	sig_done
	line	1092
	colm	59
	synt	any
	invoke	1
	line	1092
	colm	47
	synt	any
	cat
	line	1092
	colm	21
	synt	any
	invoke	1
	unmark
lab L5
	var	1
	pnull
	var	2
	str	3
	int	1
	line	1093
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	1093
	colm	66
	synt	any
	field	r_ext_name
	line	1093
	colm	61
	synt	any
	invoke	1
	line	1093
	colm	49
	synt	any
	cat
	line	1093
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	1095
	colm	1
	synt	any
	pfail
	end
proc RExternDef_initially
	local	0,001000,self
	declend
	line	1096
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	1097
	colm	6
	synt	any
	field	__m
	line	1097
	colm	10
	synt	any
	field	Node
	line	1097
	colm	15
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1097
	colm	36
	synt	any
	field	kind
	pnull
	var	0
	line	1097
	colm	46
	synt	any
	field	vlineno
	pnull
	var	0
	line	1097
	colm	59
	synt	any
	field	pre_num
	pnull
	var	0
	line	1097
	colm	72
	synt	any
	field	post_num
	line	1097
	colm	26
	synt	any
	invoke	5
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1098
	colm	6
	synt	any
	field	__m
	line	1098
	colm	10
	synt	any
	field	ConsNode
	line	1098
	colm	19
	synt	any
	field	initially
	var	0
	pnull
	var	0
	line	1098
	colm	40
	synt	any
	field	cn_hd_field
	pnull
	var	0
	line	1098
	colm	57
	synt	any
	field	cn_tl_field
	line	1098
	colm	30
	synt	any
	invoke	3
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	1099
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1100
	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
	line	1104
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	1107
	colm	3
	synt	if
	mark0
	pnull
	var	12
	line	1107
	colm	6
	synt	any
	null
	unmark
	var	13
	line	1107
	colm	50
	synt	any
	invoke	0
	line	1107
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	1108
	colm	3
	synt	if
	mark0
	pnull
	var	14
	line	1108
	colm	6
	synt	any
	null
	unmark
	var	15
	line	1108
	colm	38
	synt	any
	invoke	0
	line	1108
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	12
	line	1109
	colm	20
	synt	any
	field	Node
	var	14
	line	1109
	colm	26
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	1110
	colm	3
	synt	if
	mark0
	pnull
	var	16
	line	1110
	colm	6
	synt	any
	null
	unmark
	var	17
	line	1110
	colm	46
	synt	any
	invoke	0
	line	1110
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	12
	line	1111
	colm	20
	synt	any
	field	ConsNode
	var	16
	line	1111
	colm	30
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	10
	var	18
	line	1113
	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	1113
	colm	28
	synt	any
	invoke	12
	line	1113
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	10
	line	1114
	colm	7
	synt	any
	field	__s
	var	10
	line	1114
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	10
	line	1115
	colm	7
	synt	any
	field	__m
	line	1115
	colm	11
	synt	any
	field	initially
	var	10
	line	1115
	colm	21
	synt	any
	invoke	1
	line	1115
	colm	28
	synt	any
	esusp
	goto	L12
lab L11
	line	1115
	colm	30
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	10
	line	1116
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	1117
	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_initially
	local	4,000000,ConsNode_cons_dump
	declend
	line	1119
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	line	1120
	colm	51
	synt	any
	invoke	3
	line	1120
	colm	29
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	1121
	colm	1
	synt	any
	pfail
	end
proc DcsException_dump
	local	0,001000,self
	local	1,000000,nodeinfo
	local	2,000000,left
	local	3,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,40
	con	2,010000,16,144,143,163,145,137,151,156,154,151,156,145,040,040,040,075,040
	con	3,010000,17,144,143,163,145,137,163,160,145,143,151,141,154,040,040,040,075,040
	con	4,010000,22,144,143,163,145,137,143,157,156,163,164,162,165,143,164,151,157,156,040,040,040,075,040
	declend
	line	1103
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	1105
	colm	6
	synt	any
	field	__m
	line	1105
	colm	10
	synt	any
	field	Node
	line	1105
	colm	15
	synt	any
	field	dump
	var	0
	line	1105
	colm	20
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1106
	colm	6
	synt	any
	field	__m
	line	1106
	colm	10
	synt	any
	field	ConsNode
	line	1106
	colm	19
	synt	any
	field	dump
	var	0
	line	1106
	colm	24
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	var	1
	pnull
	var	2
	str	0
	int	1
	line	1107
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	1107
	colm	65
	synt	any
	field	dcse_char
	line	1107
	colm	60
	synt	any
	invoke	1
	line	1107
	colm	48
	synt	any
	cat
	line	1107
	colm	21
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	var	1
	pnull
	var	2
	str	2
	int	1
	line	1108
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	1108
	colm	67
	synt	any
	field	dcse_inline
	line	1108
	colm	62
	synt	any
	invoke	1
	line	1108
	colm	50
	synt	any
	cat
	line	1108
	colm	21
	synt	any
	invoke	1
	unmark
lab L5
	mark	L6
	var	1
	pnull
	var	2
	str	3
	int	1
	line	1109
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	1109
	colm	68
	synt	any
	field	dcse_special
	line	1109
	colm	63
	synt	any
	invoke	1
	line	1109
	colm	51
	synt	any
	cat
	line	1109
	colm	21
	synt	any
	invoke	1
	unmark
lab L6
	var	1
	pnull
	var	2
	str	4
	int	1
	line	1110
	colm	26
	synt	any
	invoke	2
	var	3
	pnull
	var	0
	line	1110
	colm	73
	synt	any
	field	dcse_construction
	line	1110
	colm	68
	synt	any
	invoke	1
	line	1110
	colm	56
	synt	any
	cat
	line	1110
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	1112
	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
	line	1116
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	1119
	colm	3
	synt	if
	mark0
	pnull
	var	6
	line	1119
	colm	6
	synt	any
	null
	unmark
	var	7
	line	1119
	colm	54
	synt	any
	invoke	0
	line	1119
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	1120
	colm	3
	synt	if
	mark0
	pnull
	var	8
	line	1120
	colm	6
	synt	any
	null
	unmark
	var	9
	line	1120
	colm	38
	synt	any
	invoke	0
	line	1120
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	6
	line	1121
	colm	22
	synt	any
	field	Node
	var	8
	line	1121
	colm	28
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	1122
	colm	3
	synt	if
	mark0
	pnull
	var	10
	line	1122
	colm	6
	synt	any
	null
	unmark
	var	11
	line	1122
	colm	46
	synt	any
	invoke	0
	line	1122
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	6
	line	1123
	colm	22
	synt	any
	field	ConsNode
	var	10
	line	1123
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	4
	var	12
	line	1125
	colm	31
	synt	any
	keywd	null
	var	6
	line	1125
	colm	30
	synt	any
	invoke	2
	line	1125
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	4
	line	1126
	colm	7
	synt	any
	field	__s
	var	4
	line	1126
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	4
	line	1127
	colm	7
	synt	any
	field	__m
	line	1127
	colm	11
	synt	any
	field	initially
	var	4
	var	0
	var	1
	var	2
	var	3
	line	1127
	colm	21
	synt	any
	invoke	5
	line	1127
	colm	46
	synt	any
	esusp
	goto	L12
lab L11
	line	1127
	colm	48
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	4
	line	1128
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	1129
	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,Node_initially
	local	4,000000,ConsNode_cons_dump
	declend
	line	1131
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	line	1132
	colm	55
	synt	any
	invoke	3
	line	1132
	colm	31
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	1133
	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
	line	1115
	colm	11
	synt	any
	mark	L1
	line	1116
	colm	1
	synt	ifelse
	mark	L2
	pnull
	var	1
	var	0
	line	1116
	colm	8
	synt	any
	invoke	1
	str	0
	line	1116
	colm	13
	synt	any
	lexeq
	unmark
	mark	L4
	var	0
	line	1116
	colm	31
	synt	any
	pret
lab L4
	synt	any
	pfail
	goto	L3
lab L2
	line	1117
	colm	7
	synt	ifelse
	mark	L5
	pnull
	var	1
	var	0
	line	1117
	colm	14
	synt	any
	invoke	1
	str	1
	line	1117
	colm	19
	synt	any
	lexeq
	unmark
	mark	L7
	var	0
	line	1117
	colm	35
	synt	any
	pret
lab L7
	synt	any
	pfail
	goto	L6
lab L5
	line	1118
	colm	7
	synt	ifelse
	mark	L8
	pnull
	var	1
	var	0
	line	1118
	colm	14
	synt	any
	invoke	1
	str	2
	line	1118
	colm	19
	synt	any
	lexeq
	unmark
	mark	L10
	var	0
	line	1118
	colm	34
	synt	any
	pret
lab L10
	synt	any
	pfail
	goto	L9
lab L8
	mark	L11
	var	1
	var	0
	line	1119
	colm	18
	synt	any
	invoke	1
	line	1119
	colm	7
	synt	any
	pret
lab L11
	synt	any
	pfail
lab L9
	line	1118
	colm	7
	synt	endifelse
lab L6
	line	1117
	colm	7
	synt	endifelse
lab L3
	line	1116
	colm	1
	synt	endifelse
	unmark
lab L1
	pnull
	line	1120
	colm	1
	synt	any
	pfail
	end
