

#include "BUILTIN.h"
extern OBJ _ACom_47(OBJ,OBJ);extern OBJ __ACom_47;

#include "Nat.h"
extern OBJ __ASeq_6;

#include "Char.h"

#include "Bitset.h"
extern OBJ __AOcError_21;
extern OBJ __AOcError_22;

#include "Int.h"
extern OBJ _AModBase_2(OBJ);OBJ __AModBase_2; /* mkMod */
extern OBJ _AModBase_3(OBJ);OBJ __AModBase_3; /* mkMod? */
extern OBJ _AModBase_4(OBJ);OBJ __AModBase_4; /* rep */
extern OBJ _AModBase_5(OBJ);OBJ __AModBase_5; /* mod */
extern OBJ _AModBase_6(OBJ);OBJ __AModBase_6; /* mod? */
extern OBJ _AModBase_7(OBJ);OBJ __AModBase_7; /* rep,1 */
extern OBJ _AModBase_8(OBJ,OBJ);OBJ __AModBase_8; /* modify */
extern OBJ _AModBase_9(OBJ,OBJ,OBJ);OBJ __AModBase_9; /* modify,1 */
extern OBJ _AModBase_10(OBJ,OBJ,OBJ);OBJ __AModBase_10; /* modify,2 */
extern OBJ _AModBase_11(OBJ,OBJ,OBJ);OBJ __AModBase_11; /* modBoth */
OBJ __AModBase_12; /* mod1st */
OBJ __AModBase_13; /* mod2nd */
extern OBJ _AModBase_14(OBJ,OBJ);OBJ __AModBase_14; /* mod1st'14 */
extern OBJ _AModBase_15(OBJ,OBJ);OBJ __AModBase_15; /* mod2nd'15 */

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

extern OBJ _AModBase_3(OBJ x1) /* mkMod? */
{OBJ r;
 if(ISTGPRD(x1,1)){
  if(EXPRD(x1,1)){
   FRCLS(FLD(x1,1),1);DSPRDF(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  if(EXPRD(x1,1)){
   FRCLS(FLD(x1,1),1);DSPRDF(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AModBase_4(OBJ x1) /* rep */
{OBJ r;
 if(ISTGPRD(x1,1)){
  {OBJ x2=FLD(x1,1);
   if(EXPRD(x1,1)){
    r=x2;
    DSPRDF(x1);
   }else{
    CPCLS(x2,1);
    r=x2;
    FRPRD(x1,1);}}
 }else{
  HLT("ModBase at <unknown> : undefined selection rep\'ModBase:modifier->pRes->pRes");}
 return r;}

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

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

extern OBJ _AModBase_7(OBJ x1) /* rep,1 */
{OBJ r;
 if(ISTGPRD(x1,0)){
  {OBJ x2=FLD(x1,1);
   if(EXPRD(x1,1)){
    r=x2;
    DSPRDF(x1);
   }else{
    CPCLS(x2,1);
    r=x2;
    FRPRD(x1,1);}}
 }else{
  HLT("ModBase at <unknown> : undefined selection rep\'ModBase:modifier->absy**absy->absy");}
 return r;}

extern OBJ _AModBase_8(OBJ x1,OBJ x2) /* modify */
{OBJ r;
 if(ISTGPRD(x2,1)){
  {OBJ x10=FLD(x2,1);
   if(EXPRD(x2,1)){
    DSPRDF(x2);
   }else{
    CPCLS(x10,1);
    FRPRD(x2,1);}
   r=(*(OBJ(*)(OBJ,OBJ))METHOD(x10,1))(x10,x1);}
 }else{
  HLT("ModBase at <unknown> : missing else in modify\'ModBase:pRes**modifier->pRes");}
 return r;}

extern OBJ _AModBase_9(OBJ x1,OBJ x2,OBJ x3) /* modify,1 */
{OBJ r;
 if(ISTGPRD(x1,0)){
  {OBJ x197=FLD(x1,1);OBJ x198=FLD(x1,2);OBJ x199=FLD(x1,3);FLAG x_x1=EXPRD(x1,1);
   if(x_x1){
   }else{
    CPPRD(x197,1);COPY(x198,1);COPY(x199,1);}
   if(ISTGPRD(x2,0)){
    {OBJ x200=FLD(x2,1);OBJ x201=FLD(x2,2);OBJ x202=FLD(x2,3);FLAG x_x2=EXPRD(x2,1);
     if(x_x2){
     }else{
      CPPRD(x200,1);COPY(x201,1);COPY(x202,1);}
     if(x_x1){
      DSPRDF(x1);
     }else{
      FRPRD(x1,1);}
     FREE(x199,1);
     if(ISTGPRD(x3,0)){
      {OBJ x203=FLD(x3,1);
       if(EXPRD(x3,1)){
	DSPRDF(x3);
       }else{
	CPCLS(x203,1);
	FRPRD(x3,1);}
       CPCLS(__AOcError_21,1);
       {OBJ x204;OBJ x205;
	x204=(*(OBJ(*)(OBJ,OBJ,OBJ))METHOD(x203,2))(x203,x198,x201);
	x205=(*(OBJ(*)(OBJ,OBJ,OBJ))METHOD(__AOcError_21,2))(__AOcError_21,x197,x200);
	if(x_x2){
	 RPRD(x2,r);FLD(r,1)=x205;FLD(r,2)=x204;
	}else{
	 FRPRD(x2,1);PRD(3,0,r);FLD(r,1)=x205;FLD(r,2)=x204;FLD(r,3)=x202;}}}
     }else{
      HLT("ModBase at <unknown> : missing else in modify\'ModBase:pRes**pRes**modifier->pRes");}}
   }else{
    {OBJ x208=FLD(x2,1);OBJ x209=FLD(x2,2);
     if(EXPRD(x2,1)){
      FREE(FLD(x2,3),1);DSPRDF(x2);
     }else{
      CPPRD(x208,1);COPY(x209,1);
      FRPRD(x2,1);}
     if(ISTGPRD(x3,0)){
      {OBJ x211=FLD(x3,1);
       if(EXPRD(x3,1)){
	DSPRDF(x3);
       }else{
	CPCLS(x211,1);
	FRPRD(x3,1);}
       CPPRD(x197,1);
       CPCLS(__AOcError_22,1);
       {OBJ x212;OBJ x213;OBJ x214;
	x212=(*(OBJ(*)(OBJ,OBJ))METHOD(__AOcError_22,1))(__AOcError_22,x197);
	x213=(*(OBJ(*)(OBJ,OBJ,OBJ))METHOD(x211,2))(x211,x198,x209);
	if(ISTGPRM(x212,1)){
	 x214=x208;
	 FRPRD(x197,1);
	}else{
	 x214=x197;
	 FRPRD(x208,1);}
	if(x_x1){
	 RPRD(x1,r);FLD(r,1)=x214;FLD(r,2)=x213;
	}else{
	 FRPRD(x1,1);PRD(3,0,r);FLD(r,1)=x214;FLD(r,2)=x213;FLD(r,3)=x199;}}}
     }else{
      HLT("ModBase at <unknown> : missing else in modify\'ModBase:pRes**pRes**modifier->pRes");}}}}
 }else{
  {OBJ x217=FLD(x1,1);OBJ x218=FLD(x1,2);OBJ x219=FLD(x1,3);FLAG x_x1=EXPRD(x1,1);
   if(x_x1){
   }else{
    CPPRD(x217,1);COPY(x218,1);COPY(x219,1);}
   if(ISTGPRD(x2,0)){
    {OBJ x220=FLD(x2,1);OBJ x221=FLD(x2,2);OBJ x222=FLD(x2,3);FLAG x_x2=EXPRD(x2,1);
     if(x_x2){
     }else{
      CPPRD(x220,1);COPY(x221,1);COPY(x222,1);}
     if(x_x1){
      DSPRDF(x1);
     }else{
      FRPRD(x1,1);}
     FREE(x219,1);
     if(ISTGPRD(x3,0)){
      {OBJ x223=FLD(x3,1);
       if(EXPRD(x3,1)){
	DSPRDF(x3);
       }else{
	CPCLS(x223,1);
	FRPRD(x3,1);}
       CPCLS(__AOcError_21,1);
       {OBJ x224;OBJ x225;
	x224=(*(OBJ(*)(OBJ,OBJ,OBJ))METHOD(x223,2))(x223,x218,x221);
	x225=(*(OBJ(*)(OBJ,OBJ,OBJ))METHOD(__AOcError_21,2))(__AOcError_21,x217,x220);
	if(x_x2){
	 RPRD(x2,r);CHGTG(r,1);FLD(r,1)=x225;FLD(r,2)=x224;
	}else{
	 FRPRD(x2,1);PRD(3,1,r);FLD(r,1)=x225;FLD(r,2)=x224;FLD(r,3)=x222;}}}
     }else{
      HLT("ModBase at <unknown> : missing else in modify\'ModBase:pRes**pRes**modifier->pRes");}}
   }else{
    {OBJ x229=FLD(x2,2);
     if(EXPRD(x2,1)){
      FLD(x2,2)=NIL;DSPRD(x2);
     }else{
      COPY(x229,1);
      FRPRD(x2,1);}
     if(ISTGPRD(x3,0)){
      {OBJ x231=FLD(x3,1);
       if(EXPRD(x3,1)){
	DSPRDF(x3);
       }else{
	CPCLS(x231,1);
	FRPRD(x3,1);}
       {OBJ x232;
	x232=(*(OBJ(*)(OBJ,OBJ,OBJ))METHOD(x231,2))(x231,x218,x229);
	if(x_x1){
	 RPRD(x1,r);FLD(r,2)=x232;
	}else{
	 FRPRD(x1,1);PRD(3,1,r);FLD(r,1)=x217;FLD(r,2)=x232;FLD(r,3)=x219;}}}
     }else{
      HLT("ModBase at <unknown> : missing else in modify\'ModBase:pRes**pRes**modifier->pRes");}}}}}
 return r;}

extern OBJ _AModBase_10(OBJ x1,OBJ x2,OBJ x3) /* modify,2 */
{OBJ r;
 if(ISTGPRD(x1,0)){
  {OBJ x230=FLD(x1,1);OBJ x231=FLD(x1,2);OBJ x232=FLD(x1,3);FLAG x_x1=EXPRD(x1,1);
   if(x_x1){
   }else{
    CPPRD(x230,1);COPY(x231,1);COPY(x232,1);}
   if(ISTGPRD(x2,0)){
    {OBJ x233=FLD(x2,1);OBJ x234=FLD(x2,2);OBJ x235=FLD(x2,3);FLAG x_x2=EXPRD(x2,1);
     if(x_x2){
     }else{
      CPPRD(x233,1);COPY(x234,1);COPY(x235,1);}
     if(x_x1){
      DSPRDF(x1);
     }else{
      FRPRD(x1,1);}
     FREE(x232,1);
     if(ISTGPRD(x3,0)){
      {OBJ x236=FLD(x3,1);FLAG x_x3=EXPRD(x3,1);
       if(x_x3){
       }else{
	CPCLS(x236,1);}
       CPCLS(__ACom_47,1);
       CPCLS(__AOcError_21,1);
       {OBJ x237;OBJ x238;OBJ x239;OBJ x240;OBJ x241;
	x237=(*(OBJ(*)(OBJ,OBJ,OBJ))METHOD(x236,2))(x236,x231,x234);
	x238=(*(OBJ(*)(OBJ,OBJ,OBJ))METHOD(__AOcError_21,2))(__AOcError_21,x230,x233);
	if(x_x2){
	 RPRD(x2,x239);FLD(x239,1)=x238;FLD(x239,2)=x237;
	}else{
	 FRPRD(x2,1);PRD(3,0,x239);FLD(x239,1)=x238;FLD(x239,2)=x237;FLD(x239,3)=x235;}
	if(x_x3){
	 RPRD(x3,x240);FLD(x240,1)=x239;
	}else{
	 FRPRD(x3,1);PRD(1,0,x240);FLD(x240,1)=x239;}
	x241=(*(OBJ(*)(OBJ,OBJ))METHOD(__ACom_47,1))(__ACom_47,x240);
	PRD(2,0,r);FLD(r,1)=x241;FLD(r,2)=__ASeq_6;}}
     }else{
      HLT("ModBase at <unknown> : missing else in modify\'ModBase:pRes**pRes**modifier->com");}}
   }else{
    {OBJ x244=FLD(x2,1);OBJ x245=FLD(x2,2);
     if(EXPRD(x2,1)){
      FREE(FLD(x2,3),1);DSPRDF(x2);
     }else{
      CPPRD(x244,1);COPY(x245,1);
      FRPRD(x2,1);}
     if(ISTGPRD(x3,0)){
      {OBJ x247=FLD(x3,1);FLAG x_x3=EXPRD(x3,1);
       if(x_x3){
       }else{
	CPCLS(x247,1);}
       CPCLS(__ACom_47,1);
       CPCLS(__AOcError_21,1);
       {OBJ x248;OBJ x249;OBJ x250;OBJ x251;OBJ x252;
	x248=(*(OBJ(*)(OBJ,OBJ,OBJ))METHOD(x247,2))(x247,x231,x245);
	x249=(*(OBJ(*)(OBJ,OBJ,OBJ))METHOD(__AOcError_21,2))(__AOcError_21,x230,x244);
	if(x_x1){
	 RPRD(x1,x250);FLD(x250,1)=x249;FLD(x250,2)=x248;
	}else{
	 FRPRD(x1,1);PRD(3,0,x250);FLD(x250,1)=x249;FLD(x250,2)=x248;FLD(x250,3)=x232;}
	if(x_x3){
	 RPRD(x3,x251);FLD(x251,1)=x250;
	}else{
	 FRPRD(x3,1);PRD(1,0,x251);FLD(x251,1)=x250;}
	x252=(*(OBJ(*)(OBJ,OBJ))METHOD(__ACom_47,1))(__ACom_47,x251);
	PRD(2,0,r);FLD(r,1)=x252;FLD(r,2)=__ASeq_6;}}
     }else{
      HLT("ModBase at <unknown> : missing else in modify\'ModBase:pRes**pRes**modifier->com");}}}}
 }else{
  {OBJ x255=FLD(x1,1);OBJ x256=FLD(x1,2);OBJ x257=FLD(x1,3);FLAG x_x1=EXPRD(x1,1);
   if(x_x1){
   }else{
    CPPRD(x255,1);COPY(x256,1);COPY(x257,1);}
   if(ISTGPRD(x2,0)){
    {OBJ x258=FLD(x2,1);OBJ x259=FLD(x2,2);OBJ x260=FLD(x2,3);FLAG x_x2=EXPRD(x2,1);
     if(x_x2){
     }else{
      CPPRD(x258,1);COPY(x259,1);COPY(x260,1);}
     if(x_x1){
      DSPRDF(x1);
     }else{
      FRPRD(x1,1);}
     FREE(x257,1);
     if(ISTGPRD(x3,0)){
      {OBJ x261=FLD(x3,1);FLAG x_x3=EXPRD(x3,1);
       if(x_x3){
       }else{
	CPCLS(x261,1);}
       CPCLS(__ACom_47,1);
       CPCLS(__AOcError_21,1);
       {OBJ x262;OBJ x263;OBJ x264;OBJ x265;OBJ x266;
	x262=(*(OBJ(*)(OBJ,OBJ,OBJ))METHOD(x261,2))(x261,x256,x259);
	x263=(*(OBJ(*)(OBJ,OBJ,OBJ))METHOD(__AOcError_21,2))(__AOcError_21,x255,x258);
	if(x_x2){
	 RPRD(x2,x264);CHGTG(x264,1);FLD(x264,1)=x263;FLD(x264,2)=x262;
	}else{
	 FRPRD(x2,1);PRD(3,1,x264);FLD(x264,1)=x263;FLD(x264,2)=x262;FLD(x264,3)=x260;}
	if(x_x3){
	 RPRD(x3,x265);FLD(x265,1)=x264;
	}else{
	 FRPRD(x3,1);PRD(1,0,x265);FLD(x265,1)=x264;}
	x266=(*(OBJ(*)(OBJ,OBJ))METHOD(__ACom_47,1))(__ACom_47,x265);
	PRD(2,0,r);FLD(r,1)=x266;FLD(r,2)=__ASeq_6;}}
     }else{
      HLT("ModBase at <unknown> : missing else in modify\'ModBase:pRes**pRes**modifier->com");}}
   }else{
    {OBJ x270=FLD(x2,2);
     if(EXPRD(x2,1)){
      FLD(x2,2)=NIL;DSPRD(x2);
     }else{
      COPY(x270,1);
      FRPRD(x2,1);}
     if(ISTGPRD(x3,0)){
      {OBJ x272=FLD(x3,1);FLAG x_x3=EXPRD(x3,1);
       if(x_x3){
       }else{
	CPCLS(x272,1);}
       CPCLS(__ACom_47,1);
       {OBJ x273;OBJ x274;OBJ x275;OBJ x276;
	x273=(*(OBJ(*)(OBJ,OBJ,OBJ))METHOD(x272,2))(x272,x256,x270);
	if(x_x1){
	 RPRD(x1,x274);FLD(x274,2)=x273;
	}else{
	 FRPRD(x1,1);PRD(3,1,x274);FLD(x274,1)=x255;FLD(x274,2)=x273;FLD(x274,3)=x257;}
	if(x_x3){
	 RPRD(x3,x275);FLD(x275,1)=x274;
	}else{
	 FRPRD(x3,1);PRD(1,0,x275);FLD(x275,1)=x274;}
	x276=(*(OBJ(*)(OBJ,OBJ))METHOD(__ACom_47,1))(__ACom_47,x275);
	PRD(2,0,r);FLD(r,1)=x276;FLD(r,2)=__ASeq_6;}}
     }else{
      HLT("ModBase at <unknown> : missing else in modify\'ModBase:pRes**pRes**modifier->com");}}}}}
 return r;}

extern OBJ _AModBase_11(OBJ x1,OBJ x2,OBJ x3) /* modBoth */
{OBJ r;
 if(ISTGPRD(x1,0)){
  {OBJ x200=FLD(x1,1);OBJ x201=FLD(x1,2);OBJ x202=FLD(x1,3);FLAG x_x1=EXPRD(x1,1);
   if(x_x1){
   }else{
    CPPRD(x200,1);COPY(x201,1);COPY(x202,1);}
   if(ISTGPRD(x2,0)){
    {OBJ x203=FLD(x2,1);OBJ x204=FLD(x2,2);OBJ x205=FLD(x2,3);FLAG x_x2=EXPRD(x2,1);
     if(x_x2){
     }else{
      CPPRD(x203,1);COPY(x204,1);COPY(x205,1);}
     if(x_x1){
      DSPRDF(x1);
     }else{
      FRPRD(x1,1);}
     FREE(x202,1);
     if(ISTGPRD(x3,0)){
      {OBJ x206=FLD(x3,1);
       if(EXPRD(x3,1)){
	DSPRDF(x3);
       }else{
	CPCLS(x206,1);
	FRPRD(x3,1);}
       CPCLS(__AOcError_21,1);
       {OBJ x207;OBJ x208;
	x207=(*(OBJ(*)(OBJ,OBJ,OBJ))METHOD(x206,2))(x206,x201,x204);
	x208=(*(OBJ(*)(OBJ,OBJ,OBJ))METHOD(__AOcError_21,2))(__AOcError_21,x200,x203);
	if(x_x2){
	 RPRD(x2,r);FLD(r,1)=x208;FLD(r,2)=x207;
	}else{
	 FRPRD(x2,1);PRD(3,0,r);FLD(r,1)=x208;FLD(r,2)=x207;FLD(r,3)=x205;}}}
     }else{
      HLT("ModBase at <unknown> : missing else in modBoth\'ModBase:pRes**pRes**modifier->pRes");}}
   }else{
    {OBJ x211=FLD(x2,1);OBJ x212=FLD(x2,2);
     if(EXPRD(x2,1)){
      FREE(FLD(x2,3),1);DSPRDF(x2);
     }else{
      CPPRD(x211,1);COPY(x212,1);
      FRPRD(x2,1);}
     if(ISTGPRD(x3,0)){
      {OBJ x214=FLD(x3,1);
       if(EXPRD(x3,1)){
	DSPRDF(x3);
       }else{
	CPCLS(x214,1);
	FRPRD(x3,1);}
       CPPRD(x200,1);
       CPCLS(__AOcError_22,1);
       {OBJ x215;OBJ x216;OBJ x217;
	x215=(*(OBJ(*)(OBJ,OBJ))METHOD(__AOcError_22,1))(__AOcError_22,x200);
	x216=(*(OBJ(*)(OBJ,OBJ,OBJ))METHOD(x214,2))(x214,x201,x212);
	if(ISTGPRM(x215,1)){
	 x217=x211;
	 FRPRD(x200,1);
	}else{
	 x217=x200;
	 FRPRD(x211,1);}
	if(x_x1){
	 RPRD(x1,r);FLD(r,1)=x217;FLD(r,2)=x216;
	}else{
	 FRPRD(x1,1);PRD(3,0,r);FLD(r,1)=x217;FLD(r,2)=x216;FLD(r,3)=x202;}}}
     }else{
      HLT("ModBase at <unknown> : missing else in modBoth\'ModBase:pRes**pRes**modifier->pRes");}}}}
 }else{
  {OBJ x220=FLD(x1,1);OBJ x221=FLD(x1,2);OBJ x222=FLD(x1,3);FLAG x_x1=EXPRD(x1,1);
   if(x_x1){
   }else{
    CPPRD(x220,1);COPY(x221,1);COPY(x222,1);}
   if(ISTGPRD(x2,0)){
    {OBJ x223=FLD(x2,1);OBJ x224=FLD(x2,2);OBJ x225=FLD(x2,3);FLAG x_x2=EXPRD(x2,1);
     if(x_x2){
     }else{
      CPPRD(x223,1);COPY(x224,1);COPY(x225,1);}
     if(x_x1){
      DSPRDF(x1);
     }else{
      FRPRD(x1,1);}
     FREE(x222,1);
     if(ISTGPRD(x3,0)){
      {OBJ x226=FLD(x3,1);
       if(EXPRD(x3,1)){
	DSPRDF(x3);
       }else{
	CPCLS(x226,1);
	FRPRD(x3,1);}
       CPCLS(__AOcError_21,1);
       {OBJ x227;OBJ x228;
	x227=(*(OBJ(*)(OBJ,OBJ,OBJ))METHOD(x226,2))(x226,x221,x224);
	x228=(*(OBJ(*)(OBJ,OBJ,OBJ))METHOD(__AOcError_21,2))(__AOcError_21,x220,x223);
	if(x_x2){
	 RPRD(x2,r);CHGTG(r,1);FLD(r,1)=x228;FLD(r,2)=x227;
	}else{
	 FRPRD(x2,1);PRD(3,1,r);FLD(r,1)=x228;FLD(r,2)=x227;FLD(r,3)=x225;}}}
     }else{
      HLT("ModBase at <unknown> : missing else in modBoth\'ModBase:pRes**pRes**modifier->pRes");}}
   }else{
    {OBJ x231=FLD(x2,1);OBJ x232=FLD(x2,2);
     if(EXPRD(x2,1)){
      FREE(FLD(x2,3),1);DSPRDF(x2);
     }else{
      CPPRD(x231,1);COPY(x232,1);
      FRPRD(x2,1);}
     if(ISTGPRD(x3,0)){
      {OBJ x234=FLD(x3,1);
       if(EXPRD(x3,1)){
	DSPRDF(x3);
       }else{
	CPCLS(x234,1);
	FRPRD(x3,1);}
       CPCLS(__AOcError_21,1);
       {OBJ x235;OBJ x236;
	x235=(*(OBJ(*)(OBJ,OBJ,OBJ))METHOD(x234,2))(x234,x221,x232);
	x236=(*(OBJ(*)(OBJ,OBJ,OBJ))METHOD(__AOcError_21,2))(__AOcError_21,x220,x231);
	if(x_x1){
	 RPRD(x1,r);FLD(r,1)=x236;FLD(r,2)=x235;
	}else{
	 FRPRD(x1,1);PRD(3,1,r);FLD(r,1)=x236;FLD(r,2)=x235;FLD(r,3)=x222;}}}
     }else{
      HLT("ModBase at <unknown> : missing else in modBoth\'ModBase:pRes**pRes**modifier->pRes");}}}}}
 return r;}

extern OBJ _AModBase_14(OBJ x1,OBJ x2) /* mod1st'14 */
{OBJ r;
 FREE(x2,1);
 r=x1;
 return r;}

extern OBJ _AModBase_15(OBJ x1,OBJ x2) /* mod2nd'15 */
{OBJ r;
 FREE(x1,1);
 r=x2;
 return r;}



static OBJ _mt_1_0_3(OBJ t,OBJ t1,OBJ t2,OBJ t3) 
{OBJ r;
 {OBJ t4;
  DCCLS(t,1);
  t4=(*(OBJ(*)(OBJ))ENTRY(t))(t1);
  r=(*(OBJ(*)(OBJ,OBJ,OBJ))METHOD(t4,2))(t4,t2,t3);}
 return r;}

init_AModBase()
{
 static int visited=0; if(visited) return; visited=1;
 init_APErr();
 init_ADEBUG();
 init_ASetByBST();
 init_ABSTree();
 init_APTypes();
 init_ATree();
 init_AAbsy();
 init_ASeqMap();
 init_ACom();
 init_ANat();
 init_AVoid();
 init_ASeq();
 init_AOption();
 init_APragma();
 init_AFct();
 init_AStruct();
 init_AImpl();
 init_APartName();
 init_AOcPos();
 init_ARep();
 init_AChar();
 init_APair();
 init_ABitset();
 init_AGlobPragma();
 init_AMap();
 init_ASet();
 init_AToken();
 init_AOcError();
 init_AString();
 init_AOcOptions();
 init_AStream();
 init_AFile();
 init_AInt();
 init_ATerminal();
 init_ARepTab();
 CLS(2,_AModBase_15,__AModBase_15);
 CLS(2,_AModBase_14,__AModBase_14);
 CLS(3,_AModBase_11,__AModBase_11);
 CLS(3,_AModBase_10,__AModBase_10);
 CLS(3,_AModBase_9,__AModBase_9);
 CLS(2,_AModBase_8,__AModBase_8);
 CLS(1,_AModBase_7,__AModBase_7);
 CLS(1,_AModBase_6,__AModBase_6);
 CLS(1,_AModBase_5,__AModBase_5);
 CLS(1,_AModBase_4,__AModBase_4);
 CLS(1,_AModBase_3,__AModBase_3);
 CLS(1,_AModBase_2,__AModBase_2);
 MTH(1,0,3,_mt_1_0_3);LZYMTH(1,0,3,_mt_1_0_3);
 CPCLS(__AModBase_14,1);
 PRD(1,0,__AModBase_12);FLD(__AModBase_12,1)=__AModBase_14;
 CPCLS(__AModBase_15,1);
 PRD(1,0,__AModBase_13);FLD(__AModBase_13,1)=__AModBase_15;}

