MODULE EvalQuery EXPORTS Main;
FROM M3ASTQuery IMPORT
    Null, Name, Number,
Module_id,
Interface_id,
Interface_AS_id,
F_Interface_id,
F_Value_id,
F_Var_id,
F_Readonly_id,
Type_id,
Const_id,
Var_id,
Proc_id,
Enum_id,
Method_id,
Override_id,
Field_id,
For_id,
Handler_id,
Tcase_id,
With_id,
Exc_id,
Used_interface_id,
Used_def_id,
Qual_used_id,
Compilation_Unit,
Interface_gen_def,
Module_gen_def,
Interface,
Module,
Module_gen_ins,
Interface_gen_ins,
Unsafe,
Simple_import,
From_import,
Import_item,
Revelation_s,
Const_decl_s,
Type_decl_s,
Var_decl_s,
Exc_decl_s,
Proc_decl,
Const_decl,
Var_decl,
Exc_decl,
Subtype_decl ,
Concrete_decl,
Subtype_reveal ,
Concrete_reveal,
Named_type,
Integer_type,
Real_type,
LongReal_type,
Extended_type,
Null_type,
RefAny_type,
Address_type,
Root_type,
Enumeration_type,
Subrange_type,
Array_type,
Record_type,
Object_type,
Set_type,
Procedure_type,
Ref_type,
Packed_type,
Opaque_type,
Brand,
Untraced,
Fields,
Method,
Override,
Formal_param,
Raisees_some,
Raisees_any,
Range_EXP,
Range,
Integer_literal,
Real_literal,
LongReal_literal,
Extended_literal,
Text_literal,
Char_literal,
Nil_literal,
Exp_used_id,
Constructor,
Actual_elem,
Propagate,
Binary,
Plus,
Minus,
Times,
Rdiv,
Textcat,
Div,
Mod,
Eq,
Ne,
Gt,
Lt,
Ge,
Le,
And,
Or,
In,
Select,
Unary,
Not,
Unaryplus,
Unaryminus,
Deref,
Call,
Index,
Actual,
Assign_st,
Call_st,
Case_st,
Eval_st,
Exit_st,
For_st,
If_st,
Lock_st,
Loop_st,
Raise_st,
Repeat_st,
Return_st,
Try_st,
Typecase_st,
While_st,
With_st,
Block,
Case,
Else_stm,
Elsif,
Try_except,
Try_finally,
Tcase,
Handler,
Binding,
By,
Bad_EXP,
Bad_M3TYPE,
Bad_STM,
ID,
DEF_ID,
UNIT_ID,
TYPED_ID,
FORMAL_ID,
METHOD_OVERRIDE_ID,
USED_ID,
UNIT,
UNIT_WITH_BODY,
UNIT_GEN_DEF,
UNIT_NORMAL,
UNIT_GEN_INS,
IMPORTED,
DECL_REVL,
DECL,
TYPE_DECL,
REVELATION,
EXP_TYPE,
M3TYPE,
TYPE_SPEC,
BRANDED_TYPE,
FLOAT_TYPE,
METHOD_OVERRIDE,
RAISEES,
RANGE_EXP,
EXP,
NUMERIC_LITERAL,
CONS_ELEM,
RANGE_EXP_elem,
BINARY_OP,
UNARY_OP,
STM,
STM_WSS,
SUBSTM_WSS,
TRY_TAIL,
as_intf_id,
as_id,
as_root,
as_import_s,
as_block,
as_id_s,
as_unsafe,
as_export_s,
as_gen_id,
as_import_item_s,
as_reveal_s,
as_const_decl_s,
as_type_decl_s,
as_var_decl_s,
as_exc_decl_s,
as_type,
as_exp,
as_default,
as_body,
as_qual_id,
as_trace_mode,
as_indextype_s,
as_elementtype,
as_range,
as_fields_s,
as_brand,
as_ancestor,
as_method_s,
as_override_s,
as_formal_param_s,
as_result_type,
as_raises,
as_formal_type,
as_raisees_s,
as_exp1,
as_exp2,
as_element_s,
as_propagate,
as_range_exp,
as_actual,
as_binary_op,
as_unary_op,
as_callexp,
as_param_s,
as_exp_type,
as_array,
as_exp_s,
as_stm_s,
as_lhs_exp,
as_rhs_exp,
as_call,
as_case_s,
as_else,
as_case_label_s,
as_from,
as_to,
as_by,
as_elsif_s,
as_exp_void,
as_try_tail,
as_handler_s,
as_qual_id_s,
as_tcase_s,
as_type_s,
as_binding_s,
as_decl_s,

sm_import_s,
sm_ins_comp_unit,
sm_spec,
sm_export_s,
sm_concrete_proc_id,
sm_def,
sm_type_spec,
sm_concrete_type_spec,
sm_type_spec_s,
sm_base_type_spec,
sm_def_id,
sm_bitsize,
sm_align,
sm_rf_bitsize,
sm_rf_align,
sm_exp_type_spec,
sm_actual_s,
sm_int_def,
sm_init_exp;

BEGIN
  EVAL TRUE;
END EvalQuery.