

#include "BUILTIN.h"
extern OBJ __APrintableChar_1;
extern OBJ __APrintableChar_3;
extern OBJ __APrintableChar_4;
extern OBJ __APrintableChar_5;
extern OBJ __APrintableChar_6;
extern OBJ __APrintableChar_7;
extern OBJ __APrintableChar_10;
extern OBJ __APrintableChar_11;
extern OBJ __APrintableChar_12;
extern OBJ __APrintableChar_19;
extern OBJ __APrintableChar_23;
extern OBJ __APrintableChar_27;
extern OBJ __APrintableChar_29;
extern OBJ __APrintableChar_30;
extern OBJ __APrintableChar_36;
extern OBJ __APrintableChar_37;
extern OBJ __APrintableChar_38;
extern OBJ __APrintableChar_40;
extern OBJ __APrintableChar_41;
extern OBJ __APrintableChar_43;
extern OBJ __APrintableChar_48;
extern OBJ __APrintableChar_69;
extern OBJ __APrintableChar_70;
extern OBJ __APrintableChar_74;
extern OBJ __APrintableChar_82;
extern OBJ __APrintableChar_86;
extern OBJ __APrintableChar_88;
extern OBJ __APrintableChar_89;
extern OBJ __APrintableChar_90;
extern OBJ __APrintableChar_92;
extern OBJ _ASetByBST_16(OBJ,OBJ,OBJ,OBJ);extern OBJ __ASetByBST_16;
extern OBJ _ASetByBST_43(OBJ,OBJ,OBJ);extern OBJ __ASetByBST_43;
extern OBJ _ADEBUG_2(OBJ,OBJ,OBJ);extern OBJ __ADEBUG_2;
extern OBJ __AOcError_10;
extern OBJ __AOcError_12;
extern OBJ __AOcError_15;
extern OBJ _AOcError_16(OBJ,OBJ,OBJ);extern OBJ __AOcError_16;
extern OBJ _AOcError_21(OBJ,OBJ);extern OBJ __AOcError_21;
extern OBJ _AOcError_22(OBJ);extern OBJ __AOcError_22;
extern OBJ _AOcError_25(OBJ,OBJ);extern OBJ __AOcError_25;
extern OBJ _APredicate_4(OBJ,OBJ);extern OBJ __APredicate_4;
extern OBJ _APredicate_6(OBJ,OBJ,OBJ);extern OBJ __APredicate_6;
extern OBJ __AOcPos_10;
extern OBJ _AOcPos_14(OBJ,OBJ);extern OBJ __AOcPos_14;
extern OBJ _AOcPos_15(OBJ);extern OBJ __AOcPos_15;
extern OBJ _AOcPos_19(OBJ,OBJ);extern OBJ __AOcPos_19;
extern OBJ __AOcPos_35;

#include "NatConv.h"
extern OBJ _AOcOptions_15(OBJ);extern OBJ __AOcOptions_15;
extern OBJ _ALatin1_4(OBJ);extern OBJ __ALatin1_4;
extern OBJ _ALatin1_7(OBJ);extern OBJ __ALatin1_7;
extern OBJ _ALatin1_8(OBJ);extern OBJ __ALatin1_8;
extern OBJ _ALatin1_10(OBJ);extern OBJ __ALatin1_10;
extern OBJ __ASeq_6;
extern OBJ _ASeq_26(OBJ,OBJ);extern OBJ __ASeq_26;
extern OBJ _ASeq_51(OBJ,OBJ);extern OBJ __ASeq_51;
extern OBJ _ASeq_52(OBJ,OBJ);extern OBJ __ASeq_52;
extern OBJ _AGreek_4(OBJ);extern OBJ __AGreek_4;
extern OBJ _AGreek_7(OBJ);extern OBJ __AGreek_7;
extern OBJ _AGreek_8(OBJ);extern OBJ __AGreek_8;
extern OBJ _AGreek_10(OBJ);extern OBJ __AGreek_10;
extern OBJ _ACom_23(OBJ);extern OBJ __ACom_23;
extern OBJ _ACom_47(OBJ,OBJ);extern OBJ __ACom_47;
extern OBJ _ASetByBSTFilter_3(OBJ,OBJ,OBJ);extern OBJ __ASetByBSTFilter_3;
extern OBJ _AStream_13(OBJ);extern OBJ __AStream_13;
extern OBJ __AZOpts_4;
extern OBJ __AZOpts_6;
extern OBJ __AZOpts_8;
extern OBJ __AZOpts_9;
extern OBJ __AZOpts_10;
extern OBJ __AZOpts_11;
extern OBJ __AZOpts_18;
extern TUP2 _ASeqFilter_8(OBJ,OBJ);extern OBJ __ASeqFilter_8;

#include "Nat.h"
extern OBJ _AMap_16(OBJ,OBJ,OBJ);extern OBJ __AMap_16;
extern OBJ _AMap_31(OBJ,OBJ,OBJ,OBJ);extern OBJ __AMap_31;
extern OBJ _AString_2(OBJ,OBJ);extern OBJ __AString_2;
extern OBJ _AString_4(OBJ);extern OBJ __AString_4;
extern OBJ _AString_5(OBJ);extern OBJ __AString_5;
extern OBJ __AString_6;
extern OBJ _AString_12(OBJ);extern OBJ __AString_12;
extern OBJ _AString_39(OBJ);extern OBJ __AString_39;
extern OBJ _AString_66(OBJ,OBJ);extern OBJ __AString_66;
extern OBJ _ABSTree_11(OBJ,OBJ);extern OBJ __ABSTree_11;
extern OBJ _ABSTree_57(OBJ,OBJ,OBJ);extern OBJ __ABSTree_57;
extern OBJ _ABSTree_58(OBJ,OBJ,OBJ);extern OBJ __ABSTree_58;
extern OBJ _ABSTree_61(OBJ,OBJ,OBJ);extern OBJ __ABSTree_61;
extern OBJ _AToken_8(OBJ,OBJ);extern OBJ __AToken_8;
extern OBJ _AToken_14(OBJ);extern OBJ __AToken_14;
extern OBJ _AToken_15(OBJ);extern OBJ __AToken_15;
extern OBJ __ATree_7;

#include "Real.h"
extern OBJ __ARep_3;
extern TUP2 _ARep_7(OBJ,OBJ);extern OBJ __ARep_7;
extern OBJ __ARep_13;
extern OBJ __ARep_69;
extern TUP2 _ARep_138(OBJ,OBJ,OBJ);extern OBJ __ARep_138;

#include "Bitset.h"

#include "Char.h"

#include "Array.h"
extern OBJ __ATerminal_4;
extern OBJ __ATerminal_6;
extern OBJ __ATerminal_60;
extern OBJ __ATerminal_66;
extern OBJ __ATerminal_70;
extern OBJ __ATerminal_72;
extern OBJ __ATerminal_90;
extern OBJ __ATerminal_92;
extern OBJ _ATerminal_144(OBJ);extern OBJ __ATerminal_144;

#include "Int.h"
extern OBJ __AOcExit_1;
extern OBJ __AOcVerbose_2;
extern OBJ _AOcVerbose_4(OBJ,OBJ,OBJ);extern OBJ __AOcVerbose_4;
extern OBJ _ASeqMap_3(OBJ,OBJ);extern OBJ __ASeqMap_3;
extern OBJ _ASeqReduce_3(OBJ,OBJ,OBJ);extern OBJ __ASeqReduce_3;
extern OBJ _ASeqReduce_4(OBJ,OBJ,OBJ);extern OBJ __ASeqReduce_4;
extern OBJ _AComCompose_5(OBJ,OBJ);extern OBJ __AComCompose_5;
extern OBJ _AStringConv_1(OBJ);extern OBJ __AStringConv_1;
extern OBJ _AStringFilter_4(OBJ,OBJ);extern OBJ __AStringFilter_4;
extern TUP2 _AStringFilter_5(OBJ,OBJ);extern OBJ __AStringFilter_5;

#include "Denotation.h"

#include "CharConv.h"
extern OBJ _AScanner_1(OBJ);OBJ __AScanner_1; /* scan */
extern OBJ _AScanner_2(OBJ,OBJ);OBJ __AScanner_2; /* scan,1 */
extern OBJ _AScanner_4(OBJ,OBJ);OBJ __AScanner_4; /* raw */
extern OBJ _AScanner_5(OBJ);OBJ __AScanner_5; /* raw? */
extern OBJ _AScanner_6(OBJ);OBJ __AScanner_6; /* bsl */
extern OBJ _AScanner_7(OBJ);OBJ __AScanner_7; /* cont */
extern OBJ _AScanner_9(OBJ,OBJ,OBJ,OBJ,OBJ);OBJ __AScanner_9; /* docu */
extern OBJ _AScanner_10(OBJ);OBJ __AScanner_10; /* docu? */
extern OBJ _AScanner_11(OBJ);OBJ __AScanner_11; /* dotKW */
extern OBJ _AScanner_12(OBJ);OBJ __AScanner_12; /* esc? */
extern OBJ _AScanner_13(OBJ);OBJ __AScanner_13; /* closeCt */
extern OBJ _AScanner_14(OBJ);OBJ __AScanner_14; /* openCt */
extern OBJ _AScanner_15(OBJ);OBJ __AScanner_15; /* nest */
extern OBJ _AScanner_16(OBJ,OBJ,OBJ,OBJ);OBJ __AScanner_16; /* ide */
extern OBJ _AScanner_17(OBJ);OBJ __AScanner_17; /* ide? */
extern OBJ _AScanner_19(OBJ);OBJ __AScanner_19; /* op */
extern OBJ _AScanner_20(OBJ);OBJ __AScanner_20; /* sofar */
extern OBJ _AScanner_21(OBJ);OBJ __AScanner_21; /* charset? */
extern OBJ _AScanner_22(OBJ);OBJ __AScanner_22; /* none */
extern OBJ _AScanner_23(OBJ);OBJ __AScanner_23; /* none? */
extern OBJ _AScanner_25(OBJ,OBJ);OBJ __AScanner_25; /* comm */
extern OBJ _AScanner_26(OBJ);OBJ __AScanner_26; /* comm? */
extern OBJ _AScanner_29(OBJ,OBJ,OBJ);OBJ __AScanner_29; /* deno */
extern OBJ _AScanner_30(OBJ);OBJ __AScanner_30; /* deno? */
extern OBJ _AScanner_32(OBJ);OBJ __AScanner_32; /* sf */
extern OBJ _AScanner_35(OBJ,OBJ,OBJ,OBJ,OBJ);OBJ __AScanner_35; /* sc */
extern OBJ _AScanner_36(OBJ);OBJ __AScanner_36; /* sc? */
extern OBJ _AScanner_37(OBJ);OBJ __AScanner_37; /* cx */
extern OBJ _AScanner_38(OBJ);OBJ __AScanner_38; /* er */
extern OBJ _AScanner_39(OBJ);OBJ __AScanner_39; /* po */
extern OBJ _AScanner_40(OBJ);OBJ __AScanner_40; /* ts */
extern OBJ _AScanner_41(OBJ);OBJ __AScanner_41; /* rt */
extern OBJ _AScanner_44(OBJ,OBJ);OBJ __AScanner_44; /* scan,2 */
OBJ __AScanner_45; /* initArg */
extern OBJ _AScanner_46(OBJ);OBJ __AScanner_46; /* clearEsc */
extern OBJ _AScanner_47(OBJ);OBJ __AScanner_47; /* setEsc */
extern OBJ _AScanner_48(OBJ);OBJ __AScanner_48; /* incO */
extern OBJ _AScanner_49(OBJ);OBJ __AScanner_49; /* incC */
extern OBJ _AScanner_50(OBJ);OBJ __AScanner_50; /* scanAll */
extern OBJ _AScanner_51(OBJ,OBJ);OBJ __AScanner_51; /* scan,3 */
extern OBJ _AScanner_52(OBJ);OBJ __AScanner_52; /* final */
extern OBJ _AScanner_53(OBJ,OBJ);OBJ __AScanner_53; /* scanStr */
extern OBJ _AScanner_54(OBJ,OBJ,OBJ,OBJ,OBJ,OBJ);OBJ __AScanner_54; /* scan,4 */
extern OBJ _AScanner_55(OBJ,OBJ);OBJ __AScanner_55; /* scan,5 */
extern OBJ _AScanner_56(OBJ,OBJ);OBJ __AScanner_56; /* calc_pos */
extern TUP3 _AScanner_57(OBJ,OBJ,OBJ);OBJ __AScanner_57; /* skipMinus */
extern TUP3 _AScanner_58(OBJ,OBJ,OBJ);OBJ __AScanner_58; /* skipSpecial */
extern OBJ _AScanner_59(OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ);OBJ __AScanner_59; /* scanHex */
extern OBJ _AScanner_60(OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ);OBJ __AScanner_60; /* scanOct */
extern OBJ _AScanner_61(OBJ);OBJ __AScanner_61; /* hexdigit? */
extern OBJ _AScanner_62(OBJ);OBJ __AScanner_62; /* octdigit? */
extern OBJ _AScanner_63(OBJ,OBJ,OBJ);OBJ __AScanner_63; /* checkLineDoc */
extern OBJ _AScanner_64(OBJ,OBJ,OBJ,OBJ,OBJ,OBJ);OBJ __AScanner_64; /* checkLineDoc,1 */
extern TUP2 _AScanner_65(OBJ,OBJ,OBJ);OBJ __AScanner_65; /* classify */
extern TUP2 _AScanner_66(OBJ,OBJ,OBJ,OBJ);OBJ __AScanner_66; /* classify,1 */
extern OBJ _AScanner_67(OBJ,OBJ);OBJ __AScanner_67; /* dotT? */
extern OBJ _AScanner_68(OBJ);OBJ __AScanner_68; /* lineCom? */
extern OBJ _AScanner_69(OBJ);OBJ __AScanner_69; /* nestComBegin? */
extern OBJ _AScanner_70(OBJ);OBJ __AScanner_70; /* nestDocuBegin? */
extern OBJ _AScanner_71(OBJ);OBJ __AScanner_71; /* nestEnd? */
extern OBJ _AScanner_72(OBJ);OBJ __AScanner_72; /* checkPercent */
extern OBJ _AScanner_73(OBJ,OBJ);OBJ __AScanner_73; /* sErr */
extern OBJ _AScanner_74(OBJ,OBJ);OBJ __AScanner_74; /* sWarn */
OBJ __AScanner_75; /* otherChar */
OBJ __AScanner_76; /* cNotO */
OBJ __AScanner_77; /* cNotC */
OBJ __AScanner_78; /* dNotC */
OBJ __AScanner_79; /* never */
OBJ __AScanner_80; /* tabInD */
OBJ __AScanner_81; /* pNotC */
OBJ __AScanner_82; /* pNotO */
OBJ __AScanner_83; /* nlInD */
extern OBJ _AScanner_84(OBJ,OBJ);OBJ __AScanner_84; /* unbalanced */
extern OBJ _AScanner_85(OBJ);OBJ __AScanner_85; /* unkEC */
extern OBJ _AScanner_86(OBJ,OBJ);OBJ __AScanner_86; /* cHigh */
OBJ __AScanner_87; /* special */
extern OBJ _AScanner_88(OBJ);OBJ __AScanner_88; /* special? */
OBJ __AScanner_89; /* extra */
extern OBJ _AScanner_90(OBJ);OBJ __AScanner_90; /* extra? */
OBJ __AScanner_91; /* alphanum */
extern OBJ _AScanner_92(OBJ);OBJ __AScanner_92; /* alphanum? */
extern OBJ _AScanner_93(OBJ);OBJ __AScanner_93; /* scanLetgit? */
OBJ __AScanner_94; /* other */
extern OBJ _AScanner_95(OBJ);OBJ __AScanner_95; /* other? */
extern OBJ _AScanner_96(OBJ);OBJ __AScanner_96; /* scanSpace? */
extern OBJ _AScanner_97(OBJ);OBJ __AScanner_97; /* usc? */
OBJ __AScanner_98; /* escapes */
OBJ __AScanner_99; /* escape */
extern OBJ _AScanner_100(OBJ);OBJ __AScanner_100; /* ! */
extern OBJ _AScanner_101(OBJ);OBJ __AScanner_101; /* <>? */
OBJ __AScanner_102; /* <> */
extern TUP2 _AScanner_103(OBJ,OBJ);OBJ __AScanner_103; /* ftUni */
extern TUP2 _AScanner_104(OBJ,OBJ);OBJ __AScanner_104; /* ftUni,1 */
extern TUP2 _AScanner_105(OBJ,OBJ,OBJ,OBJ);OBJ __AScanner_105; /* scanUnicode */
extern OBJ _AScanner_106(OBJ);OBJ __AScanner_106; /* rtUni */
extern OBJ _AScanner_107(OBJ,OBJ);OBJ __AScanner_107; /* skipUnicode */
extern OBJ _AScanner_108(OBJ,OBJ);OBJ __AScanner_108; /* nextPosUni */
extern OBJ _AScanner_109(OBJ,OBJ,OBJ);OBJ __AScanner_109; /* nextPosUnicode */
extern OBJ _AScanner_110(OBJ,OBJ,OBJ);OBJ __AScanner_110; /* unicode? */
extern OBJ _AScanner_111(OBJ);OBJ __AScanner_111; /* unicodeMarker? */
OBJ __AScanner_112; /* scan,2'112 */
extern OBJ _AScanner_113(OBJ,OBJ);OBJ __AScanner_113; /* scan,2'113 */
extern OBJ _AScanner_114(OBJ,OBJ);OBJ __AScanner_114; /* scan,2'114 */
extern OBJ _AScanner_115(OBJ,OBJ);OBJ __AScanner_115; /* scan,2'115 */
extern OBJ _AScanner_116(OBJ,OBJ,OBJ);OBJ __AScanner_116; /* scan,2'116 */
extern OBJ _AScanner_117(OBJ,OBJ);OBJ __AScanner_117; /* scan,2'117 */
extern OBJ _AScanner_118(OBJ,OBJ,OBJ);OBJ __AScanner_118; /* scan,2'118 */
extern OBJ _AScanner_119(OBJ);OBJ __AScanner_119; /* final'119 */
extern OBJ _AScanner_120(OBJ);OBJ __AScanner_120; /* final'120 */
OBJ __AScanner_121; /* scanUnicode'121 */
OBJ __AScanner_122; /* scanUnicode'122 */
OBJ __AScanner_123; /* scanUnicode'123 */
OBJ __AScanner_124; /* scanUnicode'124 */
extern OBJ _AScanner_125(OBJ);OBJ __AScanner_125; /* scanUnicode'125 */
OBJ __AScanner_126; /* scanUnicode'126 */
extern OBJ _AScanner_127(OBJ);OBJ __AScanner_127; /* scanUnicode'127 */
extern OBJ _AScanner_128(OBJ);OBJ __AScanner_128; /* scanUnicode'128 */
OBJ __AScanner_129; /* cHigh'129 */
OBJ __AScanner_130; /* unbalanced'130 */
OBJ __AScanner_131; /* unbalanced'131 */
OBJ __AScanner_132; /* unbalanced'132 */
OBJ __AScanner_133; /* checkLineDoc,1'133 */
extern OBJ _AScanner_134(OBJ);OBJ __AScanner_134; /* checkLineDoc,1'134 */
OBJ __AScanner_135; /* checkLineDoc,1'135 */
extern OBJ _AScanner_136(OBJ);OBJ __AScanner_136; /* checkLineDoc,1'136 */
OBJ __AScanner_137; /* checkLineDoc,1'137 */
extern OBJ _AScanner_138(OBJ);OBJ __AScanner_138; /* checkLineDoc,1'138 */
OBJ __AScanner_139; /* checkLineDoc,1'139 */
extern OBJ _AScanner_140(OBJ);OBJ __AScanner_140; /* checkLineDoc,1'140 */
OBJ __AScanner_141; /* checkLineDoc'141 */
extern OBJ _AScanner_142(OBJ);OBJ __AScanner_142; /* checkLineDoc'142 */
extern OBJ _AScanner_143(OBJ);OBJ __AScanner_143; /* checkPercent'143 */
OBJ __AScanner_144; /* unkEC'144 */
OBJ __AScanner_145; /* unkEC'145 */
OBJ __AScanner_146; /* unkEC'146 */
OBJ __AScanner_147; /* scan,4'147 */
extern OBJ _AScanner_148(OBJ);OBJ __AScanner_148; /* scan,4'148 */
extern OBJ _AScanner_149(OBJ);OBJ __AScanner_149; /* scanHex'149 */
extern OBJ _AScanner_150(OBJ);OBJ __AScanner_150; /* scanHex'150 */
extern OBJ _AScanner_151(OBJ);OBJ __AScanner_151; /* scanAll'151 */
extern OBJ _AScanner_152(OBJ);OBJ __AScanner_152; /* scanAll'152 */
extern OBJ _AScanner_153(OBJ);OBJ __AScanner_153; /* scanAll'153 */
OBJ __AScanner_154; /* escape'154 */
OBJ __AScanner_155; /* escape'155 */
OBJ __AScanner_156; /* escape'156 */
OBJ __AScanner_157; /* escape'157 */
OBJ __AScanner_158; /* escape'158 */
OBJ __AScanner_159; /* escape'159 */
OBJ __AScanner_160; /* escape'160 */
OBJ __AScanner_161; /* escape'161 */
OBJ __AScanner_162; /* escape'162 */
OBJ __AScanner_163; /* escape'163 */
OBJ __AScanner_164; /* escape'164 */
OBJ __AScanner_165; /* escape'165 */
OBJ __AScanner_166; /* escape'166 */
OBJ __AScanner_167; /* escape'167 */
OBJ __AScanner_168; /* escape'168 */
OBJ __AScanner_169; /* escape'169 */
OBJ __AScanner_170; /* escape'170 */

extern OBJ _AScanner_1(OBJ x1) /* scan */
{OBJ r;
 CPPRD(x1,1);
 {OBJ x2;
  x2=_AScanner_50(x1);
  r=_AScanner_44(x2,x1);}
 return r;}

extern OBJ _AScanner_2(OBJ x1,OBJ x2) /* scan,1 */
{OBJ r;
 CPPRD(__AScanner_45,1);
 {OBJ x3;
  x3=_AScanner_53(x2,__AScanner_45);
  r=_AScanner_44(x3,x1);}
 return r;}

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

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

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

extern OBJ _AScanner_7(OBJ x1) /* cont */
{OBJ r;
 {OBJ x2=FLD1(x1,1);
  if(EXPRD(x1,1)){
   r=x2;
   DSPRDF(x1);
  }else{
   COPY(x2,1);
   r=x2;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AScanner_9(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5) /* docu */
{OBJ r;
 PRD(5,4,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 _AScanner_10(OBJ x1) /* docu? */
{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 _AScanner_11(OBJ x1) /* dotKW */
{OBJ r;
 switch(TGPRD(x1)){
  case 1:
   {OBJ x6=FLD(x1,2);
    if(EXPRD(x1,1)){
     r=x6;
     FREE(FLD(x1,1),1);DSPRDF(x1);
    }else{
     r=x6;
     FRPRD(x1,1);}}break;
  case 2:
   {OBJ x7=FLD(x1,1);
    if(EXPRD(x1,1)){
     r=x7;
     DSPRDF(x1);
    }else{
     r=x7;
     FRPRD(x1,1);}}break;
  case 3:
   {OBJ x11=FLD(x1,4);
    if(EXPRD(x1,1)){
     r=x11;
     DSPRD(x1);
    }else{
     r=x11;
     FRPRD(x1,1);}}break;
  case 4:
   {OBJ x16=FLD(x1,5);
    if(EXPRD(x1,1)){
     r=x16;
     DSPRD(x1);
    }else{
     r=x16;
     FRPRD(x1,1);}}break;
  default: 
   {OBJ x4=FLD(x1,3);
    if(EXPRD(x1,1)){
     r=x4;
     DSPRD(x1);
    }else{
     r=x4;
     FRPRD(x1,1);}}}
 return r;}

extern OBJ _AScanner_12(OBJ x1) /* esc? */
{OBJ r;
 if(ISTGPRD(x1,4)){
  {OBJ x5=FLD(x1,4);
   if(EXPRD(x1,1)){
    r=x5;
    DSPRD(x1);
   }else{
    r=x5;
    FRPRD(x1,1);}}
 }else{
  HLT("Scanner at <106,18-21> : undefined selection esc\?\'Scanner:ctx->bool");}
 return r;}

extern OBJ _AScanner_13(OBJ x1) /* closeCt */
{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("Scanner at <105,52-58> : undefined selection closeCt\'Scanner:ctx->seq");}
 return r;}

extern OBJ _AScanner_14(OBJ x1) /* openCt */
{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("Scanner at <105,34-39> : undefined selection openCt\'Scanner:ctx->seq");}
 return r;}

extern OBJ _AScanner_15(OBJ x1) /* nest */
{OBJ r;
 if(ISTGPRD(x1,4)||ISTGPRD(x1,1)){
  {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("Scanner at <105,18-21> : undefined selection nest\'Scanner:ctx->seq");}
 return r;}

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

extern OBJ _AScanner_17(OBJ x1) /* ide? */
{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 _AScanner_19(OBJ x1) /* op */
{OBJ r;
 if(ISTGPRD(x1,0)){
  {OBJ x2=FLD(x1,1);
   if(EXPRD(x1,1)){
    r=x2;
    FREE(FLD(x1,2),1);DSPRDF(x1);
   }else{
    COPY(x2,1);
    r=x2;
    FRPRD(x1,1);}}
 }else{
  if(ISTGPRD(x1,3)){
   {OBJ x7=FLD(x1,3);
    if(EXPRD(x1,1)){
     r=x7;
     FLD(x1,3)=NIL;DSPRD(x1);
    }else{
     COPY(x7,1);
     r=x7;
     FRPRD(x1,1);}}
  }else{
   HLT("Scanner at <102,56-57> : undefined selection op\'Scanner:ctx->pos");}}
 return r;}

extern OBJ _AScanner_20(OBJ x1) /* sofar */
{OBJ r;
 if(ISTGPRD(x1,3)){
  {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("Scanner at <102,41-45> : undefined selection sofar\'Scanner:ctx->string");}
 return r;}

extern OBJ _AScanner_21(OBJ x1) /* charset? */
{OBJ r;
 if(ISTGPRD(x1,3)){
  {OBJ x2=FLD(x1,1);
   if(EXPRD(x1,1)){
    r=x2;
    FLD(x1,1)=NIL;DSPRD(x1);
   }else{
    CPCLS(x2,1);
    r=x2;
    FRPRD(x1,1);}}
 }else{
  HLT("Scanner at <102,17-24> : undefined selection charset\?\'Scanner:ctx->char->bool");}
 return r;}

extern OBJ _AScanner_22(OBJ x1) /* none */
{OBJ r;
 PRDF(1,2,r);FLD(r,1)=x1;
 return r;}

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

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

extern OBJ _AScanner_26(OBJ x1) /* comm? */
{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 _AScanner_29(OBJ x1,OBJ x2,OBJ x3) /* deno */
{OBJ r;
 PRD(3,0,r);FLD(r,1)=x1;FLD(r,2)=x2;FLD(r,3)=x3;
 return r;}

extern OBJ _AScanner_30(OBJ x1) /* deno? */
{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 _AScanner_32(OBJ x1) /* sf */
{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{
    COPY(x3,1);
    r=x3;
    FRPRD(x1,1);}}
 }else{
  HLT("Scanner at <97,25-26> : undefined selection sf\'Scanner:ctx->string");}
 return r;}

extern OBJ _AScanner_35(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5) /* sc */
{OBJ r;
 PRD1(5,r);FLD1(r,1)=x1;FLD1(r,2)=x2;FLD1(r,3)=x3;FLD1(r,4)=x4;FLD1(r,5)=x5;
 return r;}

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

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

extern OBJ _AScanner_38(OBJ x1) /* er */
{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 _AScanner_39(OBJ x1) /* po */
{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 _AScanner_40(OBJ x1) /* ts */
{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 _AScanner_41(OBJ x1) /* rt */
{OBJ r;
 {OBJ x2=FLD1(x1,1);
  if(EXPRD(x1,1)){
   r=x2;
   FLD1(x1,1)=NIL;DSPRD(x1);
  }else{
   CPPRD(x2,1);
   r=x2;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AScanner_44(OBJ x1,OBJ x2) /* scan,2 */
{OBJ r;
 CPPRD(__AScanner_112,1);
 CPCLS(__AScanner_118,1);
 CPPRD(x2,1);
 {OBJ x3;OBJ x4;
  x3=_AOcVerbose_4(x2,__AOcVerbose_2,__AScanner_112);
  x4=(*(OBJ(*)(OBJ,OBJ,OBJ))METHOD(__AScanner_118,2))(__AScanner_118,x1,x2);
  r=_AComCompose_5(x3,x4);}
 return r;}

extern OBJ _AScanner_46(OBJ x1) /* clearEsc */
{OBJ r;
 if(ISTGPRD(x1,4)){
  {OBJ x55;OBJ x56;OBJ x57;OBJ x59;
   if(EXPRD(x1,1)){
    RPRD(x1,r);FLD(r,4)=__ABUILTIN_3;
   }else{
    x55=FLD(x1,1);x56=FLD(x1,2);x57=FLD(x1,3);x59=FLD(x1,5);COPY(x55,1);COPY(x56,1);COPY(x57,1);
    FRPRD(x1,1);PRD(5,4,r);FLD(r,1)=x55;FLD(r,2)=x56;FLD(r,3)=x57;FLD(r,4)=__ABUILTIN_3;FLD(r,5)=x59;}}
 }else{
  HLT("Scanner at <111,5-12> : missing else in clearEsc\'Scanner:ctx->ctx");}
 return r;}

extern OBJ _AScanner_47(OBJ x1) /* setEsc */
{OBJ r;
 if(ISTGPRD(x1,4)){
  {OBJ x55;OBJ x56;OBJ x57;OBJ x59;
   if(EXPRD(x1,1)){
    RPRD(x1,r);FLD(r,4)=__ABUILTIN_5;
   }else{
    x55=FLD(x1,1);x56=FLD(x1,2);x57=FLD(x1,3);x59=FLD(x1,5);COPY(x55,1);COPY(x56,1);COPY(x57,1);
    FRPRD(x1,1);PRD(5,4,r);FLD(r,1)=x55;FLD(r,2)=x56;FLD(r,3)=x57;FLD(r,4)=__ABUILTIN_5;FLD(r,5)=x59;}}
 }else{
  HLT("Scanner at <111,14-19> : missing else in setEsc\'Scanner:ctx->ctx");}
 return r;}

extern OBJ _AScanner_48(OBJ x1) /* incO */
{OBJ r;
 if(ISTGPRD(x1,4)){
  {OBJ x81=FLD(x1,1);OBJ x82=FLD(x1,2);OBJ x83=FLD(x1,3);OBJ x84=FLD(x1,4);OBJ x85=FLD(x1,5);FLAG x_x1=EXPRD(x1,1);
   if(x_x1){
   }else{
    COPY(x81,1);COPY(x82,1);COPY(x83,1);}
   if(ISPRM(x82)){
    HLT("Scanner at <111,21-24> : missing else in incO\'Scanner:ctx->ctx");
   }else{
    {OBJ x86=FLD1(x82,1);OBJ x87;FLAG x_x82=EXPRD(x82,1);
     if(x_x82){
     }else{
      x87=FLD1(x82,2);COPY(x87,1);}
     {OBJ x89;OBJ x90;
      ANat_2(x86,x89);
      if(x_x82){
       RSOME(x82,x90);FLD1(x90,1)=x89;
      }else{
       FRPRD(x82,1);PRD1(2,x90);FLD1(x90,1)=x89;FLD1(x90,2)=x87;}
      if(x_x1){
       RPRD(x1,r);FLD(r,2)=x90;
      }else{
       FRPRD(x1,1);PRD(5,4,r);FLD(r,1)=x81;FLD(r,2)=x90;FLD(r,3)=x83;FLD(r,4)=x84;FLD(r,5)=x85;}}}}}
 }else{
  HLT("Scanner at <111,21-24> : missing else in incO\'Scanner:ctx->ctx");}
 return r;}

extern OBJ _AScanner_49(OBJ x1) /* incC */
{OBJ r;
 if(ISTGPRD(x1,4)){
  {OBJ x81=FLD(x1,1);OBJ x82=FLD(x1,2);OBJ x83=FLD(x1,3);OBJ x84=FLD(x1,4);OBJ x85=FLD(x1,5);FLAG x_x1=EXPRD(x1,1);
   if(x_x1){
   }else{
    COPY(x81,1);COPY(x82,1);COPY(x83,1);}
   if(ISPRM(x83)){
    HLT("Scanner at <111,26-29> : missing else in incC\'Scanner:ctx->ctx");
   }else{
    {OBJ x86=FLD1(x83,1);OBJ x87;FLAG x_x83=EXPRD(x83,1);
     if(x_x83){
     }else{
      x87=FLD1(x83,2);COPY(x87,1);}
     {OBJ x89;OBJ x90;
      ANat_2(x86,x89);
      if(x_x83){
       RSOME(x83,x90);FLD1(x90,1)=x89;
      }else{
       FRPRD(x83,1);PRD1(2,x90);FLD1(x90,1)=x89;FLD1(x90,2)=x87;}
      if(x_x1){
       RPRD(x1,r);FLD(r,3)=x90;
      }else{
       FRPRD(x1,1);PRD(5,4,r);FLD(r,1)=x81;FLD(r,2)=x82;FLD(r,3)=x90;FLD(r,4)=x84;FLD(r,5)=x85;}}}}}
 }else{
  HLT("Scanner at <111,26-29> : missing else in incC\'Scanner:ctx->ctx");}
 return r;}

extern OBJ _AScanner_50(OBJ x1) /* scanAll */
{OBJ r;
 CPCLS(__AScanner_153,1);
 {OBJ x2;OBJ x3;
  x2=_AOcOptions_15(x1);
  x3=_AStream_13(x2);
  r=_AComCompose_5(x3,__AScanner_153);}
 return r;}

extern OBJ _AScanner_51(OBJ x1,OBJ x2) /* scan,3 */
{OBJ r;
 CPCLS(__AScanner_55,1);
 {OBJ x3;
  x3=_ASeqReduce_4(__AScanner_55,x2,x1);
  r=_AScanner_52(x3);}
 return r;}

extern OBJ _AScanner_52(OBJ x1) /* final */
{OBJ r;
 {OBJ x120=FLD1(x1,1);OBJ x121=FLD1(x1,2);OBJ x122=FLD1(x1,3);OBJ x123=FLD1(x1,4);OBJ x124=FLD1(x1,5);FLAG x_x1=EXPRD(x1,1);
  if(x_x1){
   COPY(x122,1);
  }else{
   CPPRD(x120,1);COPY(x121,1);COPY(x122,2);CPPRD(x123,1);CPPRD(x124,1);}
  CPPRD(__ARep_13,1);
  {OBJ x125;
   PRD1(3,x125);FLD1(x125,1)=__ATerminal_4;FLD1(x125,2)=__ARep_13;FLD1(x125,3)=x122;
   if(ISTGPRD(x124,1)){
    {OBJ x126=FLD(x124,1);
     COPY(x126,1);
     CPCLS(__AScanner_119,1);
     CPPRD(__AOcError_15,1);
     CPCLS(__AOcError_21,1);
     {OBJ x128;OBJ x129;OBJ x130;OBJ x131;OBJ x132;
      PRD1(2,x128);FLD1(x128,1)=x125;FLD1(x128,2)=x121;
      x129=_ASeq_51(x128,__ASeq_6);
      x130=_ASeqMap_3(__AScanner_119,x126);
      x131=_ASeq_51(x130,__ASeq_6);
      x132=_ASeqReduce_3(__AOcError_21,__AOcError_15,x131);
      if(x_x1){
       RSOME(x1,r);FLD1(r,2)=x129;
      }else{
       FRPRD(x1,1);PRD1(5,r);FLD1(r,1)=x120;FLD1(r,2)=x129;FLD1(r,3)=x122;FLD1(r,5)=x124;}
      FLD1(r,4)=_AOcError_21(x123,x132);}}
   }else{
    {OBJ x134;OBJ x135;OBJ x146;
     PRD1(2,x134);FLD1(x134,1)=x125;FLD1(x134,2)=x121;
     x135=_ASeq_51(x134,__ASeq_6);
     if(ISTGPRD(x124,4)){
      {OBJ x136=FLD(x124,1);
       COPY(x136,1);
       CPCLS(__AScanner_120,1);
       CPPRD(__AOcError_15,1);
       CPCLS(__AOcError_21,1);
       {OBJ x141;OBJ x142;
	x141=_ASeqMap_3(__AScanner_120,x136);
	x142=_ASeq_51(x141,__ASeq_6);
	x146=_ASeqReduce_3(__AOcError_21,__AOcError_15,x142);}}
     }else{
      if(ISTGPRD(x124,0)){
       {OBJ x143=FLD(x124,1);
	COPY(x143,1);
	CPPRD(__AScanner_78,1);
	x146=_AOcError_16(__AOcError_12,__AScanner_78,x143);}
      }else{
       CPPRD(__AOcError_15,1);
       x146=__AOcError_15;}}
     if(x_x1){
      RSOME(x1,r);FLD1(r,2)=x135;
     }else{
      FRPRD(x1,1);PRD1(5,r);FLD1(r,1)=x120;FLD1(r,2)=x135;FLD1(r,3)=x122;FLD1(r,5)=x124;}
     FLD1(r,4)=_AOcError_21(x123,x146);}}}}
 return r;}

extern OBJ _AScanner_53(OBJ x1,OBJ x2) /* scanStr */
{OBJ r;
 {OBJ x3;OBJ x4;
  x3=_AScanner_55(x1,x2);
  x4=_AScanner_52(x3);
  r=_ACom_23(x4);}
 return r;}

extern OBJ _AScanner_54(register OBJ x1,register OBJ x2,register OBJ x3,register OBJ x4,register OBJ x5,register OBJ x6) /* scan,4 */
{OBJ r;
 for(;;){
  {OBJ x2447=FLD1(x1,1);
   COPY(x2447,1);
   if(ISPRM(x2447)){
    if(EXPRD(x1,1)){
     FREE(FLD1(x1,1),1);DSPRDF(x1);
    }else{
     DCPRD(x1,1);}
    COPY(x4,1);
    {OBJ x2449;
     x2449=_AOcPos_15(x4);
     if(ISTGPRD(x6,0)){
      {OBJ x2450=FLD(x6,1);OBJ x2452=FLD(x6,3);
       if(EXPRD(x6,1)){
	FREE(FLD(x6,2),1);DSPRDF(x6);
       }else{
	COPY(x2450,1);
	FRPRD(x6,1);}
       FREE(x4,1);
       CPPRD(__AScanner_78,1);
       {OBJ x2454;OBJ x2455;
	PRDF(1,2,x2454);FLD(x2454,1)=x2452;
	x2455=_AOcError_16(__AOcError_12,__AScanner_78,x2450);
	PRD1(5,r);FLD1(r,1)=x2;FLD1(r,2)=x3;FLD1(r,3)=x2449;FLD1(r,5)=x2454;
	FLD1(r,4)=_AOcError_21(x5,x2455);}}
     }else{
      {OBJ x2477;OBJ x2478;OBJ x2479;OBJ x2480;
       if(ISTGPRD(x6,3)){
	{OBJ x2459=FLD(x6,2);OBJ x2460=FLD(x6,3);OBJ x2461=FLD(x6,4);
	 if(EXPRD(x6,1)){
	  FRCLS(FLD(x6,1),1);DSPRDF(x6);
	 }else{
	  COPY(x2459,1);COPY(x2460,1);
	  FRPRD(x6,1);}
	 CPPRD(__AOcError_15,1);
	 {OBJ x2462;OBJ x2463;TUP2 x2466;OBJ x2468;
	  x2462=_AOcPos_19(x2460,x4);
	  x2463=_AString_66(x2459,__AString_6);
	  x2466=_AScanner_66(x2462,x2463,x2,x2461);x2477=x2466.c1;
	  CPPRD(x2466.c2,1);
	  PRD1(2,x2478);FLD1(x2478,1)=x2466.c2;FLD1(x2478,2)=x3;
	  x2468=_AScanner_67(x2466.c2,x2461);
	  PRDF(1,2,x2480);FLD(x2480,1)=x2468;
	  x2479=__AOcError_15;}}
       }else{
	if(ISTGPRD(x6,4)){
	 {OBJ x2470;OBJ x2471;OBJ x2472;OBJ x2474;FLAG x_x6=EXPRD(x6,1);
	  if(x_x6){
	  }else{
	   x2470=FLD(x6,1);x2471=FLD(x6,2);x2472=FLD(x6,3);x2474=FLD(x6,5);COPY(x2470,1);COPY(x2471,1);COPY(x2472,1);}
	  FREE(x4,1);
	  CPPRD(__AOcError_15,1);
	  if(x_x6){
	   RPRD(x6,x2480);FLD(x2480,4)=__ABUILTIN_3;
	  }else{
	   FRPRD(x6,1);PRD(5,4,x2480);FLD(x2480,1)=x2470;FLD(x2480,2)=x2471;FLD(x2480,3)=x2472;FLD(x2480,4)=__ABUILTIN_3;FLD(x2480,5)=x2474;}
	  x2477=x2;x2478=x3;x2479=__AOcError_15;}
	}else{
	 FREE(x4,1);
	 CPPRD(__AOcError_15,1);
	 x2477=x2;x2478=x3;x2479=__AOcError_15;x2480=x6;}}
       PRD1(5,r);FLD1(r,1)=x2477;FLD1(r,2)=x2478;FLD1(r,3)=x2449;FLD1(r,5)=x2480;
       FLD1(r,4)=_AOcError_21(x5,x2479);}}}
   }else{
    {OBJ x2503;OBJ x2485;OBJ x2486;OBJ x2504;OBJ x2505;OBJ x2506;OBJ x2507;
     switch(TGPRD(x6)){
      case 1:
       {OBJ x2492=FLD(x6,2);
	x2503=x2492;
	CPPRD(x1,3);
	COPY(x4,2);
	CPPRD(x5,1);}break;
      case 2:
       {OBJ x2493=FLD(x6,1);
	x2503=x2493;
	CPPRD(x1,3);
	COPY(x4,2);
	CPPRD(x5,1);}break;
      case 3:
       {OBJ x2497=FLD(x6,4);
	x2503=x2497;
	CPPRD(x1,3);
	COPY(x4,2);
	CPPRD(x5,1);}break;
      case 4:
       {OBJ x2502=FLD(x6,5);
	x2503=x2502;
	CPPRD(x1,3);
	COPY(x4,2);
	CPPRD(x5,1);}break;
      default: 
       {OBJ x2490=FLD(x6,3);
	x2503=x2490;
	CPPRD(x1,3);
	COPY(x4,2);
	CPPRD(x5,1);}}
     x2485=_AScanner_108(x4,x1);
     x2486=_AScanner_106(x1);
     {TUP2 t=_AScanner_103(x1,x4);
      x2504=t.c1;
      x2505=t.c2;}
     x2506=_AOcError_21(x5,x2505);
     AChar_15(x2504,__AChar_7,x2507);
     if(ISTGPRM(x2507,1)){
      if(EXPRD(x2447,1)){
       DSPRD(x2447);
      }else{
       DCPRD(x2447,1);}
      if(EXPRD(x1,1)){
       FREE(FLD1(x1,1),1);DSPRDF(x1);
      }else{
       DCPRD(x1,1);}
      FRPRD(x5,1);
      FREE(x2485,1);
      COPY(x4,1);
      {OBJ x2508;
       x2508=_AOcPos_15(x4);
       if(ISTGPRD(x6,0)){
	{OBJ x2509=FLD(x6,1);
	 if(EXPRD(x6,1)){
	  FREE(FLD(x6,2),1);DSPRDF(x6);
	 }else{
	  COPY(x2509,1);
	  FRPRD(x6,1);}
	 FREE(x4,1);
	 CPPRD(__AScanner_78,1);
	 {OBJ x2512;OBJ x2513;OBJ x2515;
	  x2512=_AOcError_16(__AOcError_12,__AScanner_78,x2509);
	  PRDF(1,2,x2513);FLD(x2513,1)=x2503;
	  x2515=_AOcError_21(x2506,x2512);
	  x1=x2486;x4=x2508;x5=x2515;x6=x2513;continue;}}
       }else{
	{OBJ x2529;OBJ x2530;OBJ x2531;OBJ x2532;OBJ x2533;
	 if(ISTGPRD(x6,3)){
	  {OBJ x2517=FLD(x6,2);OBJ x2518=FLD(x6,3);
	   if(EXPRD(x6,1)){
	    FRCLS(FLD(x6,1),1);DSPRDF(x6);
	   }else{
	    COPY(x2517,1);COPY(x2518,1);
	    FRPRD(x6,1);}
	   CPPRD(__AOcError_15,1);
	   {OBJ x2520;OBJ x2521;TUP2 x2524;OBJ x2526;
	    x2520=_AOcPos_19(x2518,x4);
	    x2521=_AString_66(x2517,__AString_6);
	    x2524=_AScanner_66(x2520,x2521,x2,x2503);x2529=x2524.c1;
	    CPPRD(x2524.c2,1);
	    PRD1(2,x2530);FLD1(x2530,1)=x2524.c2;FLD1(x2530,2)=x3;
	    x2526=_AScanner_67(x2524.c2,x2503);
	    PRDF(1,2,x2532);FLD(x2532,1)=x2526;
	    x2531=__AOcError_15;}}
	 }else{
	  FREE(x4,1);
	  CPPRD(__AOcError_15,1);
	  x2529=x2;x2530=x3;x2531=__AOcError_15;x2532=x6;}
	 x2533=_AOcError_21(x2506,x2531);
	 x1=x2486;x2=x2529;x3=x2530;x4=x2508;x5=x2533;x6=x2532;continue;}}}
     }else{
      switch(TGPRD(x6)){
       case 2:
	if(EXPRD(x2447,1)){
	 DSPRD(x2447);
	}else{
	 DCPRD(x2447,1);}
	if(EXPRD(x1,1)){
	 FREE(FLD1(x1,1),1);DSPRDF(x1);
	}else{
	 DCPRD(x1,1);}
	FRPRD(x5,1);
	{OBJ x2566;
	 x2566=_AScanner_93(x2504);
	 if(ISTGPRM(x2566,1)){
	  if(EXPRD(x6,1)){
	   DSPRDF(x6);
	  }else{
	   DCPRD(x6,1);}
	  CPCLS(__AScanner_92,1);
	  {OBJ x2567;OBJ x2568;
	   x2567=_AString_12(x2504);
	   PRD(4,3,x2568);FLD(x2568,1)=__AScanner_92;FLD(x2568,2)=x2567;FLD(x2568,3)=x4;FLD(x2568,4)=x2503;
	   x1=x2486;x4=x2485;x5=x2506;x6=x2568;continue;}
	 }else{
	  {OBJ x2569;
	   x2569=_AScanner_96(x2504);
	   if(ISTGPRM(x2569,1)){
	    FREE(x4,1);
	    x1=x2486;x4=x2485;x5=x2506;continue;
	   }else{
	    COPY(__AScanner_89,1);
	    CPCLS(__AChar_17,1);
	    {OBJ x2570;
	     x2570=_ABSTree_61(__AChar_17,x2504,__AScanner_89);
	     if(ISTGPRM(x2570,1)){
	      {TUP2 x2572;OBJ x2574;
	       x2572=_AScanner_65(x4,x2504,x2);
	       PRD1(2,x2574);FLD1(x2574,1)=x2572.c2;FLD1(x2574,2)=x3;
	       x1=x2486;x2=x2572.c1;x3=x2574;x4=x2485;x5=x2506;continue;}
	     }else{
	      {OBJ x2575;OBJ x2576;
	       AChar_15(x2504,__APrintableChar_30,x2575);
	       if(ISTGPRM(x2575,1)){
		CPPRD(x2486,1);
		x2576=_AScanner_70(x2486);
	       }else{
		x2576=__ABUILTIN_3;}
	       if(ISTGPRM(x2576,1)){
		if(EXPRD(x6,1)){
		 DSPRDF(x6);
		}else{
		 DCPRD(x6,1);}
		CPPRD(x2486,1);
		COPY(__AScanner_147,2);
		{OBJ x2577;OBJ x2578;OBJ x2579;OBJ x2580;
		 PRD1(2,x2577);FLD1(x2577,1)=x4;FLD1(x2577,2)=__ASeq_6;
		 x2578=_AScanner_106(x2486);
		 x2579=_AScanner_108(x2485,x2486);
		 PRD(5,4,x2580);FLD(x2580,1)=x2577;FLD(x2580,2)=__AScanner_147;FLD(x2580,3)=__AScanner_147;FLD(x2580,4)=__ABUILTIN_3;FLD(x2580,5)=x2503;
		 x1=x2578;x4=x2579;x5=x2506;x6=x2580;continue;}
	       }else{
		{OBJ x2581;
		 if(ISTGPRM(x2575,1)){
		  CPPRD(x2486,1);
		  x2581=_AScanner_69(x2486);
		 }else{
		  x2581=__ABUILTIN_3;}
		 if(ISTGPRM(x2581,1)){
		  if(EXPRD(x6,1)){
		   DSPRDF(x6);
		  }else{
		   DCPRD(x6,1);}
		  CPPRD(x2486,1);
		  {OBJ x2582;OBJ x2583;OBJ x2584;OBJ x2585;
		   PRD1(2,x2582);FLD1(x2582,1)=x4;FLD1(x2582,2)=__ASeq_6;
		   x2583=_AScanner_106(x2486);
		   x2584=_AScanner_108(x2485,x2486);
		   PRD(2,1,x2585);FLD(x2585,1)=x2582;FLD(x2585,2)=x2503;
		   x1=x2583;x4=x2584;x5=x2506;x6=x2585;continue;}
		 }else{
		  {OBJ x2586;OBJ x2587;
		   AChar_15(x2504,__APrintableChar_29,x2586);
		   if(ISTGPRM(x2586,1)){
		    CPPRD(x2486,1);
		    x2587=_AScanner_68(x2486);
		   }else{
		    x2587=__ABUILTIN_3;}
		   if(ISTGPRM(x2587,1)){
		    FREE(x2485,1);
		    COPY(x4,2);
		    CPPRD(__AScanner_102,1);
		    {OBJ x2588;OBJ x2589;OBJ x2590;
		     x2588=_AScanner_106(x2486);
		     x2589=_AScanner_63(x2588,x4,x4);
		     x2590=_AOcError_21(x2506,x2589);
		     x1=__AScanner_102;x5=x2590;continue;}
		   }else{
		    {OBJ x2591;
		     AChar_15(x2504,__APrintableChar_1,x2591);
		     if(ISTGPRM(x2591,1)){
		      if(EXPRD(x6,1)){
		       DSPRDF(x6);
		      }else{
		       DCPRD(x6,1);}
		      {OBJ x2592;
		       PRD(3,0,x2592);FLD(x2592,1)=x4;FLD(x2592,2)=__AString_6;FLD(x2592,3)=x2503;
		       x1=x2486;x4=x2485;x5=x2506;x6=x2592;continue;}
		     }else{
		      {OBJ x2593;OBJ x2594;
		       AChar_15(x2504,__APrintableChar_27,x2593);
		       if(ISTGPRM(x2593,1)){
			CPPRD(x2486,1);
			x2594=_AScanner_71(x2486);
		       }else{
			x2594=__ABUILTIN_3;}
		       if(ISTGPRM(x2594,1)){
			if(EXPRD(x6,1)){
			 DSPRDF(x6);
			}else{
			 DCPRD(x6,1);}
			CPPRD(x2486,1);
			CPPRD(__AScanner_76,1);
			{OBJ x2595;OBJ x2596;OBJ x2597;OBJ x2598;OBJ x2599;
			 x2595=_AOcError_16(__AOcError_12,__AScanner_76,x4);
			 PRDF(1,2,x2596);FLD(x2596,1)=x2503;
			 x2597=_AScanner_106(x2486);
			 x2598=_AScanner_108(x2485,x2486);
			 x2599=_AOcError_21(x2506,x2595);
			 x1=x2597;x4=x2598;x5=x2599;x6=x2596;continue;}
		       }else{
			COPY(__AScanner_87,1);
			CPCLS(__AChar_17,1);
			{OBJ x2600;
			 x2600=_ABSTree_61(__AChar_17,x2504,__AScanner_87);
			 if(ISTGPRM(x2600,1)){
			  if(EXPRD(x6,1)){
			   DSPRDF(x6);
			  }else{
			   DCPRD(x6,1);}
			  CPCLS(__AScanner_88,1);
			  {OBJ x2601;OBJ x2602;
			   x2601=_AString_12(x2504);
			   PRD(4,3,x2602);FLD(x2602,1)=__AScanner_88;FLD(x2602,2)=x2601;FLD(x2602,3)=x4;FLD(x2602,4)=x2503;
			   x1=x2486;x4=x2485;x5=x2506;x6=x2602;continue;}
			 }else{
			  COPY(__AScanner_94,1);
			  CPCLS(__AChar_17,1);
			  {OBJ x2603;
			   x2603=_ABSTree_61(__AChar_17,x2504,__AScanner_94);
			   if(ISTGPRM(x2603,1)){
			    CPPRD(__AScanner_75,1);
			    {OBJ x2604;OBJ x2605;
			     x2604=_AOcError_16(__AOcError_12,__AScanner_75,x4);
			     x2605=_AOcError_21(x2506,x2604);
			     x1=x2486;x4=x2485;x5=x2605;continue;}
			   }else{
			    CPPRD(__AScanner_79,1);
			    {OBJ x2606;OBJ x2607;
			     x2606=_AOcError_16(__AOcError_12,__AScanner_79,x4);
			     x2607=_AOcError_21(x2506,x2606);
			     x1=x2486;x4=x2485;x5=x2607;continue;}}}}}}}}}}}}}}}}}}}}}break;
       case 1:
	{OBJ x2608=FLD(x6,1);
	 COPY(x2608,1);
	 if(EXPRD(x2447,1)){
	  DSPRD(x2447);
	 }else{
	  DCPRD(x2447,1);}
	 if(EXPRD(x1,1)){
	  FREE(FLD1(x1,1),1);DSPRDF(x1);
	 }else{
	  DCPRD(x1,1);}
	 FRPRD(x5,1);
	 {OBJ x2610;OBJ x2611;
	  AChar_15(x2504,__APrintableChar_27,x2610);
	  if(ISTGPRM(x2610,1)){
	   CPPRD(x2486,1);
	   x2611=_AScanner_71(x2486);
	  }else{
	   x2611=__ABUILTIN_3;}
	  if(ISTGPRM(x2611,1)){
	   if(EXPRD(x6,1)){
	    FREE(FLD(x6,1),1);DSPRDF(x6);
	   }else{
	    DCPRD(x6,1);}
	   {OBJ x2616;OBJ x2612;OBJ x2613;OBJ x2627;OBJ x2628;OBJ x2629;
	    if(ISPRM(x2608)){
	     CPPRD(x2486,1);
	     x2616=__ABUILTIN_5;
	    }else{
	     CPPRD(x2486,1);
	     x2616=__ABUILTIN_3;}
	    x2612=_AScanner_108(x2485,x2486);
	    x2613=_AScanner_106(x2486);
	    if(ISTGPRM(x2616,1)){
	     FREE(x2608,1);
	     CPPRD(__AScanner_76,1);
	     x2628=_AOcError_16(__AOcError_12,__AScanner_76,x4);
	     PRDF(1,2,x2627);FLD(x2627,1)=x2503;
	    }else{
	     FREE(x4,1);
	     COPY(x2608,1);
	     {OBJ x2619;OBJ x2620;
	      x2619=_ASeq_52(x2608,__ANat_5);
	      ANat_76(x2619,__ANat_8,x2620);
	      if(ISTGPRM(x2620,1)){
	       FREE(x2608,1);
	       CPPRD(__AOcError_15,1);
	       PRDF(1,2,x2627);FLD(x2627,1)=x2503;
	       x2628=__AOcError_15;
	      }else{
	       {OBJ x2624;OBJ x2625;
		if(ISPRM(x2608)){
		 HLT("Seq at <unknown> : undefined selection rt\'Seq:seq->seq");
		}else{
		 {OBJ x2623=FLD1(x2608,2);
		  if(EXPRD(x2608,1)){
		   x2624=x2623;
		   FREE(FLD1(x2608,1),1);DSPRDF(x2608);
		  }else{
		   COPY(x2623,1);
		   x2624=x2623;
		   FRPRD(x2608,1);}
		  CPPRD(__AOcError_15,1);}}
		PRD(2,1,x2627);FLD(x2627,1)=x2624;FLD(x2627,2)=x2503;
		x2628=__AOcError_15;}}}}
	    x2629=_AOcError_21(x2506,x2628);
	    x1=x2613;x4=x2612;x5=x2629;x6=x2627;continue;}
	  }else{
	   {OBJ x2630;
	    AChar_15(x2504,__APrintableChar_29,x2630);
	    if(ISTGPRM(x2630,1)){
	     FREE(x2608,1);
	     CPPRD(x2486,1);
	     {OBJ x2631;
	      x2631=_AScanner_68(x2486);
	      if(ISTGPRM(x2631,1)){
	       FREE(x2485,1);
	       FRPRD(x2486,1);
	       CPPRD(__AScanner_102,1);
	       x1=__AScanner_102;x5=x2506;continue;
	      }else{
	       COPY(x4,1);
	       CPPRD(x2486,1);
	       CPPRD(__AOcError_15,1);
	       {OBJ x2632;TUP3 x2634;OBJ x2637;OBJ x2638;
		x2632=_AScanner_63(x2486,x4,x4);
		x2634=_AScanner_57(x2485,x2486,__AOcError_15);
		x2637=_AOcError_21(x2634.c3,x2632);
		x2638=_AOcError_21(x2506,x2637);
		x1=x2634.c2;x4=x2634.c1;x5=x2638;continue;}}}
	    }else{
	     {OBJ x2639;OBJ x2640;
	      AChar_15(x2504,__APrintableChar_30,x2639);
	      if(ISTGPRM(x2639,1)){
	       CPPRD(x2486,1);
	       x2640=_AScanner_69(x2486);
	      }else{
	       x2640=__ABUILTIN_3;}
	      if(ISTGPRM(x2640,1)){
	       if(EXPRD(x6,1)){
		FREE(FLD(x6,1),1);DSPRDF(x6);
	       }else{
		DCPRD(x6,1);}
	       CPPRD(x2486,1);
	       {OBJ x2641;OBJ x2642;OBJ x2643;OBJ x2644;
		PRD1(2,x2641);FLD1(x2641,1)=x4;FLD1(x2641,2)=x2608;
		x2642=_AScanner_108(x2485,x2486);
		x2643=_AScanner_106(x2486);
		PRD(2,1,x2644);FLD(x2644,1)=x2641;FLD(x2644,2)=x2503;
		x1=x2643;x4=x2642;x5=x2506;x6=x2644;continue;}
	      }else{
	       FREE(x4,1);
	       FREE(x2608,1);
	       COPY(__AScanner_87,1);
	       CPCLS(__AChar_17,1);
	       {OBJ x2645;
		x2645=_ABSTree_61(__AChar_17,x2504,__AScanner_87);
		if(ISTGPRM(x2645,1)){
		 CPPRD(__AOcError_15,1);
		 {TUP3 x2647;OBJ x2650;
		  x2647=_AScanner_58(x2485,x2486,__AOcError_15);
		  x2650=_AOcError_21(x2506,x2647.c3);
		  x1=x2647.c2;x4=x2647.c1;x5=x2650;continue;}
		}else{
		 x1=x2486;x4=x2485;x5=x2506;continue;}}}}}}}}}break;
       case 4:
	{OBJ x2651=FLD(x6,1);OBJ x2652=FLD(x6,2);OBJ x2653=FLD(x6,3);OBJ x2654=FLD(x6,4);OBJ x2655=FLD(x6,5);
	 COPY(x2651,1);COPY(x2652,1);COPY(x2653,1);
	 if(EXPRD(x2447,1)){
	  DSPRD(x2447);
	 }else{
	  DCPRD(x2447,1);}
	 if(EXPRD(x1,1)){
	  FREE(FLD1(x1,1),1);DSPRDF(x1);
	 }else{
	  DCPRD(x1,1);}
	 FRPRD(x5,1);
	 {OBJ x2656;OBJ x2657;
	  AChar_15(x2504,__APrintableChar_27,x2656);
	  if(ISTGPRM(x2656,1)){
	   CPPRD(x2486,1);
	   x2657=_AScanner_71(x2486);
	  }else{
	   x2657=__ABUILTIN_3;}
	  if(ISTGPRM(x2657,1)){
	   if(EXPRD(x6,1)){
	    DSPRD(x6);
	   }else{
	    DCPRD(x6,1);}
	   {OBJ x2665;OBJ x2662;OBJ x2658;OBJ x2659;OBJ x2693;OBJ x2694;OBJ x2695;OBJ x2696;OBJ x2697;
	    if(ISPRM(x2652)){
	     x2665=__ABUILTIN_5;
	    }else{
	     x2665=__ABUILTIN_3;}
	    if(ISPRM(x2651)){
	     CPPRD(x2486,1);
	     x2662=__ABUILTIN_5;
	    }else{
	     CPPRD(x2486,1);
	     x2662=__ABUILTIN_3;}
	    x2658=_AScanner_108(x2485,x2486);
	    x2659=_AScanner_106(x2486);
	    if(ISTGPRM(x2665,1)){
	     CPPRD(__AOcError_15,1);
	     x2693=__AOcError_15;
	    }else{
	     {OBJ x2687;OBJ x2684;OBJ x2688;
	      if(ISPRM(x2653)){
	       HLT("Seq at <unknown> : undefined selection ft\'Seq:seq->data");
	      }else{
	       {OBJ x2685=FLD1(x2653,1);
		x2687=x2685;}}
	      if(ISPRM(x2652)){
	       HLT("Seq at <unknown> : undefined selection ft\'Seq:seq->data");
	      }else{
	       {OBJ x2682=FLD1(x2652,1);
		x2684=x2682;}}
	      ANat_76(x2684,x2687,x2688);
	      if(ISTGPRM(x2688,1)){
	       CPPRD(__AOcError_15,1);
	       x2693=__AOcError_15;
	      }else{
	       {OBJ x2691;OBJ x2692;
		if(ISPRM(x2651)){
		 HLT("Seq at <unknown> : undefined selection ft\'Seq:seq->data");
		}else{
		 {OBJ x2689=FLD1(x2651,1);
		  COPY(x2689,1);
		  x2691=x2689;}}
		x2692=_AScanner_84(x2684,x2687);
		x2693=_AOcError_16(__AOcError_12,x2692,x2691);}}}}
	    if(ISTGPRM(x2662,1)){
	     FREE(x2651,1);
	     FREE(x2652,1);
	     FREE(x2653,1);
	     CPPRD(__AScanner_76,1);
	     x2695=_AOcError_16(__AOcError_12,__AScanner_76,x4);
	     PRDF(1,2,x2694);FLD(x2694,1)=x2503;
	    }else{
	     FREE(x4,1);
	     COPY(x2651,1);
	     {OBJ x2668;OBJ x2669;
	      x2668=_ASeq_52(x2651,__ANat_5);
	      ANat_76(x2668,__ANat_8,x2669);
	      if(ISTGPRM(x2669,1)){
	       FREE(x2651,1);
	       FREE(x2652,1);
	       FREE(x2653,1);
	       CPPRD(__AOcError_15,1);
	       PRDF(1,2,x2694);FLD(x2694,1)=x2503;
	       x2695=__AOcError_15;
	      }else{
	       {OBJ x2679;OBJ x2676;OBJ x2673;OBJ x2680;
		if(ISPRM(x2653)){
		 HLT("Seq at <unknown> : undefined selection rt\'Seq:seq->seq");
		}else{
		 {OBJ x2678=FLD1(x2653,2);
		  if(EXPRD(x2653,1)){
		   x2679=x2678;
		   DSPRDF(x2653);
		  }else{
		   COPY(x2678,1);
		   x2679=x2678;
		   FRPRD(x2653,1);}}}
		if(ISPRM(x2652)){
		 HLT("Seq at <unknown> : undefined selection rt\'Seq:seq->seq");
		}else{
		 {OBJ x2675=FLD1(x2652,2);
		  if(EXPRD(x2652,1)){
		   x2676=x2675;
		   DSPRDF(x2652);
		  }else{
		   COPY(x2675,1);
		   x2676=x2675;
		   FRPRD(x2652,1);}}}
		if(ISPRM(x2651)){
		 HLT("Seq at <unknown> : undefined selection rt\'Seq:seq->seq");
		}else{
		 {OBJ x2672=FLD1(x2651,2);
		  if(EXPRD(x2651,1)){
		   x2673=x2672;
		   FREE(FLD1(x2651,1),1);DSPRDF(x2651);
		  }else{
		   COPY(x2672,1);
		   x2673=x2672;
		   FRPRD(x2651,1);}
		  CPPRD(__AOcError_15,1);}}
		PRD(5,4,x2694);FLD(x2694,1)=x2673;FLD(x2694,2)=x2676;FLD(x2694,3)=x2679;FLD(x2694,4)=__ABUILTIN_3;FLD(x2694,5)=x2503;
		x2695=__AOcError_15;}}}}
	    x2696=_AOcError_21(x2695,x2693);
	    x2697=_AOcError_21(x2506,x2696);
	    x1=x2659;x4=x2658;x5=x2697;x6=x2694;continue;}
	  }else{
	   {OBJ x2698;
	    AChar_15(x2504,__APrintableChar_29,x2698);
	    if(ISTGPRM(x2698,1)){
	     if(EXPRD(x6,1)){
	      DSPRD(x6);
	     }else{
	      DCPRD(x6,1);}
	     CPPRD(x2486,1);
	     {OBJ x2699;OBJ x2700;
	      x2699=_AScanner_68(x2486);
	      PRD(5,4,x2700);FLD(x2700,1)=x2651;FLD(x2700,2)=x2652;FLD(x2700,3)=x2653;FLD(x2700,4)=__ABUILTIN_3;FLD(x2700,5)=x2655;
	      if(ISTGPRM(x2699,1)){
	       FREE(x2485,1);
	       COPY(x4,2);
	       CPPRD(__AScanner_102,1);
	       {OBJ x2701;OBJ x2702;OBJ x2703;
		x2701=_AScanner_106(x2486);
		x2702=_AScanner_63(x2701,x4,x4);
		x2703=_AOcError_21(x2506,x2702);
		x1=__AScanner_102;x5=x2703;x6=x2700;continue;}
	      }else{
	       FREE(x4,1);
	       CPPRD(__AOcError_15,1);
	       {TUP3 x2705;OBJ x2708;
		x2705=_AScanner_57(x2485,x2486,__AOcError_15);
		x2708=_AOcError_21(x2506,x2705.c3);
		x1=x2705.c2;x4=x2705.c1;x5=x2708;x6=x2700;continue;}}}
	    }else{
	     {OBJ x2709;OBJ x2710;
	      AChar_15(x2504,__APrintableChar_30,x2709);
	      if(ISTGPRM(x2709,1)){
	       CPPRD(x2486,1);
	       x2710=_AScanner_69(x2486);
	      }else{
	       x2710=__ABUILTIN_3;}
	      if(ISTGPRM(x2710,1)){
	       if(EXPRD(x6,1)){
		DSPRD(x6);
	       }else{
		DCPRD(x6,1);}
	       CPPRD(x2486,1);
	       {OBJ x2711;OBJ x2712;OBJ x2713;OBJ x2714;OBJ x2715;OBJ x2716;
		PRD1(2,x2711);FLD1(x2711,1)=__ANat_5;FLD1(x2711,2)=x2653;
		PRD1(2,x2712);FLD1(x2712,1)=__ANat_5;FLD1(x2712,2)=x2652;
		PRD1(2,x2713);FLD1(x2713,1)=x4;FLD1(x2713,2)=x2651;
		x2714=_AScanner_108(x2485,x2486);
		x2715=_AScanner_106(x2486);
		PRD(5,4,x2716);FLD(x2716,1)=x2713;FLD(x2716,2)=x2712;FLD(x2716,3)=x2711;FLD(x2716,4)=__ABUILTIN_3;FLD(x2716,5)=x2503;
		x1=x2715;x4=x2714;x5=x2506;x6=x2716;continue;}
	      }else{
	       FREE(x4,1);
	       if(ISTGPRM(x2654,1)){
		if(EXPRD(x6,1)){
		 DSPRD(x6);
		}else{
		 DCPRD(x6,1);}
		{OBJ x2717;
		 PRD(5,4,x2717);FLD(x2717,1)=x2651;FLD(x2717,2)=x2652;FLD(x2717,3)=x2653;FLD(x2717,4)=__ABUILTIN_3;FLD(x2717,5)=x2655;
		 x1=x2486;x4=x2485;x5=x2506;x6=x2717;continue;}
	       }else{
		{OBJ x2718;
		 AChar_15(x2504,__APrintableChar_37,x2718);
		 if(ISTGPRM(x2718,1)){
		  if(EXPRD(x6,1)){
		   DSPRD(x6);
		  }else{
		   DCPRD(x6,1);}
		  {OBJ x2719;
		   PRD(5,4,x2719);FLD(x2719,1)=x2651;FLD(x2719,2)=x2652;FLD(x2719,3)=x2653;FLD(x2719,4)=__ABUILTIN_5;FLD(x2719,5)=x2655;
		   x1=x2486;x4=x2485;x5=x2506;x6=x2719;continue;}
		 }else{
		  {OBJ x2720;
		   AChar_15(x2504,__APrintableChar_40,x2720);
		   if(ISTGPRM(x2720,1)){
		    FREE(x2651,1);
		    FREE(x2652,1);
		    FREE(x2653,1);
		    {OBJ x2721;
		     x2721=_AScanner_48(x6);
		     if(ISTGPRD(x2721,4)){
		      {OBJ x2722;OBJ x2723;OBJ x2724;OBJ x2726;FLAG x_x2721=EXPRD(x2721,1);
		       if(x_x2721){
		       }else{
			x2722=FLD(x2721,1);x2723=FLD(x2721,2);x2724=FLD(x2721,3);x2726=FLD(x2721,5);COPY(x2722,1);COPY(x2723,1);COPY(x2724,1);}
		       {OBJ x2727;
			if(x_x2721){
			 RPRD(x2721,x2727);FLD(x2727,4)=__ABUILTIN_3;
			}else{
			 FRPRD(x2721,1);PRD(5,4,x2727);FLD(x2727,1)=x2722;FLD(x2727,2)=x2723;FLD(x2727,3)=x2724;FLD(x2727,4)=__ABUILTIN_3;FLD(x2727,5)=x2726;}
			x1=x2486;x4=x2485;x5=x2506;x6=x2727;continue;}}
		     }else{
		      HLT("Scanner at <111,5-12> : missing else in clearEsc\'Scanner:ctx->ctx");}}
		   }else{
		    {OBJ x2728;
		     AChar_15(x2504,__APrintableChar_41,x2728);
		     if(ISTGPRM(x2728,1)){
		      FREE(x2651,1);
		      FREE(x2652,1);
		      FREE(x2653,1);
		      {OBJ x2729;
		       x2729=_AScanner_49(x6);
		       if(ISTGPRD(x2729,4)){
			{OBJ x2730;OBJ x2731;OBJ x2732;OBJ x2734;FLAG x_x2729=EXPRD(x2729,1);
			 if(x_x2729){
			 }else{
			  x2730=FLD(x2729,1);x2731=FLD(x2729,2);x2732=FLD(x2729,3);x2734=FLD(x2729,5);COPY(x2730,1);COPY(x2731,1);COPY(x2732,1);}
			 {OBJ x2735;
			  if(x_x2729){
			   RPRD(x2729,x2735);FLD(x2735,4)=__ABUILTIN_3;
			  }else{
			   FRPRD(x2729,1);PRD(5,4,x2735);FLD(x2735,1)=x2730;FLD(x2735,2)=x2731;FLD(x2735,3)=x2732;FLD(x2735,4)=__ABUILTIN_3;FLD(x2735,5)=x2734;}
			  x1=x2486;x4=x2485;x5=x2506;x6=x2735;continue;}}
		       }else{
			HLT("Scanner at <111,5-12> : missing else in clearEsc\'Scanner:ctx->ctx");}}
		     }else{
		      if(EXPRD(x6,1)){
		       DSPRD(x6);
		      }else{
		       DCPRD(x6,1);}
		      {OBJ x2736;
		       PRD(5,4,x2736);FLD(x2736,1)=x2651;FLD(x2736,2)=x2652;FLD(x2736,3)=x2653;FLD(x2736,4)=__ABUILTIN_3;FLD(x2736,5)=x2655;
		       x1=x2486;x4=x2485;x5=x2506;x6=x2736;continue;}}}}}}}}}}}}}}}break;
       case 0:
	{OBJ x2737=FLD(x6,1);OBJ x2738=FLD(x6,2);
	 COPY(x2737,1);COPY(x2738,1);
	 if(EXPRD(x1,1)){
	  FREE(FLD1(x1,1),1);DSPRDF(x1);
	 }else{
	  DCPRD(x1,1);}
	 FRPRD(x5,1);
	 {OBJ x2740;
	  AChar_15(x2504,__APrintableChar_1,x2740);
	  if(ISTGPRM(x2740,1)){
	   if(EXPRD(x6,1)){
	    DSPRD(x6);
	   }else{
	    DCPRD(x6,1);}
	   {OBJ x2741=FLD1(x2486,1);
	    COPY(x2741,1);
	    if(ISPRM(x2741)){
	     {OBJ x2743;OBJ x2744;OBJ x2745;OBJ x2746;TUP2 x2748;OBJ x2750;OBJ x2751;
	      x2743=_AString_66(x2738,__AString_6);
	      x2744=_AOcPos_19(x2737,x4);
	      PRDF(1,2,x2745);FLD(x2745,1)=x2503;
	      x2746=_AStringConv_1(x2743);
	      x2748=_ARep_138(x2,x2746,__ABUILTIN_3);
	      if(EXPRD(x2447,1)){
	       RSOME(x2447,x2750);FLD1(x2750,1)=__ATerminal_70;FRPRD(FLD1(x2750,2),1);FLD1(x2750,2)=x2748.c2;FREE(FLD1(x2750,3),1);FLD1(x2750,3)=x2744;
	      }else{
	       DCPRD(x2447,1);PRD1(3,x2750);FLD1(x2750,1)=__ATerminal_70;FLD1(x2750,2)=x2748.c2;FLD1(x2750,3)=x2744;}
	      PRD1(2,x2751);FLD1(x2751,1)=x2750;FLD1(x2751,2)=x3;
	      x1=x2486;x2=x2748.c1;x3=x2751;x4=x2485;x5=x2506;x6=x2745;continue;}
	    }else{
	     if(EXPRD(x2447,1)){
	      DSPRD(x2447);
	     }else{
	      DCPRD(x2447,1);}
	     COPY(x2485,1);
	     CPPRD(x2486,1);
	     {TUP2 x2756;OBJ x2758;
	      x2756=_AScanner_103(x2486,x2485);
	      AChar_15(x2756.c1,__APrintableChar_1,x2758);
	      if(ISTGPRM(x2758,1)){
	       if(EXPRD(x2741,1)){
		DSPRD(x2741);
	       }else{
		DCPRD(x2741,1);}
	       FREE(x4,1);
	       CPPRD(x2486,1);
	       {OBJ x2759;OBJ x2760;OBJ x2761;OBJ x2762;OBJ x2763;
		x2759=_AString_2(__APrintableChar_1,x2738);
		x2760=_AOcError_21(x2506,x2756.c2);
		x2761=_AScanner_108(x2485,x2486);
		x2762=_AScanner_106(x2486);
		PRD(3,0,x2763);FLD(x2763,1)=x2737;FLD(x2763,2)=x2759;FLD(x2763,3)=x2503;
		x1=x2762;x4=x2761;x5=x2760;x6=x2763;continue;}
	      }else{
	       FRPRD(x2756.c2,1);
	       {OBJ x2764;OBJ x2765;OBJ x2766;OBJ x2767;TUP2 x2769;OBJ x2771;OBJ x2772;
		x2764=_AString_66(x2738,__AString_6);
		x2765=_AOcPos_19(x2737,x4);
		PRDF(1,2,x2766);FLD(x2766,1)=x2503;
		x2767=_AStringConv_1(x2764);
		x2769=_ARep_138(x2,x2767,__ABUILTIN_3);
		if(EXPRD(x2741,1)){
		 RSOME(x2741,x2771);FLD1(x2771,1)=__ATerminal_70;FRPRD(FLD1(x2771,2),1);FLD1(x2771,2)=x2769.c2;FREE(FLD1(x2771,3),1);FLD1(x2771,3)=x2765;
		}else{
		 DCPRD(x2741,1);PRD1(3,x2771);FLD1(x2771,1)=__ATerminal_70;FLD1(x2771,2)=x2769.c2;FLD1(x2771,3)=x2765;}
		PRD1(2,x2772);FLD1(x2772,1)=x2771;FLD1(x2772,2)=x3;
		x1=x2486;x2=x2769.c1;x3=x2772;x4=x2485;x5=x2506;x6=x2766;continue;}}}}}
	  }else{
	   if(EXPRD(x2447,1)){
	    DSPRD(x2447);
	   }else{
	    DCPRD(x2447,1);}
	   {OBJ x2773;
	    AChar_15(x2504,__APrintableChar_38,x2773);
	    if(ISTGPRM(x2773,1)){
	     {OBJ x2774=FLD1(x2486,1);
	      COPY(x2774,1);
	      if(ISPRM(x2774)){
	       FREE(x2737,1);
	       FREE(x2738,1);
	       CPPRD(__AScanner_83,1);
	       {OBJ x2776;OBJ x2777;
		x2776=_AOcError_16(__AOcError_12,__AScanner_83,x4);
		x2777=_AOcError_21(x2506,x2776);
		x1=x2486;x4=x2485;x5=x2777;continue;}
	      }else{
	       if(EXPRD(x2774,1)){
		DSPRD(x2774);
	       }else{
		DCPRD(x2774,1);}
	       COPY(x2485,2);
	       CPPRD(x2486,3);
	       COPY(__AScanner_98,1);
	       CPCLS(__AChar_17,1);
	       {OBJ x2781;OBJ x2782;TUP2 x2784;OBJ x2786;
		x2781=_AScanner_106(x2486);
		x2782=_AScanner_108(x2485,x2486);
		x2784=_AScanner_103(x2486,x2485);
		x2786=_ABSTree_61(__AChar_17,x2784.c1,__AScanner_98);
		if(ISTGPRM(x2786,1)){
		 FREE(x4,1);
		 if(EXPRD(x6,1)){
		  DSPRD(x6);
		 }else{
		  DCPRD(x6,1);}
		 FREE(x2485,1);
		 if(EXPRD(x2486,1)){
		  FREE(FLD1(x2486,1),1);DSPRDF(x2486);
		 }else{
		  DCPRD(x2486,1);}
		 COPY(__AScanner_99,1);
		 CPCLS(__AChar_17,1);
		 {OBJ x2787;OBJ x2788;OBJ x2789;OBJ x2790;
		  x2787=_AMap_16(__AChar_17,__AScanner_99,x2784.c1);
		  x2788=_AString_2(x2787,x2738);
		  x2789=_AOcError_21(x2506,x2784.c2);
		  PRD(3,0,x2790);FLD(x2790,1)=x2737;FLD(x2790,2)=x2788;FLD(x2790,3)=x2503;
		  x1=x2781;x4=x2782;x5=x2789;x6=x2790;continue;}
		}else{
		 {OBJ x2791;
		  AChar_15(x2784.c1,__APrintableChar_92,x2791);
		  if(ISTGPRM(x2791,1)){
		   FREE(x2485,1);
		   if(EXPRD(x2486,1)){
		    FREE(FLD1(x2486,1),1);DSPRDF(x2486);
		   }else{
		    DCPRD(x2486,1);}
		   FREE(x2737,1);
		   FREE(x2738,1);
		   CPCLS(__AScanner_148,1);
		   {OBJ x2792;OBJ x2793;
		    x2792=(*(OBJ(*)(OBJ,OBJ))METHOD(__AScanner_148,1))(__AScanner_148,__ABUILTIN_20);
		    x2793=_AOcError_21(x2506,x2784.c2);
		    r=_AScanner_59(x2781,x2,x3,x2782,x2793,x6,x4,__ANat_5,x2792);}
		  }else{
		   FRPRD(x2784.c2,1);
		   {OBJ x2794;OBJ x2795;
		    AChar_14(__APrintableChar_12,x2784.c1,x2794);
		    if(ISTGPRM(x2794,1)){
		     AChar_14(x2784.c1,__APrintableChar_19,x2795);
		    }else{
		     x2795=__ABUILTIN_3;}
		    if(ISTGPRM(x2795,1)){
		     FREE(x2737,1);
		     FREE(x2738,1);
		     FRPRD(x2781,1);
		     FREE(x2782,1);
		     r=_AScanner_60(x2486,x2,x3,x2485,x2506,x6,x4,__ANat_5,__AString_6);
		    }else{
		     if(EXPRD(x6,1)){
		      DSPRD(x6);
		     }else{
		      DCPRD(x6,1);}
		     FREE(x2485,1);
		     if(EXPRD(x2486,1)){
		      FREE(FLD1(x2486,1),1);DSPRDF(x2486);
		     }else{
		      DCPRD(x2486,1);}
		     {OBJ x2796;OBJ x2797;OBJ x2798;OBJ x2799;OBJ x2800;
		      x2796=_AScanner_85(x2784.c1);
		      x2797=_AString_2(x2784.c1,x2738);
		      x2798=_AOcError_16(__AOcError_10,x2796,x4);
		      PRD(3,0,x2799);FLD(x2799,1)=x2737;FLD(x2799,2)=x2797;FLD(x2799,3)=x2503;
		      x2800=_AOcError_21(x2506,x2798);
		      x1=x2781;x4=x2782;x5=x2800;x6=x2799;continue;}}}}}}}}}
	    }else{
	     {OBJ x2801;
	      AChar_15(x2504,__AChar_6,x2801);
	      if(ISTGPRM(x2801,1)){
	       FREE(x4,1);
	       FREE(x2738,1);
	       CPPRD(__AScanner_80,1);
	       {OBJ x2802;OBJ x2803;
		x2802=_AOcError_16(__AOcError_12,__AScanner_80,x2737);
		x2803=_AOcError_21(x2506,x2802);
		x1=x2486;x4=x2485;x5=x2803;continue;}
	      }else{
	       COPY(__AScanner_94,1);
	       CPCLS(__AChar_17,1);
	       {OBJ x2804;OBJ x2805;
		x2804=_ABSTree_61(__AChar_17,x2504,__AScanner_94);
		if(ISTGPRM(x2804,1)){
		 if(ISTGPRM(__AZOpts_8,1)){
		  x2805=__ABUILTIN_3;
		 }else{
		  x2805=__ABUILTIN_5;}
		}else{
		 x2805=__ABUILTIN_3;}
		if(ISTGPRM(x2805,1)){
		 FREE(x2737,1);
		 FREE(x2738,1);
		 CPPRD(__AScanner_75,1);
		 {OBJ x2806;OBJ x2807;
		  x2806=_AOcError_16(__AOcError_12,__AScanner_75,x4);
		  x2807=_AOcError_21(x2506,x2806);
		  x1=x2486;x4=x2485;x5=x2807;continue;}
		}else{
		 FREE(x4,1);
		 if(EXPRD(x6,1)){
		  DSPRD(x6);
		 }else{
		  DCPRD(x6,1);}
		 {OBJ x2808;OBJ x2809;
		  x2808=_AString_2(x2504,x2738);
		  PRD(3,0,x2809);FLD(x2809,1)=x2737;FLD(x2809,2)=x2808;FLD(x2809,3)=x2503;
		  x1=x2486;x4=x2485;x5=x2506;x6=x2809;continue;}}}}}}}}}}break;
       default: 
	{OBJ x2534=FLD(x6,1);OBJ x2535=FLD(x6,2);OBJ x2536=FLD(x6,3);
	 CPCLS(x2534,1);COPY(x2535,1);COPY(x2536,1);
	 if(EXPRD(x2447,1)){
	  DSPRD(x2447);
	 }else{
	  DCPRD(x2447,1);}
	 CPCLS(__AScanner_21,1);
	 {OBJ x2538;
	  x2538=(*(OBJ(*)(OBJ,OBJ,OBJ))METHOD(__AScanner_21,2))(__AScanner_21,x6,x2504);
	  if(ISTGPRM(x2538,1)){
	   if(EXPRD(x1,1)){
	    FREE(FLD1(x1,1),1);DSPRDF(x1);
	   }else{
	    DCPRD(x1,1);}
	   FREE(x4,1);
	   FRPRD(x5,1);
	   {OBJ x2539;OBJ x2540;
	    x2539=_AString_2(x2504,x2535);
	    PRD(4,3,x2540);FLD(x2540,1)=x2534;FLD(x2540,2)=x2539;FLD(x2540,3)=x2536;FLD(x2540,4)=x2503;
	    x1=x2486;x4=x2485;x5=x2506;x6=x2540;continue;}
	  }else{
	   FRCLS(x2534,1);
	   {OBJ x2542;
	    if(ISTGPRM(__AZOpts_4,1)){
	     COPY(x2535,1);
	     {OBJ x2541;
	      x2541=_AString_5(x2535);
	      AChar_15(x2541,__APrintableChar_11,x2542);}
	    }else{
	     x2542=__ABUILTIN_3;}
	    if(ISTGPRM(x2542,1)){
	     COPY(__AScanner_87,1);
	     CPCLS(__AChar_17,1);
	     {OBJ x2543;
	      x2543=_ABSTree_61(__AChar_17,x2504,__AScanner_87);
	      if(ISTGPRM(x2543,1)){
	       if(EXPRD(x1,1)){
		FREE(FLD1(x1,1),1);DSPRDF(x1);
	       }else{
		DCPRD(x1,1);}
	       FREE(x4,1);
	       FRPRD(x5,1);
	       CPCLS(__AScanner_88,1);
	       {OBJ x2544;OBJ x2545;
		x2544=_AString_2(x2504,x2535);
		PRD(4,3,x2545);FLD(x2545,1)=__AScanner_88;FLD(x2545,2)=x2544;FLD(x2545,3)=x2536;FLD(x2545,4)=x2503;
		x1=x2486;x4=x2485;x5=x2506;x6=x2545;continue;}
	      }else{
	       COPY(__AScanner_91,1);
	       CPCLS(__AChar_17,1);
	       {OBJ x2546;
		x2546=_ABSTree_61(__AChar_17,x2504,__AScanner_91);
		if(ISTGPRM(x2546,1)){
		 if(EXPRD(x1,1)){
		  FREE(FLD1(x1,1),1);DSPRDF(x1);
		 }else{
		  DCPRD(x1,1);}
		 FREE(x4,1);
		 FRPRD(x5,1);
		 CPCLS(__AScanner_92,1);
		 {OBJ x2547;OBJ x2548;
		  x2547=_AString_2(x2504,x2535);
		  PRD(4,3,x2548);FLD(x2548,1)=__AScanner_92;FLD(x2548,2)=x2547;FLD(x2548,3)=x2536;FLD(x2548,4)=x2503;
		  x1=x2486;x4=x2485;x5=x2506;x6=x2548;continue;}
		}else{
		 FREE(x2485,1);
		 FRPRD(x2486,1);
		 FRPRD(x2506,1);
		 COPY(x4,1);
		 {OBJ x2549;OBJ x2550;TUP2 x2552;OBJ x2554;OBJ x2555;OBJ x2556;
		  x2549=_AString_66(x2535,__AString_6);
		  x2550=_AOcPos_19(x2536,x4);
		  x2552=_AScanner_66(x2550,x2549,x2,x2503);
		  CPPRD(x2552.c2,1);
		  PRD1(2,x2554);FLD1(x2554,1)=x2552.c2;FLD1(x2554,2)=x3;
		  x2555=_AScanner_67(x2552.c2,x2503);
		  PRDF(1,2,x2556);FLD(x2556,1)=x2555;
		  x2=x2552.c1;x3=x2554;x6=x2556;continue;}}}}}
	    }else{
	     FREE(x2485,1);
	     FRPRD(x2486,1);
	     FRPRD(x2506,1);
	     COPY(x4,1);
	     {OBJ x2557;OBJ x2558;TUP2 x2560;OBJ x2562;OBJ x2563;OBJ x2564;
	      x2557=_AString_66(x2535,__AString_6);
	      x2558=_AOcPos_19(x2536,x4);
	      x2560=_AScanner_66(x2558,x2557,x2,x2503);
	      CPPRD(x2560.c2,1);
	      PRD1(2,x2562);FLD1(x2562,1)=x2560.c2;FLD1(x2562,2)=x3;
	      x2563=_AScanner_67(x2560.c2,x2503);
	      PRDF(1,2,x2564);FLD(x2564,1)=x2563;
	      x2=x2560.c1;x3=x2562;x6=x2564;continue;}}}}}}}}}}}
  break;}
 return r;}

extern OBJ _AScanner_55(OBJ x1,OBJ x2) /* scan,5 */
{OBJ r;
 {OBJ x33;
  PRD1(2,x33);FLD1(x33,1)=x1;FLD1(x33,2)=__ANat_5;
  {OBJ x34=FLD1(x2,1);OBJ x35=FLD1(x2,2);OBJ x36=FLD1(x2,3);OBJ x37=FLD1(x2,4);OBJ x38=FLD1(x2,5);
   if(EXPRD(x2,1)){
    DSPRDF(x2);
   }else{
    CPPRD(x34,1);COPY(x35,1);COPY(x36,1);CPPRD(x37,1);CPPRD(x38,1);
    FRPRD(x2,1);}
   r=_AScanner_54(x33,x34,x35,x36,x37,x38);}}
 return r;}

extern OBJ _AScanner_56(register OBJ x1,register OBJ x2) /* calc_pos */
{OBJ r;
 for(;;){
  if(ISPRM(x2)){
   r=x1;
  }else{
   CPPRD(x2,1);
   {OBJ x17;OBJ x18;OBJ x19;
    x17=_AString_4(x2);
    x18=_AString_5(x2);
    x19=_AOcPos_14(x1,x18);
    x1=x19;x2=x17;continue;}}
  break;}
 return r;}

extern TUP3 _AScanner_57(register OBJ x1,register OBJ x2,register OBJ x3) /* skipMinus */
{TUP3 r;
 for(;;){
  {OBJ x31=FLD1(x2,1);
   COPY(x31,1);
   if(ISPRM(x31)){
    if(EXPRD(x2,1)){
     FREE(FLD1(x2,1),1);DSPRDF(x2);
    }else{
     DCPRD(x2,1);}
    CPPRD(__AScanner_102,1);
    r.c1=x1;r.c2=__AScanner_102;r.c3=x3;
   }else{
    if(EXPRD(x31,1)){
     DSPRD(x31);
    }else{
     DCPRD(x31,1);}
    COPY(x1,1);
    CPPRD(x2,2);
    {OBJ x36;TUP2 x38;OBJ x40;
     x36=_AScanner_106(x2);
     x38=_AScanner_103(x2,x1);
     AChar_15(x38.c1,__APrintableChar_29,x40);
     if(ISTGPRM(x40,1)){
      {OBJ x41;OBJ x42;
       x41=_AScanner_108(x1,x2);
       x42=_AOcError_21(x3,x38.c2);
       x1=x41;x2=x36;x3=x42;continue;}
     }else{
      FRPRD(x36,1);
      FRPRD(x38.c2,1);
      r.c1=x1;r.c2=x2;r.c3=x3;}}}}
  break;}
 return r;}
extern OBJ _AScanner_57_c(OBJ x1,OBJ x2,OBJ x3) /* skipMinus */
{OBJ r;
 {TUP3 t=_AScanner_57(x1,x2,x3);
  PRD1(3,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;
  FLD1(r,3)=t.c3;}
 return r;}

extern TUP3 _AScanner_58(register OBJ x1,register OBJ x2,register OBJ x3) /* skipSpecial */
{TUP3 r;
 for(;;){
  {OBJ x31=FLD1(x2,1);
   COPY(x31,1);
   if(ISPRM(x31)){
    if(EXPRD(x2,1)){
     FREE(FLD1(x2,1),1);DSPRDF(x2);
    }else{
     DCPRD(x2,1);}
    CPPRD(__AScanner_102,1);
    r.c1=x1;r.c2=__AScanner_102;r.c3=x3;
   }else{
    if(EXPRD(x31,1)){
     DSPRD(x31);
    }else{
     DCPRD(x31,1);}
    COPY(x1,1);
    CPPRD(x2,2);
    COPY(__AScanner_87,1);
    CPCLS(__AChar_17,1);
    {OBJ x36;TUP2 x38;OBJ x40;
     x36=_AScanner_106(x2);
     x38=_AScanner_103(x2,x1);
     x40=_ABSTree_61(__AChar_17,x38.c1,__AScanner_87);
     if(ISTGPRM(x40,1)){
      if(EXPRD(x2,1)){
       FREE(FLD1(x2,1),1);DSPRDF(x2);
      }else{
       DCPRD(x2,1);}
      {OBJ x41;OBJ x42;
       x41=_AOcPos_14(x1,x38.c1);
       x42=_AOcError_21(x3,x38.c2);
       x1=x41;x2=x36;x3=x42;continue;}
     }else{
      FRPRD(x36,1);
      FRPRD(x38.c2,1);
      r.c1=x1;r.c2=x2;r.c3=x3;}}}}
  break;}
 return r;}
extern OBJ _AScanner_58_c(OBJ x1,OBJ x2,OBJ x3) /* skipSpecial */
{OBJ r;
 {TUP3 t=_AScanner_58(x1,x2,x3);
  PRD1(3,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;
  FLD1(r,3)=t.c3;}
 return r;}

extern OBJ _AScanner_59(register OBJ x1,register OBJ x2,register OBJ x3,register OBJ x4,register OBJ x5,register OBJ x6,register OBJ x7,register OBJ x8,register OBJ x9) /* scanHex */
{OBJ r;
 for(;;){
  {OBJ x177=FLD1(x1,1);
   COPY(x177,1);
   if(ISPRM(x177)){
    {OBJ x248;
     ANat_80(x8,__ANat_48,x248);
     if(ISTGPRD(x6,0)){
      {OBJ x249=FLD(x6,1);OBJ x250=FLD(x6,2);OBJ x251=FLD(x6,3);FLAG x_x6=EXPRD(x6,1);
       if(x_x6){
       }else{
	COPY(x249,1);COPY(x250,1);}
       if(ISTGPRM(x248,1)){
	FREE(x7,1);
	FREE(x9,1);
	{OBJ x252;OBJ x253;OBJ x254;
	 ANatConv_2(x8,x252);
	 x253=_AString_2(x252,x250);
	 if(x_x6){
	  RPRD(x6,x254);FLD(x254,2)=x253;
	 }else{
	  FRPRD(x6,1);PRD(3,0,x254);FLD(x254,1)=x249;FLD(x254,2)=x253;FLD(x254,3)=x251;}
	 r=_AScanner_54(x1,x2,x3,x4,x5,x254);}
       }else{
	{OBJ x255;OBJ x256;OBJ x257;OBJ x258;
	 x255=_AScanner_86(x9,x7);
	 x256=_AString_2(__APrintableChar_23,x250);
	 x257=_AOcError_21(x5,x255);
	 if(x_x6){
	  RPRD(x6,x258);FLD(x258,2)=x256;
	 }else{
	  FRPRD(x6,1);PRD(3,0,x258);FLD(x258,1)=x249;FLD(x258,2)=x256;FLD(x258,3)=x251;}
	 r=_AScanner_54(x1,x2,x3,x4,x257,x258);}}}
     }else{
      HLT("Scanner at <97,25-26> : undefined selection sf\'Scanner:ctx->string");}}
   }else{
    if(EXPRD(x177,1)){
     DSPRD(x177);
    }else{
     DCPRD(x177,1);}
    CPPRD(x1,1);
    COPY(x4,1);
    {OBJ x263;TUP2 x264;
     ANat_79(x8,__ANat_48,x263);
     x264=_AScanner_103(x1,x4);
     if(ISTGPRM(x263,1)){
      {OBJ x266;
       x266=_AScanner_61(x264.c1);
       if(ISTGPRM(x266,1)){
	CPPRD(x1,1);
	{OBJ x267;OBJ x268;OBJ x269;OBJ x270;
	 x267=_AScanner_106(x1);
	 x268=_AScanner_108(x4,x1);
	 x269=_AOcError_21(x5,x264.c2);
	 x270=_AString_2(x264.c1,x9);
	 x1=x267;x4=x268;x5=x269;x9=x270;continue;}
       }else{
	FRPRD(x264.c2,1);
	{OBJ x271;
	 x271=_AScanner_86(x9,x7);
	 if(ISTGPRD(x6,0)){
	  {OBJ x272;OBJ x273=FLD(x6,2);OBJ x274;FLAG x_x6=EXPRD(x6,1);
	   if(x_x6){
	   }else{
	    x272=FLD(x6,1);x274=FLD(x6,3);COPY(x272,1);COPY(x273,1);}
	   {OBJ x275;OBJ x276;OBJ x277;
	    x275=_AString_2(__APrintableChar_23,x273);
	    x276=_AOcError_21(x5,x271);
	    if(x_x6){
	     RPRD(x6,x277);FLD(x277,2)=x275;
	    }else{
	     FRPRD(x6,1);PRD(3,0,x277);FLD(x277,1)=x272;FLD(x277,2)=x275;FLD(x277,3)=x274;}
	    r=_AScanner_54(x1,x2,x3,x4,x276,x277);}}
	 }else{
	  HLT("Scanner at <97,25-26> : undefined selection sf\'Scanner:ctx->string");}}}}
     }else{
      {OBJ x278;
       AChar_25(x264.c1,x278);
       if(ISTGPRM(x278,1)){
	CPPRD(x1,1);
	{OBJ x279;OBJ x280;OBJ x281;OBJ x282;OBJ x283;OBJ x284;OBJ x285;
	 x279=_AScanner_106(x1);
	 x280=_AScanner_108(x4,x1);
	 x281=_AOcError_21(x5,x264.c2);
	 x282=_AString_2(x264.c1,x9);
	 ANat_63(__ANat_23,x8,x283);
	 ACharConv_3(x264.c1,x284);
	 ANat_61(x283,x284,x285);
	 x1=x279;x4=x280;x5=x281;x8=x285;x9=x282;continue;}
       }else{
	{OBJ x286;OBJ x287;
	 AChar_14(__APrintableChar_69,x264.c1,x286);
	 if(ISTGPRM(x286,1)){
	  AChar_14(x264.c1,__APrintableChar_74,x287);
	 }else{
	  x287=__ABUILTIN_3;}
	 if(ISTGPRM(x287,1)){
	  CPPRD(x1,1);
	  CPCLS(__AScanner_149,1);
	  {OBJ x288;OBJ x289;OBJ x290;OBJ x291;OBJ x292;OBJ x293;OBJ x294;OBJ x295;OBJ x296;OBJ x297;
	   x288=_AScanner_106(x1);
	   x289=_AScanner_108(x4,x1);
	   x290=_AOcError_21(x5,x264.c2);
	   x291=_AString_2(x264.c1,x9);
	   ANat_63(__ANat_23,x8,x292);
	   ACharConv_2(x264.c1,x293);
	   x294=(*(OBJ(*)(OBJ,OBJ))METHOD(__AScanner_149,1))(__AScanner_149,__ABUILTIN_20);
	   ANat_61(x292,__ANat_17,x295);
	   ANat_62(x293,x294,x296);
	   ANat_61(x295,x296,x297);
	   x1=x288;x4=x289;x5=x290;x8=x297;x9=x291;continue;}
	 }else{
	  {OBJ x298;OBJ x299;
	   AChar_14(__APrintableChar_43,x264.c1,x298);
	   if(ISTGPRM(x298,1)){
	    AChar_14(x264.c1,__APrintableChar_48,x299);
	   }else{
	    x299=__ABUILTIN_3;}
	   if(ISTGPRM(x299,1)){
	    CPPRD(x1,1);
	    CPCLS(__AScanner_150,1);
	    {OBJ x300;OBJ x301;OBJ x302;OBJ x303;OBJ x304;OBJ x305;OBJ x306;OBJ x307;OBJ x308;OBJ x309;
	     x300=_AScanner_106(x1);
	     x301=_AScanner_108(x4,x1);
	     x302=_AOcError_21(x5,x264.c2);
	     x303=_AString_2(x264.c1,x9);
	     ANat_63(__ANat_23,x8,x304);
	     ACharConv_2(x264.c1,x305);
	     x306=(*(OBJ(*)(OBJ,OBJ))METHOD(__AScanner_150,1))(__AScanner_150,__ABUILTIN_20);
	     ANat_61(x304,__ANat_17,x307);
	     ANat_62(x305,x306,x308);
	     ANat_61(x307,x308,x309);
	     x1=x300;x4=x301;x5=x302;x8=x309;x9=x303;continue;}
	   }else{
	    FREE(x7,1);
	    FREE(x9,1);
	    FRPRD(x264.c2,1);
	    {OBJ x310;
	     ANatConv_2(x8,x310);
	     if(ISTGPRD(x6,0)){
	      {OBJ x311;OBJ x312=FLD(x6,2);OBJ x313;FLAG x_x6=EXPRD(x6,1);
	       if(x_x6){
	       }else{
		x311=FLD(x6,1);x313=FLD(x6,3);COPY(x311,1);COPY(x312,1);}
	       {OBJ x314;OBJ x315;
		x314=_AString_2(x310,x312);
		if(x_x6){
		 RPRD(x6,x315);FLD(x315,2)=x314;
		}else{
		 FRPRD(x6,1);PRD(3,0,x315);FLD(x315,1)=x311;FLD(x315,2)=x314;FLD(x315,3)=x313;}
		r=_AScanner_54(x1,x2,x3,x4,x5,x315);}}
	     }else{
	      HLT("Scanner at <97,25-26> : undefined selection sf\'Scanner:ctx->string");}}}}}}}}}}}}
  break;}
 return r;}

extern OBJ _AScanner_60(register OBJ x1,register OBJ x2,register OBJ x3,register OBJ x4,register OBJ x5,register OBJ x6,register OBJ x7,register OBJ x8,register OBJ x9) /* scanOct */
{OBJ r;
 for(;;){
  {OBJ x129=FLD1(x1,1);
   COPY(x129,1);
   if(ISPRM(x129)){
    {OBJ x174;
     ANat_80(x8,__ANat_48,x174);
     if(ISTGPRD(x6,0)){
      {OBJ x175=FLD(x6,1);OBJ x176=FLD(x6,2);OBJ x177=FLD(x6,3);FLAG x_x6=EXPRD(x6,1);
       if(x_x6){
       }else{
	COPY(x175,1);COPY(x176,1);}
       if(ISTGPRM(x174,1)){
	FREE(x7,1);
	FREE(x9,1);
	{OBJ x178;OBJ x179;OBJ x180;
	 ANatConv_2(x8,x178);
	 x179=_AString_2(x178,x176);
	 if(x_x6){
	  RPRD(x6,x180);FLD(x180,2)=x179;
	 }else{
	  FRPRD(x6,1);PRD(3,0,x180);FLD(x180,1)=x175;FLD(x180,2)=x179;FLD(x180,3)=x177;}
	 r=_AScanner_54(x1,x2,x3,x4,x5,x180);}
       }else{
	{OBJ x181;OBJ x182;OBJ x183;OBJ x184;
	 x181=_AScanner_86(x9,x7);
	 x182=_AString_2(__APrintableChar_23,x176);
	 x183=_AOcError_21(x5,x181);
	 if(x_x6){
	  RPRD(x6,x184);FLD(x184,2)=x182;
	 }else{
	  FRPRD(x6,1);PRD(3,0,x184);FLD(x184,1)=x175;FLD(x184,2)=x182;FLD(x184,3)=x177;}
	 r=_AScanner_54(x1,x2,x3,x4,x183,x184);}}}
     }else{
      HLT("Scanner at <97,25-26> : undefined selection sf\'Scanner:ctx->string");}}
   }else{
    if(EXPRD(x129,1)){
     DSPRD(x129);
    }else{
     DCPRD(x129,1);}
    CPPRD(x1,1);
    COPY(x4,1);
    COPY(x9,1);
    {OBJ x189;OBJ x190;TUP2 x191;OBJ x195;
     x189=_AString_39(x9);
     ANat_79(x189,__ANat_10,x190);
     x191=_AScanner_103(x1,x4);
     if(ISTGPRM(x190,1)){
      x195=__ABUILTIN_5;
     }else{
      {OBJ x193;
       x193=_AScanner_62(x191.c1);
       if(ISTGPRM(x193,1)){
	CPPRD(x191.c2,1);
	{OBJ x194;
	 x194=_AOcError_22(x191.c2);
	 if(ISTGPRM(x194,1)){
	  x195=__ABUILTIN_3;
	 }else{
	  x195=__ABUILTIN_5;}}
       }else{
	x195=__ABUILTIN_5;}}}
     if(ISTGPRM(x195,1)){
      {OBJ x196;
       ANat_79(x8,__ANat_48,x196);
       if(ISTGPRD(x6,0)){
	{OBJ x197=FLD(x6,1);OBJ x198=FLD(x6,2);OBJ x199=FLD(x6,3);FLAG x_x6=EXPRD(x6,1);
	 if(x_x6){
	 }else{
	  COPY(x197,1);COPY(x198,1);}
	 if(ISTGPRM(x196,1)){
	  {OBJ x200;OBJ x201;OBJ x202;OBJ x203;OBJ x204;
	   x200=_AScanner_86(x9,x7);
	   x201=_AOcError_21(x191.c2,x200);
	   x202=_AString_2(__APrintableChar_23,x198);
	   x203=_AOcError_21(x5,x201);
	   if(x_x6){
	    RPRD(x6,x204);FLD(x204,2)=x202;
	   }else{
	    FRPRD(x6,1);PRD(3,0,x204);FLD(x204,1)=x197;FLD(x204,2)=x202;FLD(x204,3)=x199;}
	   r=_AScanner_54(x1,x2,x3,x4,x203,x204);}
	 }else{
	  FREE(x7,1);
	  FREE(x9,1);
	  {OBJ x205;OBJ x206;OBJ x207;OBJ x208;
	   x205=_AOcError_21(x5,x191.c2);
	   ANatConv_2(x8,x206);
	   x207=_AString_2(x206,x198);
	   if(x_x6){
	    RPRD(x6,x208);FLD(x208,2)=x207;
	   }else{
	    FRPRD(x6,1);PRD(3,0,x208);FLD(x208,1)=x197;FLD(x208,2)=x207;FLD(x208,3)=x199;}
	   r=_AScanner_54(x1,x2,x3,x4,x205,x208);}}}
       }else{
	HLT("Scanner at <97,25-26> : undefined selection sf\'Scanner:ctx->string");}}
     }else{
      CPPRD(x1,1);
      {OBJ x209;OBJ x210;OBJ x211;OBJ x212;OBJ x213;OBJ x214;OBJ x215;
       x209=_AOcError_21(x5,x191.c2);
       x210=_AScanner_106(x1);
       x211=_AScanner_108(x4,x1);
       ANat_63(__ANat_15,x8,x212);
       ACharConv_3(x191.c1,x213);
       x214=_AString_2(x191.c1,x9);
       ANat_61(x212,x213,x215);
       x1=x210;x4=x211;x5=x209;x8=x215;x9=x214;continue;}}}}}
  break;}
 return r;}

extern OBJ _AScanner_61(OBJ x1) /* hexdigit? */
{OBJ r;
 {OBJ x2;
  AChar_25(x1,x2);
  if(ISTGPRM(x2,1)){
   r=__ABUILTIN_5;
  }else{
   {OBJ x3;OBJ x4;
    AChar_14(__APrintableChar_69,x1,x3);
    if(ISTGPRM(x3,1)){
     AChar_14(x1,__APrintableChar_74,x4);
    }else{
     x4=__ABUILTIN_3;}
    if(ISTGPRM(x4,1)){
     r=__ABUILTIN_5;
    }else{
     {OBJ x5;
      AChar_14(__APrintableChar_43,x1,x5);
      if(ISTGPRM(x5,1)){
       AChar_14(x1,__APrintableChar_48,r);
      }else{
       r=__ABUILTIN_3;}}}}}}
 return r;}

extern OBJ _AScanner_62(OBJ x1) /* octdigit? */
{OBJ r;
 {OBJ x2;
  AChar_14(__APrintableChar_12,x1,x2);
  if(ISTGPRM(x2,1)){
   AChar_14(x1,__APrintableChar_19,r);
  }else{
   r=__ABUILTIN_3;}}
 return r;}

extern OBJ _AScanner_63(register OBJ x1,register OBJ x2,register OBJ x3) /* checkLineDoc */
{OBJ r;
 for(;;){
  {OBJ x18=FLD1(x1,1);
   COPY(x18,1);
   if(ISPRM(x18)){
    if(EXPRD(x1,1)){
     FREE(FLD1(x1,1),1);DSPRDF(x1);
    }else{
     DCPRD(x1,1);}
    FREE(x2,1);
    FREE(x3,1);
    CPPRD(__AOcError_15,1);
    r=__AOcError_15;
   }else{
    if(EXPRD(x18,1)){
     DSPRD(x18);
    }else{
     DCPRD(x18,1);}
    CPPRD(x1,2);
    COPY(x3,1);
    {OBJ x35;OBJ x36;TUP2 x38;OBJ x40;
     x35=_AScanner_108(x3,x1);
     x36=_AScanner_106(x1);
     x38=_AScanner_103(x1,x3);
     FRPRD(x38.c2,1);
     x40=_AScanner_96(x38.c1);
     if(ISTGPRM(x40,1)){
      x1=x36;x3=x35;continue;
     }else{
      CPCLS(__AScanner_142,1);
      {OBJ x41;OBJ x42;
       x41=(*(OBJ(*)(OBJ,OBJ))METHOD(__AScanner_142,1))(__AScanner_142,__ABUILTIN_20);
       AChar_15(x38.c1,x41,x42);
       if(ISTGPRM(x42,1)){
	r=_AScanner_64(x36,x2,x35,__ANat_5,__ANat_5,x38.c1);
       }else{
	FREE(x2,1);
	FREE(x35,1);
	FRPRD(x36,1);
	CPPRD(__AOcError_15,1);
	r=__AOcError_15;}}}}}}
  break;}
 return r;}

extern OBJ _AScanner_64(register OBJ x1,register OBJ x2,register OBJ x3,register OBJ x4,register OBJ x5,register OBJ x6) /* checkLineDoc,1 */
{OBJ r;
 for(;;){
  {OBJ x33=FLD1(x1,1);
   COPY(x33,1);
   if(ISPRM(x33)){
    if(EXPRD(x1,1)){
     FREE(FLD1(x1,1),1);DSPRDF(x1);
    }else{
     DCPRD(x1,1);}
    FREE(x3,1);
    {OBJ x59;
     ANat_77(x4,x5,x59);
     if(ISTGPRM(x59,1)){
      {OBJ x60;
       x60=_AScanner_84(x4,x5);
       r=_AOcError_16(__AOcError_12,x60,x2);}
     }else{
      FREE(x2,1);
      CPPRD(__AOcError_15,1);
      r=__AOcError_15;}}
   }else{
    if(EXPRD(x33,1)){
     DSPRD(x33);
    }else{
     DCPRD(x33,1);}
    CPPRD(x1,2);
    COPY(x3,1);
    CPCLS(__AScanner_134,1);
    {OBJ x64;OBJ x65;OBJ x67;TUP2 x68;OBJ x70;OBJ x71;
     x64=_AScanner_108(x3,x1);
     x65=_AScanner_106(x1);
     x67=(*(OBJ(*)(OBJ,OBJ))METHOD(__AScanner_134,1))(__AScanner_134,__ABUILTIN_20);
     x68=_AScanner_103(x1,x3);
     FRPRD(x68.c2,1);
     AChar_15(x68.c1,x67,x70);
     if(ISTGPRM(x70,1)){
      AChar_15(x6,x67,x71);
     }else{
      x71=__ABUILTIN_3;}
     if(ISTGPRM(x71,1)){
      CPCLS(__AScanner_136,1);
      {OBJ x72;OBJ x73;
       ANat_2(x4,x72);
       x73=(*(OBJ(*)(OBJ,OBJ))METHOD(__AScanner_136,1))(__AScanner_136,__ABUILTIN_20);
       x1=x65;x3=x64;x4=x72;x6=x73;continue;}
     }else{
      CPCLS(__AScanner_138,1);
      {OBJ x74;OBJ x75;OBJ x76;
       x74=(*(OBJ(*)(OBJ,OBJ))METHOD(__AScanner_138,1))(__AScanner_138,__ABUILTIN_20);
       AChar_15(x68.c1,x74,x75);
       if(ISTGPRM(x75,1)){
	AChar_19(x6,x67,x76);
       }else{
	x76=__ABUILTIN_3;}
       if(ISTGPRM(x76,1)){
	{OBJ x77;
	 ANat_2(x4,x77);
	 x1=x65;x3=x64;x4=x77;x6=x68.c1;continue;}
       }else{
	CPCLS(__AScanner_140,1);
	{OBJ x78;OBJ x79;OBJ x80;
	 x78=(*(OBJ(*)(OBJ,OBJ))METHOD(__AScanner_140,1))(__AScanner_140,__ABUILTIN_20);
	 AChar_15(x68.c1,x78,x79);
	 if(ISTGPRM(x79,1)){
	  AChar_19(x6,x67,x80);
	 }else{
	  x80=__ABUILTIN_3;}
	 if(ISTGPRM(x80,1)){
	  {OBJ x81;
	   ANat_2(x5,x81);
	   x1=x65;x3=x64;x5=x81;x6=x68.c1;continue;}
	 }else{
	  x1=x65;x3=x64;x6=x68.c1;continue;}}}}}}}}
  break;}
 return r;}

extern TUP2 _AScanner_65(OBJ x1,OBJ x2,OBJ x3) /* classify */
{TUP2 r;
 {OBJ x4;OBJ x5;OBJ x7;OBJ x8;OBJ x10;
  AChar_15(x2,__APrintableChar_11,x4);
  ADenotation_1(__ANat_8,x2,x5);
  if(ISTGPRM(x4,1)){
   {TUP2 t=_ARep_7(x3,x5);
    r.c1=t.c1;
    x8=t.c2;}
  }else{
   {TUP2 t=_ARep_138(x3,x5,__ABUILTIN_3);
    r.c1=t.c1;
    x8=t.c2;}}
  CPPRD(x8,1);
  PRD1(3,r.c2);FLD1(r.c2,2)=x8;FLD1(r.c2,3)=x1;
  FLD1(r.c2,1)=_ATerminal_144(x8);}
 return r;}
extern OBJ _AScanner_65_c(OBJ x1,OBJ x2,OBJ x3) /* classify */
{OBJ r;
 {TUP2 t=_AScanner_65(x1,x2,x3);
  PRD1(2,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;}
 return r;}

extern TUP2 _AScanner_66(OBJ x1,OBJ x2,OBJ x3,OBJ x4) /* classify,1 */
{TUP2 r;
 if(ISPRM(x2)){
  CPPRD(__ARep_69,1);
  PRD1(3,r.c2);FLD1(r.c2,1)=__ATerminal_6;FLD1(r.c2,2)=__ARep_69;FLD1(r.c2,3)=x1;
  r.c1=x3;
 }else{
  CPPRD(x2,1);
  {OBJ x59;OBJ x60;
   x59=_AString_5(x2);
   x60=_AString_4(x2);
   if(ISPRM(x60)){
    {OBJ x61;OBJ x62;OBJ x64;OBJ x65;OBJ x66;OBJ x68;OBJ x69;
     AChar_15(x59,__APrintableChar_11,x61);
     ADenotation_1(__ANat_8,x59,x62);
     if(ISTGPRM(x61,1)){
      {TUP2 t=_ARep_7(x3,x62);
       x64=t.c1;
       x65=t.c2;}
     }else{
      {TUP2 t=_ARep_138(x3,x62,__ABUILTIN_3);
       x64=t.c1;
       x65=t.c2;}}
     CPPRD(x65,1);
     x66=_ATerminal_144(x65);
     if(ISTGPRM(x4,1)){
      r.c1=x64;x68=x66;
     }else{
      {OBJ x67;
       ANat_76(x66,__ATerminal_90,x67);
       if(ISTGPRM(x67,1)){
	r.c1=x64;
	x68=__ATerminal_72;
       }else{
	r.c1=x64;x68=x66;}}}
     PRD1(3,r.c2);FLD1(r.c2,1)=x68;FLD1(r.c2,2)=x65;FLD1(r.c2,3)=x1;}
   }else{
    {OBJ x73;OBJ x74;TUP2 x77;
     x73=_AString_2(x59,x60);
     x74=_AStringConv_1(x73);
     x77=_ARep_138(x3,x74,__ABUILTIN_3);r.c1=x77.c1;
     CPPRD(x77.c2,1);
     PRD1(3,r.c2);FLD1(r.c2,2)=x77.c2;FLD1(r.c2,3)=x1;
     FLD1(r.c2,1)=_ATerminal_144(x77.c2);}}}}
 return r;}
extern OBJ _AScanner_66_c(OBJ x1,OBJ x2,OBJ x3,OBJ x4) /* classify,1 */
{OBJ r;
 {TUP2 t=_AScanner_66(x1,x2,x3,x4);
  PRD1(2,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;}
 return r;}

extern OBJ _AScanner_67(OBJ x1,OBJ x2) /* dotT? */
{OBJ r;
 if(ISTGPRM(__AZOpts_11,1)){
  FRPRD(x1,1);
  r=__ABUILTIN_5;
 }else{
  CPPRD(x1,1);
  {OBJ x3;OBJ x5;
   x3=_AToken_8(x1,__ATerminal_66);
   if(ISTGPRM(x3,1)){
    x5=__ABUILTIN_5;
   }else{
    CPPRD(x1,1);
    {OBJ x4;
     x4=_AToken_8(x1,__ATerminal_60);
     if(ISTGPRM(x4,1)){
      x5=__ABUILTIN_5;
     }else{
      CPPRD(x1,1);
      x5=_AToken_8(x1,__ATerminal_92);}}}
   if(ISTGPRM(x5,1)){
    FRPRD(x1,1);
    r=__ABUILTIN_5;
   }else{
    {OBJ x6;
     x6=_AToken_8(x1,__ATerminal_90);
     if(ISTGPRM(x6,1)){
      r=__ABUILTIN_3;
     }else{
      r=x2;}}}}}
 return r;}

extern OBJ _AScanner_68(OBJ x1) /* lineCom? */
{OBJ r;
 {OBJ x55=FLD1(x1,1);
  COPY(x55,1);
  if(ISPRM(x55)){
   if(EXPRD(x1,1)){
    FREE(FLD1(x1,1),1);DSPRDF(x1);
   }else{
    DCPRD(x1,1);}
   r=__ABUILTIN_3;
  }else{
   if(EXPRD(x55,1)){
    DSPRD(x55);
   }else{
    DCPRD(x55,1);}
   CPPRD(x1,1);
   {OBJ x60;
    x60=_AScanner_106(x1);
    {OBJ x62=FLD1(x60,1);
     COPY(x62,1);
     {OBJ x67;OBJ x68;OBJ x69;OBJ x70;
      if(ISPRM(x62)){
       COPY(__AOcPos_35,1);
       x67=__ABUILTIN_5;
      }else{
       if(EXPRD(x62,1)){
	DSPRD(x62);
       }else{
	DCPRD(x62,1);}
       COPY(__AOcPos_35,1);
       x67=__ABUILTIN_3;}
      {TUP2 t=_AScanner_103(x1,__AOcPos_35);
       x68=t.c1;
       x69=t.c2;}
      FRPRD(x69,1);
      AChar_15(x68,__APrintableChar_29,x70);
      if(ISTGPRM(x67,1)){
       r=x70;
       if(EXPRD(x60,1)){
	FREE(FLD1(x60,1),1);DSPRDF(x60);
       }else{
	DCPRD(x60,1);}
      }else{
       COPY(__AOcPos_35,1);
       {TUP2 x72;
	x72=_AScanner_103(x60,__AOcPos_35);
	FRPRD(x72.c2,1);
	if(ISTGPRM(x70,1)){
	 COPY(__AScanner_87,1);
	 CPCLS(__AChar_17,1);
	 {OBJ x74;
	  x74=_ABSTree_61(__AChar_17,x72.c1,__AScanner_87);
	  if(ISTGPRM(x74,1)){
	   r=__ABUILTIN_3;
	  }else{
	   r=__ABUILTIN_5;}}
	}else{
	 r=__ABUILTIN_3;}}}}}}}}
 return r;}

extern OBJ _AScanner_69(OBJ x1) /* nestComBegin? */
{OBJ r;
 {OBJ x55=FLD1(x1,1);
  COPY(x55,1);
  if(ISPRM(x55)){
   if(EXPRD(x1,1)){
    FREE(FLD1(x1,1),1);DSPRDF(x1);
   }else{
    DCPRD(x1,1);}
   r=__ABUILTIN_3;
  }else{
   if(EXPRD(x55,1)){
    DSPRD(x55);
   }else{
    DCPRD(x55,1);}
   CPPRD(x1,1);
   {OBJ x60;
    x60=_AScanner_106(x1);
    {OBJ x62=FLD1(x60,1);
     COPY(x62,1);
     {OBJ x67;OBJ x68;OBJ x69;OBJ x70;
      if(ISPRM(x62)){
       COPY(__AOcPos_35,1);
       x67=__ABUILTIN_5;
      }else{
       if(EXPRD(x62,1)){
	DSPRD(x62);
       }else{
	DCPRD(x62,1);}
       COPY(__AOcPos_35,1);
       x67=__ABUILTIN_3;}
      {TUP2 t=_AScanner_103(x1,__AOcPos_35);
       x68=t.c1;
       x69=t.c2;}
      FRPRD(x69,1);
      AChar_15(x68,__APrintableChar_27,x70);
      if(ISTGPRM(x67,1)){
       r=x70;
       if(EXPRD(x60,1)){
	FREE(FLD1(x60,1),1);DSPRDF(x60);
       }else{
	DCPRD(x60,1);}
      }else{
       COPY(__AOcPos_35,1);
       {TUP2 x72;
	x72=_AScanner_103(x60,__AOcPos_35);
	FRPRD(x72.c2,1);
	if(ISTGPRM(x70,1)){
	 COPY(__AScanner_87,1);
	 CPCLS(__AChar_17,1);
	 {OBJ x74;
	  x74=_ABSTree_61(__AChar_17,x72.c1,__AScanner_87);
	  if(ISTGPRM(x74,1)){
	   r=__ABUILTIN_3;
	  }else{
	   r=__ABUILTIN_5;}}
	}else{
	 r=__ABUILTIN_3;}}}}}}}}
 return r;}

extern OBJ _AScanner_70(OBJ x1) /* nestDocuBegin? */
{OBJ r;
 {OBJ x61=FLD1(x1,1);
  COPY(x61,1);
  if(ISPRM(x61)){
   if(EXPRD(x1,1)){
    FREE(FLD1(x1,1),1);DSPRDF(x1);
   }else{
    DCPRD(x1,1);}
   r=__ABUILTIN_3;
  }else{
   if(EXPRD(x61,1)){
    DSPRD(x61);
   }else{
    DCPRD(x61,1);}
   CPPRD(x1,1);
   {OBJ x66;
    x66=_AScanner_106(x1);
    {OBJ x68=FLD1(x66,1);
     COPY(x68,1);
     {OBJ x73;OBJ x74;OBJ x75;OBJ x76;
      if(ISPRM(x68)){
       COPY(__AOcPos_35,1);
       x73=__ABUILTIN_5;
      }else{
       if(EXPRD(x68,1)){
	DSPRD(x68);
       }else{
	DCPRD(x68,1);}
       COPY(__AOcPos_35,1);
       x73=__ABUILTIN_3;}
      {TUP2 t=_AScanner_103(x1,__AOcPos_35);
       x74=t.c1;
       x75=t.c2;}
      FRPRD(x75,1);
      AChar_15(x74,__APrintableChar_27,x76);
      if(ISTGPRM(x73,1)){
       r=x76;
       if(EXPRD(x66,1)){
	FREE(FLD1(x66,1),1);DSPRDF(x66);
       }else{
	DCPRD(x66,1);}
      }else{
       CPPRD(x66,1);
       COPY(__AOcPos_35,1);
       {TUP2 x78;OBJ x81;
	x78=_AScanner_103(x66,__AOcPos_35);
	FRPRD(x78.c2,1);
	if(ISTGPRM(x76,1)){
	 COPY(__AScanner_87,1);
	 CPCLS(__AChar_17,1);
	 {OBJ x80;
	  x80=_ABSTree_61(__AChar_17,x78.c1,__AScanner_87);
	  if(ISTGPRM(x80,1)){
	   x81=__ABUILTIN_3;
	  }else{
	   x81=__ABUILTIN_5;}}
	}else{
	 x81=__ABUILTIN_3;}
	if(ISTGPRM(x81,1)){
	 {OBJ x82;
	  x82=_AScanner_106(x66);
	  r=_AScanner_72(x82);}
	}else{
	 if(EXPRD(x66,1)){
	  FREE(FLD1(x66,1),1);DSPRDF(x66);
	 }else{
	  DCPRD(x66,1);}
	 r=__ABUILTIN_3;}}}}}}}}
 return r;}

extern OBJ _AScanner_71(OBJ x1) /* nestEnd? */
{OBJ r;
 {OBJ x55=FLD1(x1,1);
  COPY(x55,1);
  if(ISPRM(x55)){
   if(EXPRD(x1,1)){
    FREE(FLD1(x1,1),1);DSPRDF(x1);
   }else{
    DCPRD(x1,1);}
   r=__ABUILTIN_3;
  }else{
   if(EXPRD(x55,1)){
    DSPRD(x55);
   }else{
    DCPRD(x55,1);}
   CPPRD(x1,1);
   {OBJ x60;
    x60=_AScanner_106(x1);
    {OBJ x62=FLD1(x60,1);
     COPY(x62,1);
     {OBJ x67;OBJ x68;OBJ x69;OBJ x70;
      if(ISPRM(x62)){
       COPY(__AOcPos_35,1);
       x67=__ABUILTIN_5;
      }else{
       if(EXPRD(x62,1)){
	DSPRD(x62);
       }else{
	DCPRD(x62,1);}
       COPY(__AOcPos_35,1);
       x67=__ABUILTIN_3;}
      {TUP2 t=_AScanner_103(x1,__AOcPos_35);
       x68=t.c1;
       x69=t.c2;}
      FRPRD(x69,1);
      AChar_15(x68,__APrintableChar_30,x70);
      if(ISTGPRM(x67,1)){
       r=x70;
       if(EXPRD(x60,1)){
	FREE(FLD1(x60,1),1);DSPRDF(x60);
       }else{
	DCPRD(x60,1);}
      }else{
       COPY(__AOcPos_35,1);
       {TUP2 x72;
	x72=_AScanner_103(x60,__AOcPos_35);
	FRPRD(x72.c2,1);
	if(ISTGPRM(x70,1)){
	 COPY(__AScanner_87,1);
	 CPCLS(__AChar_17,1);
	 {OBJ x74;
	  x74=_ABSTree_61(__AChar_17,x72.c1,__AScanner_87);
	  if(ISTGPRM(x74,1)){
	   r=__ABUILTIN_3;
	  }else{
	   r=__ABUILTIN_5;}}
	}else{
	 r=__ABUILTIN_3;}}}}}}}}
 return r;}

extern OBJ _AScanner_72(register OBJ x1) /* checkPercent */
{OBJ r;
 for(;;){
  {OBJ x15=FLD1(x1,1);
   COPY(x15,1);
   if(ISPRM(x15)){
    if(EXPRD(x1,1)){
     FREE(FLD1(x1,1),1);DSPRDF(x1);
    }else{
     DCPRD(x1,1);}
    r=__ABUILTIN_3;
   }else{
    if(EXPRD(x15,1)){
     DSPRD(x15);
    }else{
     DCPRD(x15,1);}
    CPPRD(x1,1);
    COPY(__AOcPos_35,1);
    {OBJ x31;TUP2 x33;OBJ x35;
     x31=_AScanner_106(x1);
     x33=_AScanner_103(x1,__AOcPos_35);
     FRPRD(x33.c2,1);
     x35=_AScanner_96(x33.c1);
     if(ISTGPRM(x35,1)){
      x1=x31;continue;
     }else{
      FRPRD(x31,1);
      CPCLS(__AScanner_143,1);
      {OBJ x36;OBJ x37;
       x36=(*(OBJ(*)(OBJ,OBJ))METHOD(__AScanner_143,1))(__AScanner_143,__ABUILTIN_20);
       AChar_15(x33.c1,x36,x37);
       if(ISTGPRM(x37,1)){
	r=__ABUILTIN_5;
       }else{
	r=__ABUILTIN_3;}}}}}}
  break;}
 return r;}

extern OBJ _AScanner_73(OBJ x1,OBJ x2) /* sErr */
{OBJ r;
 r=_AOcError_16(__AOcError_12,x1,x2);
 return r;}

extern OBJ _AScanner_74(OBJ x1,OBJ x2) /* sWarn */
{OBJ r;
 r=_AOcError_16(__AOcError_10,x1,x2);
 return r;}

extern OBJ _AScanner_84(OBJ x1,OBJ x2) /* unbalanced */
{OBJ r;
 CPPRD(__AScanner_130,1);
 CPPRD(__AScanner_131,1);
 CPPRD(__AScanner_132,1);
 {OBJ x3;OBJ x4;OBJ x5;OBJ x6;OBJ x7;
  ANatConv_1(x1,x3);
  ANatConv_1(x2,x4);
  ADenotation_4(x4,__AScanner_130,x5);
  ADenotation_4(__AScanner_131,x5,x6);
  ADenotation_4(x3,x6,x7);
  ADenotation_4(__AScanner_132,x7,r);}
 return r;}

extern OBJ _AScanner_85(OBJ x1) /* unkEC */
{OBJ r;
 CPPRD(__AScanner_144,1);
 CPPRD(__AScanner_145,1);
 CPPRD(__AScanner_146,1);
 {OBJ x2;OBJ x3;OBJ x4;OBJ x5;
  ADenotation_1(__ANat_8,x1,x2);
  CPPRD(x2,1);
  ADenotation_4(x2,__AScanner_144,x3);
  ADenotation_4(__AScanner_145,x3,x4);
  ADenotation_4(x2,x4,x5);
  ADenotation_4(__AScanner_146,x5,r);}
 return r;}

extern OBJ _AScanner_86(OBJ x1,OBJ x2) /* cHigh */
{OBJ r;
 CPPRD(__AScanner_126,1);
 CPPRD(__AScanner_129,1);
 {OBJ x3;OBJ x4;OBJ x5;OBJ x6;
  x3=_AString_66(x1,__AString_6);
  x4=_AStringConv_1(x3);
  ADenotation_4(x4,__AScanner_129,x5);
  ADenotation_4(__AScanner_126,x5,x6);
  r=_AOcError_16(__AOcError_12,x6,x2);}
 return r;}

extern OBJ _AScanner_88(OBJ x1) /* special? */
{OBJ r;
 COPY(__AScanner_87,1);
 CPCLS(__AChar_17,1);
 r=_ABSTree_61(__AChar_17,x1,__AScanner_87);
 return r;}

extern OBJ _AScanner_90(OBJ x1) /* extra? */
{OBJ r;
 COPY(__AScanner_89,1);
 CPCLS(__AChar_17,1);
 r=_ABSTree_61(__AChar_17,x1,__AScanner_89);
 return r;}

extern OBJ _AScanner_92(OBJ x1) /* alphanum? */
{OBJ r;
 COPY(__AScanner_91,1);
 CPCLS(__AChar_17,1);
 r=_ABSTree_61(__AChar_17,x1,__AScanner_91);
 return r;}

extern OBJ _AScanner_93(OBJ x1) /* scanLetgit? */
{OBJ r;
 {OBJ x2;
  if(ISTGPRM(__AZOpts_9,1)){
   CPCLS(__ALatin1_7,1);
   x2=__ALatin1_7;
  }else{
   if(ISTGPRM(__AZOpts_10,1)){
    CPCLS(__AGreek_7,1);
    x2=__AGreek_7;
   }else{
    CPCLS(__AChar_26,1);
    x2=__AChar_26;}}
  r=(*(OBJ(*)(OBJ,OBJ))METHOD(x2,1))(x2,x1);}
 return r;}

extern OBJ _AScanner_95(OBJ x1) /* other? */
{OBJ r;
 COPY(__AScanner_94,1);
 CPCLS(__AChar_17,1);
 r=_ABSTree_61(__AChar_17,x1,__AScanner_94);
 return r;}

extern OBJ _AScanner_96(OBJ x1) /* scanSpace? */
{OBJ r;
 {OBJ x2;
  if(ISTGPRM(__AZOpts_9,1)){
   CPCLS(__ALatin1_8,1);
   x2=__ALatin1_8;
  }else{
   if(ISTGPRM(__AZOpts_10,1)){
    CPCLS(__AGreek_8,1);
    x2=__AGreek_8;
   }else{
    CPCLS(__AChar_27,1);
    x2=__AChar_27;}}
  r=(*(OBJ(*)(OBJ,OBJ))METHOD(x2,1))(x2,x1);}
 return r;}

extern OBJ _AScanner_97(OBJ x1) /* usc? */
{OBJ r;
 AChar_15(x1,__APrintableChar_11,r);
 return r;}

extern OBJ _AScanner_100(OBJ x1) /* ! */
{OBJ r;
 PRD1(2,r);FLD1(r,1)=x1;FLD1(r,2)=__ANat_5;
 return r;}

extern OBJ _AScanner_101(OBJ x1) /* <>? */
{OBJ r;
 {OBJ x11=FLD1(x1,1);
  if(EXPRD(x1,1)){
   DSPRDF(x1);
  }else{
   COPY(x11,1);
   FRPRD(x1,1);}
  if(ISPRM(x11)){
   r=__ABUILTIN_5;
  }else{
   if(EXPRD(x11,1)){
    DSPRD(x11);
   }else{
    DCPRD(x11,1);}
   r=__ABUILTIN_3;}}
 return r;}

extern TUP2 _AScanner_103(OBJ x1,OBJ x2) /* ftUni */
{TUP2 r;
 {OBJ x78=FLD1(x1,1);OBJ x79=FLD1(x1,2);
  if(EXPRD(x1,1)){
   DSPRDF(x1);
  }else{
   COPY(x78,1);
   FRPRD(x1,1);}
  if(ISPRM(x78)){
   HLT("ftUni\'Scanner called with empty string");
  }else{
   CPPRD(x78,1);
   {OBJ x83;OBJ x84;
    x83=_AString_4(x78);
    x84=_AString_5(x78);
    if(ISPRM(x83)){
     r.c1=x84;
     FREE(x2,1);
     CPPRD(__AOcError_15,1);
     r.c2=__AOcError_15;
    }else{
     CPPRD(x83,1);
     {OBJ x88;
      x88=_AString_4(x83);
      if(ISPRM(x88)){
       r.c1=x84;
       FREE(x2,1);
       if(EXPRD(x83,1)){
	DSPRD(x83);
       }else{
	DCPRD(x83,1);}
       CPPRD(__AOcError_15,1);
       r.c2=__AOcError_15;
      }else{
       CPPRD(x83,1);
       {OBJ x92;OBJ x93;OBJ x94;OBJ x95;
	ANat_74(x79,x92);
	x93=_AString_5(x83);
	x94=_AString_5(x88);
	if(ISTGPRM(x92,1)){
	 x95=_AScanner_110(x84,x93,x94);
	}else{
	 x95=__ABUILTIN_3;}
	if(ISTGPRM(x95,1)){
	 CPCLS(__AScanner_111,1);
	 {TUP2 x97;
	  x97=_AStringFilter_5(__AScanner_111,x83);
	  r=_AScanner_105(x97.c2,x2,__ANat_5,x97.c1);}
	}else{
	 r.c1=x84;
	 FREE(x2,1);
	 if(EXPRD(x83,1)){
	  DSPRD(x83);
	 }else{
	  DCPRD(x83,1);}
	 CPPRD(__AOcError_15,1);
	 r.c2=__AOcError_15;}}}}}}}}
 return r;}
extern OBJ _AScanner_103_c(OBJ x1,OBJ x2) /* ftUni */
{OBJ r;
 {TUP2 t=_AScanner_103(x1,x2);
  PRD1(2,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;}
 return r;}

extern TUP2 _AScanner_104(OBJ x1,OBJ x2) /* ftUni,1 */
{TUP2 r;
 r=_AScanner_103(x2,x1);
 return r;}
extern OBJ _AScanner_104_c(OBJ x1,OBJ x2) /* ftUni,1 */
{OBJ r;
 {TUP2 t=_AScanner_104(x1,x2);
  PRD1(2,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;}
 return r;}

extern TUP2 _AScanner_105(register OBJ x1,register OBJ x2,register OBJ x3,register OBJ x4) /* scanUnicode */
{TUP2 r;
 for(;;){
  COPY(x4,1);
  {OBJ x5;OBJ x6;
   x5=_AString_39(x4);
   ANat_79(x5,__ANat_12,x6);
   if(ISTGPRM(x6,1)){
    FREE(x1,1);
    {OBJ x7;
     ANat_79(x3,__ANat_48,x7);
     if(ISTGPRM(x7,1)){
      CPPRD(__AScanner_121,1);
      CPPRD(__AScanner_122,1);
      {OBJ x8;OBJ x9;OBJ x10;OBJ x11;
       x8=_AString_66(x4,__AString_6);
       x9=_AStringConv_1(x8);
       ADenotation_4(x9,__AScanner_121,x10);
       ADenotation_4(__AScanner_122,x10,x11);
       r.c2=_AOcError_16(__AOcError_12,x11,x2);
       r.c1=__AChar_8;}
     }else{
      FREE(x2,1);
      FREE(x4,1);
      CPPRD(__AOcError_15,1);
      ANatConv_2(x3,r.c1);
      r.c2=__AOcError_15;}}
   }else{
    {OBJ x17;OBJ x20;
     if(ISPRM(x1)){
      x17=__ABUILTIN_5;
     }else{
      x17=__ABUILTIN_3;}
     if(ISTGPRM(x17,1)){
      x20=__ABUILTIN_5;
     }else{
      COPY(x1,1);
      {OBJ x18;OBJ x19;
       x18=_AString_5(x1);
       x19=_AScanner_61(x18);
       if(ISTGPRM(x19,1)){
	x20=__ABUILTIN_3;
       }else{
	x20=__ABUILTIN_5;}}}
     if(ISTGPRM(x20,1)){
      FREE(x1,1);
      {OBJ x21;OBJ x22;OBJ x23;
       x21=_AString_66(x4,__AString_6);
       ANat_80(x3,__ANat_48,x22);
       x23=_AStringConv_1(x21);
       if(ISTGPRM(x22,1)){
	CPPRD(__AScanner_122,1);
	CPCLS(__AScanner_125,1);
	{OBJ x25;OBJ x26;OBJ x27;
	 ANatConv_2(x3,r.c1);
	 x25=(*(OBJ(*)(OBJ,OBJ))METHOD(__AScanner_125,1))(__AScanner_125,__ABUILTIN_20);
	 ADenotation_4(x23,x25,x26);
	 ADenotation_4(__AScanner_122,x26,x27);
	 r.c2=_AOcError_16(__AOcError_12,x27,x2);}
       }else{
	CPPRD(__AScanner_121,1);
	CPPRD(__AScanner_126,1);
	{OBJ x29;OBJ x30;
	 ADenotation_4(x23,__AScanner_121,x29);
	 ADenotation_4(__AScanner_126,x29,x30);
	 r.c2=_AOcError_16(__AOcError_12,x30,x2);
	 r.c1=__AChar_8;}}}
     }else{
      COPY(x1,1);
      {OBJ x32;OBJ x33;
       x32=_AString_5(x1);
       AChar_25(x32,x33);
       if(ISTGPRM(x33,1)){
	{OBJ x34;OBJ x35;OBJ x36;OBJ x37;OBJ x38;
	 x34=_AString_4(x1);
	 ANat_63(__ANat_23,x3,x35);
	 ACharConv_3(x32,x36);
	 x37=_AString_2(x32,x4);
	 ANat_61(x35,x36,x38);
	 x1=x34;x3=x38;x4=x37;continue;}
       }else{
	{OBJ x39;OBJ x40;
	 AChar_14(__APrintableChar_69,x32,x39);
	 if(ISTGPRM(x39,1)){
	  AChar_14(x32,__APrintableChar_74,x40);
	 }else{
	  x40=__ABUILTIN_3;}
	 if(ISTGPRM(x40,1)){
	  CPCLS(__AScanner_127,1);
	  {OBJ x41;OBJ x42;OBJ x43;OBJ x44;OBJ x45;OBJ x46;OBJ x47;OBJ x48;
	   x41=_AString_4(x1);
	   ANat_63(__ANat_23,x3,x42);
	   x43=(*(OBJ(*)(OBJ,OBJ))METHOD(__AScanner_127,1))(__AScanner_127,__ABUILTIN_20);
	   x44=_AString_2(x32,x4);
	   ANat_61(x42,__ANat_17,x45);
	   ACharConv_2(x32,x46);
	   ANat_62(x46,x43,x47);
	   ANat_61(x45,x47,x48);
	   x1=x41;x3=x48;x4=x44;continue;}
	 }else{
	  {OBJ x49;OBJ x50;
	   AChar_14(__APrintableChar_43,x32,x49);
	   if(ISTGPRM(x49,1)){
	    AChar_14(x32,__APrintableChar_48,x50);
	   }else{
	    x50=__ABUILTIN_3;}
	   if(ISTGPRM(x50,1)){
	    CPCLS(__AScanner_128,1);
	    {OBJ x51;OBJ x52;OBJ x53;OBJ x54;OBJ x55;OBJ x56;OBJ x57;OBJ x58;
	     x51=_AString_4(x1);
	     ANat_63(__ANat_23,x3,x52);
	     x53=(*(OBJ(*)(OBJ,OBJ))METHOD(__AScanner_128,1))(__AScanner_128,__ABUILTIN_20);
	     x54=_AString_2(x32,x4);
	     ANat_61(x52,__ANat_17,x55);
	     ACharConv_2(x32,x56);
	     ANat_62(x56,x53,x57);
	     ANat_61(x55,x57,x58);
	     x1=x51;x3=x58;x4=x54;continue;}
	   }else{
	    HLT("Scanner at <878,9-888,23> : missing else in scanUnicode\'Scanner:string**pos**nat**string->char**err");}}}}}}}}}}
  break;}
 return r;}
extern OBJ _AScanner_105_c(OBJ x1,OBJ x2,OBJ x3,OBJ x4) /* scanUnicode */
{OBJ r;
 {TUP2 t=_AScanner_105(x1,x2,x3,x4);
  PRD1(2,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;}
 return r;}

extern OBJ _AScanner_106(OBJ x1) /* rtUni */
{OBJ r;
 {OBJ x91=FLD1(x1,1);OBJ x92=FLD1(x1,2);FLAG x_x1=EXPRD(x1,1);
  if(x_x1){
  }else{
   COPY(x91,1);}
  if(ISPRM(x91)){
   HLT("rtUni\'Scanner called with empty string");
  }else{
   CPPRD(x91,1);
   {OBJ x96;OBJ x97;
    x96=_AString_4(x91);
    x97=_AString_5(x91);
    if(ISPRM(x96)){
     {OBJ x98;OBJ x99;
      AChar_15(x97,__APrintableChar_38,x98);
      if(ISTGPRM(x98,1)){
       ANat_2(x92,x99);
      }else{
       x99=__ANat_5;}
      if(x_x1){
       RSOME(x1,r);FLD1(r,1)=x96;FLD1(r,2)=x99;
      }else{
       FRPRD(x1,1);PRD1F(2,r);FLD1(r,1)=x96;FLD1(r,2)=x99;}}
    }else{
     CPPRD(x96,1);
     {OBJ x103;
      x103=_AString_4(x96);
      if(ISPRM(x103)){
       {OBJ x104;OBJ x105;
	AChar_15(x97,__APrintableChar_38,x104);
	if(ISTGPRM(x104,1)){
	 ANat_2(x92,x105);
	}else{
	 x105=__ANat_5;}
	if(x_x1){
	 RSOME(x1,r);FLD1(r,1)=x96;FLD1(r,2)=x105;
	}else{
	 FRPRD(x1,1);PRD1(2,r);FLD1(r,1)=x96;FLD1(r,2)=x105;}}
      }else{
       CPPRD(x96,1);
       {OBJ x109;OBJ x110;OBJ x111;OBJ x112;
	ANat_74(x92,x109);
	x110=_AString_5(x96);
	x111=_AString_5(x103);
	if(ISTGPRM(x109,1)){
	 x112=_AScanner_110(x97,x110,x111);
	}else{
	 x112=__ABUILTIN_3;}
	if(ISTGPRM(x112,1)){
	 if(x_x1){
	  DSPRDF(x1);
	 }else{
	  FRPRD(x1,1);}
	 CPCLS(__AScanner_111,1);
	 {OBJ x113;
	  x113=_AStringFilter_4(__AScanner_111,x96);
	  r=_AScanner_107(x113,__ANat_5);}
	}else{
	 {OBJ x114;OBJ x115;
	  AChar_15(x97,__APrintableChar_38,x114);
	  if(ISTGPRM(x114,1)){
	   ANat_2(x92,x115);
	  }else{
	   x115=__ANat_5;}
	  if(x_x1){
	   RSOME(x1,r);FLD1(r,1)=x96;FLD1(r,2)=x115;
	  }else{
	   FRPRD(x1,1);PRD1(2,r);FLD1(r,1)=x96;FLD1(r,2)=x115;}}}}}}}}}}
 return r;}

extern OBJ _AScanner_107(register OBJ x1,register OBJ x2) /* skipUnicode */
{OBJ r;
 for(;;){
  if(ISPRM(x1)){
   CPPRD(__AScanner_102,1);
   r=__AScanner_102;
  }else{
   CPPRD(x1,2);
   {OBJ x20;OBJ x21;OBJ x22;
    ANat_79(x2,__ANat_11,x20);
    x21=_AString_4(x1);
    x22=_AString_5(x1);
    if(ISTGPRM(x20,1)){
     FREE(x21,1);
     PRD1(2,r);FLD1(r,1)=x1;FLD1(r,2)=__ANat_5;
    }else{
     {OBJ x23;
      ANat_80(x2,__ANat_11,x23);
      if(ISTGPRM(x23,1)){
       {OBJ x24;
	x24=_AScanner_61(x22);
	if(ISTGPRM(x24,1)){
	 if(EXPRD(x1,1)){
	  DSPRD(x1);
	 }else{
	  DCPRD(x1,1);}
	 {OBJ x25;
	  ANat_2(x2,x25);
	  x1=x21;x2=x25;continue;}
	}else{
	 FREE(x21,1);
	 PRD1(2,r);FLD1(r,1)=x1;FLD1(r,2)=__ANat_5;}}
      }else{
       HLT("Scanner at <909,6-912,17> : missing else in skipUnicode\'Scanner:string**nat->rawString");}}}}}
  break;}
 return r;}

extern OBJ _AScanner_108(OBJ x1,OBJ x2) /* nextPosUni */
{OBJ r;
 {OBJ x84=FLD1(x2,1);OBJ x85=FLD1(x2,2);
  if(EXPRD(x2,1)){
   DSPRDF(x2);
  }else{
   COPY(x84,1);
   FRPRD(x2,1);}
  if(ISPRM(x84)){
   r=x1;
  }else{
   CPPRD(x84,1);
   {OBJ x89;OBJ x90;OBJ x91;
    x89=_AString_4(x84);
    x90=_AString_5(x84);
    x91=_AOcPos_14(x1,x90);
    if(ISPRM(x89)){
     r=x91;
    }else{
     CPPRD(x89,1);
     {OBJ x95;
      x95=_AString_4(x89);
      if(ISPRM(x95)){
       r=x91;
       if(EXPRD(x89,1)){
	DSPRD(x89);
       }else{
	DCPRD(x89,1);}
      }else{
       CPPRD(x89,1);
       {OBJ x99;OBJ x100;OBJ x101;OBJ x102;
	ANat_74(x85,x99);
	x100=_AString_5(x89);
	x101=_AString_5(x95);
	if(ISTGPRM(x99,1)){
	 x102=_AScanner_110(x90,x100,x101);
	}else{
	 x102=__ABUILTIN_3;}
	if(ISTGPRM(x102,1)){
	 CPCLS(__AScanner_111,1);
	 {TUP2 x104;OBJ x106;
	  x104=_AStringFilter_5(__AScanner_111,x89);
	  x106=_AScanner_56(x91,x104.c1);
	  r=_AScanner_109(x106,x104.c2,__ANat_5);}
	}else{
	 r=x91;
	 if(EXPRD(x89,1)){
	  DSPRD(x89);
	 }else{
	  DCPRD(x89,1);}}}}}}}}}
 return r;}

extern OBJ _AScanner_109(register OBJ x1,register OBJ x2,register OBJ x3) /* nextPosUnicode */
{OBJ r;
 for(;;){
  if(ISPRM(x2)){
   r=x1;
  }else{
   CPPRD(x2,1);
   {OBJ x22;OBJ x23;OBJ x24;
    ANat_79(x3,__ANat_11,x22);
    x23=_AString_4(x2);
    x24=_AString_5(x2);
    if(ISTGPRM(x22,1)){
     FREE(x23,1);
     r=x1;
    }else{
     {OBJ x25;
      ANat_80(x3,__ANat_11,x25);
      if(ISTGPRM(x25,1)){
       {OBJ x26;
	x26=_AScanner_61(x24);
	if(ISTGPRM(x26,1)){
	 {OBJ x27;OBJ x28;
	  ANat_2(x3,x27);
	  x28=_AOcPos_14(x1,x24);
	  x1=x28;x2=x23;x3=x27;continue;}
	}else{
	 FREE(x23,1);
	 r=x1;}}
      }else{
       HLT("Scanner at <934,6-937,17> : missing else in nextPosUnicode\'Scanner:pos**string**nat->pos");}}}}}
  break;}
 return r;}

extern OBJ _AScanner_110(OBJ x1,OBJ x2,OBJ x3) /* unicode? */
{OBJ r;
 {OBJ x4;
  AChar_15(x1,__APrintableChar_38,x4);
  if(ISTGPRM(x4,1)){
   {OBJ x5;
    AChar_15(x2,__APrintableChar_89,x5);
    if(ISTGPRM(x5,1)){
     {OBJ x6;
      x6=_AScanner_61(x3);
      if(ISTGPRM(x6,1)){
       r=__ABUILTIN_5;
      }else{
       AChar_15(x3,__APrintableChar_89,r);}}
    }else{
     r=__ABUILTIN_3;}}
  }else{
   r=__ABUILTIN_3;}}
 return r;}

extern OBJ _AScanner_111(OBJ x1) /* unicodeMarker? */
{OBJ r;
 AChar_15(x1,__APrintableChar_89,r);
 return r;}

extern OBJ _AScanner_113(OBJ x1,OBJ x2) /* scan,2'113 */
{OBJ r;
 r=_AToken_14(x1);
 return r;}

extern OBJ _AScanner_114(OBJ x1,OBJ x2) /* scan,2'114 */
{OBJ r;
 r=_AToken_14(x1);
 return r;}

extern OBJ _AScanner_115(OBJ x1,OBJ x2) /* scan,2'115 */
{OBJ r;
 r=_AToken_15(x1);
 return r;}

extern OBJ _AScanner_116(OBJ x1,OBJ x2,OBJ x3) /* scan,2'116 */
{OBJ r;
 if(ISTGPRM(x3,1)){
  FRPRD(x1,1);
  CPCLS(__ACom_47,1);
  {OBJ x4;OBJ x5;
   PRD(1,0,x4);FLD(x4,1)=x2;
   x5=(*(OBJ(*)(OBJ,OBJ))METHOD(__ACom_47,1))(__ACom_47,x4);
   PRD(2,0,r);FLD(r,1)=x5;FLD(r,2)=__ASeq_6;}
 }else{
  FRPRD(x2,1);
  CPCLS(__ACom_47,1);
  {OBJ x6;OBJ x7;
   PRD(1,1,x6);FLD(x6,1)=x1;
   x7=(*(OBJ(*)(OBJ,OBJ))METHOD(__ACom_47,1))(__ACom_47,x6);
   PRD(2,0,r);FLD(r,1)=x7;FLD(r,2)=__ASeq_6;}}
 return r;}

extern OBJ _AScanner_117(OBJ x1,OBJ x2) /* scan,2'117 */
{OBJ r;
 {OBJ x30=FLD1(x2,1);OBJ x31=FLD1(x2,2);OBJ x33=FLD1(x2,4);
  if(EXPRD(x2,1)){
   FLD1(x2,1)=NIL;FLD1(x2,2)=NIL;FLD1(x2,4)=NIL;DSPRD(x2);
  }else{
   CPPRD(x30,1);COPY(x31,1);CPPRD(x33,1);
   FRPRD(x2,1);}
  CPCLS(__AScanner_113,1);
  CPCLS(__AScanner_114,1);
  CPCLS(__AScanner_115,1);
  CPCLS(__AScanner_116,1);
  CPPRD(__AOcExit_1,1);
  {OBJ x35;OBJ x36;OBJ x37;OBJ x38;OBJ x39;OBJ x40;OBJ x41;OBJ x42;OBJ x43;
   x35=_AOcError_25(x1,x33);
   PRD1(2,x36);FLD1(x36,1)=x31;FLD1(x36,2)=x30;
   CPPRD(x36,2);
   x37=(*(OBJ(*)(OBJ,OBJ))METHOD(__AScanner_114,1))(__AScanner_114,x36);
   x38=(*(OBJ(*)(OBJ,OBJ))METHOD(__AScanner_113,1))(__AScanner_113,x36);
   x39=_ADEBUG_2(__AZOpts_6,x37,x36);
   CPPRD(x39,1);
   x40=_ADEBUG_2(__AZOpts_6,x38,__AOcExit_1);
   x41=(*(OBJ(*)(OBJ,OBJ))METHOD(__AScanner_115,1))(__AScanner_115,x39);
   x42=_ADEBUG_2(__AZOpts_18,x41,x39);
   x43=(*(OBJ(*)(OBJ,OBJ,OBJ))METHOD(__AScanner_116,2))(__AScanner_116,x40,x42);
   r=_AComCompose_5(x35,x43);}}
 return r;}

extern OBJ _AScanner_118(OBJ x1,OBJ x2,OBJ x3) /* scan,2'118 */
{OBJ r;
 CPCLS(__AScanner_117,1);
 {OBJ x4;
  x4=(*(OBJ(*)(OBJ,OBJ))METHOD(__AScanner_117,1))(__AScanner_117,x2);
  r=_AComCompose_5(x1,x4);}
 return r;}

extern OBJ _AScanner_119(OBJ x1) /* final'119 */
{OBJ r;
 CPPRD(__AScanner_77,1);
 r=_AOcError_16(__AOcError_12,__AScanner_77,x1);
 return r;}

extern OBJ _AScanner_120(OBJ x1) /* final'120 */
{OBJ r;
 CPPRD(__AScanner_77,1);
 r=_AOcError_16(__AOcError_12,__AScanner_77,x1);
 return r;}

extern OBJ _AScanner_125(OBJ x1) /* scanUnicode'125 */
{OBJ r;
 CPPRD(__AScanner_123,1);
 CPPRD(__AScanner_124,1);
 ADenotation_4(__AScanner_123,__AScanner_124,r);
 return r;}

extern OBJ _AScanner_127(OBJ x1) /* scanUnicode'127 */
{OBJ r;
 ACharConv_2(__APrintableChar_69,r);
 return r;}

extern OBJ _AScanner_128(OBJ x1) /* scanUnicode'128 */
{OBJ r;
 ACharConv_2(__APrintableChar_43,r);
 return r;}

extern OBJ _AScanner_134(OBJ x1) /* checkLineDoc,1'134 */
{OBJ r;
 CPPRD(__AScanner_133,1);
 AChar_32(__AScanner_133,r);
 return r;}

extern OBJ _AScanner_136(OBJ x1) /* checkLineDoc,1'136 */
{OBJ r;
 CPPRD(__AScanner_135,1);
 AChar_32(__AScanner_135,r);
 return r;}

extern OBJ _AScanner_138(OBJ x1) /* checkLineDoc,1'138 */
{OBJ r;
 CPPRD(__AScanner_137,1);
 AChar_32(__AScanner_137,r);
 return r;}

extern OBJ _AScanner_140(OBJ x1) /* checkLineDoc,1'140 */
{OBJ r;
 CPPRD(__AScanner_139,1);
 AChar_32(__AScanner_139,r);
 return r;}

extern OBJ _AScanner_142(OBJ x1) /* checkLineDoc'142 */
{OBJ r;
 CPPRD(__AScanner_141,1);
 AChar_32(__AScanner_141,r);
 return r;}

extern OBJ _AScanner_143(OBJ x1) /* checkPercent'143 */
{OBJ r;
 CPPRD(__AScanner_141,1);
 AChar_32(__AScanner_141,r);
 return r;}

extern OBJ _AScanner_148(OBJ x1) /* scan,4'148 */
{OBJ r;
 r=_AString_2(__APrintableChar_92,__AString_6);
 return r;}

extern OBJ _AScanner_149(OBJ x1) /* scanHex'149 */
{OBJ r;
 ACharConv_2(__APrintableChar_69,r);
 return r;}

extern OBJ _AScanner_150(OBJ x1) /* scanHex'150 */
{OBJ r;
 ACharConv_2(__APrintableChar_43,r);
 return r;}

extern OBJ _AScanner_151(OBJ x1) /* scanAll'151 */
{OBJ r;
 FREE(x1,1);
 r=__AString_6;
 return r;}

extern OBJ _AScanner_152(OBJ x1) /* scanAll'152 */
{OBJ r;
 if(ISPRM(x1)){
  r=__ABUILTIN_3;
 }else{
  {OBJ x10;
   x10=_AString_5(x1);
   AChar_15(x10,__APrintableChar_23,r);}}
 return r;}

extern OBJ _AScanner_153(OBJ x1) /* scanAll'153 */
{OBJ r;
 CPPRD(__AScanner_45,1);
 CPCLS(__AScanner_55,1);
 CPCLS(__AScanner_151,1);
 CPCLS(__AScanner_152,1);
 {TUP2 x3;OBJ x5;OBJ x6;OBJ x7;OBJ x8;
  x3=_ASeqFilter_8(__AScanner_152,x1);
  x5=_ASeqMap_3(__AScanner_151,x3.c1);
  x6=_ASeq_26(x5,x3.c2);
  x7=_ASeqReduce_4(__AScanner_55,__AScanner_45,x6);
  x8=_AScanner_52(x7);
  r=_ACom_23(x8);}
 return r;}

static void ___AScanner_45()
{
 CPPRD(__AOcError_15,1);
 COPY(__AOcPos_10,1);
 CPPRD(__ARep_3,1);
 {OBJ x1;
  PRDF(1,2,x1);FLD(x1,1)=__ABUILTIN_3;
  PRD1(5,__AScanner_45);FLD1(__AScanner_45,1)=__ARep_3;FLD1(__AScanner_45,2)=__ASeq_6;FLD1(__AScanner_45,3)=__AOcPos_10;FLD1(__AScanner_45,4)=__AOcError_15;FLD1(__AScanner_45,5)=x1;}}

static void ___AScanner_87()
{
 {OBJ x1;OBJ x2;OBJ x3;OBJ x4;OBJ x5;
  ANat_62(__ANat_48,__ANat_8,x1);
  if(ISTGPRM(__AZOpts_9,1)){
   COPY(__AScanner_89,1);
   CPCLS(__AChar_17,4);
   CPCLS(__ANatConv_2,1);
   CPCLS(__ALatin1_4,1);
   x2=__ALatin1_4;
  }else{
   if(ISTGPRM(__AZOpts_10,1)){
    COPY(__AScanner_89,1);
    CPCLS(__AChar_17,4);
    CPCLS(__ANatConv_2,1);
    CPCLS(__AGreek_4,1);
    x2=__AGreek_4;
   }else{
    COPY(__AScanner_89,1);
    CPCLS(__AChar_17,4);
    CPCLS(__AChar_23,1);
    CPCLS(__ANatConv_2,1);
    x2=__AChar_23;}}
  x3=_ASetByBST_16(__AChar_17,__ANat_5,x1,__ANatConv_2);
  x4=_ASetByBSTFilter_3(__AChar_17,x2,x3);
  x5=_ASetByBST_43(__AChar_17,x4,__AScanner_89);
  __AScanner_87=_ABSTree_58(__AChar_17,__APrintableChar_1,x5);}}

static void ___AScanner_89()
{
 CPCLS(__AChar_17,6);
 {OBJ x1;OBJ x2;OBJ x3;OBJ x4;OBJ x5;
  x1=_ABSTree_11(__AChar_17,__APrintableChar_7);
  x2=_ABSTree_57(__AChar_17,__APrintableChar_6,x1);
  x3=_ABSTree_57(__AChar_17,__APrintableChar_3,x2);
  x4=_ABSTree_57(__AChar_17,__APrintableChar_10,x3);
  x5=_ABSTree_57(__AChar_17,__APrintableChar_5,x4);
  __AScanner_89=_ABSTree_57(__AChar_17,__APrintableChar_4,x5);}}

static void ___AScanner_91()
{
 {OBJ x1;OBJ x2;OBJ x3;OBJ x4;OBJ x5;
  ANat_62(__ANat_48,__ANat_8,x1);
  if(ISTGPRM(__AZOpts_9,1)){
   CPCLS(__AChar_17,1);
   CPCLS(__ANatConv_2,1);
   CPCLS(__ALatin1_7,1);
   x2=__ALatin1_7;
  }else{
   if(ISTGPRM(__AZOpts_10,1)){
    CPCLS(__AChar_17,1);
    CPCLS(__ANatConv_2,1);
    CPCLS(__AGreek_7,1);
    x2=__AGreek_7;
   }else{
    CPCLS(__AChar_17,1);
    CPCLS(__AChar_26,1);
    CPCLS(__ANatConv_2,1);
    x2=__AChar_26;}}
  x3=_ASetByBST_16(__AChar_17,__ANat_5,x1,__ANatConv_2);
  if(ISTGPRM(__AZOpts_4,1)){
   CPCLS(__AScanner_97,1);
   CPCLS(__AChar_17,2);
   CPCLS(__APredicate_6,1);
   x4=(*(OBJ(*)(OBJ,OBJ,OBJ))METHOD(__APredicate_6,2))(__APredicate_6,x2,__AScanner_97);
  }else{
   CPCLS(__AChar_17,2);
   x4=x2;}
  x5=_ASetByBSTFilter_3(__AChar_17,x4,x3);
  __AScanner_91=_ABSTree_57(__AChar_17,__APrintableChar_36,x5);}}

static void ___AScanner_94()
{
 CPCLS(__AChar_17,1);
 CPCLS(__ANatConv_2,1);
 {OBJ x1;OBJ x2;OBJ x6;
  ANat_62(__ANat_48,__ANat_8,x1);
  x2=_ASetByBST_16(__AChar_17,__ANat_5,x1,__ANatConv_2);
  if(ISTGPRM(__AZOpts_9,1)){
   CPCLS(__AChar_17,1);
   CPCLS(__APredicate_4,1);
   CPCLS(__APredicate_6,1);
   CPCLS(__ALatin1_8,1);
   CPCLS(__ALatin1_10,1);
   {OBJ x3;
    x3=(*(OBJ(*)(OBJ,OBJ,OBJ))METHOD(__APredicate_6,2))(__APredicate_6,__ALatin1_10,__ALatin1_8);
    x6=(*(OBJ(*)(OBJ,OBJ))METHOD(__APredicate_4,1))(__APredicate_4,x3);}
  }else{
   if(ISTGPRM(__AZOpts_10,1)){
    CPCLS(__AChar_17,1);
    CPCLS(__APredicate_4,1);
    CPCLS(__APredicate_6,1);
    CPCLS(__AGreek_8,1);
    CPCLS(__AGreek_10,1);
    {OBJ x4;
     x4=(*(OBJ(*)(OBJ,OBJ,OBJ))METHOD(__APredicate_6,2))(__APredicate_6,__AGreek_10,__AGreek_8);
     x6=(*(OBJ(*)(OBJ,OBJ))METHOD(__APredicate_4,1))(__APredicate_4,x4);}
   }else{
    CPCLS(__AChar_17,1);
    CPCLS(__AChar_27,1);
    CPCLS(__AChar_29,1);
    CPCLS(__APredicate_4,1);
    CPCLS(__APredicate_6,1);
    {OBJ x5;
     x5=(*(OBJ(*)(OBJ,OBJ,OBJ))METHOD(__APredicate_6,2))(__APredicate_6,__AChar_29,__AChar_27);
     x6=(*(OBJ(*)(OBJ,OBJ))METHOD(__APredicate_4,1))(__APredicate_4,x5);}}}
  __AScanner_94=_ASetByBSTFilter_3(__AChar_17,x6,x2);}}

static void ___AScanner_98()
{
 CPCLS(__AChar_17,11);
 {OBJ x1;OBJ x2;OBJ x3;OBJ x4;OBJ x5;OBJ x6;OBJ x7;OBJ x8;OBJ x9;OBJ x10;
  x1=_ABSTree_57(__AChar_17,__APrintableChar_1,__ATree_7);
  x2=_ABSTree_57(__AChar_17,__APrintableChar_3,x1);
  x3=_ABSTree_57(__AChar_17,__APrintableChar_36,x2);
  x4=_ABSTree_57(__AChar_17,__APrintableChar_38,x3);
  x5=_ABSTree_57(__AChar_17,__APrintableChar_69,x4);
  x6=_ABSTree_57(__AChar_17,__APrintableChar_74,x5);
  x7=_ABSTree_57(__AChar_17,__APrintableChar_86,x6);
  x8=_ABSTree_57(__AChar_17,__APrintableChar_70,x7);
  x9=_ABSTree_57(__AChar_17,__APrintableChar_90,x8);
  x10=_ABSTree_57(__AChar_17,__APrintableChar_88,x9);
  __AScanner_98=_ABSTree_57(__AChar_17,__APrintableChar_82,x10);}}

static void ___AScanner_99()
{
 CPPRD(__AScanner_144,1);
 CPPRD(__AScanner_154,1);
 CPPRD(__AScanner_155,1);
 CPPRD(__AScanner_156,1);
 CPPRD(__AScanner_157,1);
 CPPRD(__AScanner_158,1);
 CPPRD(__AScanner_159,1);
 CPPRD(__AScanner_160,1);
 CPPRD(__AScanner_161,1);
 CPPRD(__AScanner_162,1);
 CPPRD(__AScanner_163,1);
 CPPRD(__AScanner_164,1);
 CPPRD(__AScanner_165,1);
 CPPRD(__AScanner_166,1);
 CPPRD(__AScanner_167,1);
 CPPRD(__AScanner_168,1);
 CPPRD(__AScanner_169,1);
 CPPRD(__AScanner_170,1);
 CPCLS(__AChar_17,11);
 {OBJ x1;OBJ x2;OBJ x3;OBJ x4;OBJ x5;OBJ x6;OBJ x7;OBJ x8;OBJ x9;OBJ x10;OBJ x11;OBJ x12;OBJ x13;OBJ x14;OBJ x15;OBJ x16;OBJ x17;OBJ x18;OBJ x19;OBJ x20;OBJ x21;OBJ x22;OBJ x23;OBJ x24;OBJ x25;OBJ x26;OBJ x27;OBJ x28;
  AChar_32(__AScanner_154,x1);
  AChar_32(__AScanner_155,x2);
  AChar_32(__AScanner_156,x3);
  AChar_32(__AScanner_157,x4);
  AChar_32(__AScanner_158,x5);
  AChar_32(__AScanner_159,x6);
  AChar_32(__AScanner_160,x7);
  AChar_32(__AScanner_161,x8);
  AChar_32(__AScanner_162,x9);
  AChar_32(__AScanner_163,x10);
  AChar_32(__AScanner_164,x11);
  AChar_32(__AScanner_165,x12);
  AChar_32(__AScanner_166,x13);
  AChar_32(__AScanner_167,x14);
  AChar_32(__AScanner_168,x15);
  AChar_32(__AScanner_169,x16);
  AChar_32(__AScanner_144,x17);
  AChar_32(__AScanner_170,x18);
  x19=_AMap_31(__AChar_17,x18,x18,__ATree_7);
  x20=_AMap_31(__AChar_17,x17,x17,x19);
  x21=_AMap_31(__AChar_17,x16,x16,x20);
  x22=_AMap_31(__AChar_17,x15,x15,x21);
  x23=_AMap_31(__AChar_17,x13,x14,x22);
  x24=_AMap_31(__AChar_17,x11,x12,x23);
  x25=_AMap_31(__AChar_17,x9,x10,x24);
  x26=_AMap_31(__AChar_17,x7,x8,x25);
  x27=_AMap_31(__AChar_17,x5,x6,x26);
  x28=_AMap_31(__AChar_17,x3,x4,x27);
  __AScanner_99=_AMap_31(__AChar_17,x1,x2,x28);}}



init_AScanner()
{
 static int visited=0; if(visited) return; visited=1;
 init_APrintableChar();
 init_ATriple();
 init_ASetByBST();
 init_ADEBUG();
 init_AOcError();
 init_APredicate();
 init_AOcPos();
 init_ANatConv();
 init_AOcOptions();
 init_ALatin1();
 init_ASeq();
 init_AGreek();
 init_ACom();
 init_ASetByBSTFilter();
 init_AStream();
 init_AZOpts();
 init_APair();
 init_ASeqFilter();
 init_ANat();
 init_AMap();
 init_AString();
 init_ABSTree();
 init_AToken();
 init_ATree();
 init_ARepTab();
 init_AReal();
 init_ARep();
 init_ABitset();
 init_AChar();
 init_AMapReduce();
 init_AOption();
 init_AArray();
 init_ATerminal();
 init_ALexem();
 init_ASet();
 init_AStringMapSeq();
 init_AVoid();
 init_AFile();
 init_AInt();
 init_AOcExit();
 init_AOcVerbose();
 init_ASeqMap();
 init_ASeqReduce();
 init_AComCompose();
 init_AStringConv();
 init_AStringFilter();
 init_ADenotation();
 init_ACharConv();
 DEN("\v",__AScanner_159);
 LCLS(1,_AScanner_127,__AScanner_127);
 CLS(3,_AScanner_63,__AScanner_63);
 CLS(1,_AScanner_95,__AScanner_95);
 DEN("v",__AScanner_158);
 DEN("`\\",__AScanner_126);
 CLS(1,_AScanner_30,__AScanner_30);
 CLS(1,_AScanner_62,__AScanner_62);
 DEN("\t",__AScanner_157);
 CLS(1,_AScanner_93,__AScanner_93);
 LCLS(1,_AScanner_125,__AScanner_125);
 CLS(3,_AScanner_29,__AScanner_29);
 CLS(1,_AScanner_61,__AScanner_61);
 DEN("t",__AScanner_156);
 DEN("hexadecimal digits",__AScanner_124);
 CLS(9,_AScanner_60,__AScanner_60);
 CLS(1,_AScanner_92,__AScanner_92);
 DEN("\n",__AScanner_155);
 DEN("\' : unicode escape must contain exactly four ",__AScanner_123);
 CLS(9,_AScanner_59,__AScanner_59);
 DEN("n",__AScanner_154);
 CLS(1,_AScanner_90,__AScanner_90);
 DEN("`\\u",__AScanner_122);
 CLS(1,_AScanner_26,__AScanner_26);
 CLS(3,_AScanner_58_c,__AScanner_58);
 CLS(1,_AScanner_153,__AScanner_153);
 DEN("\' : codes above \\u00FF not supported, replaced by space",__AScanner_121);
 CLS(2,_AScanner_25,__AScanner_25);
 CLS(3,_AScanner_57_c,__AScanner_57);
 CLS(1,_AScanner_152,__AScanner_152);
 CLS(1,_AScanner_120,__AScanner_120);
 CLS(2,_AScanner_56,__AScanner_56);
 CLS(1,_AScanner_88,__AScanner_88);
 CLS(1,_AScanner_151,__AScanner_151);
 CLS(1,_AScanner_119,__AScanner_119);
 CLS(1,_AScanner_23,__AScanner_23);
 CLS(2,_AScanner_55,__AScanner_55);
 LCLS(1,_AScanner_150,__AScanner_150);
 CLS(2,_AScanner_86,__AScanner_86);
 CLS(3,_AScanner_118,__AScanner_118);
 CLS(1,_AScanner_22,__AScanner_22);
 CLS(6,_AScanner_54,__AScanner_54);
 LCLS(1,_AScanner_149,__AScanner_149);
 CLS(1,_AScanner_85,__AScanner_85);
 CLS(2,_AScanner_117,__AScanner_117);
 CLS(1,_AScanner_21,__AScanner_21);
 CLS(2,_AScanner_53,__AScanner_53);
 LCLS(1,_AScanner_148,__AScanner_148);
 CLS(2,_AScanner_84,__AScanner_84);
 CLS(3,_AScanner_116,__AScanner_116);
 CLS(1,_AScanner_20,__AScanner_20);
 CLS(1,_AScanner_52,__AScanner_52);
 DEN("Cannot escape newline",__AScanner_83);
 LCLS(2,_AScanner_115,__AScanner_115);
 CLS(1,_AScanner_19,__AScanner_19);
 CLS(2,_AScanner_51,__AScanner_51);
 DEN("unknown escape `\\",__AScanner_146);
 LCLS(2,_AScanner_114,__AScanner_114);
 CLS(1,_AScanner_50,__AScanner_50);
 DEN("`$/` not opened",__AScanner_82);
 DEN("\' replaced by `",__AScanner_145);
 DEN("`/$` not closed",__AScanner_81);
 LCLS(2,_AScanner_113,__AScanner_113);
 CLS(1,_AScanner_17,__AScanner_17);
 CLS(1,_AScanner_49,__AScanner_49);
 DEN("\'",__AScanner_144);
 DEN("Tabular in denotation is not allowed",__AScanner_80);
 DEN("scanning ...",__AScanner_112);
 CLS(4,_AScanner_16,__AScanner_16);
 CLS(1,_AScanner_48,__AScanner_48);
 LCLS(1,_AScanner_143,__AScanner_143);
 DEN("INTERNAL SCANNER ERROR: should not happen",__AScanner_79);
 CLS(1,_AScanner_111,__AScanner_111);
 CLS(1,_AScanner_15,__AScanner_15);
 CLS(1,_AScanner_47,__AScanner_47);
 LCLS(1,_AScanner_142,__AScanner_142);
 DEN("`\"` not closed before end of line",__AScanner_78);
 CLS(3,_AScanner_110,__AScanner_110);
 CLS(1,_AScanner_14,__AScanner_14);
 CLS(1,_AScanner_46,__AScanner_46);
 DEN("%",__AScanner_141);
 DEN("`/*` not closed",__AScanner_77);
 CLS(3,_AScanner_109,__AScanner_109);
 CLS(1,_AScanner_13,__AScanner_13);
 LCLS(1,_AScanner_140,__AScanner_140);
 DEN("`*/` not opened",__AScanner_76);
 CLS(2,_AScanner_108,__AScanner_108);
 CLS(1,_AScanner_12,__AScanner_12);
 CLS(2,_AScanner_44,__AScanner_44);
 DEN("}",__AScanner_139);
 CLS(2,_AScanner_107,__AScanner_107);
 CLS(1,_AScanner_11,__AScanner_11);
 DEN("other character",__AScanner_75);
 DEN("\"",__AScanner_170);
 CLS(1,_AScanner_106,__AScanner_106);
 LCLS(1,_AScanner_138,__AScanner_138);
 CLS(1,_AScanner_10,__AScanner_10);
 CLS(2,_AScanner_74,__AScanner_74);
 DEN("\?",__AScanner_169);
 DEN("{",__AScanner_137);
 CLS(2,_AScanner_73,__AScanner_73);
 CLS(4,_AScanner_105_c,__AScanner_105);
 CLS(5,_AScanner_9,__AScanner_9);
 CLS(1,_AScanner_41,__AScanner_41);
 DEN("\\",__AScanner_168);
 CLS(2,_AScanner_104_c,__AScanner_104);
 LCLS(1,_AScanner_136,__AScanner_136);
 CLS(1,_AScanner_40,__AScanner_40);
 CLS(1,_AScanner_72,__AScanner_72);
 DEN("\a",__AScanner_167);
 DEN(" ",__AScanner_135);
 CLS(1,_AScanner_71,__AScanner_71);
 CLS(2,_AScanner_103_c,__AScanner_103);
 CLS(1,_AScanner_7,__AScanner_7);
 CLS(1,_AScanner_39,__AScanner_39);
 DEN("a",__AScanner_166);
 LCLS(1,_AScanner_134,__AScanner_134);
 CLS(1,_AScanner_70,__AScanner_70);
 CLS(1,_AScanner_6,__AScanner_6);
 CLS(1,_AScanner_38,__AScanner_38);
 DEN("\f",__AScanner_165);
 DEN("@",__AScanner_133);
 CLS(1,_AScanner_69,__AScanner_69);
 CLS(1,_AScanner_101,__AScanner_101);
 CLS(1,_AScanner_5,__AScanner_5);
 CLS(1,_AScanner_37,__AScanner_37);
 DEN("f",__AScanner_164);
 DEN("unbalanced curly brackets in documentation (",__AScanner_132);
 CLS(1,_AScanner_68,__AScanner_68);
 CLS(1,_AScanner_100,__AScanner_100);
 CLS(2,_AScanner_4,__AScanner_4);
 CLS(1,_AScanner_36,__AScanner_36);
 DEN("\r",__AScanner_163);
 DEN(" x `{\' ",__AScanner_131);
 CLS(5,_AScanner_35,__AScanner_35);
 CLS(2,_AScanner_67,__AScanner_67);
 DEN("r",__AScanner_162);
 DEN(" x `}\' )",__AScanner_130);
 CLS(2,_AScanner_2,__AScanner_2);
 CLS(4,_AScanner_66_c,__AScanner_66);
 DEN("\b",__AScanner_161);
 CLS(1,_AScanner_97,__AScanner_97);
 DEN("\' is a non existent character!",__AScanner_129);
 CLS(1,_AScanner_1,__AScanner_1);
 CLS(3,_AScanner_65_c,__AScanner_65);
 DEN("b",__AScanner_160);
 CLS(1,_AScanner_96,__AScanner_96);
 LCLS(1,_AScanner_128,__AScanner_128);
 CLS(1,_AScanner_32,__AScanner_32);
 CLS(6,_AScanner_64,__AScanner_64);
 ___AScanner_45();
 ___AScanner_89();
 ___AScanner_87();
 ___AScanner_91();
 ___AScanner_94();
 ___AScanner_98();
 ___AScanner_99();
 PRD1F(2,__AScanner_102);FLD1(__AScanner_102,1)=__AString_6;FLD1(__AScanner_102,2)=__ANat_5;
 PRD1F(2,__AScanner_147);FLD1(__AScanner_147,1)=__ANat_5;FLD1(__AScanner_147,2)=__ASeq_6;}

