

#include "BUILTIN.h"

#include "Nat.h"
extern OBJ _AInterOpal_2(OBJ,OBJ);OBJ __AInterOpal_2; /* token */
extern OBJ _AInterOpal_3(OBJ);OBJ __AInterOpal_3; /* token? */
extern OBJ _AInterOpal_4(OBJ);OBJ __AInterOpal_4; /* text */
extern OBJ _AInterOpal_5(OBJ);OBJ __AInterOpal_5; /* pos */
extern OBJ _AInterOpal_6(OBJ);OBJ __AInterOpal_6; /* objects */
extern OBJ _AInterOpal_7(OBJ);OBJ __AInterOpal_7; /* objects? */
extern OBJ _AInterOpal_8(OBJ);OBJ __AInterOpal_8; /* objects,1 */
extern OBJ _AInterOpal_10(OBJ);OBJ __AInterOpal_10; /* pragma */
extern OBJ _AInterOpal_11(OBJ);OBJ __AInterOpal_11; /* pragma? */
extern OBJ _AInterOpal_12(OBJ);OBJ __AInterOpal_12; /* items */
extern OBJ _AInterOpal_14(OBJ);OBJ __AInterOpal_14; /* inst */
extern OBJ _AInterOpal_15(OBJ);OBJ __AInterOpal_15; /* inst? */
extern OBJ _AInterOpal_16(OBJ);OBJ __AInterOpal_16; /* no */
OBJ __AInterOpal_17; /* generic */
extern OBJ _AInterOpal_18(OBJ);OBJ __AInterOpal_18; /* generic? */
OBJ __AInterOpal_19; /* formal */
extern OBJ _AInterOpal_20(OBJ);OBJ __AInterOpal_20; /* formal? */
OBJ __AInterOpal_21; /* none */
extern OBJ _AInterOpal_22(OBJ);OBJ __AInterOpal_22; /* none? */
extern OBJ _AInterOpal_24(OBJ);OBJ __AInterOpal_24; /* origin */
extern OBJ _AInterOpal_25(OBJ);OBJ __AInterOpal_25; /* origin? */
extern OBJ _AInterOpal_26(OBJ);OBJ __AInterOpal_26; /* no,1 */
OBJ __AInterOpal_27; /* main */
extern OBJ _AInterOpal_28(OBJ);OBJ __AInterOpal_28; /* main? */
OBJ __AInterOpal_29; /* local */
extern OBJ _AInterOpal_30(OBJ);OBJ __AInterOpal_30; /* local? */
extern OBJ _AInterOpal_32(OBJ);OBJ __AInterOpal_32; /* ident */
extern OBJ _AInterOpal_33(OBJ);OBJ __AInterOpal_33; /* ident? */
extern OBJ _AInterOpal_34(OBJ);OBJ __AInterOpal_34; /* no,2 */
extern OBJ _AInterOpal_36(OBJ,OBJ,OBJ);OBJ __AInterOpal_36; /* name */
extern OBJ _AInterOpal_37(OBJ);OBJ __AInterOpal_37; /* name? */
extern OBJ _AInterOpal_38(OBJ);OBJ __AInterOpal_38; /* inst,1 */
extern OBJ _AInterOpal_39(OBJ);OBJ __AInterOpal_39; /* origin,1 */
extern OBJ _AInterOpal_40(OBJ);OBJ __AInterOpal_40; /* ident,1 */
extern OBJ _AInterOpal_42(OBJ,OBJ,OBJ,OBJ,OBJ);OBJ __AInterOpal_42; /* region */
extern OBJ _AInterOpal_43(OBJ);OBJ __AInterOpal_43; /* region? */
extern OBJ _AInterOpal_44(OBJ);OBJ __AInterOpal_44; /* endCol */
extern OBJ _AInterOpal_45(OBJ);OBJ __AInterOpal_45; /* endRow */
extern OBJ _AInterOpal_46(OBJ);OBJ __AInterOpal_46; /* col */
extern OBJ _AInterOpal_47(OBJ);OBJ __AInterOpal_47; /* row */
extern OBJ _AInterOpal_48(OBJ);OBJ __AInterOpal_48; /* part */
extern OBJ _AInterOpal_49(OBJ,OBJ,OBJ);OBJ __AInterOpal_49; /* pos,1 */
extern OBJ _AInterOpal_50(OBJ);OBJ __AInterOpal_50; /* pos? */
extern OBJ _AInterOpal_54(OBJ);OBJ __AInterOpal_54; /* part,1 */
extern OBJ _AInterOpal_55(OBJ);OBJ __AInterOpal_55; /* part? */
OBJ __AInterOpal_57; /* unknown */
extern OBJ _AInterOpal_58(OBJ);OBJ __AInterOpal_58; /* unknown? */
extern OBJ _AInterOpal_60(OBJ,OBJ);OBJ __AInterOpal_60; /* funct */
extern OBJ _AInterOpal_61(OBJ);OBJ __AInterOpal_61; /* funct? */
extern OBJ _AInterOpal_62(OBJ);OBJ __AInterOpal_62; /* codom */
extern OBJ _AInterOpal_63(OBJ);OBJ __AInterOpal_63; /* dom */
extern OBJ _AInterOpal_64(OBJ);OBJ __AInterOpal_64; /* cart */
extern OBJ _AInterOpal_65(OBJ);OBJ __AInterOpal_65; /* cart? */
extern OBJ _AInterOpal_66(OBJ);OBJ __AInterOpal_66; /* elems */
extern OBJ _AInterOpal_67(OBJ);OBJ __AInterOpal_67; /* sort */
extern OBJ _AInterOpal_68(OBJ);OBJ __AInterOpal_68; /* sort? */
extern OBJ _AInterOpal_69(OBJ);OBJ __AInterOpal_69; /* sort,1 */
extern OBJ _AInterOpal_71(OBJ,OBJ);OBJ __AInterOpal_71; /* other */
extern OBJ _AInterOpal_72(OBJ);OBJ __AInterOpal_72; /* other? */
extern OBJ _AInterOpal_73(OBJ);OBJ __AInterOpal_73; /* data */
extern OBJ _AInterOpal_74(OBJ);OBJ __AInterOpal_74; /* id */
extern OBJ _AInterOpal_75(OBJ);OBJ __AInterOpal_75; /* fct */
extern OBJ _AInterOpal_76(OBJ);OBJ __AInterOpal_76; /* fct? */
extern OBJ _AInterOpal_77(OBJ);OBJ __AInterOpal_77; /* fct,1 */
OBJ __AInterOpal_78; /* sort,2 */
extern OBJ _AInterOpal_79(OBJ);OBJ __AInterOpal_79; /* sort?,1 */
extern OBJ _AInterOpal_81(OBJ,OBJ,OBJ);OBJ __AInterOpal_81; /* guard */
extern OBJ _AInterOpal_82(OBJ);OBJ __AInterOpal_82; /* guard? */
extern OBJ _AInterOpal_83(OBJ);OBJ __AInterOpal_83; /* then */
extern OBJ _AInterOpal_84(OBJ);OBJ __AInterOpal_84; /* if */
extern OBJ _AInterOpal_85(OBJ);OBJ __AInterOpal_85; /* pos,2 */
extern OBJ _AInterOpal_87(OBJ,OBJ,OBJ);OBJ __AInterOpal_87; /* block */
extern OBJ _AInterOpal_88(OBJ);OBJ __AInterOpal_88; /* block? */
extern OBJ _AInterOpal_89(OBJ);OBJ __AInterOpal_89; /* body */
extern OBJ _AInterOpal_90(OBJ);OBJ __AInterOpal_90; /* eqns */
extern OBJ _AInterOpal_91(OBJ);OBJ __AInterOpal_91; /* pos,3 */
extern OBJ _AInterOpal_92(OBJ,OBJ,OBJ);OBJ __AInterOpal_92; /* lambda */
extern OBJ _AInterOpal_93(OBJ);OBJ __AInterOpal_93; /* lambda? */
extern OBJ _AInterOpal_95(OBJ);OBJ __AInterOpal_95; /* vars */
extern OBJ _AInterOpal_97(OBJ,OBJ,OBJ);OBJ __AInterOpal_97; /* cases */
extern OBJ _AInterOpal_98(OBJ);OBJ __AInterOpal_98; /* cases? */
extern OBJ _AInterOpal_99(OBJ);OBJ __AInterOpal_99; /* else */
extern OBJ _AInterOpal_100(OBJ);OBJ __AInterOpal_100; /* guards */
extern OBJ _AInterOpal_102(OBJ,OBJ,OBJ);OBJ __AInterOpal_102; /* apply */
extern OBJ _AInterOpal_103(OBJ);OBJ __AInterOpal_103; /* apply? */
extern OBJ _AInterOpal_104(OBJ);OBJ __AInterOpal_104; /* arg */
extern OBJ _AInterOpal_105(OBJ);OBJ __AInterOpal_105; /* funct,1 */
extern OBJ _AInterOpal_107(OBJ,OBJ);OBJ __AInterOpal_107; /* tuple */
extern OBJ _AInterOpal_108(OBJ);OBJ __AInterOpal_108; /* tuple? */
extern OBJ _AInterOpal_109(OBJ);OBJ __AInterOpal_109; /* elems,1 */
extern OBJ _AInterOpal_111(OBJ,OBJ);OBJ __AInterOpal_111; /* den */
extern OBJ _AInterOpal_112(OBJ);OBJ __AInterOpal_112; /* den? */
extern OBJ _AInterOpal_113(OBJ);OBJ __AInterOpal_113; /* rep */
extern OBJ _AInterOpal_115(OBJ,OBJ);OBJ __AInterOpal_115; /* name,1 */
extern OBJ _AInterOpal_116(OBJ);OBJ __AInterOpal_116; /* name?,1 */
extern OBJ _AInterOpal_117(OBJ);OBJ __AInterOpal_117; /* name,2 */
extern OBJ _AInterOpal_120(OBJ,OBJ,OBJ,OBJ);OBJ __AInterOpal_120; /* var */
extern OBJ _AInterOpal_121(OBJ);OBJ __AInterOpal_121; /* var? */
extern OBJ _AInterOpal_122(OBJ);OBJ __AInterOpal_122; /* fct,2 */
extern OBJ _AInterOpal_123(OBJ);OBJ __AInterOpal_123; /* symbol */
extern OBJ _AInterOpal_124(OBJ);OBJ __AInterOpal_124; /* ident,2 */
extern OBJ _AInterOpal_125(OBJ);OBJ __AInterOpal_125; /* pos,4 */
extern OBJ _AInterOpal_127(OBJ,OBJ);OBJ __AInterOpal_127; /* tuple,1 */
extern OBJ _AInterOpal_128(OBJ);OBJ __AInterOpal_128; /* tuple?,1 */
extern OBJ _AInterOpal_129(OBJ);OBJ __AInterOpal_129; /* elems,2 */
extern OBJ _AInterOpal_130(OBJ);OBJ __AInterOpal_130; /* pos,5 */
extern OBJ _AInterOpal_131(OBJ,OBJ,OBJ);OBJ __AInterOpal_131; /* apply,1 */
extern OBJ _AInterOpal_132(OBJ);OBJ __AInterOpal_132; /* apply?,1 */
extern OBJ _AInterOpal_133(OBJ);OBJ __AInterOpal_133; /* arg,1 */
extern OBJ _AInterOpal_134(OBJ);OBJ __AInterOpal_134; /* funct,2 */
extern OBJ _AInterOpal_136(OBJ,OBJ,OBJ);OBJ __AInterOpal_136; /* as */
extern OBJ _AInterOpal_137(OBJ);OBJ __AInterOpal_137; /* as? */
extern OBJ _AInterOpal_138(OBJ);OBJ __AInterOpal_138; /* pattern */
extern OBJ _AInterOpal_139(OBJ);OBJ __AInterOpal_139; /* var,1 */
extern OBJ _AInterOpal_141(OBJ,OBJ);OBJ __AInterOpal_141; /* var,2 */
extern OBJ _AInterOpal_142(OBJ);OBJ __AInterOpal_142; /* var?,1 */
extern OBJ _AInterOpal_145(OBJ,OBJ);OBJ __AInterOpal_145; /* name,3 */
extern OBJ _AInterOpal_146(OBJ);OBJ __AInterOpal_146; /* name?,2 */
extern OBJ _AInterOpal_147(OBJ);OBJ __AInterOpal_147; /* name,4 */
extern OBJ _AInterOpal_149(OBJ);OBJ __AInterOpal_149; /* any */
extern OBJ _AInterOpal_150(OBJ);OBJ __AInterOpal_150; /* any? */
extern OBJ _AInterOpal_153(OBJ,OBJ,OBJ,OBJ);OBJ __AInterOpal_153; /* eqn */
extern OBJ _AInterOpal_154(OBJ);OBJ __AInterOpal_154; /* eqn? */
extern OBJ _AInterOpal_155(OBJ);OBJ __AInterOpal_155; /* rhs */
extern OBJ _AInterOpal_156(OBJ);OBJ __AInterOpal_156; /* patterns */
extern OBJ _AInterOpal_157(OBJ);OBJ __AInterOpal_157; /* lhs */
extern OBJ _AInterOpal_158(OBJ);OBJ __AInterOpal_158; /* pos,6 */
extern OBJ _AInterOpal_160(OBJ,OBJ);OBJ __AInterOpal_160; /* comp */
extern OBJ _AInterOpal_161(OBJ);OBJ __AInterOpal_161; /* comp? */
extern OBJ _AInterOpal_162(OBJ);OBJ __AInterOpal_162; /* sel */
extern OBJ _AInterOpal_163(OBJ);OBJ __AInterOpal_163; /* pos,7 */
extern OBJ _AInterOpal_165(OBJ,OBJ,OBJ,OBJ);OBJ __AInterOpal_165; /* variant */
extern OBJ _AInterOpal_166(OBJ);OBJ __AInterOpal_166; /* variant? */
extern OBJ _AInterOpal_167(OBJ);OBJ __AInterOpal_167; /* comps */
extern OBJ _AInterOpal_168(OBJ);OBJ __AInterOpal_168; /* test */
extern OBJ _AInterOpal_169(OBJ);OBJ __AInterOpal_169; /* cons */
extern OBJ _AInterOpal_170(OBJ);OBJ __AInterOpal_170; /* pos,8 */
extern OBJ _AInterOpal_172(OBJ,OBJ,OBJ);OBJ __AInterOpal_172; /* other,1 */
extern OBJ _AInterOpal_173(OBJ);OBJ __AInterOpal_173; /* other?,1 */
extern OBJ _AInterOpal_174(OBJ);OBJ __AInterOpal_174; /* data,1 */
extern OBJ _AInterOpal_175(OBJ);OBJ __AInterOpal_175; /* id,1 */
extern OBJ _AInterOpal_176(OBJ);OBJ __AInterOpal_176; /* pos,9 */
extern OBJ _AInterOpal_177(OBJ);OBJ __AInterOpal_177; /* def */
extern OBJ _AInterOpal_178(OBJ);OBJ __AInterOpal_178; /* def? */
extern OBJ _AInterOpal_179(OBJ);OBJ __AInterOpal_179; /* eqns,1 */
extern OBJ _AInterOpal_180(OBJ);OBJ __AInterOpal_180; /* data,2 */
extern OBJ _AInterOpal_181(OBJ);OBJ __AInterOpal_181; /* data? */
extern OBJ _AInterOpal_182(OBJ);OBJ __AInterOpal_182; /* variants */
extern OBJ _AInterOpal_183(OBJ,OBJ);OBJ __AInterOpal_183; /* induced */
extern OBJ _AInterOpal_184(OBJ);OBJ __AInterOpal_184; /* induced? */
extern OBJ _AInterOpal_185(OBJ);OBJ __AInterOpal_185; /* sort,3 */
extern OBJ _AInterOpal_187(OBJ,OBJ);OBJ __AInterOpal_187; /* parameter */
extern OBJ _AInterOpal_188(OBJ);OBJ __AInterOpal_188; /* parameter? */
extern OBJ _AInterOpal_189(OBJ);OBJ __AInterOpal_189; /* no,3 */
OBJ __AInterOpal_191; /* imported */
extern OBJ _AInterOpal_192(OBJ);OBJ __AInterOpal_192; /* imported? */
OBJ __AInterOpal_193; /* missing */
extern OBJ _AInterOpal_194(OBJ);OBJ __AInterOpal_194; /* missing? */
extern OBJ _AInterOpal_196(OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ);OBJ __AInterOpal_196; /* object */
extern OBJ _AInterOpal_197(OBJ);OBJ __AInterOpal_197; /* object? */
extern OBJ _AInterOpal_198(OBJ);OBJ __AInterOpal_198; /* pragmas */
extern OBJ _AInterOpal_199(OBJ);OBJ __AInterOpal_199; /* props */
extern OBJ _AInterOpal_200(OBJ);OBJ __AInterOpal_200; /* def,1 */
extern OBJ _AInterOpal_201(OBJ);OBJ __AInterOpal_201; /* kind */
extern OBJ _AInterOpal_202(OBJ);OBJ __AInterOpal_202; /* symbol,1 */
extern OBJ _AInterOpal_203(OBJ);OBJ __AInterOpal_203; /* ident,3 */
extern OBJ _AInterOpal_204(OBJ);OBJ __AInterOpal_204; /* pos,10 */
extern OBJ _AInterOpal_206(OBJ,OBJ,OBJ);OBJ __AInterOpal_206; /* other,2 */
extern OBJ _AInterOpal_207(OBJ);OBJ __AInterOpal_207; /* other?,2 */
extern OBJ _AInterOpal_208(OBJ);OBJ __AInterOpal_208; /* data,3 */
extern OBJ _AInterOpal_209(OBJ);OBJ __AInterOpal_209; /* id,2 */
extern OBJ _AInterOpal_210(OBJ);OBJ __AInterOpal_210; /* pos,11 */
extern OBJ _AInterOpal_211(OBJ,OBJ);OBJ __AInterOpal_211; /* informal */
extern OBJ _AInterOpal_212(OBJ);OBJ __AInterOpal_212; /* informal? */
extern OBJ _AInterOpal_213(OBJ);OBJ __AInterOpal_213; /* text,1 */
extern OBJ _AInterOpal_215(OBJ,OBJ,OBJ);OBJ __AInterOpal_215; /* exist */
extern OBJ _AInterOpal_216(OBJ);OBJ __AInterOpal_216; /* exist? */
extern OBJ _AInterOpal_217(OBJ);OBJ __AInterOpal_217; /* range */
extern OBJ _AInterOpal_218(OBJ);OBJ __AInterOpal_218; /* vars,1 */
extern OBJ _AInterOpal_220(OBJ,OBJ,OBJ);OBJ __AInterOpal_220; /* forall */
extern OBJ _AInterOpal_221(OBJ);OBJ __AInterOpal_221; /* forall? */
extern OBJ _AInterOpal_225(OBJ,OBJ,OBJ);OBJ __AInterOpal_225; /* equiv */
extern OBJ _AInterOpal_226(OBJ);OBJ __AInterOpal_226; /* equiv? */
extern OBJ _AInterOpal_227(OBJ);OBJ __AInterOpal_227; /* right */
extern OBJ _AInterOpal_228(OBJ);OBJ __AInterOpal_228; /* left */
extern OBJ _AInterOpal_230(OBJ,OBJ,OBJ);OBJ __AInterOpal_230; /* impl */
extern OBJ _AInterOpal_231(OBJ);OBJ __AInterOpal_231; /* impl? */
extern OBJ _AInterOpal_232(OBJ);OBJ __AInterOpal_232; /* conclusion */
extern OBJ _AInterOpal_233(OBJ);OBJ __AInterOpal_233; /* premise */
extern OBJ _AInterOpal_235(OBJ,OBJ,OBJ);OBJ __AInterOpal_235; /* disj */
extern OBJ _AInterOpal_236(OBJ);OBJ __AInterOpal_236; /* disj? */
extern OBJ _AInterOpal_240(OBJ,OBJ,OBJ);OBJ __AInterOpal_240; /* conj */
extern OBJ _AInterOpal_241(OBJ);OBJ __AInterOpal_241; /* conj? */
extern OBJ _AInterOpal_245(OBJ,OBJ);OBJ __AInterOpal_245; /* neg */
extern OBJ _AInterOpal_246(OBJ);OBJ __AInterOpal_246; /* neg? */
extern OBJ _AInterOpal_247(OBJ);OBJ __AInterOpal_247; /* formula */
extern OBJ _AInterOpal_249(OBJ,OBJ,OBJ);OBJ __AInterOpal_249; /* cong */
extern OBJ _AInterOpal_250(OBJ);OBJ __AInterOpal_250; /* cong? */
extern OBJ _AInterOpal_251(OBJ);OBJ __AInterOpal_251; /* right,1 */
extern OBJ _AInterOpal_252(OBJ);OBJ __AInterOpal_252; /* left,1 */
extern OBJ _AInterOpal_254(OBJ,OBJ,OBJ);OBJ __AInterOpal_254; /* approx */
extern OBJ _AInterOpal_255(OBJ);OBJ __AInterOpal_255; /* approx? */
extern OBJ _AInterOpal_259(OBJ,OBJ);OBJ __AInterOpal_259; /* dfd */
extern OBJ _AInterOpal_260(OBJ);OBJ __AInterOpal_260; /* dfd? */
extern OBJ _AInterOpal_261(OBJ);OBJ __AInterOpal_261; /* expr */
extern OBJ _AInterOpal_264(OBJ,OBJ,OBJ,OBJ);OBJ __AInterOpal_264; /* other,3 */
extern OBJ _AInterOpal_265(OBJ);OBJ __AInterOpal_265; /* other?,3 */
extern OBJ _AInterOpal_266(OBJ);OBJ __AInterOpal_266; /* pragmas,1 */
extern OBJ _AInterOpal_267(OBJ);OBJ __AInterOpal_267; /* data,4 */
extern OBJ _AInterOpal_268(OBJ);OBJ __AInterOpal_268; /* id,3 */
extern OBJ _AInterOpal_269(OBJ);OBJ __AInterOpal_269; /* pos,12 */
extern OBJ _AInterOpal_270(OBJ,OBJ,OBJ,OBJ,OBJ);OBJ __AInterOpal_270; /* law */
extern OBJ _AInterOpal_271(OBJ);OBJ __AInterOpal_271; /* law? */
extern OBJ _AInterOpal_273(OBJ);OBJ __AInterOpal_273; /* formula,1 */
extern OBJ _AInterOpal_274(OBJ);OBJ __AInterOpal_274; /* symbol,2 */
extern OBJ _AInterOpal_275(OBJ);OBJ __AInterOpal_275; /* ident,4 */
extern OBJ _AInterOpal_277(OBJ,OBJ,OBJ,OBJ,OBJ);OBJ __AInterOpal_277; /* freeType */
extern OBJ _AInterOpal_278(OBJ);OBJ __AInterOpal_278; /* freeType? */
extern OBJ _AInterOpal_280(OBJ);OBJ __AInterOpal_280; /* variants,1 */
extern OBJ _AInterOpal_281(OBJ);OBJ __AInterOpal_281; /* sort,4 */
extern OBJ _AInterOpal_285(OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ);OBJ __AInterOpal_285; /* struct */
extern OBJ _AInterOpal_286(OBJ);OBJ __AInterOpal_286; /* struct? */
extern OBJ _AInterOpal_287(OBJ);OBJ __AInterOpal_287; /* pragmas,2 */
extern OBJ _AInterOpal_288(OBJ);OBJ __AInterOpal_288; /* props,1 */
extern OBJ _AInterOpal_289(OBJ);OBJ __AInterOpal_289; /* objs */
extern OBJ _AInterOpal_290(OBJ);OBJ __AInterOpal_290; /* onlys */
extern OBJ _AInterOpal_291(OBJ);OBJ __AInterOpal_291; /* insts */
extern OBJ _AInterOpal_292(OBJ);OBJ __AInterOpal_292; /* symbol,3 */
extern OBJ _AInterOpal_293(OBJ);OBJ __AInterOpal_293; /* origin,2 */
extern OBJ _AInterOpal_294(OBJ);OBJ __AInterOpal_294; /* pos,13 */
OBJ __AInterOpal_296; /* intProperties */
extern OBJ _AInterOpal_297(OBJ);OBJ __AInterOpal_297; /* intProperties? */
OBJ __AInterOpal_298; /* implementation */
extern OBJ _AInterOpal_299(OBJ);OBJ __AInterOpal_299; /* implementation? */
OBJ __AInterOpal_300; /* extProperties */
extern OBJ _AInterOpal_301(OBJ);OBJ __AInterOpal_301; /* extProperties? */
OBJ __AInterOpal_302; /* signature */
extern OBJ _AInterOpal_303(OBJ);OBJ __AInterOpal_303; /* signature? */
extern OBJ _AInterOpal_305(OBJ,OBJ);OBJ __AInterOpal_305; /* interOpal */
extern OBJ _AInterOpal_306(OBJ);OBJ __AInterOpal_306; /* interOpal? */
extern OBJ _AInterOpal_307(OBJ);OBJ __AInterOpal_307; /* structs */
extern OBJ _AInterOpal_308(OBJ);OBJ __AInterOpal_308; /* part,2 */
extern OBJ _AInterOpal_309(OBJ,OBJ);OBJ __AInterOpal_309; /* < */
extern OBJ _AInterOpal_310(OBJ,OBJ);OBJ __AInterOpal_310; /* <,1 */
OBJ __AInterOpal_311; /* firstLaw */
extern OBJ _AInterOpal_312(OBJ);OBJ __AInterOpal_312; /* nextLaw */
extern OBJ _AInterOpal_313(OBJ);OBJ __AInterOpal_313; /* isLaw? */
extern OBJ _AInterOpal_314(OBJ,OBJ);OBJ __AInterOpal_314; /* <,2 */
extern OBJ _AInterOpal_315(OBJ,OBJ);OBJ __AInterOpal_315; /* <,3 */
OBJ __AInterOpal_316; /* ioTypeKey */

extern OBJ _AInterOpal_2(OBJ x1,OBJ x2) /* token */
{OBJ r;
 PRD(2,1,r);FLD(r,1)=x1;FLD(r,2)=x2;
 return r;}

extern OBJ _AInterOpal_3(OBJ x1) /* token? */
{OBJ r;
 if(ISTGPRD(x1,1)){
  if(EXPRD(x1,1)){
   DSPRD(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  if(EXPRD(x1,1)){
   FREE(FLD(x1,1),1);DSPRDF(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_4(OBJ x1) /* text */
{OBJ r;
 if(ISTGPRD(x1,1)){
  {OBJ x3=FLD(x1,2);
   if(EXPRD(x1,1)){
    r=x3;
    FREE(FLD(x1,1),1);DSPRDF(x1);
   }else{
    CPPRD(x3,1);
    r=x3;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection text\'InterOpal:pragmaItem->denotation");}
 return r;}

extern OBJ _AInterOpal_5(OBJ x1) /* pos */
{OBJ r;
 if(ISTGPRD(x1,1)){
  {OBJ x2=FLD(x1,1);
   if(EXPRD(x1,1)){
    r=x2;
    FRPRD(FLD(x1,2),1);DSPRDF(x1);
   }else{
    COPY(x2,1);
    r=x2;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection pos\'InterOpal:pragmaItem->pos");}
 return r;}

extern OBJ _AInterOpal_6(OBJ x1) /* objects */
{OBJ r;
 PRD(1,0,r);FLD(r,1)=x1;
 return r;}

extern OBJ _AInterOpal_7(OBJ x1) /* objects? */
{OBJ r;
 if(ISTGPRD(x1,0)){
  if(EXPRD(x1,1)){
   FREE(FLD(x1,1),1);DSPRDF(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  if(EXPRD(x1,1)){
   DSPRD(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_8(OBJ x1) /* objects,1 */
{OBJ r;
 if(ISTGPRD(x1,0)){
  {OBJ x2=FLD(x1,1);
   if(EXPRD(x1,1)){
    r=x2;
    DSPRDF(x1);
   }else{
    COPY(x2,1);
    r=x2;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection objects\'InterOpal:pragmaItem->seq");}
 return r;}

extern OBJ _AInterOpal_10(OBJ x1) /* pragma */
{OBJ r;
 r=x1;
 return r;}

extern OBJ _AInterOpal_11(OBJ x1) /* pragma? */
{OBJ r;
 FREE(x1,1);
 r=__ABUILTIN_5;
 return r;}

extern OBJ _AInterOpal_12(OBJ x1) /* items */
{OBJ r;
 r=x1;
 return r;}

extern OBJ _AInterOpal_14(OBJ x1) /* inst */
{OBJ r;
 PRD1F(1,r);FLD1(r,1)=x1;
 return r;}

extern OBJ _AInterOpal_15(OBJ x1) /* inst? */
{OBJ r;
 if(ISPRD(x1)){
  if(EXPRD(x1,1)){
   DSPRDF(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FREE(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_16(OBJ x1) /* no */
{OBJ r;
 if(ISPRD(x1)){
  {OBJ x2=FLD1(x1,1);
   if(EXPRD(x1,1)){
    r=x2;
    DSPRDF(x1);
   }else{
    r=x2;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection no\'InterOpal:inst->nat");}
 return r;}

extern OBJ _AInterOpal_18(OBJ x1) /* generic? */
{OBJ r;
 if(ISPRM(x1)&&(ISTGPRM(x1,2))){
  r=__ABUILTIN_5;
 }else{
  FREE(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_20(OBJ x1) /* formal? */
{OBJ r;
 if(ISPRM(x1)&&(ISTGPRM(x1,1))){
  r=__ABUILTIN_5;
 }else{
  FREE(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_22(OBJ x1) /* none? */
{OBJ r;
 if(ISPRM(x1)&&(ISTGPRM(x1,0))){
  r=__ABUILTIN_5;
 }else{
  FREE(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_24(OBJ x1) /* origin */
{OBJ r;
 PRD1F(1,r);FLD1(r,1)=x1;
 return r;}

extern OBJ _AInterOpal_25(OBJ x1) /* origin? */
{OBJ r;
 if(ISPRD(x1)){
  if(EXPRD(x1,1)){
   DSPRDF(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FREE(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_26(OBJ x1) /* no,1 */
{OBJ r;
 if(ISPRD(x1)){
  {OBJ x2=FLD1(x1,1);
   if(EXPRD(x1,1)){
    r=x2;
    DSPRDF(x1);
   }else{
    r=x2;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection no\'InterOpal:origin->nat");}
 return r;}

extern OBJ _AInterOpal_28(OBJ x1) /* main? */
{OBJ r;
 if(ISPRM(x1)&&(ISTGPRM(x1,1))){
  r=__ABUILTIN_5;
 }else{
  FREE(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_30(OBJ x1) /* local? */
{OBJ r;
 if(ISPRM(x1)&&(ISTGPRM(x1,0))){
  r=__ABUILTIN_5;
 }else{
  FREE(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_32(OBJ x1) /* ident */
{OBJ r;
 r=x1;
 return r;}

extern OBJ _AInterOpal_33(OBJ x1) /* ident? */
{OBJ r;
 r=__ABUILTIN_5;
 return r;}

extern OBJ _AInterOpal_34(OBJ x1) /* no,2 */
{OBJ r;
 r=x1;
 return r;}

extern OBJ _AInterOpal_36(OBJ x1,OBJ x2,OBJ x3) /* name */
{OBJ r;
 PRD1(3,r);FLD1(r,1)=x1;FLD1(r,2)=x2;FLD1(r,3)=x3;
 return r;}

extern OBJ _AInterOpal_37(OBJ x1) /* name? */
{OBJ r;
 FRPRD(x1,1);
 r=__ABUILTIN_5;
 return r;}

extern OBJ _AInterOpal_38(OBJ x1) /* inst,1 */
{OBJ r;
 {OBJ x4=FLD1(x1,3);
  if(EXPRD(x1,1)){
   r=x4;
   FREE(FLD1(x1,2),1);DSPRDF(x1);
  }else{
   COPY(x4,1);
   r=x4;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_39(OBJ x1) /* origin,1 */
{OBJ r;
 {OBJ x3=FLD1(x1,2);
  if(EXPRD(x1,1)){
   r=x3;
   FREE(FLD1(x1,3),1);DSPRDF(x1);
  }else{
   COPY(x3,1);
   r=x3;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_40(OBJ x1) /* ident,1 */
{OBJ r;
 {OBJ x2=FLD1(x1,1);
  if(EXPRD(x1,1)){
   r=x2;
   DSPRD(x1);
  }else{
   r=x2;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_42(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5) /* region */
{OBJ r;
 PRDF(5,3,r);FLD(r,1)=x1;FLD(r,2)=x2;FLD(r,3)=x3;FLD(r,4)=x4;FLD(r,5)=x5;
 return r;}

extern OBJ _AInterOpal_43(OBJ x1) /* region? */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,3))){
  if(EXPRD(x1,1)){
   DSPRDF(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FREE(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_44(OBJ x1) /* endCol */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,3))){
  {OBJ x6=FLD(x1,5);
   if(EXPRD(x1,1)){
    r=x6;
    DSPRDF(x1);
   }else{
    r=x6;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection endCol\'InterOpal:pos->nat");}
 return r;}

extern OBJ _AInterOpal_45(OBJ x1) /* endRow */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,3))){
  {OBJ x5=FLD(x1,4);
   if(EXPRD(x1,1)){
    r=x5;
    DSPRDF(x1);
   }else{
    r=x5;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection endRow\'InterOpal:pos->nat");}
 return r;}

extern OBJ _AInterOpal_46(OBJ x1) /* col */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,3)||ISTGPRD(x1,2))){
  {OBJ x4=FLD(x1,3);
   if(EXPRD(x1,1)){
    r=x4;
    DSPRD(x1);
   }else{
    r=x4;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection col\'InterOpal:pos->nat");}
 return r;}

extern OBJ _AInterOpal_47(OBJ x1) /* row */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,3)||ISTGPRD(x1,2))){
  {OBJ x3=FLD(x1,2);
   if(EXPRD(x1,1)){
    r=x3;
    DSPRD(x1);
   }else{
    r=x3;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection row\'InterOpal:pos->nat");}
 return r;}

extern OBJ _AInterOpal_48(OBJ x1) /* part */
{OBJ r;
 if(ISPRM(x1)){
  HLT("InterOpal at <unknown> : undefined selection part\'InterOpal:pos->part");
 }else{
  {OBJ x2=FLD(x1,1);
   if(EXPRD(x1,1)){
    r=x2;
    DSPRD(x1);
   }else{
    r=x2;
    FRPRD(x1,1);}}}
 return r;}

extern OBJ _AInterOpal_49(OBJ x1,OBJ x2,OBJ x3) /* pos,1 */
{OBJ r;
 PRDF(3,2,r);FLD(r,1)=x1;FLD(r,2)=x2;FLD(r,3)=x3;
 return r;}

extern OBJ _AInterOpal_50(OBJ x1) /* pos? */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,2))){
  if(EXPRD(x1,1)){
   DSPRDF(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FREE(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_54(OBJ x1) /* part,1 */
{OBJ r;
 PRDF(1,1,r);FLD(r,1)=x1;
 return r;}

extern OBJ _AInterOpal_55(OBJ x1) /* part? */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,1))){
  if(EXPRD(x1,1)){
   DSPRDF(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FREE(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_58(OBJ x1) /* unknown? */
{OBJ r;
 if(ISPRM(x1)){
  r=__ABUILTIN_5;
 }else{
  FREE(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_60(OBJ x1,OBJ x2) /* funct */
{OBJ r;
 PRD(2,2,r);FLD(r,1)=x1;FLD(r,2)=x2;
 return r;}

extern OBJ _AInterOpal_61(OBJ x1) /* funct? */
{OBJ r;
 if(ISTGPRD(x1,2)){
  if(EXPRD(x1,1)){
   DSPRD(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FRPRD(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_62(OBJ x1) /* codom */
{OBJ r;
 if(ISTGPRD(x1,2)){
  {OBJ x3=FLD(x1,2);
   if(EXPRD(x1,1)){
    r=x3;
    FRPRD(FLD(x1,1),1);DSPRDF(x1);
   }else{
    CPPRD(x3,1);
    r=x3;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection codom\'InterOpal:fct->fct");}
 return r;}

extern OBJ _AInterOpal_63(OBJ x1) /* dom */
{OBJ r;
 if(ISTGPRD(x1,2)){
  {OBJ x2=FLD(x1,1);
   if(EXPRD(x1,1)){
    r=x2;
    FRPRD(FLD(x1,2),1);DSPRDF(x1);
   }else{
    CPPRD(x2,1);
    r=x2;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection dom\'InterOpal:fct->fct");}
 return r;}

extern OBJ _AInterOpal_64(OBJ x1) /* cart */
{OBJ r;
 PRD(1,1,r);FLD(r,1)=x1;
 return r;}

extern OBJ _AInterOpal_65(OBJ x1) /* cart? */
{OBJ r;
 if(ISTGPRD(x1,1)){
  if(EXPRD(x1,1)){
   FREE(FLD(x1,1),1);DSPRDF(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FRPRD(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_66(OBJ x1) /* elems */
{OBJ r;
 if(ISTGPRD(x1,1)){
  {OBJ x2=FLD(x1,1);
   if(EXPRD(x1,1)){
    r=x2;
    DSPRDF(x1);
   }else{
    COPY(x2,1);
    r=x2;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection elems\'InterOpal:fct->seq");}
 return r;}

extern OBJ _AInterOpal_67(OBJ x1) /* sort */
{OBJ r;
 PRD(1,0,r);FLD(r,1)=x1;
 return r;}

extern OBJ _AInterOpal_68(OBJ x1) /* sort? */
{OBJ r;
 if(ISTGPRD(x1,0)){
  if(EXPRD(x1,1)){
   FRPRD(FLD(x1,1),1);DSPRDF(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FRPRD(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_69(OBJ x1) /* sort,1 */
{OBJ r;
 if(ISTGPRD(x1,0)){
  {OBJ x2=FLD(x1,1);
   if(EXPRD(x1,1)){
    r=x2;
    DSPRDF(x1);
   }else{
    CPPRD(x2,1);
    r=x2;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection sort\'InterOpal:fct->name");}
 return r;}

extern OBJ _AInterOpal_71(OBJ x1,OBJ x2) /* other */
{OBJ r;
 PRD(2,2,r);FLD(r,1)=x1;FLD(r,2)=x2;
 return r;}

extern OBJ _AInterOpal_72(OBJ x1) /* other? */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,2))){
  if(EXPRD(x1,1)){
   DSPRD(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FREE(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_73(OBJ x1) /* data */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,2))){
  {OBJ x3=FLD(x1,2);
   if(EXPRD(x1,1)){
    r=x3;
    FRPRD(FLD(x1,1),1);DSPRDF(x1);
   }else{
    CPPRD(x3,1);
    r=x3;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection data\'InterOpal:kind->dyn");}
 return r;}

extern OBJ _AInterOpal_74(OBJ x1) /* id */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,2))){
  {OBJ x2=FLD(x1,1);
   if(EXPRD(x1,1)){
    r=x2;
    FRPRD(FLD(x1,2),1);DSPRDF(x1);
   }else{
    CPPRD(x2,1);
    r=x2;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection id\'InterOpal:kind->denotation");}
 return r;}

extern OBJ _AInterOpal_75(OBJ x1) /* fct */
{OBJ r;
 PRD(1,1,r);FLD(r,1)=x1;
 return r;}

extern OBJ _AInterOpal_76(OBJ x1) /* fct? */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,1))){
  if(EXPRD(x1,1)){
   FRPRD(FLD(x1,1),1);DSPRDF(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FREE(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_77(OBJ x1) /* fct,1 */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,1))){
  {OBJ x2=FLD(x1,1);
   if(EXPRD(x1,1)){
    r=x2;
    DSPRDF(x1);
   }else{
    CPPRD(x2,1);
    r=x2;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection fct\'InterOpal:kind->fct");}
 return r;}

extern OBJ _AInterOpal_79(OBJ x1) /* sort?,1 */
{OBJ r;
 if(ISPRM(x1)){
  r=__ABUILTIN_5;
 }else{
  FREE(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_81(OBJ x1,OBJ x2,OBJ x3) /* guard */
{OBJ r;
 PRD1(3,r);FLD1(r,1)=x1;FLD1(r,2)=x2;FLD1(r,3)=x3;
 return r;}

extern OBJ _AInterOpal_82(OBJ x1) /* guard? */
{OBJ r;
 FRPRD(x1,1);
 r=__ABUILTIN_5;
 return r;}

extern OBJ _AInterOpal_83(OBJ x1) /* then */
{OBJ r;
 {OBJ x4=FLD1(x1,3);
  if(EXPRD(x1,1)){
   r=x4;
   FLD1(x1,3)=NIL;DSPRD(x1);
  }else{
   CPPRD(x4,1);
   r=x4;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_84(OBJ x1) /* if */
{OBJ r;
 {OBJ x3=FLD1(x1,2);
  if(EXPRD(x1,1)){
   r=x3;
   FLD1(x1,2)=NIL;DSPRD(x1);
  }else{
   CPPRD(x3,1);
   r=x3;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_85(OBJ x1) /* pos,2 */
{OBJ r;
 {OBJ x2=FLD1(x1,1);
  if(EXPRD(x1,1)){
   r=x2;
   FLD1(x1,1)=NIL;DSPRD(x1);
  }else{
   COPY(x2,1);
   r=x2;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_87(OBJ x1,OBJ x2,OBJ x3) /* block */
{OBJ r;
 PRD(3,6,r);FLD(r,1)=x1;FLD(r,2)=x2;FLD(r,3)=x3;
 return r;}

extern OBJ _AInterOpal_88(OBJ x1) /* block? */
{OBJ r;
 if(ISTGPRD(x1,6)){
  if(EXPRD(x1,1)){
   DSPRD(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FRPRD(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_89(OBJ x1) /* body */
{OBJ r;
 if(ISTGPRD(x1,6)||ISTGPRD(x1,5)){
  {OBJ x4=FLD(x1,3);
   if(EXPRD(x1,1)){
    r=x4;
    FLD(x1,3)=NIL;DSPRD(x1);
   }else{
    CPPRD(x4,1);
    r=x4;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection body\'InterOpal:expr->expr");}
 return r;}

extern OBJ _AInterOpal_90(OBJ x1) /* eqns */
{OBJ r;
 if(ISTGPRD(x1,6)){
  {OBJ x3=FLD(x1,2);
   if(EXPRD(x1,1)){
    r=x3;
    FLD(x1,2)=NIL;DSPRD(x1);
   }else{
    COPY(x3,1);
    r=x3;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection eqns\'InterOpal:expr->seq");}
 return r;}

extern OBJ _AInterOpal_91(OBJ x1) /* pos,3 */
{OBJ r;
 {OBJ x2=FLD(x1,1);
  if(EXPRD(x1,1)){
   r=x2;
   FLD(x1,1)=NIL;DSPRD(x1);
  }else{
   COPY(x2,1);
   r=x2;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_92(OBJ x1,OBJ x2,OBJ x3) /* lambda */
{OBJ r;
 PRD(3,5,r);FLD(r,1)=x1;FLD(r,2)=x2;FLD(r,3)=x3;
 return r;}

extern OBJ _AInterOpal_93(OBJ x1) /* lambda? */
{OBJ r;
 if(ISTGPRD(x1,5)){
  if(EXPRD(x1,1)){
   DSPRD(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FRPRD(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_95(OBJ x1) /* vars */
{OBJ r;
 if(ISTGPRD(x1,5)){
  {OBJ x3=FLD(x1,2);
   if(EXPRD(x1,1)){
    r=x3;
    FLD(x1,2)=NIL;DSPRD(x1);
   }else{
    COPY(x3,1);
    r=x3;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection vars\'InterOpal:expr->seq");}
 return r;}

extern OBJ _AInterOpal_97(OBJ x1,OBJ x2,OBJ x3) /* cases */
{OBJ r;
 PRD(3,4,r);FLD(r,1)=x1;FLD(r,2)=x2;FLD(r,3)=x3;
 return r;}

extern OBJ _AInterOpal_98(OBJ x1) /* cases? */
{OBJ r;
 if(ISTGPRD(x1,4)){
  if(EXPRD(x1,1)){
   DSPRD(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FRPRD(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_99(OBJ x1) /* else */
{OBJ r;
 if(ISTGPRD(x1,4)){
  {OBJ x4=FLD(x1,3);
   if(EXPRD(x1,1)){
    r=x4;
    FLD(x1,3)=NIL;DSPRD(x1);
   }else{
    COPY(x4,1);
    r=x4;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection else\'InterOpal:expr->option");}
 return r;}

extern OBJ _AInterOpal_100(OBJ x1) /* guards */
{OBJ r;
 if(ISTGPRD(x1,4)){
  {OBJ x3=FLD(x1,2);
   if(EXPRD(x1,1)){
    r=x3;
    FLD(x1,2)=NIL;DSPRD(x1);
   }else{
    COPY(x3,1);
    r=x3;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection guards\'InterOpal:expr->seq");}
 return r;}

extern OBJ _AInterOpal_102(OBJ x1,OBJ x2,OBJ x3) /* apply */
{OBJ r;
 PRD(3,3,r);FLD(r,1)=x1;FLD(r,2)=x2;FLD(r,3)=x3;
 return r;}

extern OBJ _AInterOpal_103(OBJ x1) /* apply? */
{OBJ r;
 if(ISTGPRD(x1,3)){
  if(EXPRD(x1,1)){
   DSPRD(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FRPRD(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_104(OBJ x1) /* arg */
{OBJ r;
 if(ISTGPRD(x1,3)){
  {OBJ x4=FLD(x1,3);
   if(EXPRD(x1,1)){
    r=x4;
    FLD(x1,3)=NIL;DSPRD(x1);
   }else{
    CPPRD(x4,1);
    r=x4;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection arg\'InterOpal:expr->expr");}
 return r;}

extern OBJ _AInterOpal_105(OBJ x1) /* funct,1 */
{OBJ r;
 if(ISTGPRD(x1,3)){
  {OBJ x3=FLD(x1,2);
   if(EXPRD(x1,1)){
    r=x3;
    FLD(x1,2)=NIL;DSPRD(x1);
   }else{
    CPPRD(x3,1);
    r=x3;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection funct\'InterOpal:expr->expr");}
 return r;}

extern OBJ _AInterOpal_107(OBJ x1,OBJ x2) /* tuple */
{OBJ r;
 PRD(2,2,r);FLD(r,1)=x1;FLD(r,2)=x2;
 return r;}

extern OBJ _AInterOpal_108(OBJ x1) /* tuple? */
{OBJ r;
 if(ISTGPRD(x1,2)){
  if(EXPRD(x1,1)){
   DSPRD(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FRPRD(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_109(OBJ x1) /* elems,1 */
{OBJ r;
 if(ISTGPRD(x1,2)){
  {OBJ x3=FLD(x1,2);
   if(EXPRD(x1,1)){
    r=x3;
    FREE(FLD(x1,1),1);DSPRDF(x1);
   }else{
    COPY(x3,1);
    r=x3;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection elems\'InterOpal:expr->seq");}
 return r;}

extern OBJ _AInterOpal_111(OBJ x1,OBJ x2) /* den */
{OBJ r;
 PRD(2,1,r);FLD(r,1)=x1;FLD(r,2)=x2;
 return r;}

extern OBJ _AInterOpal_112(OBJ x1) /* den? */
{OBJ r;
 if(ISTGPRD(x1,1)){
  if(EXPRD(x1,1)){
   DSPRD(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FRPRD(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_113(OBJ x1) /* rep */
{OBJ r;
 if(ISTGPRD(x1,1)){
  {OBJ x3=FLD(x1,2);
   if(EXPRD(x1,1)){
    r=x3;
    FREE(FLD(x1,1),1);DSPRDF(x1);
   }else{
    CPPRD(x3,1);
    r=x3;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection rep\'InterOpal:expr->denotation");}
 return r;}

extern OBJ _AInterOpal_115(OBJ x1,OBJ x2) /* name,1 */
{OBJ r;
 PRD(2,0,r);FLD(r,1)=x1;FLD(r,2)=x2;
 return r;}

extern OBJ _AInterOpal_116(OBJ x1) /* name?,1 */
{OBJ r;
 if(ISTGPRD(x1,0)){
  if(EXPRD(x1,1)){
   DSPRD(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FRPRD(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_117(OBJ x1) /* name,2 */
{OBJ r;
 if(ISTGPRD(x1,0)){
  {OBJ x3=FLD(x1,2);
   if(EXPRD(x1,1)){
    r=x3;
    FREE(FLD(x1,1),1);DSPRDF(x1);
   }else{
    CPPRD(x3,1);
    r=x3;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection name\'InterOpal:expr->name");}
 return r;}

extern OBJ _AInterOpal_120(OBJ x1,OBJ x2,OBJ x3,OBJ x4) /* var */
{OBJ r;
 PRD1(4,r);FLD1(r,1)=x1;FLD1(r,2)=x2;FLD1(r,3)=x3;FLD1(r,4)=x4;
 return r;}

extern OBJ _AInterOpal_121(OBJ x1) /* var? */
{OBJ r;
 FRPRD(x1,1);
 r=__ABUILTIN_5;
 return r;}

extern OBJ _AInterOpal_122(OBJ x1) /* fct,2 */
{OBJ r;
 {OBJ x5=FLD1(x1,4);
  if(EXPRD(x1,1)){
   r=x5;
   FLD1(x1,4)=NIL;DSPRD(x1);
  }else{
   CPPRD(x5,1);
   r=x5;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_123(OBJ x1) /* symbol */
{OBJ r;
 {OBJ x4=FLD1(x1,3);
  if(EXPRD(x1,1)){
   r=x4;
   FLD1(x1,3)=NIL;DSPRD(x1);
  }else{
   CPPRD(x4,1);
   r=x4;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_124(OBJ x1) /* ident,2 */
{OBJ r;
 {OBJ x3=FLD1(x1,2);
  if(EXPRD(x1,1)){
   r=x3;
   DSPRD(x1);
  }else{
   r=x3;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_125(OBJ x1) /* pos,4 */
{OBJ r;
 {OBJ x2=FLD1(x1,1);
  if(EXPRD(x1,1)){
   r=x2;
   FLD1(x1,1)=NIL;DSPRD(x1);
  }else{
   COPY(x2,1);
   r=x2;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_127(OBJ x1,OBJ x2) /* tuple,1 */
{OBJ r;
 PRD(2,5,r);FLD(r,1)=x1;FLD(r,2)=x2;
 return r;}

extern OBJ _AInterOpal_128(OBJ x1) /* tuple?,1 */
{OBJ r;
 if(ISTGPRD(x1,5)){
  if(EXPRD(x1,1)){
   DSPRD(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FRPRD(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_129(OBJ x1) /* elems,2 */
{OBJ r;
 if(ISTGPRD(x1,5)){
  {OBJ x3=FLD(x1,2);
   if(EXPRD(x1,1)){
    r=x3;
    FREE(FLD(x1,1),1);DSPRDF(x1);
   }else{
    COPY(x3,1);
    r=x3;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection elems\'InterOpal:pattern->seq");}
 return r;}

extern OBJ _AInterOpal_130(OBJ x1) /* pos,5 */
{OBJ r;
 {OBJ x2=FLD(x1,1);
  if(EXPRD(x1,1)){
   r=x2;
   FLD(x1,1)=NIL;DSPRD(x1);
  }else{
   COPY(x2,1);
   r=x2;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_131(OBJ x1,OBJ x2,OBJ x3) /* apply,1 */
{OBJ r;
 PRD(3,4,r);FLD(r,1)=x1;FLD(r,2)=x2;FLD(r,3)=x3;
 return r;}

extern OBJ _AInterOpal_132(OBJ x1) /* apply?,1 */
{OBJ r;
 if(ISTGPRD(x1,4)){
  if(EXPRD(x1,1)){
   DSPRD(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FRPRD(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_133(OBJ x1) /* arg,1 */
{OBJ r;
 if(ISTGPRD(x1,4)){
  {OBJ x4=FLD(x1,3);
   if(EXPRD(x1,1)){
    r=x4;
    FLD(x1,3)=NIL;DSPRD(x1);
   }else{
    CPPRD(x4,1);
    r=x4;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection arg\'InterOpal:pattern->pattern");}
 return r;}

extern OBJ _AInterOpal_134(OBJ x1) /* funct,2 */
{OBJ r;
 if(ISTGPRD(x1,4)){
  {OBJ x3=FLD(x1,2);
   if(EXPRD(x1,1)){
    r=x3;
    FLD(x1,2)=NIL;DSPRD(x1);
   }else{
    CPPRD(x3,1);
    r=x3;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection funct\'InterOpal:pattern->pattern");}
 return r;}

extern OBJ _AInterOpal_136(OBJ x1,OBJ x2,OBJ x3) /* as */
{OBJ r;
 PRD(3,3,r);FLD(r,1)=x1;FLD(r,2)=x2;FLD(r,3)=x3;
 return r;}

extern OBJ _AInterOpal_137(OBJ x1) /* as? */
{OBJ r;
 if(ISTGPRD(x1,3)){
  if(EXPRD(x1,1)){
   DSPRD(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FRPRD(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_138(OBJ x1) /* pattern */
{OBJ r;
 if(ISTGPRD(x1,3)){
  {OBJ x4=FLD(x1,3);
   if(EXPRD(x1,1)){
    r=x4;
    FLD(x1,3)=NIL;DSPRD(x1);
   }else{
    CPPRD(x4,1);
    r=x4;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection pattern\'InterOpal:pattern->pattern");}
 return r;}

extern OBJ _AInterOpal_139(OBJ x1) /* var,1 */
{OBJ r;
 if(ISTGPRD(x1,3)||ISTGPRD(x1,2)){
  {OBJ x3=FLD(x1,2);
   if(EXPRD(x1,1)){
    r=x3;
    FLD(x1,2)=NIL;DSPRD(x1);
   }else{
    CPPRD(x3,1);
    r=x3;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection var\'InterOpal:pattern->var");}
 return r;}

extern OBJ _AInterOpal_141(OBJ x1,OBJ x2) /* var,2 */
{OBJ r;
 PRD(2,2,r);FLD(r,1)=x1;FLD(r,2)=x2;
 return r;}

extern OBJ _AInterOpal_142(OBJ x1) /* var?,1 */
{OBJ r;
 if(ISTGPRD(x1,2)){
  if(EXPRD(x1,1)){
   DSPRD(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FRPRD(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_145(OBJ x1,OBJ x2) /* name,3 */
{OBJ r;
 PRD(2,1,r);FLD(r,1)=x1;FLD(r,2)=x2;
 return r;}

extern OBJ _AInterOpal_146(OBJ x1) /* name?,2 */
{OBJ r;
 if(ISTGPRD(x1,1)){
  if(EXPRD(x1,1)){
   DSPRD(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FRPRD(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_147(OBJ x1) /* name,4 */
{OBJ r;
 if(ISTGPRD(x1,1)){
  {OBJ x3=FLD(x1,2);
   if(EXPRD(x1,1)){
    r=x3;
    FREE(FLD(x1,1),1);DSPRDF(x1);
   }else{
    CPPRD(x3,1);
    r=x3;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection name\'InterOpal:pattern->name");}
 return r;}

extern OBJ _AInterOpal_149(OBJ x1) /* any */
{OBJ r;
 PRD(1,0,r);FLD(r,1)=x1;
 return r;}

extern OBJ _AInterOpal_150(OBJ x1) /* any? */
{OBJ r;
 if(ISTGPRD(x1,0)){
  if(EXPRD(x1,1)){
   FREE(FLD(x1,1),1);DSPRDF(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FRPRD(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_153(OBJ x1,OBJ x2,OBJ x3,OBJ x4) /* eqn */
{OBJ r;
 PRD1(4,r);FLD1(r,1)=x1;FLD1(r,2)=x2;FLD1(r,3)=x3;FLD1(r,4)=x4;
 return r;}

extern OBJ _AInterOpal_154(OBJ x1) /* eqn? */
{OBJ r;
 FRPRD(x1,1);
 r=__ABUILTIN_5;
 return r;}

extern OBJ _AInterOpal_155(OBJ x1) /* rhs */
{OBJ r;
 {OBJ x5=FLD1(x1,4);
  if(EXPRD(x1,1)){
   r=x5;
   FLD1(x1,4)=NIL;DSPRD(x1);
  }else{
   CPPRD(x5,1);
   r=x5;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_156(OBJ x1) /* patterns */
{OBJ r;
 {OBJ x4=FLD1(x1,3);
  if(EXPRD(x1,1)){
   r=x4;
   FLD1(x1,3)=NIL;DSPRD(x1);
  }else{
   COPY(x4,1);
   r=x4;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_157(OBJ x1) /* lhs */
{OBJ r;
 {OBJ x3=FLD1(x1,2);
  if(EXPRD(x1,1)){
   r=x3;
   FLD1(x1,2)=NIL;DSPRD(x1);
  }else{
   CPPRD(x3,1);
   r=x3;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_158(OBJ x1) /* pos,6 */
{OBJ r;
 {OBJ x2=FLD1(x1,1);
  if(EXPRD(x1,1)){
   r=x2;
   FLD1(x1,1)=NIL;DSPRD(x1);
  }else{
   COPY(x2,1);
   r=x2;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_160(OBJ x1,OBJ x2) /* comp */
{OBJ r;
 PRD1(2,r);FLD1(r,1)=x1;FLD1(r,2)=x2;
 return r;}

extern OBJ _AInterOpal_161(OBJ x1) /* comp? */
{OBJ r;
 FRPRD(x1,1);
 r=__ABUILTIN_5;
 return r;}

extern OBJ _AInterOpal_162(OBJ x1) /* sel */
{OBJ r;
 {OBJ x3=FLD1(x1,2);
  if(EXPRD(x1,1)){
   r=x3;
   FREE(FLD1(x1,1),1);DSPRDF(x1);
  }else{
   CPPRD(x3,1);
   r=x3;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_163(OBJ x1) /* pos,7 */
{OBJ r;
 {OBJ x2=FLD1(x1,1);
  if(EXPRD(x1,1)){
   r=x2;
   FRPRD(FLD1(x1,2),1);DSPRDF(x1);
  }else{
   COPY(x2,1);
   r=x2;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_165(OBJ x1,OBJ x2,OBJ x3,OBJ x4) /* variant */
{OBJ r;
 PRD1(4,r);FLD1(r,1)=x1;FLD1(r,2)=x2;FLD1(r,3)=x3;FLD1(r,4)=x4;
 return r;}

extern OBJ _AInterOpal_166(OBJ x1) /* variant? */
{OBJ r;
 FRPRD(x1,1);
 r=__ABUILTIN_5;
 return r;}

extern OBJ _AInterOpal_167(OBJ x1) /* comps */
{OBJ r;
 {OBJ x5=FLD1(x1,4);
  if(EXPRD(x1,1)){
   r=x5;
   FLD1(x1,4)=NIL;DSPRD(x1);
  }else{
   COPY(x5,1);
   r=x5;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_168(OBJ x1) /* test */
{OBJ r;
 {OBJ x4=FLD1(x1,3);
  if(EXPRD(x1,1)){
   r=x4;
   FLD1(x1,3)=NIL;DSPRD(x1);
  }else{
   CPPRD(x4,1);
   r=x4;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_169(OBJ x1) /* cons */
{OBJ r;
 {OBJ x3=FLD1(x1,2);
  if(EXPRD(x1,1)){
   r=x3;
   FLD1(x1,2)=NIL;DSPRD(x1);
  }else{
   CPPRD(x3,1);
   r=x3;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_170(OBJ x1) /* pos,8 */
{OBJ r;
 {OBJ x2=FLD1(x1,1);
  if(EXPRD(x1,1)){
   r=x2;
   FLD1(x1,1)=NIL;DSPRD(x1);
  }else{
   COPY(x2,1);
   r=x2;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_172(OBJ x1,OBJ x2,OBJ x3) /* other,1 */
{OBJ r;
 PRD(3,6,r);FLD(r,1)=x1;FLD(r,2)=x2;FLD(r,3)=x3;
 return r;}

extern OBJ _AInterOpal_173(OBJ x1) /* other?,1 */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,6))){
  if(EXPRD(x1,1)){
   DSPRD(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FREE(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_174(OBJ x1) /* data,1 */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,6))){
  {OBJ x4=FLD(x1,3);
   if(EXPRD(x1,1)){
    r=x4;
    FLD(x1,3)=NIL;DSPRD(x1);
   }else{
    CPPRD(x4,1);
    r=x4;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection data\'InterOpal:impl->dyn");}
 return r;}

extern OBJ _AInterOpal_175(OBJ x1) /* id,1 */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,6))){
  {OBJ x3=FLD(x1,2);
   if(EXPRD(x1,1)){
    r=x3;
    FLD(x1,2)=NIL;DSPRD(x1);
   }else{
    CPPRD(x3,1);
    r=x3;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection id\'InterOpal:impl->denotation");}
 return r;}

extern OBJ _AInterOpal_176(OBJ x1) /* pos,9 */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,3)||ISTGPRD(x1,6)||ISTGPRD(x1,2))){
  {OBJ x2=FLD(x1,1);
   if(EXPRD(x1,1)){
    r=x2;
    FLD(x1,1)=NIL;DSPRD(x1);
   }else{
    COPY(x2,1);
    r=x2;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection pos\'InterOpal:impl->pos");}
 return r;}

extern OBJ _AInterOpal_177(OBJ x1) /* def */
{OBJ r;
 PRD(1,5,r);FLD(r,1)=x1;
 return r;}

extern OBJ _AInterOpal_178(OBJ x1) /* def? */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,5))){
  if(EXPRD(x1,1)){
   FREE(FLD(x1,1),1);DSPRDF(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FREE(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_179(OBJ x1) /* eqns,1 */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,5))){
  {OBJ x2=FLD(x1,1);
   if(EXPRD(x1,1)){
    r=x2;
    DSPRDF(x1);
   }else{
    COPY(x2,1);
    r=x2;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection eqns\'InterOpal:impl->seq");}
 return r;}

extern OBJ _AInterOpal_180(OBJ x1) /* data,2 */
{OBJ r;
 PRD(1,4,r);FLD(r,1)=x1;
 return r;}

extern OBJ _AInterOpal_181(OBJ x1) /* data? */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,4))){
  if(EXPRD(x1,1)){
   FREE(FLD(x1,1),1);DSPRDF(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FREE(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_182(OBJ x1) /* variants */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,4))){
  {OBJ x2=FLD(x1,1);
   if(EXPRD(x1,1)){
    r=x2;
    DSPRDF(x1);
   }else{
    COPY(x2,1);
    r=x2;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection variants\'InterOpal:impl->seq");}
 return r;}

extern OBJ _AInterOpal_183(OBJ x1,OBJ x2) /* induced */
{OBJ r;
 PRD(2,3,r);FLD(r,1)=x1;FLD(r,2)=x2;
 return r;}

extern OBJ _AInterOpal_184(OBJ x1) /* induced? */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,3))){
  if(EXPRD(x1,1)){
   DSPRD(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FREE(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_185(OBJ x1) /* sort,3 */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,3))){
  {OBJ x3=FLD(x1,2);
   if(EXPRD(x1,1)){
    r=x3;
    FREE(FLD(x1,1),1);DSPRDF(x1);
   }else{
    CPPRD(x3,1);
    r=x3;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection sort\'InterOpal:impl->name");}
 return r;}

extern OBJ _AInterOpal_187(OBJ x1,OBJ x2) /* parameter */
{OBJ r;
 PRD(2,2,r);FLD(r,1)=x1;FLD(r,2)=x2;
 return r;}

extern OBJ _AInterOpal_188(OBJ x1) /* parameter? */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,2))){
  if(EXPRD(x1,1)){
   FREE(FLD(x1,1),1);DSPRDF(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FREE(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_189(OBJ x1) /* no,3 */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,2))){
  {OBJ x3=FLD(x1,2);
   if(EXPRD(x1,1)){
    r=x3;
    FREE(FLD(x1,1),1);DSPRDF(x1);
   }else{
    r=x3;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection no\'InterOpal:impl->nat");}
 return r;}

extern OBJ _AInterOpal_192(OBJ x1) /* imported? */
{OBJ r;
 if(ISPRM(x1)&&(ISTGPRM(x1,1))){
  r=__ABUILTIN_5;
 }else{
  FREE(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_194(OBJ x1) /* missing? */
{OBJ r;
 if(ISPRM(x1)&&(ISTGPRM(x1,0))){
  r=__ABUILTIN_5;
 }else{
  FREE(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_196(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5,OBJ x6,OBJ x7) /* object */
{OBJ r;
 PRD1(7,r);FLD1(r,1)=x1;FLD1(r,2)=x2;FLD1(r,3)=x3;FLD1(r,4)=x4;FLD1(r,5)=x5;FLD1(r,6)=x6;FLD1(r,7)=x7;
 return r;}

extern OBJ _AInterOpal_197(OBJ x1) /* object? */
{OBJ r;
 FRPRD(x1,1);
 r=__ABUILTIN_5;
 return r;}

extern OBJ _AInterOpal_198(OBJ x1) /* pragmas */
{OBJ r;
 {OBJ x8=FLD1(x1,7);
  if(EXPRD(x1,1)){
   r=x8;
   FLD1(x1,7)=NIL;DSPRD(x1);
  }else{
   COPY(x8,1);
   r=x8;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_199(OBJ x1) /* props */
{OBJ r;
 {OBJ x7=FLD1(x1,6);
  if(EXPRD(x1,1)){
   r=x7;
   FLD1(x1,6)=NIL;DSPRD(x1);
  }else{
   COPY(x7,1);
   r=x7;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_200(OBJ x1) /* def,1 */
{OBJ r;
 {OBJ x6=FLD1(x1,5);
  if(EXPRD(x1,1)){
   r=x6;
   FLD1(x1,5)=NIL;DSPRD(x1);
  }else{
   COPY(x6,1);
   r=x6;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_201(OBJ x1) /* kind */
{OBJ r;
 {OBJ x5=FLD1(x1,4);
  if(EXPRD(x1,1)){
   r=x5;
   FLD1(x1,4)=NIL;DSPRD(x1);
  }else{
   COPY(x5,1);
   r=x5;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_202(OBJ x1) /* symbol,1 */
{OBJ r;
 {OBJ x4=FLD1(x1,3);
  if(EXPRD(x1,1)){
   r=x4;
   FLD1(x1,3)=NIL;DSPRD(x1);
  }else{
   CPPRD(x4,1);
   r=x4;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_203(OBJ x1) /* ident,3 */
{OBJ r;
 {OBJ x3=FLD1(x1,2);
  if(EXPRD(x1,1)){
   r=x3;
   DSPRD(x1);
  }else{
   r=x3;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_204(OBJ x1) /* pos,10 */
{OBJ r;
 {OBJ x2=FLD1(x1,1);
  if(EXPRD(x1,1)){
   r=x2;
   FLD1(x1,1)=NIL;DSPRD(x1);
  }else{
   COPY(x2,1);
   r=x2;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_206(OBJ x1,OBJ x2,OBJ x3) /* other,2 */
{OBJ r;
 PRD(3,11,r);FLD(r,1)=x1;FLD(r,2)=x2;FLD(r,3)=x3;
 return r;}

extern OBJ _AInterOpal_207(OBJ x1) /* other?,2 */
{OBJ r;
 if(ISTGPRD(x1,11)){
  if(EXPRD(x1,1)){
   DSPRD(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FRPRD(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_208(OBJ x1) /* data,3 */
{OBJ r;
 if(ISTGPRD(x1,11)){
  {OBJ x4=FLD(x1,3);
   if(EXPRD(x1,1)){
    r=x4;
    FLD(x1,3)=NIL;DSPRD(x1);
   }else{
    CPPRD(x4,1);
    r=x4;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection data\'InterOpal:formula->dyn");}
 return r;}

extern OBJ _AInterOpal_209(OBJ x1) /* id,2 */
{OBJ r;
 if(ISTGPRD(x1,11)){
  {OBJ x3=FLD(x1,2);
   if(EXPRD(x1,1)){
    r=x3;
    FLD(x1,2)=NIL;DSPRD(x1);
   }else{
    CPPRD(x3,1);
    r=x3;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection id\'InterOpal:formula->denotation");}
 return r;}

extern OBJ _AInterOpal_210(OBJ x1) /* pos,11 */
{OBJ r;
 {OBJ x2=FLD(x1,1);
  if(EXPRD(x1,1)){
   r=x2;
   FLD(x1,1)=NIL;DSPRD(x1);
  }else{
   COPY(x2,1);
   r=x2;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_211(OBJ x1,OBJ x2) /* informal */
{OBJ r;
 PRD(2,10,r);FLD(r,1)=x1;FLD(r,2)=x2;
 return r;}

extern OBJ _AInterOpal_212(OBJ x1) /* informal? */
{OBJ r;
 if(ISTGPRD(x1,10)){
  if(EXPRD(x1,1)){
   DSPRD(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FRPRD(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_213(OBJ x1) /* text,1 */
{OBJ r;
 if(ISTGPRD(x1,10)){
  {OBJ x3=FLD(x1,2);
   if(EXPRD(x1,1)){
    r=x3;
    FREE(FLD(x1,1),1);DSPRDF(x1);
   }else{
    CPPRD(x3,1);
    r=x3;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection text\'InterOpal:formula->denotation");}
 return r;}

extern OBJ _AInterOpal_215(OBJ x1,OBJ x2,OBJ x3) /* exist */
{OBJ r;
 PRD(3,9,r);FLD(r,1)=x1;FLD(r,2)=x2;FLD(r,3)=x3;
 return r;}

extern OBJ _AInterOpal_216(OBJ x1) /* exist? */
{OBJ r;
 if(ISTGPRD(x1,9)){
  if(EXPRD(x1,1)){
   DSPRD(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FRPRD(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_217(OBJ x1) /* range */
{OBJ r;
 if(ISTGPRD(x1,9)||ISTGPRD(x1,8)){
  {OBJ x4=FLD(x1,3);
   if(EXPRD(x1,1)){
    r=x4;
    FLD(x1,3)=NIL;DSPRD(x1);
   }else{
    CPPRD(x4,1);
    r=x4;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection range\'InterOpal:formula->formula");}
 return r;}

extern OBJ _AInterOpal_218(OBJ x1) /* vars,1 */
{OBJ r;
 if(ISTGPRD(x1,9)||ISTGPRD(x1,8)){
  {OBJ x3=FLD(x1,2);
   if(EXPRD(x1,1)){
    r=x3;
    FLD(x1,2)=NIL;DSPRD(x1);
   }else{
    COPY(x3,1);
    r=x3;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection vars\'InterOpal:formula->seq");}
 return r;}

extern OBJ _AInterOpal_220(OBJ x1,OBJ x2,OBJ x3) /* forall */
{OBJ r;
 PRD(3,8,r);FLD(r,1)=x1;FLD(r,2)=x2;FLD(r,3)=x3;
 return r;}

extern OBJ _AInterOpal_221(OBJ x1) /* forall? */
{OBJ r;
 if(ISTGPRD(x1,8)){
  if(EXPRD(x1,1)){
   DSPRD(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FRPRD(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_225(OBJ x1,OBJ x2,OBJ x3) /* equiv */
{OBJ r;
 PRD(3,7,r);FLD(r,1)=x1;FLD(r,2)=x2;FLD(r,3)=x3;
 return r;}

extern OBJ _AInterOpal_226(OBJ x1) /* equiv? */
{OBJ r;
 if(ISTGPRD(x1,7)){
  if(EXPRD(x1,1)){
   DSPRD(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FRPRD(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_227(OBJ x1) /* right */
{OBJ r;
 if(ISTGPRD(x1,5)||ISTGPRD(x1,7)||ISTGPRD(x1,4)){
  {OBJ x4=FLD(x1,3);
   if(EXPRD(x1,1)){
    r=x4;
    FLD(x1,3)=NIL;DSPRD(x1);
   }else{
    CPPRD(x4,1);
    r=x4;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection right\'InterOpal:formula->formula");}
 return r;}

extern OBJ _AInterOpal_228(OBJ x1) /* left */
{OBJ r;
 if(ISTGPRD(x1,5)||ISTGPRD(x1,7)||ISTGPRD(x1,4)){
  {OBJ x3=FLD(x1,2);
   if(EXPRD(x1,1)){
    r=x3;
    FLD(x1,2)=NIL;DSPRD(x1);
   }else{
    CPPRD(x3,1);
    r=x3;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection left\'InterOpal:formula->formula");}
 return r;}

extern OBJ _AInterOpal_230(OBJ x1,OBJ x2,OBJ x3) /* impl */
{OBJ r;
 PRD(3,6,r);FLD(r,1)=x1;FLD(r,2)=x2;FLD(r,3)=x3;
 return r;}

extern OBJ _AInterOpal_231(OBJ x1) /* impl? */
{OBJ r;
 if(ISTGPRD(x1,6)){
  if(EXPRD(x1,1)){
   DSPRD(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FRPRD(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_232(OBJ x1) /* conclusion */
{OBJ r;
 if(ISTGPRD(x1,6)){
  {OBJ x4=FLD(x1,3);
   if(EXPRD(x1,1)){
    r=x4;
    FLD(x1,3)=NIL;DSPRD(x1);
   }else{
    CPPRD(x4,1);
    r=x4;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection conclusion\'InterOpal:formula->formula");}
 return r;}

extern OBJ _AInterOpal_233(OBJ x1) /* premise */
{OBJ r;
 if(ISTGPRD(x1,6)){
  {OBJ x3=FLD(x1,2);
   if(EXPRD(x1,1)){
    r=x3;
    FLD(x1,2)=NIL;DSPRD(x1);
   }else{
    CPPRD(x3,1);
    r=x3;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection premise\'InterOpal:formula->formula");}
 return r;}

extern OBJ _AInterOpal_235(OBJ x1,OBJ x2,OBJ x3) /* disj */
{OBJ r;
 PRD(3,5,r);FLD(r,1)=x1;FLD(r,2)=x2;FLD(r,3)=x3;
 return r;}

extern OBJ _AInterOpal_236(OBJ x1) /* disj? */
{OBJ r;
 if(ISTGPRD(x1,5)){
  if(EXPRD(x1,1)){
   DSPRD(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FRPRD(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_240(OBJ x1,OBJ x2,OBJ x3) /* conj */
{OBJ r;
 PRD(3,4,r);FLD(r,1)=x1;FLD(r,2)=x2;FLD(r,3)=x3;
 return r;}

extern OBJ _AInterOpal_241(OBJ x1) /* conj? */
{OBJ r;
 if(ISTGPRD(x1,4)){
  if(EXPRD(x1,1)){
   DSPRD(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FRPRD(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_245(OBJ x1,OBJ x2) /* neg */
{OBJ r;
 PRD(2,3,r);FLD(r,1)=x1;FLD(r,2)=x2;
 return r;}

extern OBJ _AInterOpal_246(OBJ x1) /* neg? */
{OBJ r;
 if(ISTGPRD(x1,3)){
  if(EXPRD(x1,1)){
   DSPRD(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FRPRD(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_247(OBJ x1) /* formula */
{OBJ r;
 if(ISTGPRD(x1,3)){
  {OBJ x3=FLD(x1,2);
   if(EXPRD(x1,1)){
    r=x3;
    FREE(FLD(x1,1),1);DSPRDF(x1);
   }else{
    CPPRD(x3,1);
    r=x3;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection formula\'InterOpal:formula->formula");}
 return r;}

extern OBJ _AInterOpal_249(OBJ x1,OBJ x2,OBJ x3) /* cong */
{OBJ r;
 PRD(3,2,r);FLD(r,1)=x1;FLD(r,2)=x2;FLD(r,3)=x3;
 return r;}

extern OBJ _AInterOpal_250(OBJ x1) /* cong? */
{OBJ r;
 if(ISTGPRD(x1,2)){
  if(EXPRD(x1,1)){
   DSPRD(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FRPRD(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_251(OBJ x1) /* right,1 */
{OBJ r;
 if(ISTGPRD(x1,2)||ISTGPRD(x1,1)){
  {OBJ x4=FLD(x1,3);
   if(EXPRD(x1,1)){
    r=x4;
    FLD(x1,3)=NIL;DSPRD(x1);
   }else{
    CPPRD(x4,1);
    r=x4;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection right\'InterOpal:formula->expr");}
 return r;}

extern OBJ _AInterOpal_252(OBJ x1) /* left,1 */
{OBJ r;
 if(ISTGPRD(x1,2)||ISTGPRD(x1,1)){
  {OBJ x3=FLD(x1,2);
   if(EXPRD(x1,1)){
    r=x3;
    FLD(x1,2)=NIL;DSPRD(x1);
   }else{
    CPPRD(x3,1);
    r=x3;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection left\'InterOpal:formula->expr");}
 return r;}

extern OBJ _AInterOpal_254(OBJ x1,OBJ x2,OBJ x3) /* approx */
{OBJ r;
 PRD(3,1,r);FLD(r,1)=x1;FLD(r,2)=x2;FLD(r,3)=x3;
 return r;}

extern OBJ _AInterOpal_255(OBJ x1) /* approx? */
{OBJ r;
 if(ISTGPRD(x1,1)){
  if(EXPRD(x1,1)){
   DSPRD(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FRPRD(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_259(OBJ x1,OBJ x2) /* dfd */
{OBJ r;
 PRD(2,0,r);FLD(r,1)=x1;FLD(r,2)=x2;
 return r;}

extern OBJ _AInterOpal_260(OBJ x1) /* dfd? */
{OBJ r;
 if(ISTGPRD(x1,0)){
  if(EXPRD(x1,1)){
   DSPRD(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FRPRD(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_261(OBJ x1) /* expr */
{OBJ r;
 if(ISTGPRD(x1,0)){
  {OBJ x3=FLD(x1,2);
   if(EXPRD(x1,1)){
    r=x3;
    FREE(FLD(x1,1),1);DSPRDF(x1);
   }else{
    CPPRD(x3,1);
    r=x3;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection expr\'InterOpal:formula->expr");}
 return r;}

extern OBJ _AInterOpal_264(OBJ x1,OBJ x2,OBJ x3,OBJ x4) /* other,3 */
{OBJ r;
 PRD(4,2,r);FLD(r,1)=x1;FLD(r,2)=x2;FLD(r,3)=x3;FLD(r,4)=x4;
 return r;}

extern OBJ _AInterOpal_265(OBJ x1) /* other?,3 */
{OBJ r;
 if(ISTGPRD(x1,2)){
  if(EXPRD(x1,1)){
   DSPRD(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FRPRD(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_266(OBJ x1) /* pragmas,1 */
{OBJ r;
 switch(TGPRD(x1)){
  case 2:
   {OBJ x15=FLD(x1,4);
    if(EXPRD(x1,1)){
     r=x15;
     FLD(x1,4)=NIL;DSPRD(x1);
    }else{
     COPY(x15,1);
     r=x15;
     FRPRD(x1,1);}}break;
  default: 
   {OBJ x6=FLD(x1,5);
    if(EXPRD(x1,1)){
     r=x6;
     FLD(x1,5)=NIL;DSPRD(x1);
    }else{
     COPY(x6,1);
     r=x6;
     FRPRD(x1,1);}}}
 return r;}

extern OBJ _AInterOpal_267(OBJ x1) /* data,4 */
{OBJ r;
 if(ISTGPRD(x1,2)){
  {OBJ x4=FLD(x1,3);
   if(EXPRD(x1,1)){
    r=x4;
    FLD(x1,3)=NIL;DSPRD(x1);
   }else{
    CPPRD(x4,1);
    r=x4;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection data\'InterOpal:property->dyn");}
 return r;}

extern OBJ _AInterOpal_268(OBJ x1) /* id,3 */
{OBJ r;
 if(ISTGPRD(x1,2)){
  {OBJ x3=FLD(x1,2);
   if(EXPRD(x1,1)){
    r=x3;
    FLD(x1,2)=NIL;DSPRD(x1);
   }else{
    CPPRD(x3,1);
    r=x3;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection id\'InterOpal:property->denotation");}
 return r;}

extern OBJ _AInterOpal_269(OBJ x1) /* pos,12 */
{OBJ r;
 {OBJ x2=FLD(x1,1);
  if(EXPRD(x1,1)){
   r=x2;
   FLD(x1,1)=NIL;DSPRD(x1);
  }else{
   COPY(x2,1);
   r=x2;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_270(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5) /* law */
{OBJ r;
 PRD(5,1,r);FLD(r,1)=x1;FLD(r,2)=x2;FLD(r,3)=x3;FLD(r,4)=x4;FLD(r,5)=x5;
 return r;}

extern OBJ _AInterOpal_271(OBJ x1) /* law? */
{OBJ r;
 if(ISTGPRD(x1,1)){
  if(EXPRD(x1,1)){
   DSPRD(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FRPRD(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_273(OBJ x1) /* formula,1 */
{OBJ r;
 if(ISTGPRD(x1,1)){
  {OBJ x5=FLD(x1,4);
   if(EXPRD(x1,1)){
    r=x5;
    FLD(x1,4)=NIL;DSPRD(x1);
   }else{
    CPPRD(x5,1);
    r=x5;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection formula\'InterOpal:property->formula");}
 return r;}

extern OBJ _AInterOpal_274(OBJ x1) /* symbol,2 */
{OBJ r;
 if(ISTGPRD(x1,1)){
  {OBJ x4=FLD(x1,3);
   if(EXPRD(x1,1)){
    r=x4;
    FLD(x1,3)=NIL;DSPRD(x1);
   }else{
    COPY(x4,1);
    r=x4;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection symbol\'InterOpal:property->option");}
 return r;}

extern OBJ _AInterOpal_275(OBJ x1) /* ident,4 */
{OBJ r;
 switch(TGPRD(x1)){
  case 2:
   HLT("InterOpal at <unknown> : undefined selection ident\'InterOpal:property->ident");break;
  default: 
   {OBJ x3=FLD(x1,2);
    if(EXPRD(x1,1)){
     r=x3;
     DSPRD(x1);
    }else{
     r=x3;
     FRPRD(x1,1);}}}
 return r;}

extern OBJ _AInterOpal_277(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5) /* freeType */
{OBJ r;
 PRD(5,0,r);FLD(r,1)=x1;FLD(r,2)=x2;FLD(r,3)=x3;FLD(r,4)=x4;FLD(r,5)=x5;
 return r;}

extern OBJ _AInterOpal_278(OBJ x1) /* freeType? */
{OBJ r;
 if(ISTGPRD(x1,0)){
  if(EXPRD(x1,1)){
   DSPRD(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FRPRD(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_280(OBJ x1) /* variants,1 */
{OBJ r;
 if(ISTGPRD(x1,0)){
  {OBJ x5=FLD(x1,4);
   if(EXPRD(x1,1)){
    r=x5;
    FLD(x1,4)=NIL;DSPRD(x1);
   }else{
    COPY(x5,1);
    r=x5;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection variants\'InterOpal:property->seq");}
 return r;}

extern OBJ _AInterOpal_281(OBJ x1) /* sort,4 */
{OBJ r;
 if(ISTGPRD(x1,0)){
  {OBJ x4=FLD(x1,3);
   if(EXPRD(x1,1)){
    r=x4;
    FLD(x1,3)=NIL;DSPRD(x1);
   }else{
    CPPRD(x4,1);
    r=x4;
    FRPRD(x1,1);}}
 }else{
  HLT("InterOpal at <unknown> : undefined selection sort\'InterOpal:property->name");}
 return r;}

extern OBJ _AInterOpal_285(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5,OBJ x6,OBJ x7,OBJ x8) /* struct */
{OBJ r;
 PRD1(8,r);FLD1(r,1)=x1;FLD1(r,2)=x2;FLD1(r,3)=x3;FLD1(r,4)=x4;FLD1(r,5)=x5;FLD1(r,6)=x6;FLD1(r,7)=x7;FLD1(r,8)=x8;
 return r;}

extern OBJ _AInterOpal_286(OBJ x1) /* struct? */
{OBJ r;
 FRPRD(x1,1);
 r=__ABUILTIN_5;
 return r;}

extern OBJ _AInterOpal_287(OBJ x1) /* pragmas,2 */
{OBJ r;
 {OBJ x9=FLD1(x1,8);
  if(EXPRD(x1,1)){
   r=x9;
   FLD1(x1,8)=NIL;DSPRD(x1);
  }else{
   COPY(x9,1);
   r=x9;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_288(OBJ x1) /* props,1 */
{OBJ r;
 {OBJ x8=FLD1(x1,7);
  if(EXPRD(x1,1)){
   r=x8;
   FLD1(x1,7)=NIL;DSPRD(x1);
  }else{
   COPY(x8,1);
   r=x8;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_289(OBJ x1) /* objs */
{OBJ r;
 {OBJ x7=FLD1(x1,6);
  if(EXPRD(x1,1)){
   r=x7;
   FLD1(x1,6)=NIL;DSPRD(x1);
  }else{
   COPY(x7,1);
   r=x7;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_290(OBJ x1) /* onlys */
{OBJ r;
 {OBJ x6=FLD1(x1,5);
  if(EXPRD(x1,1)){
   r=x6;
   FLD1(x1,5)=NIL;DSPRD(x1);
  }else{
   COPY(x6,1);
   r=x6;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_291(OBJ x1) /* insts */
{OBJ r;
 {OBJ x5=FLD1(x1,4);
  if(EXPRD(x1,1)){
   r=x5;
   FLD1(x1,4)=NIL;DSPRD(x1);
  }else{
   COPY(x5,1);
   r=x5;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_292(OBJ x1) /* symbol,3 */
{OBJ r;
 {OBJ x4=FLD1(x1,3);
  if(EXPRD(x1,1)){
   r=x4;
   FLD1(x1,3)=NIL;DSPRD(x1);
  }else{
   CPPRD(x4,1);
   r=x4;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_293(OBJ x1) /* origin,2 */
{OBJ r;
 {OBJ x3=FLD1(x1,2);
  if(EXPRD(x1,1)){
   r=x3;
   FLD1(x1,2)=NIL;DSPRD(x1);
  }else{
   COPY(x3,1);
   r=x3;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_294(OBJ x1) /* pos,13 */
{OBJ r;
 {OBJ x2=FLD1(x1,1);
  if(EXPRD(x1,1)){
   r=x2;
   FLD1(x1,1)=NIL;DSPRD(x1);
  }else{
   COPY(x2,1);
   r=x2;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_297(OBJ x1) /* intProperties? */
{OBJ r;
 if(ISTGPRM(x1,3)){
  r=__ABUILTIN_5;
 }else{
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_299(OBJ x1) /* implementation? */
{OBJ r;
 if(ISTGPRM(x1,2)){
  r=__ABUILTIN_5;
 }else{
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_301(OBJ x1) /* extProperties? */
{OBJ r;
 if(ISTGPRM(x1,1)){
  r=__ABUILTIN_5;
 }else{
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_303(OBJ x1) /* signature? */
{OBJ r;
 if(ISTGPRM(x1,0)){
  r=__ABUILTIN_5;
 }else{
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AInterOpal_305(OBJ x1,OBJ x2) /* interOpal */
{OBJ r;
 PRD1(2,r);FLD1(r,1)=x1;FLD1(r,2)=x2;
 return r;}

extern OBJ _AInterOpal_306(OBJ x1) /* interOpal? */
{OBJ r;
 FRPRD(x1,1);
 r=__ABUILTIN_5;
 return r;}

extern OBJ _AInterOpal_307(OBJ x1) /* structs */
{OBJ r;
 {OBJ x3=FLD1(x1,2);
  if(EXPRD(x1,1)){
   r=x3;
   DSPRDF(x1);
  }else{
   COPY(x3,1);
   r=x3;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_308(OBJ x1) /* part,2 */
{OBJ r;
 {OBJ x2=FLD1(x1,1);
  if(EXPRD(x1,1)){
   r=x2;
   FREE(FLD1(x1,2),1);DSPRDF(x1);
  }else{
   r=x2;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AInterOpal_309(OBJ x1,OBJ x2) /* < */
{OBJ r;
 {OBJ x31=FLD1(x1,1);OBJ x32=FLD1(x1,2);OBJ x33=FLD1(x1,3);
  if(EXPRD(x1,1)){
   DSPRDF(x1);
  }else{
   COPY(x32,1);COPY(x33,1);
   FRPRD(x1,1);}
  {OBJ x50=FLD1(x2,1);OBJ x51=FLD1(x2,2);OBJ x52=FLD1(x2,3);
   if(EXPRD(x2,1)){
    COPY(x51,1);
    DSPRDF(x2);
   }else{
    COPY(x51,2);COPY(x52,1);
    FRPRD(x2,1);}
   COPY(x32,1);
   {OBJ x53;
    x53=_AInterOpal_314(x32,x51);
    if(ISTGPRM(x53,1)){
     FREE(x32,1);
     FREE(x33,1);
     FREE(x51,1);
     FREE(x52,1);
     r=__ABUILTIN_5;
    }else{
     {OBJ x54;
      x54=_AInterOpal_314(x51,x32);
      if(ISTGPRM(x54,1)){
       FREE(x33,1);
       FREE(x52,1);
       r=__ABUILTIN_3;
      }else{
       {OBJ x55;
	ANat_80(x31,x50,x55);
	if(ISTGPRM(x55,1)){
	 FREE(x33,1);
	 FREE(x52,1);
	 r=__ABUILTIN_5;
	}else{
	 {OBJ x56;
	  ANat_80(x50,x31,x56);
	  if(ISTGPRM(x56,1)){
	   FREE(x33,1);
	   FREE(x52,1);
	   r=__ABUILTIN_3;
	  }else{
	   r=_AInterOpal_315(x33,x52);}}}}}}}}}}
 return r;}

extern OBJ _AInterOpal_310(OBJ x1,OBJ x2) /* <,1 */
{OBJ r;
 ANat_80(x1,x2,r);
 return r;}

extern OBJ _AInterOpal_312(OBJ x1) /* nextLaw */
{OBJ r;
 ANat_2(x1,r);
 return r;}

extern OBJ _AInterOpal_313(OBJ x1) /* isLaw? */
{OBJ r;
 ANat_79(x1,__ANat_55,r);
 return r;}

extern OBJ _AInterOpal_314(OBJ x1,OBJ x2) /* <,2 */
{OBJ r;
 if(ISPRM(x1)){
  if(ISTGPRM(x1,1)){
   if(ISPRD(x2)){
    if(EXPRD(x2,1)){
     DSPRDF(x2);
    }else{
     DCPRD(x2,1);}
    r=__ABUILTIN_5;
   }else{
    FREE(x2,1);
    r=__ABUILTIN_3;}
  }else{
   if(ISPRM(x2)&&(ISTGPRM(x2,0))){
    r=__ABUILTIN_3;
   }else{
    FREE(x2,1);
    r=__ABUILTIN_5;}}
 }else{
  {OBJ x25=FLD1(x1,1);
   if(EXPRD(x1,1)){
    DSPRDF(x1);
   }else{
    FRPRD(x1,1);}
   if(ISPRD(x2)){
    {OBJ x26=FLD1(x2,1);
     if(EXPRD(x2,1)){
      DSPRDF(x2);
     }else{
      FRPRD(x2,1);}
     ANat_80(x25,x26,r);}
   }else{
    FREE(x2,1);
    r=__ABUILTIN_3;}}}
 return r;}

extern OBJ _AInterOpal_315(OBJ x1,OBJ x2) /* <,3 */
{OBJ r;
 if(ISPRM(x1)){
  switch(TGPRM(x1)){
   case 2:
    if(ISPRD(x2)){
     if(EXPRD(x2,1)){
      DSPRDF(x2);
     }else{
      DCPRD(x2,1);}
     r=__ABUILTIN_5;
    }else{
     FREE(x2,1);
     r=__ABUILTIN_3;}break;
   case 0:
    if(ISPRM(x2)&&(ISTGPRM(x2,0))){
     r=__ABUILTIN_3;
    }else{
     FREE(x2,1);
     r=__ABUILTIN_5;}break;
   default: 
    if(ISPRM(x2)&&(ISTGPRM(x2,2))){
     r=__ABUILTIN_5;
    }else{
     if(ISPRD(x2)){
      if(EXPRD(x2,1)){
       DSPRDF(x2);
      }else{
       DCPRD(x2,1);}
      r=__ABUILTIN_5;
     }else{
      FREE(x2,1);
      r=__ABUILTIN_3;}}}
 }else{
  {OBJ x35=FLD1(x1,1);
   if(EXPRD(x1,1)){
    DSPRDF(x1);
   }else{
    FRPRD(x1,1);}
   if(ISPRD(x2)){
    {OBJ x36=FLD1(x2,1);
     if(EXPRD(x2,1)){
      DSPRDF(x2);
     }else{
      FRPRD(x2,1);}
     ANat_80(x35,x36,r);}
   }else{
    FREE(x2,1);
    r=__ABUILTIN_3;}}}
 return r;}















init_AInterOpal()
{
 static int visited=0; if(visited) return; visited=1;
 init_AMap();
 init_ANat();
 init_AOption();
 init_ASeq();
 init_ADyn();
 init_ASet();
 init_APair();
 init_ASetByBST();
 init_ABSTree();
 init_ATree();
 CLS(1,_AInterOpal_287,__AInterOpal_287);
 CLS(1,_AInterOpal_255,__AInterOpal_255);
 CLS(1,_AInterOpal_63,__AInterOpal_63);
 CLS(1,_AInterOpal_95,__AInterOpal_95);
 CLS(2,_AInterOpal_127,__AInterOpal_127);
 CLS(1,_AInterOpal_286,__AInterOpal_286);
 CLS(1,_AInterOpal_158,__AInterOpal_158);
 CLS(3,_AInterOpal_254,__AInterOpal_254);
 CLS(1,_AInterOpal_30,__AInterOpal_30);
 CLS(1,_AInterOpal_62,__AInterOpal_62);
 CLS(8,_AInterOpal_285,__AInterOpal_285);
 CLS(1,_AInterOpal_189,__AInterOpal_189);
 CLS(1,_AInterOpal_221,__AInterOpal_221);
 CLS(1,_AInterOpal_125,__AInterOpal_125);
 CLS(1,_AInterOpal_157,__AInterOpal_157);
 CLS(1,_AInterOpal_61,__AInterOpal_61);
 CLS(1,_AInterOpal_93,__AInterOpal_93);
 DEN("interOpalKey2",__AInterOpal_316);
 CLS(3,_AInterOpal_220,__AInterOpal_220);
 CLS(1,_AInterOpal_252,__AInterOpal_252);
 CLS(1,_AInterOpal_156,__AInterOpal_156);
 CLS(1,_AInterOpal_188,__AInterOpal_188);
 CLS(3,_AInterOpal_92,__AInterOpal_92);
 CLS(1,_AInterOpal_28,__AInterOpal_28);
 CLS(2,_AInterOpal_60,__AInterOpal_60);
 CLS(1,_AInterOpal_124,__AInterOpal_124);
 CLS(2,_AInterOpal_315,__AInterOpal_315);
 CLS(2,_AInterOpal_187,__AInterOpal_187);
 CLS(1,_AInterOpal_251,__AInterOpal_251);
 CLS(1,_AInterOpal_123,__AInterOpal_123);
 CLS(1,_AInterOpal_91,__AInterOpal_91);
 CLS(1,_AInterOpal_155,__AInterOpal_155);
 CLS(2,_AInterOpal_314,__AInterOpal_314);
 CLS(1,_AInterOpal_218,__AInterOpal_218);
 CLS(1,_AInterOpal_250,__AInterOpal_250);
 CLS(1,_AInterOpal_122,__AInterOpal_122);
 CLS(1,_AInterOpal_154,__AInterOpal_154);
 CLS(1,_AInterOpal_26,__AInterOpal_26);
 CLS(1,_AInterOpal_58,__AInterOpal_58);
 CLS(1,_AInterOpal_90,__AInterOpal_90);
 CLS(1,_AInterOpal_313,__AInterOpal_313);
 CLS(3,_AInterOpal_249,__AInterOpal_249);
 CLS(1,_AInterOpal_281,__AInterOpal_281);
 CLS(1,_AInterOpal_185,__AInterOpal_185);
 CLS(1,_AInterOpal_217,__AInterOpal_217);
 CLS(1,_AInterOpal_121,__AInterOpal_121);
 CLS(1,_AInterOpal_89,__AInterOpal_89);
 CLS(1,_AInterOpal_25,__AInterOpal_25);
 CLS(4,_AInterOpal_153,__AInterOpal_153);
 CLS(1,_AInterOpal_312,__AInterOpal_312);
 CLS(1,_AInterOpal_216,__AInterOpal_216);
 CLS(1,_AInterOpal_280,__AInterOpal_280);
 CLS(4,_AInterOpal_120,__AInterOpal_120);
 CLS(1,_AInterOpal_24,__AInterOpal_24);
 CLS(1,_AInterOpal_88,__AInterOpal_88);
 CLS(1,_AInterOpal_184,__AInterOpal_184);
 CLS(3,_AInterOpal_215,__AInterOpal_215);
 CLS(1,_AInterOpal_247,__AInterOpal_247);
 CLS(1,_AInterOpal_55,__AInterOpal_55);
 CLS(3,_AInterOpal_87,__AInterOpal_87);
 CLS(2,_AInterOpal_183,__AInterOpal_183);
 CLS(2,_AInterOpal_310,__AInterOpal_310);
 CLS(1,_AInterOpal_246,__AInterOpal_246);
 CLS(1,_AInterOpal_278,__AInterOpal_278);
 CLS(1,_AInterOpal_150,__AInterOpal_150);
 CLS(1,_AInterOpal_22,__AInterOpal_22);
 CLS(1,_AInterOpal_54,__AInterOpal_54);
 CLS(1,_AInterOpal_182,__AInterOpal_182);
 CLS(2,_AInterOpal_309,__AInterOpal_309);
 CLS(2,_AInterOpal_245,__AInterOpal_245);
 CLS(5,_AInterOpal_277,__AInterOpal_277);
 CLS(1,_AInterOpal_181,__AInterOpal_181);
 CLS(1,_AInterOpal_213,__AInterOpal_213);
 CLS(1,_AInterOpal_117,__AInterOpal_117);
 CLS(1,_AInterOpal_85,__AInterOpal_85);
 CLS(1,_AInterOpal_149,__AInterOpal_149);
 CLS(1,_AInterOpal_308,__AInterOpal_308);
 CLS(1,_AInterOpal_180,__AInterOpal_180);
 CLS(1,_AInterOpal_212,__AInterOpal_212);
 CLS(1,_AInterOpal_20,__AInterOpal_20);
 CLS(1,_AInterOpal_84,__AInterOpal_84);
 CLS(1,_AInterOpal_116,__AInterOpal_116);
 CLS(1,_AInterOpal_307,__AInterOpal_307);
 CLS(2,_AInterOpal_211,__AInterOpal_211);
 CLS(1,_AInterOpal_275,__AInterOpal_275);
 CLS(1,_AInterOpal_147,__AInterOpal_147);
 CLS(1,_AInterOpal_179,__AInterOpal_179);
 CLS(1,_AInterOpal_83,__AInterOpal_83);
 CLS(2,_AInterOpal_115,__AInterOpal_115);
 CLS(1,_AInterOpal_306,__AInterOpal_306);
 CLS(1,_AInterOpal_210,__AInterOpal_210);
 CLS(1,_AInterOpal_274,__AInterOpal_274);
 CLS(1,_AInterOpal_146,__AInterOpal_146);
 CLS(1,_AInterOpal_178,__AInterOpal_178);
 CLS(1,_AInterOpal_18,__AInterOpal_18);
 CLS(1,_AInterOpal_50,__AInterOpal_50);
 CLS(1,_AInterOpal_82,__AInterOpal_82);
 CLS(2,_AInterOpal_305,__AInterOpal_305);
 CLS(1,_AInterOpal_241,__AInterOpal_241);
 CLS(1,_AInterOpal_273,__AInterOpal_273);
 CLS(1,_AInterOpal_177,__AInterOpal_177);
 CLS(1,_AInterOpal_209,__AInterOpal_209);
 CLS(1,_AInterOpal_113,__AInterOpal_113);
 CLS(3,_AInterOpal_81,__AInterOpal_81);
 CLS(3,_AInterOpal_49,__AInterOpal_49);
 CLS(2,_AInterOpal_145,__AInterOpal_145);
 CLS(3,_AInterOpal_240,__AInterOpal_240);
 CLS(1,_AInterOpal_176,__AInterOpal_176);
 CLS(1,_AInterOpal_208,__AInterOpal_208);
 CLS(1,_AInterOpal_16,__AInterOpal_16);
 CLS(1,_AInterOpal_48,__AInterOpal_48);
 CLS(1,_AInterOpal_112,__AInterOpal_112);
 CLS(1,_AInterOpal_303,__AInterOpal_303);
 CLS(1,_AInterOpal_207,__AInterOpal_207);
 CLS(1,_AInterOpal_271,__AInterOpal_271);
 CLS(2,_AInterOpal_111,__AInterOpal_111);
 CLS(1,_AInterOpal_175,__AInterOpal_175);
 CLS(1,_AInterOpal_15,__AInterOpal_15);
 CLS(1,_AInterOpal_47,__AInterOpal_47);
 CLS(1,_AInterOpal_79,__AInterOpal_79);
 CLS(3,_AInterOpal_206,__AInterOpal_206);
 CLS(5,_AInterOpal_270,__AInterOpal_270);
 CLS(1,_AInterOpal_142,__AInterOpal_142);
 CLS(1,_AInterOpal_174,__AInterOpal_174);
 CLS(1,_AInterOpal_14,__AInterOpal_14);
 CLS(1,_AInterOpal_46,__AInterOpal_46);
 CLS(1,_AInterOpal_301,__AInterOpal_301);
 CLS(1,_AInterOpal_173,__AInterOpal_173);
 CLS(1,_AInterOpal_269,__AInterOpal_269);
 CLS(1,_AInterOpal_109,__AInterOpal_109);
 CLS(1,_AInterOpal_45,__AInterOpal_45);
 CLS(1,_AInterOpal_77,__AInterOpal_77);
 CLS(2,_AInterOpal_141,__AInterOpal_141);
 CLS(1,_AInterOpal_236,__AInterOpal_236);
 CLS(1,_AInterOpal_268,__AInterOpal_268);
 CLS(3,_AInterOpal_172,__AInterOpal_172);
 CLS(1,_AInterOpal_204,__AInterOpal_204);
 CLS(1,_AInterOpal_76,__AInterOpal_76);
 CLS(1,_AInterOpal_12,__AInterOpal_12);
 CLS(1,_AInterOpal_44,__AInterOpal_44);
 CLS(1,_AInterOpal_108,__AInterOpal_108);
 CLS(1,_AInterOpal_299,__AInterOpal_299);
 CLS(3,_AInterOpal_235,__AInterOpal_235);
 CLS(1,_AInterOpal_267,__AInterOpal_267);
 CLS(1,_AInterOpal_139,__AInterOpal_139);
 CLS(1,_AInterOpal_203,__AInterOpal_203);
 CLS(1,_AInterOpal_75,__AInterOpal_75);
 CLS(1,_AInterOpal_11,__AInterOpal_11);
 CLS(1,_AInterOpal_43,__AInterOpal_43);
 CLS(2,_AInterOpal_107,__AInterOpal_107);
 CLS(1,_AInterOpal_202,__AInterOpal_202);
 CLS(1,_AInterOpal_266,__AInterOpal_266);
 CLS(1,_AInterOpal_138,__AInterOpal_138);
 CLS(1,_AInterOpal_170,__AInterOpal_170);
 CLS(1,_AInterOpal_10,__AInterOpal_10);
 CLS(5,_AInterOpal_42,__AInterOpal_42);
 CLS(1,_AInterOpal_74,__AInterOpal_74);
 CLS(1,_AInterOpal_297,__AInterOpal_297);
 CLS(1,_AInterOpal_233,__AInterOpal_233);
 CLS(1,_AInterOpal_265,__AInterOpal_265);
 CLS(1,_AInterOpal_169,__AInterOpal_169);
 CLS(1,_AInterOpal_201,__AInterOpal_201);
 CLS(1,_AInterOpal_73,__AInterOpal_73);
 CLS(1,_AInterOpal_105,__AInterOpal_105);
 CLS(1,_AInterOpal_137,__AInterOpal_137);
 CLS(1,_AInterOpal_232,__AInterOpal_232);
 CLS(4,_AInterOpal_264,__AInterOpal_264);
 CLS(1,_AInterOpal_168,__AInterOpal_168);
 CLS(1,_AInterOpal_200,__AInterOpal_200);
 CLS(1,_AInterOpal_104,__AInterOpal_104);
 CLS(1,_AInterOpal_72,__AInterOpal_72);
 CLS(1,_AInterOpal_8,__AInterOpal_8);
 CLS(1,_AInterOpal_40,__AInterOpal_40);
 CLS(3,_AInterOpal_136,__AInterOpal_136);
 CLS(1,_AInterOpal_231,__AInterOpal_231);
 CLS(1,_AInterOpal_167,__AInterOpal_167);
 CLS(1,_AInterOpal_199,__AInterOpal_199);
 CLS(2,_AInterOpal_71,__AInterOpal_71);
 CLS(1,_AInterOpal_7,__AInterOpal_7);
 CLS(1,_AInterOpal_39,__AInterOpal_39);
 CLS(1,_AInterOpal_103,__AInterOpal_103);
 CLS(1,_AInterOpal_294,__AInterOpal_294);
 CLS(1,_AInterOpal_198,__AInterOpal_198);
 CLS(3,_AInterOpal_230,__AInterOpal_230);
 CLS(1,_AInterOpal_134,__AInterOpal_134);
 CLS(1,_AInterOpal_166,__AInterOpal_166);
 CLS(1,_AInterOpal_6,__AInterOpal_6);
 CLS(1,_AInterOpal_38,__AInterOpal_38);
 CLS(3,_AInterOpal_102,__AInterOpal_102);
 CLS(1,_AInterOpal_293,__AInterOpal_293);
 CLS(1,_AInterOpal_197,__AInterOpal_197);
 CLS(1,_AInterOpal_261,__AInterOpal_261);
 CLS(1,_AInterOpal_133,__AInterOpal_133);
 CLS(4,_AInterOpal_165,__AInterOpal_165);
 CLS(1,_AInterOpal_5,__AInterOpal_5);
 CLS(1,_AInterOpal_37,__AInterOpal_37);
 CLS(1,_AInterOpal_69,__AInterOpal_69);
 CLS(1,_AInterOpal_292,__AInterOpal_292);
 CLS(1,_AInterOpal_228,__AInterOpal_228);
 CLS(1,_AInterOpal_260,__AInterOpal_260);
 CLS(1,_AInterOpal_132,__AInterOpal_132);
 CLS(7,_AInterOpal_196,__AInterOpal_196);
 CLS(1,_AInterOpal_68,__AInterOpal_68);
 CLS(1,_AInterOpal_4,__AInterOpal_4);
 CLS(3,_AInterOpal_36,__AInterOpal_36);
 CLS(1,_AInterOpal_100,__AInterOpal_100);
 CLS(1,_AInterOpal_291,__AInterOpal_291);
 CLS(1,_AInterOpal_227,__AInterOpal_227);
 CLS(2,_AInterOpal_259,__AInterOpal_259);
 CLS(3,_AInterOpal_131,__AInterOpal_131);
 CLS(1,_AInterOpal_163,__AInterOpal_163);
 CLS(1,_AInterOpal_3,__AInterOpal_3);
 CLS(1,_AInterOpal_67,__AInterOpal_67);
 CLS(1,_AInterOpal_99,__AInterOpal_99);
 CLS(1,_AInterOpal_290,__AInterOpal_290);
 CLS(1,_AInterOpal_194,__AInterOpal_194);
 CLS(1,_AInterOpal_226,__AInterOpal_226);
 CLS(1,_AInterOpal_130,__AInterOpal_130);
 CLS(1,_AInterOpal_162,__AInterOpal_162);
 CLS(1,_AInterOpal_66,__AInterOpal_66);
 CLS(2,_AInterOpal_2,__AInterOpal_2);
 CLS(1,_AInterOpal_34,__AInterOpal_34);
 CLS(1,_AInterOpal_98,__AInterOpal_98);
 CLS(1,_AInterOpal_289,__AInterOpal_289);
 CLS(3,_AInterOpal_225,__AInterOpal_225);
 CLS(1,_AInterOpal_129,__AInterOpal_129);
 CLS(1,_AInterOpal_161,__AInterOpal_161);
 CLS(1,_AInterOpal_33,__AInterOpal_33);
 CLS(1,_AInterOpal_65,__AInterOpal_65);
 CLS(3,_AInterOpal_97,__AInterOpal_97);
 CLS(1,_AInterOpal_288,__AInterOpal_288);
 CLS(2,_AInterOpal_160,__AInterOpal_160);
 CLS(1,_AInterOpal_192,__AInterOpal_192);
 CLS(1,_AInterOpal_32,__AInterOpal_32);
 CLS(1,_AInterOpal_64,__AInterOpal_64);
 CLS(1,_AInterOpal_128,__AInterOpal_128);
 PRM(2,__AInterOpal_17);
 PRM(1,__AInterOpal_19);
 PRM(0,__AInterOpal_21);
 PRM(1,__AInterOpal_27);
 PRM(0,__AInterOpal_29);
 PRM1(__AInterOpal_57);
 PRM1(__AInterOpal_78);
 PRM(1,__AInterOpal_191);
 PRM(0,__AInterOpal_193);
 PRM(3,__AInterOpal_296);
 PRM(2,__AInterOpal_298);
 PRM(1,__AInterOpal_300);
 PRM(0,__AInterOpal_302);
 __AInterOpal_311=__ANat_55;}

