

#include "BUILTIN.h"

#include "Nat.h"
extern OBJ __AOption_5;

#include "Int.h"

#include "Real.h"

#include "Char.h"
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_8;
extern OBJ _AString_12(OBJ);extern OBJ __AString_12;
extern OBJ _AString_21(OBJ,OBJ);extern OBJ __AString_21;
extern OBJ _AString_24(OBJ,OBJ);extern OBJ __AString_24;
extern TUP2 _AString_33(OBJ,OBJ);extern OBJ __AString_33;
extern OBJ _AString_39(OBJ);extern OBJ __AString_39;
extern OBJ _AString_47(OBJ,OBJ);extern OBJ __AString_47;
extern OBJ _AString_49(OBJ);extern OBJ __AString_49;
extern OBJ __ASeq_6;
extern OBJ _ASeq_23(OBJ,OBJ);extern OBJ __ASeq_23;
extern OBJ _ASeq_26(OBJ,OBJ);extern OBJ __ASeq_26;
extern OBJ _ASeq_40(OBJ,OBJ);extern OBJ __ASeq_40;

#include "Denotation.h"
extern OBJ _AStringConv_1(OBJ);extern OBJ __AStringConv_1;
extern OBJ _AStringFilter_4(OBJ,OBJ);extern OBJ __AStringFilter_4;
extern OBJ __APrintableChar_6;
extern OBJ __APrintableChar_7;
extern OBJ __APrintableChar_8;
extern OBJ __APrintableChar_12;
extern OBJ __APrintableChar_13;
extern OBJ __APrintableChar_21;
extern OBJ __APrintableChar_25;
extern OBJ __APrintableChar_27;
extern OBJ __APrintableChar_28;
extern OBJ __APrintableChar_29;
extern OBJ __APrintableChar_39;
extern OBJ __APrintableChar_43;
extern OBJ __APrintableChar_47;
extern OBJ __APrintableChar_48;
extern OBJ __APrintableChar_54;
extern OBJ __APrintableChar_60;
extern OBJ __APrintableChar_61;
extern OBJ __APrintableChar_62;
extern OBJ __APrintableChar_63;
extern OBJ __APrintableChar_69;
extern OBJ __APrintableChar_70;
extern OBJ __APrintableChar_71;
extern OBJ __APrintableChar_72;
extern OBJ __APrintableChar_73;
extern OBJ __APrintableChar_74;
extern OBJ __APrintableChar_77;
extern OBJ __APrintableChar_80;
extern OBJ __APrintableChar_82;
extern OBJ __APrintableChar_86;
extern OBJ __APrintableChar_87;
extern OBJ __APrintableChar_88;
extern OBJ __APrintableChar_89;

#include "RealConv.h"

#include "IntConv.h"

#include "NatConv.h"

#include "CharConv.h"
extern TUP2 _AStringScan_1(OBJ);OBJ __AStringScan_1; /* scan */
extern TUP2 _AStringScan_2(OBJ);OBJ __AStringScan_2; /* scan,1 */
extern TUP2 _AStringScan_3(OBJ);OBJ __AStringScan_3; /* scan,2 */
extern TUP2 _AStringScan_4(OBJ);OBJ __AStringScan_4; /* scan,3 */
extern TUP2 _AStringScan_5(OBJ);OBJ __AStringScan_5; /* scan,4 */
extern OBJ _AStringScan_6(OBJ,OBJ);OBJ __AStringScan_6; /* scan,5 */
extern TUP2 _AStringScan_7(OBJ,OBJ);OBJ __AStringScan_7; /* scan,6 */
extern TUP3 _AStringScan_8(OBJ,OBJ);OBJ __AStringScan_8; /* scan,7 */
extern OBJ _AStringScan_9(OBJ,OBJ);OBJ __AStringScan_9; /* scan,8 */
extern OBJ _AStringScan_11(OBJ);OBJ __AStringScan_11; /* range */
extern OBJ _AStringScan_12(OBJ);OBJ __AStringScan_12; /* range? */
extern OBJ _AStringScan_13(OBJ);OBJ __AStringScan_13; /* subranges */
extern OBJ _AStringScan_14(OBJ);OBJ __AStringScan_14; /* notrange */
extern OBJ _AStringScan_15(OBJ);OBJ __AStringScan_15; /* notrange? */
extern OBJ _AStringScan_18(OBJ,OBJ);OBJ __AStringScan_18; /* set */
extern OBJ _AStringScan_19(OBJ);OBJ __AStringScan_19; /* set? */
extern OBJ _AStringScan_20(OBJ);OBJ __AStringScan_20; /* to */
extern OBJ _AStringScan_21(OBJ);OBJ __AStringScan_21; /* from */
extern OBJ _AStringScan_22(OBJ);OBJ __AStringScan_22; /* single */
extern OBJ _AStringScan_23(OBJ);OBJ __AStringScan_23; /* single? */
extern OBJ _AStringScan_24(OBJ);OBJ __AStringScan_24; /* char */
OBJ __AStringScan_26; /* Rexp_- */
extern OBJ _AStringScan_27(OBJ);OBJ __AStringScan_27; /* Rexp_-? */
OBJ __AStringScan_28; /* Rexp_+ */
extern OBJ _AStringScan_29(OBJ);OBJ __AStringScan_29; /* Rexp_+? */
OBJ __AStringScan_30; /* Rexpsign */
extern OBJ _AStringScan_31(OBJ);OBJ __AStringScan_31; /* Rexpsign? */
OBJ __AStringScan_32; /* Rnachk */
extern OBJ _AStringScan_33(OBJ);OBJ __AStringScan_33; /* Rnachk? */
OBJ __AStringScan_34; /* Rvork */
extern OBJ _AStringScan_35(OBJ);OBJ __AStringScan_35; /* Rvork? */
OBJ __AStringScan_36; /* Rsign */
extern OBJ _AStringScan_37(OBJ);OBJ __AStringScan_37; /* Rsign? */
extern TUP2 _AStringScan_38(OBJ,OBJ);OBJ __AStringScan_38; /* normalisiert */
extern OBJ _AStringScan_39(OBJ,OBJ);OBJ __AStringScan_39; /* gebr */
extern TUP2 _AStringScan_40(OBJ,OBJ,OBJ,OBJ,OBJ);OBJ __AStringScan_40; /* scan,9 */
extern OBJ _AStringScan_41(OBJ,OBJ,OBJ);OBJ __AStringScan_41; /* scale */
extern OBJ _AStringScan_42(OBJ);OBJ __AStringScan_42; /* scantrue */
extern OBJ _AStringScan_43(OBJ);OBJ __AStringScan_43; /* scanfalse */
extern TUP2 _AStringScan_44(OBJ,OBJ,OBJ,OBJ);OBJ __AStringScan_44; /* drop */
extern TUP3 _AStringScan_45(OBJ,OBJ,OBJ);OBJ __AStringScan_45; /* SCANSTRING */
extern TUP3 _AStringScan_46(OBJ,OBJ,OBJ);OBJ __AStringScan_46; /* SCAN */
extern TUP3 _AStringScan_47(OBJ,OBJ,OBJ,OBJ,OBJ);OBJ __AStringScan_47; /* SCANWIDTH */
extern TUP3 _AStringScan_48(OBJ,OBJ,OBJ,OBJ,OBJ);OBJ __AStringScan_48; /* SCANITEM */
extern OBJ _AStringScan_49(OBJ,OBJ);OBJ __AStringScan_49; /* in */
extern OBJ _AStringScan_50(OBJ,OBJ);OBJ __AStringScan_50; /* in,1 */
extern OBJ _AStringScan_51(OBJ,OBJ);OBJ __AStringScan_51; /* :>: */
extern TUP3 _AStringScan_52(OBJ,OBJ,OBJ,OBJ,OBJ);OBJ __AStringScan_52; /* SCANSETSTART */
extern TUP3 _AStringScan_53(OBJ,OBJ,OBJ,OBJ,OBJ,OBJ);OBJ __AStringScan_53; /* SCANSETFIRST */
extern TUP3 _AStringScan_54(OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ);OBJ __AStringScan_54; /* SCANSETRANGE */
extern TUP3 _AStringScan_55(OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ);OBJ __AStringScan_55; /* SCANSETSECOND */
extern TUP3 _AStringScan_56(OBJ,OBJ,OBJ,OBJ,OBJ,OBJ);OBJ __AStringScan_56; /* SCANSET */
extern TUP2 _AStringScan_57(OBJ,OBJ,OBJ,OBJ);OBJ __AStringScan_57; /* scanSet */
extern TUP3 _AStringScan_58(OBJ,OBJ,OBJ,OBJ,OBJ);OBJ __AStringScan_58; /* SCANNAT */
extern TUP2 _AStringScan_59(OBJ,OBJ,OBJ);OBJ __AStringScan_59; /* scanNat */
extern TUP3 _AStringScan_60(OBJ,OBJ,OBJ,OBJ);OBJ __AStringScan_60; /* scanNat,1 */
extern TUP3 _AStringScan_61(OBJ,OBJ,OBJ,OBJ,OBJ);OBJ __AStringScan_61; /* SCANINT */
extern TUP3 _AStringScan_62(OBJ,OBJ,OBJ,OBJ,OBJ);OBJ __AStringScan_62; /* SCANREAL */
extern TUP3 _AStringScan_63(OBJ,OBJ,OBJ,OBJ,OBJ);OBJ __AStringScan_63; /* SCANSTRING,1 */
extern TUP2 _AStringScan_64(OBJ,OBJ,OBJ);OBJ __AStringScan_64; /* scanString */
extern TUP3 _AStringScan_65(OBJ,OBJ,OBJ,OBJ,OBJ);OBJ __AStringScan_65; /* SCANCHAR */
extern TUP3 _AStringScan_66(OBJ,OBJ,OBJ,OBJ,OBJ);OBJ __AStringScan_66; /* SCANBOOL */
extern TUP2 _AStringScan_67(OBJ,OBJ);OBJ __AStringScan_67; /* scanBool */
extern TUP2 _AStringScan_68(OBJ,OBJ,OBJ,OBJ);OBJ __AStringScan_68; /* cmp */
extern TUP3 _AStringScan_69(OBJ,OBJ,OBJ,OBJ,OBJ);OBJ __AStringScan_69; /* SCANDENOTATION */
extern OBJ _AStringScan_70(OBJ,OBJ,OBJ);OBJ __AStringScan_70; /* scanformat */
extern OBJ _AStringScan_71(OBJ,OBJ);OBJ __AStringScan_71; /* :: */
extern OBJ _AStringScan_72(OBJ,OBJ);OBJ __AStringScan_72; /* - */
extern OBJ _AStringScan_73(OBJ);OBJ __AStringScan_73; /* zero? */
extern OBJ _AStringScan_74(OBJ,OBJ);OBJ __AStringScan_74; /* substringTo */
extern OBJ _AStringScan_75(OBJ,OBJ);OBJ __AStringScan_75; /* substringFrom */
extern OBJ _AStringScan_76(OBJ);OBJ __AStringScan_76; /* nzdigit? */
extern OBJ _AStringScan_77(OBJ);OBJ __AStringScan_77; /* scan,9'77 */
OBJ __AStringScan_78; /* scan,4'78 */
OBJ __AStringScan_79; /* scan,4'79 */
extern OBJ _AStringScan_80(OBJ,OBJ);OBJ __AStringScan_80; /* in,1'80 */
extern OBJ _AStringScan_81(OBJ,OBJ);OBJ __AStringScan_81; /* in,1'81 */
extern OBJ _AStringScan_82(OBJ);OBJ __AStringScan_82; /* scanformat'82 */
extern OBJ _AStringScan_83(OBJ);OBJ __AStringScan_83; /* scanformat'83 */
extern OBJ _AStringScan_84(OBJ);OBJ __AStringScan_84; /* scanBool'84 */
extern OBJ _AStringScan_85(OBJ);OBJ __AStringScan_85; /* scanBool'85 */
extern OBJ _AStringScan_86(OBJ);OBJ __AStringScan_86; /* scanBool'86 */
extern OBJ _AStringScan_87(OBJ);OBJ __AStringScan_87; /* scanBool'87 */
extern OBJ _AStringScan_88(OBJ);OBJ __AStringScan_88; /* scanBool'88 */
extern OBJ _AStringScan_89(OBJ);OBJ __AStringScan_89; /* scanBool'89 */
extern OBJ _AStringScan_90(OBJ);OBJ __AStringScan_90; /* scanBool'90 */
extern OBJ _AStringScan_91(OBJ);OBJ __AStringScan_91; /* scanBool'91 */
extern OBJ _AStringScan_92(OBJ);OBJ __AStringScan_92; /* scanBool'92 */
extern OBJ _AStringScan_93(OBJ);OBJ __AStringScan_93; /* scanBool'93 */
OBJ __AStringScan_94; /* SCANSETFIRST'94 */
OBJ __AStringScan_95; /* SCANSETSECOND'95 */
OBJ __AStringScan_96; /* SCANSETSTART'96 */
OBJ __AStringScan_97; /* SCANSETSTART'97 */
OBJ __AStringScan_98; /* SCANWIDTH'98 */

extern TUP2 _AStringScan_1(OBJ x1) /* scan */
{TUP2 r;
 COPY(x1,1);
 {TUP3 x3;OBJ x6;OBJ x9;
  x3=_AStringScan_60(x1,__AString_6,__AOption_5,__ANat_5);
  if(ISTGPRM(x3.c3,1)){
   x6=__ABUILTIN_3;
  }else{
   x6=__ABUILTIN_5;}
  if(ISTGPRM(x6,1)){
   x9=__ABUILTIN_5;
  }else{
   COPY(x1,1);
   COPY(x3.c2,1);
   {OBJ x7;OBJ x8;
    x7=_AString_39(x3.c2);
    x8=_AString_39(x1);
    ANat_76(x7,x8,x9);}}
  if(ISTGPRM(x9,1)){
   FREE(x3.c2,1);
   r.c1=__AOption_5;r.c2=x1;
  }else{
   r.c2=x3.c2;
   FREE(x1,1);
   PRD1F(1,r.c1);FLD1(r.c1,1)=x3.c1;}}
 return r;}
extern OBJ _AStringScan_1_c(OBJ x1) /* scan */
{OBJ r;
 {TUP2 t=_AStringScan_1(x1);
  PRD1(2,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;}
 return r;}

extern TUP2 _AStringScan_2(OBJ x1) /* scan,1 */
{TUP2 r;
 COPY(x1,1);
 {OBJ x2;OBJ x3;OBJ x4;OBJ x6;OBJ x7;OBJ x8;OBJ x9;OBJ x12;
  x2=_AString_5(x1);
  AChar_15(x2,__APrintableChar_29,x3);
  if(ISTGPRM(x3,1)){
   COPY(x1,1);
   x4=_AString_4(x1);
  }else{
   COPY(x1,1);
   x4=x1;}
  COPY(x4,1);
  {TUP3 t=_AStringScan_60(x4,__AString_6,__AOption_5,__ANat_5);
   x6=t.c1;
   x7=t.c2;
   x8=t.c3;}
  if(ISTGPRM(x8,1)){
   x9=__ABUILTIN_3;
  }else{
   x9=__ABUILTIN_5;}
  if(ISTGPRM(x9,1)){
   FREE(x4,1);
   x12=__ABUILTIN_5;
  }else{
   COPY(x7,1);
   {OBJ x10;OBJ x11;
    x10=_AString_39(x7);
    x11=_AString_39(x4);
    ANat_76(x11,x10,x12);}}
  if(ISTGPRM(x12,1)){
   FREE(x7,1);
   r.c1=__AOption_5;r.c2=x1;
  }else{
   FREE(x1,1);
   {OBJ x13;
    ANatConv_3(x6,x13);
    if(ISTGPRM(x3,1)){
     r.c2=x7;
     {
      PRD1F(1,r.c1);
      AInt_72(x13,FLD1(r.c1,1));}
    }else{
     r.c2=x7;
     PRD1F(1,r.c1);FLD1(r.c1,1)=x13;}}}}
 return r;}
extern OBJ _AStringScan_2_c(OBJ x1) /* scan,1 */
{OBJ r;
 {TUP2 t=_AStringScan_2(x1);
  PRD1(2,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;}
 return r;}

extern TUP2 _AStringScan_3(OBJ x1) /* scan,2 */
{TUP2 r;
 CPPRD(__AReal_2,3);
 r=_AStringScan_40(x1,__AStringScan_36,__AReal_2,__AReal_2,__AReal_2);
 return r;}
extern OBJ _AStringScan_3_c(OBJ x1) /* scan,2 */
{OBJ r;
 {TUP2 t=_AStringScan_3(x1);
  PRD1(2,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;}
 return r;}

extern TUP2 _AStringScan_4(OBJ x1) /* scan,3 */
{TUP2 r;
 COPY(__AString_8,1);
 COPY(x1,1);
 {OBJ x2;
  x2=_AString_47(x1,__AString_8);
  if(ISTGPRM(x2,1)){
   r.c1=__AOption_5;r.c2=x1;
  }else{
   COPY(x1,1);
   {OBJ x3;
    x3=_AString_5(x1);
    PRD1F(1,r.c1);FLD1(r.c1,1)=x3;
    r.c2=_AString_4(x1);}}}
 return r;}
extern OBJ _AStringScan_4_c(OBJ x1) /* scan,3 */
{OBJ r;
 {TUP2 t=_AStringScan_4(x1);
  PRD1(2,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;}
 return r;}

extern TUP2 _AStringScan_5(OBJ x1) /* scan,4 */
{TUP2 r;
 COPY(__AString_8,1);
 COPY(x1,1);
 {OBJ x2;
  x2=_AString_47(x1,__AString_8);
  if(ISTGPRM(x2,1)){
   r.c1=__AOption_5;r.c2=x1;
  }else{
   COPY(x1,2);
   {OBJ x3;OBJ x4;OBJ x5;
    x3=_AString_4(x1);
    x4=_AString_5(x1);
    AChar_15(x4,__APrintableChar_12,x5);
    if(ISTGPRM(x5,1)){
     r.c2=x3;
     FREE(x1,1);
     COPY(__AStringScan_78,1);
     r.c1=__AStringScan_78;
    }else{
     {OBJ x6;
      AChar_15(x4,__APrintableChar_13,x6);
      if(ISTGPRM(x6,1)){
       r.c2=x3;
       FREE(x1,1);
       COPY(__AStringScan_79,1);
       r.c1=__AStringScan_79;
      }else{
       {OBJ x7;
	AChar_15(x4,__APrintableChar_88,x7);
	if(ISTGPRM(x7,1)){
	 FREE(x1,1);
	 COPY(__AStringScan_79,1);
	 r.c2=_AStringScan_42(x3);
	 r.c1=__AStringScan_79;
	}else{
	 {OBJ x9;
	  AChar_15(x4,__APrintableChar_62,x9);
	  if(ISTGPRM(x9,1)){
	   FREE(x1,1);
	   COPY(__AStringScan_79,1);
	   r.c2=_AStringScan_42(x3);
	   r.c1=__AStringScan_79;
	  }else{
	   {OBJ x11;
	    AChar_15(x4,__APrintableChar_74,x11);
	    if(ISTGPRM(x11,1)){
	     FREE(x1,1);
	     COPY(__AStringScan_78,1);
	     r.c2=_AStringScan_43(x3);
	     r.c1=__AStringScan_78;
	    }else{
	     {OBJ x13;
	      AChar_15(x4,__APrintableChar_48,x13);
	      if(ISTGPRM(x13,1)){
	       FREE(x1,1);
	       COPY(__AStringScan_78,1);
	       r.c2=_AStringScan_43(x3);
	       r.c1=__AStringScan_78;
	      }else{
	       FREE(x3,1);
	       r.c1=__AOption_5;r.c2=x1;}}}}}}}}}}}}}}
 return r;}
extern OBJ _AStringScan_5_c(OBJ x1) /* scan,4 */
{OBJ r;
 {TUP2 t=_AStringScan_5(x1);
  PRD1(2,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;}
 return r;}

extern OBJ _AStringScan_6(OBJ x1,OBJ x2) /* scan,5 */
{OBJ r;
 {OBJ x3;TUP3 x6;
  x3=_AString_49(x1);
  x6=_AStringScan_45(x2,x3,__ASeq_6);r=x6.c1;
  FREE(x6.c2,1);
  FREE(x6.c3,1);}
 return r;}

extern TUP2 _AStringScan_7(OBJ x1,OBJ x2) /* scan,6 */
{TUP2 r;
 {OBJ x3;TUP3 x7;
  x3=_AString_49(x1);
  x7=_AStringScan_45(x2,x3,__ASeq_6);r.c1=x7.c1;r.c2=x7.c2;
  FREE(x7.c3,1);}
 return r;}
extern OBJ _AStringScan_7_c(OBJ x1,OBJ x2) /* scan,6 */
{OBJ r;
 {TUP2 t=_AStringScan_7(x1,x2);
  PRD1(2,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;}
 return r;}

extern TUP3 _AStringScan_8(OBJ x1,OBJ x2) /* scan,7 */
{TUP3 r;
 {OBJ x3;TUP3 x7;
  x3=_AString_49(x1);
  x7=_AStringScan_45(x2,x3,__ASeq_6);r.c1=x7.c1;r.c3=x7.c2;
  r.c2=_AStringConv_1(x7.c3);}
 return r;}
extern OBJ _AStringScan_8_c(OBJ x1,OBJ x2) /* scan,7 */
{OBJ r;
 {TUP3 t=_AStringScan_8(x1,x2);
  PRD1(3,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;
  FLD1(r,3)=t.c3;}
 return r;}

extern OBJ _AStringScan_9(OBJ x1,OBJ x2) /* scan,8 */
{OBJ r;
 {OBJ x3;TUP3 x5;OBJ x11;OBJ x15;
  x3=_AString_49(x1);
  x5=_AStringScan_45(x2,x3,__ASeq_6);
  if(ISPRM(x5.c2)){
   x11=__ABUILTIN_5;
  }else{
   if(EXPRD(x5.c2,1)){
    DSPRD(x5.c2);
   }else{
    DCPRD(x5.c2,1);}
   x11=__ABUILTIN_3;}
  if(ISTGPRM(x11,1)){
   if(ISPRM(x5.c3)){
    x15=__ABUILTIN_5;
   }else{
    if(EXPRD(x5.c3,1)){
     DSPRD(x5.c3);
    }else{
     DCPRD(x5.c3,1);}
    x15=__ABUILTIN_3;}
  }else{
   FREE(x5.c3,1);
   x15=__ABUILTIN_3;}
  if(ISTGPRM(x15,1)){
   PRD1(1,r);FLD1(r,1)=x5.c1;
  }else{
   FREE(x5.c1,1);
   r=__AOption_5;}}
 return r;}

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

extern OBJ _AStringScan_12(OBJ x1) /* range? */
{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{
  if(EXPRD(x1,1)){
   FREE(FLD(x1,1),1);DSPRDF(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_3;}
 return r;}

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

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

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

extern OBJ _AStringScan_18(OBJ x1,OBJ x2) /* set */
{OBJ r;
 PRDF(2,1,r);FLD(r,1)=x1;FLD(r,2)=x2;
 return r;}

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

extern OBJ _AStringScan_20(OBJ x1) /* to */
{OBJ r;
 if(ISTGPRD(x1,1)){
  {OBJ x3=FLD(x1,2);
   if(EXPRD(x1,1)){
    r=x3;
    DSPRDF(x1);
   }else{
    r=x3;
    FRPRD(x1,1);}}
 }else{
  HLT("StringScan at <301,33-34> : undefined selection to\'StringScan:subrange->char");}
 return r;}

extern OBJ _AStringScan_21(OBJ x1) /* from */
{OBJ r;
 if(ISTGPRD(x1,1)){
  {OBJ x2=FLD(x1,1);
   if(EXPRD(x1,1)){
    r=x2;
    DSPRDF(x1);
   }else{
    r=x2;
    FRPRD(x1,1);}}
 }else{
  HLT("StringScan at <301,21-24> : undefined selection from\'StringScan:subrange->char");}
 return r;}

extern OBJ _AStringScan_22(OBJ x1) /* single */
{OBJ r;
 PRDF(1,0,r);FLD(r,1)=x1;
 return r;}

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

extern OBJ _AStringScan_24(OBJ x1) /* char */
{OBJ r;
 if(ISTGPRD(x1,0)){
  {OBJ x2=FLD(x1,1);
   if(EXPRD(x1,1)){
    r=x2;
    DSPRDF(x1);
   }else{
    r=x2;
    FRPRD(x1,1);}}
 }else{
  HLT("StringScan at <300,25-28> : undefined selection char\'StringScan:subrange->char");}
 return r;}

extern OBJ _AStringScan_27(OBJ x1) /* Rexp_-? */
{OBJ r;
 if(ISTGPRM(x1,5)){
  r=__ABUILTIN_5;
 }else{
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AStringScan_29(OBJ x1) /* Rexp_+? */
{OBJ r;
 if(ISTGPRM(x1,4)){
  r=__ABUILTIN_5;
 }else{
  r=__ABUILTIN_3;}
 return r;}

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

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

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

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

extern TUP2 _AStringScan_38(register OBJ x1,register OBJ x2) /* normalisiert */
{TUP2 r;
 for(;;){
  CPPRD(__AReal_12,1);
  CPPRD(x1,1);
  {OBJ x3;OBJ x4;
   AReal_94(x1,__AReal_12,x3);
   if(ISTGPRM(x3,1)){
    CPPRD(x1,1);
    CPPRD(__AReal_3,1);
    AReal_93(x1,__AReal_3,x4);
   }else{
    x4=__ABUILTIN_3;}
   if(ISTGPRM(x4,1)){
    r.c1=x1;r.c2=x2;
   }else{
    CPPRD(x1,1);
    CPPRD(__AReal_12,1);
    {OBJ x5;
     AReal_93(x1,__AReal_12,x5);
     if(ISTGPRM(x5,1)){
      CPPRD(__AReal_12,1);
      {OBJ x6;OBJ x7;
       AReal_62(x1,__AReal_12,x6);
       AInt_56(x2,__AInt_3,x7);
       x1=x6;x2=x7;continue;}
     }else{
      CPPRD(x1,1);
      CPPRD(__AReal_3,1);
      {OBJ x8;
       AReal_94(x1,__AReal_3,x8);
       if(ISTGPRM(x8,1)){
	CPPRD(__AReal_12,1);
	{OBJ x9;OBJ x10;
	 AReal_61(x1,__AReal_12,x9);
	 AInt_57(x2,__AInt_3,x10);
	 x1=x9;x2=x10;continue;}
       }else{
	HLT("StringScan at <40,8-42,43> : missing else in normalisiert\'StringScan:real**int->real**int");}}}}}}
  break;}
 return r;}
extern OBJ _AStringScan_38_c(OBJ x1,OBJ x2) /* normalisiert */
{OBJ r;
 {TUP2 t=_AStringScan_38(x1,x2);
  PRD1(2,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;}
 return r;}

extern OBJ _AStringScan_39(OBJ x1,OBJ x2) /* gebr */
{OBJ r;
 CPPRD(__AReal_2,1);
 CPPRD(x1,1);
 {OBJ x3;OBJ x4;
  AReal_92(__AReal_2,x1,x3);
  if(ISTGPRM(x3,1)){
   x4=__ABUILTIN_5;
  }else{
   ANat_79(x2,__ANat_23,x4);}
  if(ISTGPRM(x4,1)){
   FRPRD(x1,1);
   COPY(__AString_8,1);
   r=__AString_8;
  }else{
   CPPRD(__AReal_12,1);
   {OBJ x5;OBJ x6;OBJ x7;OBJ x8;OBJ x9;OBJ x10;OBJ x11;OBJ x12;
    AReal_61(__AReal_12,x1,x5);
    CPPRD(x5,2);
    ANat_2(x2,x6);
    ARealConv_5(x5,x7);
    AReal_74(x5,x8);
    ANatConv_1(x7,x9);
    AReal_60(x5,x8,x10);
    x11=_AString_49(x9);
    x12=_AStringScan_39(x10,x6);
    r=_AString_24(x11,x12);}}}
 return r;}

extern TUP2 _AStringScan_40(register OBJ x1,register OBJ x2,register OBJ x3,register OBJ x4,register OBJ x5) /* scan,9 */
{TUP2 r;
 for(;;){
  if(ISPRM(x1)){
   switch(TGPRM(x2)){
    case 1:case 2:case 3:
     FRPRD(x5,1);
     {OBJ x332;
      AReal_61(x3,x4,x332);
      PRD1(1,r.c1);FLD1(r.c1,1)=x332;
      r.c2=__AString_6;}break;
    case 4:
     CPPRD(__AReal_3,1);
     {OBJ x338;OBJ x339;
      AReal_61(x3,x4,x338);
      x339=_AStringScan_41(x338,x5,__AReal_3);
      PRD1(1,r.c1);FLD1(r.c1,1)=x339;
      r.c2=__AString_6;}break;
    case 5:
     CPCLS(__AStringScan_77,1);
     {OBJ x341;OBJ x342;OBJ x343;
      x341=(*(OBJ(*)(OBJ,OBJ))METHOD(__AStringScan_77,1))(__AStringScan_77,__ABUILTIN_20);
      AReal_61(x3,x4,x342);
      x343=_AStringScan_41(x342,x5,x341);
      PRD1(1,r.c1);FLD1(r.c1,1)=x343;
      r.c2=__AString_6;}break;
    default: 
     FRPRD(x3,1);
     FRPRD(x4,1);
     FRPRD(x5,1);
     r.c1=__AOption_5;r.c2=__AString_6;}
  }else{
   CPPRD(x1,1);
   {OBJ x348;OBJ x349;
    x348=_AString_4(x1);
    x349=_AString_5(x1);
    switch(TGPRM(x2)){
     case 1:
      {OBJ x355;
       AChar_25(x349,x355);
       if(ISTGPRM(x355,1)){
	CPPRD(__AReal_12,1);
	{OBJ x356;OBJ x357;OBJ x358;OBJ x359;
	 AReal_61(__AReal_12,x3,x356);
	 ACharConv_3(x349,x357);
	 ANatConv_4(x357,x358);
	 AReal_59(x356,x358,x359);
	 x1=x348;x2=__AStringScan_34;x3=x359;continue;}
       }else{
	FRPRD(x5,1);
	{OBJ x360;
	 AChar_15(x349,__APrintableChar_8,x360);
	 if(ISTGPRM(x360,1)){
	  CPPRD(__AReal_3,1);
	  x1=x348;x2=__AStringScan_32;x5=__AReal_3;continue;
	 }else{
	  {OBJ x361;
	   AChar_15(x349,__APrintableChar_73,x361);
	   if(ISTGPRM(x361,1)){
	    CPPRD(__AReal_3,1);
	    x1=x348;x2=__AStringScan_30;x5=__AReal_3;continue;
	   }else{
	    {OBJ x362;
	     AReal_61(x3,x4,x362);
	     PRD1(1,r.c1);FLD1(r.c1,1)=x362;
	     r.c2=_AString_2(x349,x348);}}}}}}}break;
     case 2:
      {OBJ x365;
       AChar_25(x349,x365);
       if(ISTGPRM(x365,1)){
	CPPRD(__AReal_12,1);
	{OBJ x366;OBJ x367;OBJ x368;OBJ x369;OBJ x370;
	 AReal_62(x5,__AReal_12,x366);
	 CPPRD(x366,1);
	 ACharConv_3(x349,x367);
	 ANatConv_4(x367,x368);
	 AReal_61(x366,x368,x369);
	 AReal_59(x3,x369,x370);
	 x1=x348;x2=__AStringScan_32;x3=x370;x5=x366;continue;}
       }else{
	FRPRD(x5,1);
	{OBJ x371;
	 AChar_15(x349,__APrintableChar_73,x371);
	 if(ISTGPRM(x371,1)){
	  CPPRD(__AReal_3,1);
	  x1=x348;x2=__AStringScan_30;x5=__AReal_3;continue;
	 }else{
	  {OBJ x372;
	   AReal_61(x3,x4,x372);
	   PRD1(1,r.c1);FLD1(r.c1,1)=x372;
	   r.c2=_AString_2(x349,x348);}}}}}break;
     case 3:
      FRPRD(x5,1);
      {OBJ x375;
       AChar_15(x349,__APrintableChar_28,x375);
       if(ISTGPRM(x375,1)){
	CPPRD(__AReal_2,1);
	x1=x348;x2=__AStringScan_28;x5=__AReal_2;continue;
       }else{
	{OBJ x376;
	 AChar_15(x349,__APrintableChar_29,x376);
	 if(ISTGPRM(x376,1)){
	  CPPRD(__AReal_2,1);
	  x1=x348;x2=__AStringScan_26;x5=__AReal_2;continue;
	 }else{
	  {OBJ x377;OBJ x378;
	   x377=_AString_2(x349,x348);
	   AChar_25(x349,x378);
	   if(ISTGPRM(x378,1)){
	    CPPRD(__AReal_2,1);
	    x1=x377;x2=__AStringScan_28;x5=__AReal_2;continue;
	   }else{
	    r.c2=x377;
	    {
	     PRD1(1,r.c1);
	     AReal_61(x3,x4,FLD1(r.c1,1));}}}}}}}break;
     case 4:
      {OBJ x381;
       AChar_25(x349,x381);
       if(ISTGPRM(x381,1)){
	CPPRD(__AReal_12,1);
	{OBJ x382;OBJ x383;OBJ x384;OBJ x385;
	 AReal_61(__AReal_12,x5,x382);
	 ACharConv_3(x349,x383);
	 ANatConv_4(x383,x384);
	 AReal_59(x382,x384,x385);
	 x1=x348;x2=__AStringScan_28;x5=x385;continue;}
       }else{
	CPPRD(__AReal_3,1);
	{OBJ x386;OBJ x387;
	 AReal_61(x3,x4,x386);
	 x387=_AStringScan_41(x386,x5,__AReal_3);
	 PRD1(1,r.c1);FLD1(r.c1,1)=x387;
	 r.c2=_AString_2(x349,x348);}}}break;
     case 5:
      {OBJ x390;
       AChar_25(x349,x390);
       if(ISTGPRM(x390,1)){
	CPPRD(__AReal_12,1);
	{OBJ x391;OBJ x392;OBJ x393;OBJ x394;
	 AReal_61(__AReal_12,x5,x391);
	 ACharConv_3(x349,x392);
	 ANatConv_4(x392,x393);
	 AReal_59(x391,x393,x394);
	 x1=x348;x2=__AStringScan_26;x5=x394;continue;}
       }else{
	CPCLS(__AStringScan_77,1);
	{OBJ x395;OBJ x396;
	 x395=(*(OBJ(*)(OBJ,OBJ))METHOD(__AStringScan_77,1))(__AStringScan_77,__ABUILTIN_20);
	 AReal_61(x3,x4,x396);
	 r.c2=_AString_2(x349,x348);
	 PRD1(1,r.c1);
	 FLD1(r.c1,1)=_AStringScan_41(x396,x5,x395);}}}break;
     default: 
      FRPRD(x4,1);
      {OBJ x350;
       AChar_15(x349,__APrintableChar_28,x350);
       if(ISTGPRM(x350,1)){
	CPPRD(__AReal_3,1);
	x1=x348;x2=__AStringScan_34;x4=__AReal_3;continue;
       }else{
	{OBJ x351;
	 AChar_15(x349,__APrintableChar_29,x351);
	 if(ISTGPRM(x351,1)){
	  CPCLS(__AStringScan_77,1);
	  {OBJ x352;
	   x352=(*(OBJ(*)(OBJ,OBJ))METHOD(__AStringScan_77,1))(__AStringScan_77,__ABUILTIN_20);
	   x1=x348;x2=__AStringScan_34;x4=x352;continue;}
	 }else{
	  {OBJ x353;OBJ x354;
	   AChar_25(x349,x353);
	   x354=_AString_2(x349,x348);
	   if(ISTGPRM(x353,1)){
	    CPPRD(__AReal_3,1);
	    x1=x354;x2=__AStringScan_34;x4=__AReal_3;continue;
	   }else{
	    r.c2=x354;
	    FRPRD(x3,1);
	    FRPRD(x5,1);
	    r.c1=__AOption_5;}}}}}}}}}
  break;}
 return r;}
extern OBJ _AStringScan_40_c(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5) /* scan,9 */
{OBJ r;
 {TUP2 t=_AStringScan_40(x1,x2,x3,x4,x5);
  PRD1(2,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;}
 return r;}

extern OBJ _AStringScan_41(register OBJ x1,register OBJ x2,register OBJ x3) /* scale */
{OBJ r;
 for(;;){
  CPPRD(__AReal_2,1);
  CPPRD(x2,1);
  {OBJ x4;
   AReal_91(x2,__AReal_2,x4);
   if(ISTGPRM(x4,1)){
    FRPRD(x2,1);
    FRPRD(x3,1);
    r=x1;
   }else{
    CPPRD(x3,1);
    CPPRD(__AReal_2,1);
    {OBJ x5;
     AReal_94(x3,__AReal_2,x5);
     if(ISTGPRM(x5,1)){
      CPPRD(__AReal_3,1);
      CPPRD(__AReal_12,1);
      {OBJ x6;OBJ x7;
       AReal_62(x1,__AReal_12,x6);
       AReal_60(x2,__AReal_3,x7);
       x1=x6;x2=x7;continue;}
     }else{
      CPPRD(x3,1);
      CPPRD(__AReal_2,1);
      {OBJ x8;
       AReal_95(x3,__AReal_2,x8);
       if(ISTGPRM(x8,1)){
	CPPRD(__AReal_3,1);
	CPPRD(__AReal_12,1);
	{OBJ x9;OBJ x10;
	 AReal_60(x2,__AReal_3,x9);
	 AReal_61(x1,__AReal_12,x10);
	 x1=x10;x2=x9;continue;}
       }else{
	HLT("StringScan at <144,29-145,67> : missing else in scale\'StringScan:real**real**real->real");}}}}}}
  break;}
 return r;}

extern OBJ _AStringScan_42(OBJ x1) /* scantrue */
{OBJ r;
 {TUP2 x16;TUP2 x19;TUP2 x22;
  x16=_AStringScan_44(__APrintableChar_86,__APrintableChar_60,__ABUILTIN_5,x1);
  x19=_AStringScan_44(__APrintableChar_89,__APrintableChar_63,x16.c1,x16.c2);
  x22=_AStringScan_44(__APrintableChar_73,__APrintableChar_47,x19.c1,x19.c2);r=x22.c2;}
 return r;}

extern OBJ _AStringScan_43(OBJ x1) /* scanfalse */
{OBJ r;
 {TUP2 x27;TUP2 x30;TUP2 x33;TUP2 x36;
  x27=_AStringScan_44(__APrintableChar_69,__APrintableChar_43,__ABUILTIN_5,x1);
  x30=_AStringScan_44(__APrintableChar_80,__APrintableChar_54,x27.c1,x27.c2);
  x33=_AStringScan_44(__APrintableChar_87,__APrintableChar_61,x30.c1,x30.c2);
  x36=_AStringScan_44(__APrintableChar_73,__APrintableChar_47,x33.c1,x33.c2);r=x36.c2;}
 return r;}

extern TUP2 _AStringScan_44(OBJ x1,OBJ x2,OBJ x3,OBJ x4) /* drop */
{TUP2 r;
 if(ISTGPRM(x3,1)){
  if(ISPRM(x4)){
   r.c1=__ABUILTIN_3;r.c2=__AString_6;
  }else{
   CPPRD(x4,1);
   {OBJ x21;OBJ x22;OBJ x23;
    x21=_AString_4(x4);
    x22=_AString_5(x4);
    AChar_15(x1,x22,x23);
    if(ISTGPRM(x23,1)){
     r.c2=x21;
     r.c1=__ABUILTIN_5;
    }else{
     {OBJ x24;
      AChar_15(x2,x22,x24);
      if(ISTGPRM(x24,1)){
       r.c2=x21;
       r.c1=__ABUILTIN_5;
      }else{
       r.c2=_AString_2(x22,x21);
       r.c1=__ABUILTIN_3;}}}}}
 }else{
  r.c1=__ABUILTIN_3;r.c2=x4;}
 return r;}
extern OBJ _AStringScan_44_c(OBJ x1,OBJ x2,OBJ x3,OBJ x4) /* drop */
{OBJ r;
 {TUP2 t=_AStringScan_44(x1,x2,x3,x4);
  PRD1(2,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;}
 return r;}

extern TUP3 _AStringScan_45(register OBJ x1,register OBJ x2,register OBJ x3) /* SCANSTRING */
{TUP3 r;
 for(;;){
  if(ISPRM(x2)){
   COPY(__AString_8,1);
   r.c1=x3;r.c2=x1;r.c3=__AString_8;
  }else{
   COPY(x1,1);
   CPPRD(x2,1);
   CPCLS(__AChar_27,1);
   {OBJ x37;OBJ x38;OBJ x39;OBJ x40;
    x37=_AStringFilter_4(__AChar_27,x1);
    x38=_AString_4(x2);
    x39=_AString_5(x2);
    AChar_27(x39,x40);
    if(ISTGPRM(x40,1)){
     FREE(x37,1);
     x2=x38;continue;
    }else{
     {OBJ x41;
      AChar_15(x39,__APrintableChar_25,x41);
      if(ISTGPRM(x41,1)){
       FREE(x37,1);
       r=_AStringScan_46(x1,x38,x3);
      }else{
       if(ISPRM(x37)){
	r.c3=_AString_2(x39,x38);
	r.c1=x3;r.c2=x1;
       }else{
	FREE(x1,1);
	CPPRD(x37,1);
	{OBJ x46;OBJ x47;
	 x46=_AString_5(x37);
	 AChar_15(x39,x46,x47);
	 if(ISTGPRM(x47,1)){
	  {OBJ x48;
	   x48=_AString_4(x37);
	   x1=x48;x2=x38;continue;}
	 }else{
	  r.c2=x37;
	  r.c3=_AString_2(x39,x38);
	  r.c1=x3;}}}}}}}}
  break;}
 return r;}
extern OBJ _AStringScan_45_c(OBJ x1,OBJ x2,OBJ x3) /* SCANSTRING */
{OBJ r;
 {TUP3 t=_AStringScan_45(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 _AStringScan_46(OBJ x1,OBJ x2,OBJ x3) /* SCAN */
{TUP3 r;
 if(ISPRM(x2)){
  HLT("scanStringScan: no single % at end of format string allowed");
 }else{
  CPPRD(x2,1);
  {OBJ x37;OBJ x38;OBJ x39;
   x37=_AString_4(x2);
   x38=_AString_5(x2);
   AChar_15(x38,__APrintableChar_25,x39);
   if(ISTGPRM(x39,1)){
    if(ISPRM(x1)){
     r.c3=_AString_2(x38,x37);
     r.c1=x3;r.c2=x1;
    }else{
     CPPRD(x1,2);
     {OBJ x44;OBJ x45;OBJ x46;
      x44=_AString_4(x1);
      x45=_AString_5(x1);
      AChar_15(x45,__APrintableChar_25,x46);
      if(ISTGPRM(x46,1)){
       if(EXPRD(x1,1)){
	DSPRD(x1);
       }else{
	DCPRD(x1,1);}
       r=_AStringScan_45(x44,x37,x3);
      }else{
       FREE(x44,1);
       r.c3=_AString_2(x38,x37);
       r.c1=x3;r.c2=x1;}}}
   }else{
    {OBJ x48;
     AChar_15(x38,__APrintableChar_27,x48);
     if(ISTGPRM(x48,1)){
      r=_AStringScan_47(x1,x37,x3,__ABUILTIN_3,__ANat_5);
     }else{
      {OBJ x49;
       x49=_AString_2(x38,x37);
       r=_AStringScan_47(x1,x49,x3,__ABUILTIN_5,__ANat_5);}}}}}}
 return r;}
extern OBJ _AStringScan_46_c(OBJ x1,OBJ x2,OBJ x3) /* SCAN */
{OBJ r;
 {TUP3 t=_AStringScan_46(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 _AStringScan_47(register OBJ x1,register OBJ x2,register OBJ x3,register OBJ x4,register OBJ x5) /* SCANWIDTH */
{TUP3 r;
 for(;;){
  if(ISPRM(x2)){
   COPY(__AString_8,1);
   r.c1=x3;r.c2=x1;r.c3=__AString_8;
  }else{
   CPPRD(x2,1);
   {OBJ x30;OBJ x31;OBJ x32;
    ANat_76(x5,__ANat_5,x30);
    x31=_AString_4(x2);
    x32=_AString_5(x2);
    if(ISTGPRM(x30,1)){
     {OBJ x33;
      AChar_15(x32,__APrintableChar_12,x33);
      if(ISTGPRM(x33,1)){
       COPY(__AStringScan_98,1);
       r=_AStringScan_48(x1,x31,x3,x4,__AStringScan_98);
      }else{
       {OBJ x34;
	x34=_AStringScan_76(x32);
	if(ISTGPRM(x34,1)){
	 {OBJ x35;
	  ACharConv_3(x32,x35);
	  x2=x31;x5=x35;continue;}
	}else{
	 {OBJ x36;
	  x36=_AString_2(x32,x31);
	  r=_AStringScan_48(x1,x36,x3,x4,__AOption_5);}}}}}
    }else{
     {OBJ x37;
      AChar_25(x32,x37);
      if(ISTGPRM(x37,1)){
       {OBJ x38;OBJ x39;OBJ x40;
	ANat_63(__ANat_17,x5,x38);
	ACharConv_3(x32,x39);
	ANat_61(x38,x39,x40);
	x2=x31;x5=x40;continue;}
      }else{
       {OBJ x41;OBJ x42;
	PRD1F(1,x41);FLD1(x41,1)=x5;
	x42=_AString_2(x32,x31);
	r=_AStringScan_48(x1,x42,x3,x4,x41);}}}}}}
  break;}
 return r;}
extern OBJ _AStringScan_47_c(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5) /* SCANWIDTH */
{OBJ r;
 {TUP3 t=_AStringScan_47(x1,x2,x3,x4,x5);
  PRD1(3,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;
  FLD1(r,3)=t.c3;}
 return r;}

extern TUP3 _AStringScan_48(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5) /* SCANITEM */
{TUP3 r;
 if(ISPRM(x2)){
  HLT("scanStringScan: no data type designator");
 }else{
  CPPRD(x2,1);
  {OBJ x27;OBJ x28;OBJ x29;
   x27=_AString_4(x2);
   x28=_AString_5(x2);
   AChar_15(x28,__APrintableChar_6,x29);
   if(ISTGPRM(x29,1)){
    r=_AStringScan_52(x1,x27,x3,x4,x5);
   }else{
    {OBJ x30;
     AChar_15(x28,__APrintableChar_82,x30);
     if(ISTGPRM(x30,1)){
      r=_AStringScan_58(x1,x27,x3,x4,x5);
     }else{
      {OBJ x31;
       AChar_15(x28,__APrintableChar_77,x31);
       if(ISTGPRM(x31,1)){
	r=_AStringScan_61(x1,x27,x3,x4,x5);
       }else{
	{OBJ x32;
	 AChar_15(x28,__APrintableChar_86,x32);
	 if(ISTGPRM(x32,1)){
	  r=_AStringScan_62(x1,x27,x3,x4,x5);
	 }else{
	  {OBJ x33;
	   AChar_15(x28,__APrintableChar_87,x33);
	   if(ISTGPRM(x33,1)){
	    r=_AStringScan_63(x1,x27,x3,x4,x5);
	   }else{
	    {OBJ x34;
	     AChar_15(x28,__APrintableChar_71,x34);
	     if(ISTGPRM(x34,1)){
	      r=_AStringScan_65(x1,x27,x3,x4,x5);
	     }else{
	      {OBJ x35;
	       AChar_15(x28,__APrintableChar_70,x35);
	       if(ISTGPRM(x35,1)){
		r=_AStringScan_66(x1,x27,x3,x4,x5);
	       }else{
		{OBJ x36;
		 AChar_15(x28,__APrintableChar_72,x36);
		 if(ISTGPRM(x36,1)){
		  r=_AStringScan_69(x1,x27,x3,x4,x5);
		 }else{
		  HLT("scanStringScan: no data type designator");}}}}}}}}}}}}}}}}}
 return r;}
extern OBJ _AStringScan_48_c(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5) /* SCANITEM */
{OBJ r;
 {TUP3 t=_AStringScan_48(x1,x2,x3,x4,x5);
  PRD1(3,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;
  FLD1(r,3)=t.c3;}
 return r;}

extern OBJ _AStringScan_49(OBJ x1,OBJ x2) /* in */
{OBJ r;
 if(ISTGPRD(x2,0)){
  {OBJ x36=FLD(x2,1);
   if(EXPRD(x2,1)){
    DSPRDF(x2);
   }else{
    FRPRD(x2,1);}
   AChar_15(x1,x36,r);}
 }else{
  {OBJ x37=FLD(x2,1);OBJ x38=FLD(x2,2);
   if(EXPRD(x2,1)){
    DSPRDF(x2);
   }else{
    FRPRD(x2,1);}
   {OBJ x40;
    AChar_14(x37,x1,x40);
    if(ISTGPRM(x40,1)){
     AChar_14(x1,x38,r);
    }else{
     r=__ABUILTIN_3;}}}}
 return r;}

extern OBJ _AStringScan_50(OBJ x1,OBJ x2) /* in,1 */
{OBJ r;
 if(ISTGPRD(x2,0)){
  {OBJ x15=FLD(x2,1);
   if(EXPRD(x2,1)){
    DSPRDF(x2);
   }else{
    COPY(x15,1);
    FRPRD(x2,1);}
   CPCLS(__AStringScan_80,1);
   {OBJ x16;OBJ x17;
    x16=(*(OBJ(*)(OBJ,OBJ))METHOD(__AStringScan_80,1))(__AStringScan_80,x1);
    x17=_ASeq_40(x16,x15);
    if(ISTGPRM(x17,1)){
     r=__ABUILTIN_3;
    }else{
     r=__ABUILTIN_5;}}}
 }else{
  {OBJ x18=FLD(x2,1);
   if(EXPRD(x2,1)){
    DSPRDF(x2);
   }else{
    COPY(x18,1);
    FRPRD(x2,1);}
   CPCLS(__AStringScan_81,1);
   {OBJ x19;
    x19=(*(OBJ(*)(OBJ,OBJ))METHOD(__AStringScan_81,1))(__AStringScan_81,x1);
    r=_ASeq_40(x19,x18);}}}
 return r;}

extern OBJ _AStringScan_51(OBJ x1,OBJ x2) /* :>: */
{OBJ r;
 if(ISTGPRD(x2,0)){
  {OBJ x14=FLD(x2,1);
   if(EXPRD(x2,1)){
    {OBJ x15;
     PRD1(2,x15);FLD1(x15,1)=x1;FLD1(x15,2)=x14;
     RPRD(x2,r);FLD(r,1)=x15;}
   }else{
    COPY(x14,1);
    {OBJ x15;
     PRD1(2,x15);FLD1(x15,1)=x1;FLD1(x15,2)=x14;
     FRPRD(x2,1);PRD(1,0,r);FLD(r,1)=x15;}}}
 }else{
  {OBJ x16=FLD(x2,1);
   if(EXPRD(x2,1)){
    {OBJ x17;
     PRD1(2,x17);FLD1(x17,1)=x1;FLD1(x17,2)=x16;
     RPRD(x2,r);FLD(r,1)=x17;}
   }else{
    COPY(x16,1);
    {OBJ x17;
     PRD1(2,x17);FLD1(x17,1)=x1;FLD1(x17,2)=x16;
     FRPRD(x2,1);PRD(1,1,r);FLD(r,1)=x17;}}}}
 return r;}

extern TUP3 _AStringScan_52(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5) /* SCANSETSTART */
{TUP3 r;
 if(ISPRM(x2)){
  HLT("scanStringScan: unterminated range");
 }else{
  CPPRD(x2,1);
  {OBJ x21;OBJ x22;OBJ x23;
   x21=_AString_4(x2);
   x22=_AString_5(x2);
   AChar_15(x22,__APrintableChar_39,x23);
   if(ISTGPRM(x23,1)){
    CPPRD(__AStringScan_96,1);
    r=_AStringScan_53(x1,x21,x3,x4,x5,__AStringScan_96);
   }else{
    CPPRD(__AStringScan_97,1);
    {OBJ x24;
     x24=_AString_2(x22,x21);
     r=_AStringScan_53(x1,x24,x3,x4,x5,__AStringScan_97);}}}}
 return r;}
extern OBJ _AStringScan_52_c(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5) /* SCANSETSTART */
{OBJ r;
 {TUP3 t=_AStringScan_52(x1,x2,x3,x4,x5);
  PRD1(3,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;
  FLD1(r,3)=t.c3;}
 return r;}

extern TUP3 _AStringScan_53(register OBJ x1,register OBJ x2,register OBJ x3,register OBJ x4,register OBJ x5,register OBJ x6) /* SCANSETFIRST */
{TUP3 r;
 for(;;){
  if(ISPRM(x2)){
   HLT("scanStringScan: unterminated range");
  }else{
   CPPRD(x2,1);
   {OBJ x31;OBJ x32;OBJ x33;
    x31=_AString_4(x2);
    x32=_AString_5(x2);
    AChar_15(x32,__APrintableChar_7,x33);
    if(ISTGPRM(x33,1)){
     {OBJ x36;
      {OBJ x34=FLD(x6,1);
       COPY(x34,1);
       x36=x34;}
      if(ISPRM(x36)){
       CPPRD(__AStringScan_94,1);
       {OBJ x37;
	x37=_AStringScan_51(__AStringScan_94,x6);
	x2=x31;x6=x37;continue;}
      }else{
       if(EXPRD(x36,1)){
	DSPRD(x36);
       }else{
	DCPRD(x36,1);}
       r=_AStringScan_56(x1,x31,x3,x4,x5,x6);}}
    }else{
     r=_AStringScan_54(x1,x31,x3,x4,x5,x6,x32);}}}
  break;}
 return r;}
extern OBJ _AStringScan_53_c(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5,OBJ x6) /* SCANSETFIRST */
{OBJ r;
 {TUP3 t=_AStringScan_53(x1,x2,x3,x4,x5,x6);
  PRD1(3,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;
  FLD1(r,3)=t.c3;}
 return r;}

extern TUP3 _AStringScan_54(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5,OBJ x6,OBJ x7) /* SCANSETRANGE */
{TUP3 r;
 if(ISPRM(x2)){
  HLT("scanStringScan: unterminated range");
 }else{
  CPPRD(x2,1);
  {OBJ x25;OBJ x26;OBJ x27;
   x25=_AString_4(x2);
   x26=_AString_5(x2);
   AChar_15(x26,__APrintableChar_29,x27);
   if(ISTGPRM(x27,1)){
    r=_AStringScan_55(x1,x25,x3,x4,x5,x6,x7);
   }else{
    {OBJ x28;OBJ x29;OBJ x30;
     PRDF(1,0,x28);FLD(x28,1)=x7;
     x29=_AStringScan_51(x28,x6);
     x30=_AString_2(x26,x25);
     r=_AStringScan_53(x1,x30,x3,x4,x5,x29);}}}}
 return r;}
extern OBJ _AStringScan_54_c(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5,OBJ x6,OBJ x7) /* SCANSETRANGE */
{OBJ r;
 {TUP3 t=_AStringScan_54(x1,x2,x3,x4,x5,x6,x7);
  PRD1(3,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;
  FLD1(r,3)=t.c3;}
 return r;}

extern TUP3 _AStringScan_55(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5,OBJ x6,OBJ x7) /* SCANSETSECOND */
{TUP3 r;
 if(ISPRM(x2)){
  HLT("scanStringScan: unterminated range");
 }else{
  CPPRD(x2,1);
  {OBJ x27;OBJ x28;OBJ x29;
   x27=_AString_4(x2);
   x28=_AString_5(x2);
   AChar_15(x28,__APrintableChar_7,x29);
   if(ISTGPRM(x29,1)){
    CPPRD(__AStringScan_95,1);
    {OBJ x30;OBJ x31;OBJ x32;
     PRDF(1,0,x30);FLD(x30,1)=x7;
     x31=_AStringScan_51(__AStringScan_95,x6);
     x32=_AStringScan_51(x30,x31);
     r=_AStringScan_56(x1,x27,x3,x4,x5,x32);}
   }else{
    {OBJ x33;OBJ x34;
     PRDF(2,1,x33);FLD(x33,1)=x7;FLD(x33,2)=x28;
     x34=_AStringScan_51(x33,x6);
     r=_AStringScan_53(x1,x27,x3,x4,x5,x34);}}}}
 return r;}
extern OBJ _AStringScan_55_c(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5,OBJ x6,OBJ x7) /* SCANSETSECOND */
{OBJ r;
 {TUP3 t=_AStringScan_55(x1,x2,x3,x4,x5,x6,x7);
  PRD1(3,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;
  FLD1(r,3)=t.c3;}
 return r;}

extern TUP3 _AStringScan_56(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5,OBJ x6) /* SCANSET */
{TUP3 r;
 COPY(__AString_8,1);
 {TUP2 x8;
  x8=_AStringScan_57(x1,x5,x6,__AString_8);
  if(ISTGPRM(x4,1)){
   {OBJ x10;OBJ x11;OBJ x12;OBJ x13;
    x10=_AStringConv_1(x8.c1);
    PRD(1,6,x11);FLD(x11,1)=x10;
    PRD1(2,x12);FLD1(x12,1)=x11;FLD1(x12,2)=__ASeq_6;
    x13=_ASeq_26(x3,x12);
    r=_AStringScan_45(x8.c2,x2,x13);}
  }else{
   FREE(x8.c1,1);
   r=_AStringScan_45(x8.c2,x2,x3);}}
 return r;}
extern OBJ _AStringScan_56_c(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5,OBJ x6) /* SCANSET */
{OBJ r;
 {TUP3 t=_AStringScan_56(x1,x2,x3,x4,x5,x6);
  PRD1(3,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;
  FLD1(r,3)=t.c3;}
 return r;}

extern TUP2 _AStringScan_57(register OBJ x1,register OBJ x2,register OBJ x3,register OBJ x4) /* scanSet */
{TUP2 r;
 for(;;){
  if(ISPRM(x1)){
   FREE(x2,1);
   FRPRD(x3,1);
   r.c1=x4;r.c2=__AString_6;
  }else{
   CPPRD(x1,1);
   {OBJ x26;OBJ x27;OBJ x29;
    x26=_AString_4(x1);
    x27=_AString_5(x1);
    if(ISPRM(x2)){
     x29=__ABUILTIN_3;
    }else{
     {OBJ x28=FLD1(x2,1);
      ANat_76(x28,__ANat_5,x29);}}
    if(ISTGPRM(x29,1)){
     FREE(x2,1);
     FRPRD(x3,1);
     r.c2=_AString_2(x27,x26);
     r.c1=x4;
    }else{
     CPPRD(x3,1);
     {OBJ x31;
      x31=_AStringScan_50(x27,x3);
      if(ISTGPRM(x31,1)){
       {OBJ x32;OBJ x33;OBJ x34;
	x32=_AStringScan_72(x2,__ANat_8);
	x33=_AString_12(x27);
	x34=_AString_24(x4,x33);
	x1=x26;x2=x32;x4=x34;continue;}
      }else{
       FREE(x2,1);
       FRPRD(x3,1);
       r.c2=_AString_2(x27,x26);
       r.c1=x4;}}}}}
  break;}
 return r;}
extern OBJ _AStringScan_57_c(OBJ x1,OBJ x2,OBJ x3,OBJ x4) /* scanSet */
{OBJ r;
 {TUP2 t=_AStringScan_57(x1,x2,x3,x4);
  PRD1(2,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;}
 return r;}

extern TUP3 _AStringScan_58(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5) /* SCANNAT */
{TUP3 r;
 CPCLS(__AChar_27,1);
 COPY(x5,1);
 {OBJ x6;TUP3 x8;
  x6=_AStringFilter_4(__AChar_27,x1);
  x8=_AStringScan_60(x6,__AString_6,x5,__ANat_5);
  if(ISTGPRM(x8.c3,1)){
   FREE(x5,1);
   if(ISTGPRM(x4,1)){
    {OBJ x11;OBJ x12;OBJ x13;
     PRDF(1,0,x11);FLD(x11,1)=x8.c1;
     PRD1(2,x12);FLD1(x12,1)=x11;FLD1(x12,2)=__ASeq_6;
     x13=_ASeq_26(x3,x12);
     r=_AStringScan_45(x8.c2,x2,x13);}
   }else{
    r=_AStringScan_45(x8.c2,x2,x3);}
  }else{
   r.c2=x8.c2;
   {OBJ x14;
    x14=_AStringScan_70(x4,x5,__APrintableChar_82);
    r.c3=_AString_24(x14,x2);
    r.c1=x3;}}}
 return r;}
extern OBJ _AStringScan_58_c(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5) /* SCANNAT */
{OBJ r;
 {TUP3 t=_AStringScan_58(x1,x2,x3,x4,x5);
  PRD1(3,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;
  FLD1(r,3)=t.c3;}
 return r;}

extern TUP2 _AStringScan_59(register OBJ x1,register OBJ x2,register OBJ x3) /* scanNat */
{TUP2 r;
 for(;;){
  if(ISPRM(x1)){
   FREE(x2,1);
   r.c1=x3;r.c2=__AString_6;
  }else{
   CPPRD(x1,1);
   {OBJ x26;OBJ x27;OBJ x29;
    x26=_AString_4(x1);
    x27=_AString_5(x1);
    if(ISPRM(x2)){
     x29=__ABUILTIN_3;
    }else{
     {OBJ x28=FLD1(x2,1);
      ANat_76(x28,__ANat_5,x29);}}
    if(ISTGPRM(x29,1)){
     FREE(x2,1);
     r.c2=_AString_2(x27,x26);
     r.c1=x3;
    }else{
     {OBJ x31;
      AChar_25(x27,x31);
      if(ISTGPRM(x31,1)){
       {OBJ x32;OBJ x33;OBJ x34;OBJ x35;
	ANat_63(__ANat_17,x3,x32);
	x33=_AStringScan_72(x2,__ANat_8);
	ACharConv_3(x27,x34);
	ANat_61(x32,x34,x35);
	x1=x26;x2=x33;x3=x35;continue;}
      }else{
       FREE(x2,1);
       r.c2=_AString_2(x27,x26);
       r.c1=x3;}}}}}
  break;}
 return r;}
extern OBJ _AStringScan_59_c(OBJ x1,OBJ x2,OBJ x3) /* scanNat */
{OBJ r;
 {TUP2 t=_AStringScan_59(x1,x2,x3);
  PRD1(2,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;}
 return r;}

extern TUP3 _AStringScan_60(register OBJ x1,register OBJ x2,register OBJ x3,register OBJ x4) /* scanNat,1 */
{TUP3 r;
 for(;;){
  if(ISPRM(x1)){
   FREE(x2,1);
   FREE(x3,1);
   r.c1=x4;r.c2=__AString_6;r.c3=__ABUILTIN_5;
  }else{
   CPPRD(x1,1);
   {OBJ x33;OBJ x34;OBJ x36;
    x33=_AString_4(x1);
    x34=_AString_5(x1);
    if(ISPRM(x3)){
     x36=__ABUILTIN_3;
    }else{
     {OBJ x35=FLD1(x3,1);
      ANat_76(x35,__ANat_5,x36);}}
    if(ISTGPRM(x36,1)){
     FREE(x2,1);
     FREE(x3,1);
     r.c2=_AString_2(x34,x33);
     r.c1=x4;r.c3=__ABUILTIN_5;
    }else{
     {OBJ x38;
      AChar_25(x34,x38);
      if(ISTGPRM(x38,1)){
       {OBJ x39;OBJ x40;OBJ x41;OBJ x42;
	ACharConv_3(x34,x39);
	ANat_62(__ANat_59,x39,x40);
	ANat_64(x40,__ANat_17,x41);
	ANat_78(x4,x41,x42);
	if(ISTGPRM(x42,1)){
	 {OBJ x43;OBJ x44;OBJ x45;OBJ x46;
	  ANat_63(__ANat_17,x4,x43);
	  x44=_AStringScan_72(x3,__ANat_8);
	  x45=_AString_21(x2,x34);
	  ANat_61(x43,x39,x46);
	  x1=x33;x2=x45;x3=x44;x4=x46;continue;}
	}else{
	 FREE(x3,1);
	 {OBJ x47;
	  x47=_AString_2(x34,x33);
	  r.c2=_AString_24(x2,x47);
	  r.c1=__ANat_5;r.c3=__ABUILTIN_3;}}}
      }else{
       FREE(x2,1);
       FREE(x3,1);
       r.c2=_AString_2(x34,x33);
       r.c1=x4;r.c3=__ABUILTIN_5;}}}}}
  break;}
 return r;}
extern OBJ _AStringScan_60_c(OBJ x1,OBJ x2,OBJ x3,OBJ x4) /* scanNat,1 */
{OBJ r;
 {TUP3 t=_AStringScan_60(x1,x2,x3,x4);
  PRD1(3,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;
  FLD1(r,3)=t.c3;}
 return r;}

extern TUP3 _AStringScan_61(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5) /* SCANINT */
{TUP3 r;
 CPCLS(__AChar_27,1);
 {OBJ x6;OBJ x10;OBJ x12;OBJ x14;OBJ x13;OBJ x16;OBJ x17;OBJ x18;OBJ x19;OBJ x20;
  x6=_AStringFilter_4(__AChar_27,x1);
  if(ISPRM(x6)){
   x10=__ABUILTIN_5;
  }else{
   x10=__ABUILTIN_3;}
  if(ISTGPRM(x10,1)){
   x12=__ABUILTIN_3;
  }else{
   COPY(x6,1);
   {OBJ x11;
    x11=_AString_5(x6);
    AChar_15(x11,__APrintableChar_29,x12);}}
  if(ISTGPRM(x12,1)){
   COPY(x5,1);
   x14=_AString_4(x6);
   x13=_AStringScan_72(x5,__ANat_8);
  }else{
   x14=x6;
   COPY(x5,1);
   x13=x5;}
  {TUP3 t=_AStringScan_60(x14,__AString_6,x13,__ANat_5);
   x16=t.c1;
   x17=t.c2;
   x18=t.c3;}
  ANatConv_3(x16,x19);
  if(ISTGPRM(x12,1)){
   AInt_72(x19,x20);
  }else{
   x20=x19;}
  if(ISTGPRM(x18,1)){
   FREE(x5,1);
   if(ISTGPRM(x4,1)){
    {OBJ x21;OBJ x22;OBJ x23;
     PRDF(1,1,x21);FLD(x21,1)=x20;
     PRD1(2,x22);FLD1(x22,1)=x21;FLD1(x22,2)=__ASeq_6;
     x23=_ASeq_26(x3,x22);
     r=_AStringScan_45(x17,x2,x23);}
   }else{
    r=_AStringScan_45(x17,x2,x3);}
  }else{
   r.c2=x17;
   {OBJ x24;
    x24=_AStringScan_70(x4,x5,__APrintableChar_77);
    r.c3=_AString_24(x24,x2);
    r.c1=x3;}}}
 return r;}
extern OBJ _AStringScan_61_c(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5) /* SCANINT */
{OBJ r;
 {TUP3 t=_AStringScan_61(x1,x2,x3,x4,x5);
  PRD1(3,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;
  FLD1(r,3)=t.c3;}
 return r;}

extern TUP3 _AStringScan_62(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5) /* SCANREAL */
{TUP3 r;
 {OBJ x8;OBJ x6;OBJ x12;OBJ x13;OBJ x15;OBJ x16;OBJ x19;OBJ x17;OBJ x21;
  if(ISPRM(x5)){
   CPCLS(__AChar_27,1);
   x8=__ABUILTIN_5;
  }else{
   CPCLS(__AChar_27,1);
   x8=__ABUILTIN_3;}
  x6=_AStringFilter_4(__AChar_27,x1);
  if(ISTGPRM(x8,1)){
   x12=x6;
   FREE(x5,1);
   CPPRD(__AReal_2,3);
   x13=__AString_6;
  }else{
   {OBJ x10;
    if(ISPRM(x5)){
     HLT("Option at <unknown> : undefined selection cont\'Option:option->data");
    }else{
     {OBJ x9=FLD1(x5,1);
      if(EXPRD(x5,1)){
       x10=x9;
       DSPRDF(x5);
      }else{
       x10=x9;
       FRPRD(x5,1);}
      CPPRD(__AReal_2,3);}}
    {TUP2 t=_AString_33(x10,x6);
     x12=t.c1;
     x13=t.c2;}}}
  {TUP2 t=_AStringScan_40(x12,__AStringScan_36,__AReal_2,__AReal_2,__AReal_2);
   x15=t.c1;
   x16=t.c2;}
  if(ISPRM(x15)){
   x19=__ABUILTIN_5;
  }else{
   x19=__ABUILTIN_3;}
  x17=_AString_24(x16,x13);
  if(ISTGPRM(x19,1)){
   FREE(x15,1);
   CPPRD(__AReal_2,1);
   x21=__AReal_2;
  }else{
   if(ISPRM(x15)){
    HLT("Option at <unknown> : undefined selection cont\'Option:option->data");
   }else{
    {OBJ x20=FLD1(x15,1);
     if(EXPRD(x15,1)){
      x21=x20;
      DSPRDF(x15);
     }else{
      CPPRD(x20,1);
      x21=x20;
      FRPRD(x15,1);}}}}
  if(ISTGPRM(x4,1)){
   {OBJ x22;OBJ x23;
    PRD(1,2,x22);FLD(x22,1)=x21;
    x23=_ASeq_23(x3,x22);
    r=_AStringScan_45(x17,x2,x23);}
  }else{
   FRPRD(x21,1);
   r=_AStringScan_45(x17,x2,x3);}}
 return r;}
extern OBJ _AStringScan_62_c(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5) /* SCANREAL */
{OBJ r;
 {TUP3 t=_AStringScan_62(x1,x2,x3,x4,x5);
  PRD1(3,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;
  FLD1(r,3)=t.c3;}
 return r;}

extern TUP3 _AStringScan_63(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5) /* SCANSTRING,1 */
{TUP3 r;
 CPCLS(__AChar_27,1);
 COPY(__AString_8,1);
 {OBJ x6;TUP2 x8;
  x6=_AStringFilter_4(__AChar_27,x1);
  x8=_AStringScan_64(x6,x5,__AString_8);
  if(ISTGPRM(x4,1)){
   {OBJ x10;OBJ x11;OBJ x12;
    PRD(1,4,x10);FLD(x10,1)=x8.c1;
    PRD1(2,x11);FLD1(x11,1)=x10;FLD1(x11,2)=__ASeq_6;
    x12=_ASeq_26(x3,x11);
    r=_AStringScan_45(x8.c2,x2,x12);}
  }else{
   FREE(x8.c1,1);
   r=_AStringScan_45(x8.c2,x2,x3);}}
 return r;}
extern OBJ _AStringScan_63_c(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5) /* SCANSTRING,1 */
{OBJ r;
 {TUP3 t=_AStringScan_63(x1,x2,x3,x4,x5);
  PRD1(3,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;
  FLD1(r,3)=t.c3;}
 return r;}

extern TUP2 _AStringScan_64(register OBJ x1,register OBJ x2,register OBJ x3) /* scanString */
{TUP2 r;
 for(;;){
  if(ISPRM(x1)){
   FREE(x2,1);
   r.c1=x3;r.c2=__AString_6;
  }else{
   CPPRD(x1,1);
   {OBJ x25;OBJ x26;OBJ x28;
    x25=_AString_4(x1);
    x26=_AString_5(x1);
    if(ISPRM(x2)){
     x28=__ABUILTIN_3;
    }else{
     {OBJ x27=FLD1(x2,1);
      ANat_76(x27,__ANat_5,x28);}}
    if(ISTGPRM(x28,1)){
     FREE(x2,1);
     r.c2=_AString_2(x26,x25);
     r.c1=x3;
    }else{
     {OBJ x30;
      AChar_27(x26,x30);
      if(ISTGPRM(x30,1)){
       FREE(x2,1);
       r.c2=_AString_2(x26,x25);
       r.c1=x3;
      }else{
       {OBJ x32;OBJ x33;OBJ x34;
	x32=_AStringScan_72(x2,__ANat_8);
	x33=_AString_12(x26);
	x34=_AString_24(x3,x33);
	x1=x25;x2=x32;x3=x34;continue;}}}}}}
  break;}
 return r;}
extern OBJ _AStringScan_64_c(OBJ x1,OBJ x2,OBJ x3) /* scanString */
{OBJ r;
 {TUP2 t=_AStringScan_64(x1,x2,x3);
  PRD1(2,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;}
 return r;}

extern TUP3 _AStringScan_65(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5) /* SCANCHAR */
{TUP3 r;
 if(ISPRM(x1)){
  FREE(x5,1);
  COPY(__AString_8,1);
  r.c1=x3;r.c2=__AString_8;r.c3=x2;
 }else{
  {OBJ x34;OBJ x31;OBJ x32;OBJ x37;OBJ x35;OBJ x38;OBJ x39;OBJ x42;
   if(ISPRM(x5)){
    CPPRD(x1,1);
    x34=__ABUILTIN_5;
   }else{
    CPPRD(x1,1);
    x34=__ABUILTIN_3;}
   x31=_AString_4(x1);
   x32=_AString_5(x1);
   if(ISTGPRM(x34,1)){
    FREE(x5,1);
    x37=__ANat_8;
   }else{
    if(ISPRM(x5)){
     HLT("Option at <unknown> : undefined selection cont\'Option:option->data");
    }else{
     {OBJ x36=FLD1(x5,1);
      if(EXPRD(x5,1)){
       x37=x36;
       DSPRDF(x5);
      }else{
       x37=x36;
       FRPRD(x5,1);}}}}
   x35=_AString_2(x32,x31);
   COPY(x35,1);
   ANat_76(x37,__ANat_8,x38);
   x39=_AStringScan_75(x35,x37);
   if(ISTGPRM(x38,1)){
    FREE(x35,1);
    PRDF(1,3,x42);FLD(x42,1)=x32;
   }else{
    {OBJ x40;OBJ x41;
     ANat_62(x37,__ANat_8,x40);
     x41=_AStringScan_74(x35,x40);
     PRD(1,4,x42);FLD(x42,1)=x41;}}
   if(ISTGPRM(x4,1)){
    {OBJ x43;OBJ x44;
     PRD1(2,x43);FLD1(x43,1)=x42;FLD1(x43,2)=__ASeq_6;
     x44=_ASeq_26(x3,x43);
     r=_AStringScan_45(x39,x2,x44);}
   }else{
    FRPRD(x42,1);
    r=_AStringScan_45(x39,x2,x3);}}}
 return r;}
extern OBJ _AStringScan_65_c(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5) /* SCANCHAR */
{OBJ r;
 {TUP3 t=_AStringScan_65(x1,x2,x3,x4,x5);
  PRD1(3,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;
  FLD1(r,3)=t.c3;}
 return r;}

extern TUP3 _AStringScan_66(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5) /* SCANBOOL */
{TUP3 r;
 {OBJ x7;OBJ x8;OBJ x10;OBJ x12;OBJ x13;
  if(ISPRM(x5)){
   CPCLS(__AChar_27,1);
   x7=__ABUILTIN_5;
  }else{
   CPCLS(__AChar_27,1);
   x7=__ABUILTIN_3;}
  x8=_AStringFilter_4(__AChar_27,x1);
  if(ISTGPRM(x7,1)){
   FREE(x5,1);
   x10=__ANat_59;
  }else{
   if(ISPRM(x5)){
    HLT("Option at <unknown> : undefined selection cont\'Option:option->data");
   }else{
    {OBJ x9=FLD1(x5,1);
     if(EXPRD(x5,1)){
      x10=x9;
      DSPRDF(x5);
     }else{
      x10=x9;
      FRPRD(x5,1);}}}}
  {TUP2 t=_AStringScan_67(x8,x10);
   x12=t.c1;
   x13=t.c2;}
  if(ISTGPRM(x4,1)){
   {OBJ x14;OBJ x15;OBJ x16;
    PRDF(1,5,x14);FLD(x14,1)=x12;
    PRD1(2,x15);FLD1(x15,1)=x14;FLD1(x15,2)=__ASeq_6;
    x16=_ASeq_26(x3,x15);
    r=_AStringScan_45(x13,x2,x16);}
  }else{
   r=_AStringScan_45(x13,x2,x3);}}
 return r;}
extern OBJ _AStringScan_66_c(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5) /* SCANBOOL */
{OBJ r;
 {TUP3 t=_AStringScan_66(x1,x2,x3,x4,x5);
  PRD1(3,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;
  FLD1(r,3)=t.c3;}
 return r;}

extern TUP2 _AStringScan_67(OBJ x1,OBJ x2) /* scanBool */
{TUP2 r;
 CPCLS(__AStringScan_85,1);
 CPCLS(__AStringScan_86,1);
 CPCLS(__AStringScan_92,1);
 CPCLS(__AStringScan_93,1);
 COPY(x1,4);
 {OBJ x4;OBJ x5;OBJ x13;OBJ x14;TUP2 x17;TUP2 x19;TUP2 x21;TUP2 x23;
  x4=(*(OBJ(*)(OBJ,OBJ))METHOD(__AStringScan_85,1))(__AStringScan_85,__ABUILTIN_20);
  x5=(*(OBJ(*)(OBJ,OBJ))METHOD(__AStringScan_86,1))(__AStringScan_86,__ABUILTIN_20);
  x13=(*(OBJ(*)(OBJ,OBJ))METHOD(__AStringScan_92,1))(__AStringScan_92,__ABUILTIN_20);
  x14=(*(OBJ(*)(OBJ,OBJ))METHOD(__AStringScan_93,1))(__AStringScan_93,__ABUILTIN_20);
  x17=_AStringScan_68(x1,x14,x2,__ABUILTIN_5);
  x19=_AStringScan_68(x1,x4,x2,__ABUILTIN_5);
  x21=_AStringScan_68(x1,x13,x2,__ABUILTIN_5);
  x23=_AStringScan_68(x1,x5,x2,__ABUILTIN_5);
  if(ISTGPRM(x23.c1,1)){
   r.c2=x23.c2;
   FREE(x1,1);
   FREE(x17.c2,1);
   FREE(x19.c2,1);
   FREE(x21.c2,1);
   r.c1=__ABUILTIN_5;
  }else{
   FREE(x23.c2,1);
   if(ISTGPRM(x21.c1,1)){
    r.c2=x21.c2;
    FREE(x1,1);
    FREE(x17.c2,1);
    FREE(x19.c2,1);
    r.c1=__ABUILTIN_5;
   }else{
    FREE(x21.c2,1);
    if(ISTGPRM(x19.c1,1)){
     r.c2=x19.c2;
     FREE(x1,1);
     FREE(x17.c2,1);
     r.c1=__ABUILTIN_3;
    }else{
     FREE(x19.c2,1);
     if(ISTGPRM(x17.c1,1)){
      r.c2=x17.c2;
      FREE(x1,1);
      r.c1=__ABUILTIN_3;
     }else{
      FREE(x17.c2,1);
      r.c1=__ABUILTIN_3;r.c2=x1;}}}}}
 return r;}
extern OBJ _AStringScan_67_c(OBJ x1,OBJ x2) /* scanBool */
{OBJ r;
 {TUP2 t=_AStringScan_67(x1,x2);
  PRD1(2,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;}
 return r;}

extern TUP2 _AStringScan_68(register OBJ x1,register OBJ x2,register OBJ x3,register OBJ x4) /* cmp */
{TUP2 r;
 for(;;){
  if(ISPRM(x1)){
   FREE(x2,1);
   {OBJ x37;
    if(ISTGPRM(x4,1)){
     r.c1=__ABUILTIN_3;
    }else{
     r.c1=__ABUILTIN_5;}
    r.c2=__AString_6;}
  }else{
   if(ISPRM(x2)){
    r.c1=__ABUILTIN_5;r.c2=x1;
   }else{
    {OBJ x44;
     ANat_6(x3,x44);
     if(ISTGPRM(x44,1)){
      if(EXPRD(x2,1)){
       DSPRD(x2);
      }else{
       DCPRD(x2,1);}
      r.c1=__ABUILTIN_5;r.c2=x1;
     }else{
      CPPRD(x1,1);
      CPPRD(x2,1);
      {OBJ x45;OBJ x46;OBJ x47;OBJ x48;OBJ x49;
       x45=_AString_5(x1);
       x46=_AString_5(x2);
       AChar_31(x45,x47);
       AChar_31(x46,x48);
       AChar_15(x47,x48,x49);
       if(ISTGPRM(x49,1)){
	{OBJ x50;OBJ x51;OBJ x52;
	 x50=_AString_4(x1);
	 x51=_AString_4(x2);
	 ANat_4(x3,x52);
	 x1=x50;x2=x51;x3=x52;x4=__ABUILTIN_3;continue;}
       }else{
	if(EXPRD(x2,1)){
	 DSPRD(x2);
	}else{
	 DCPRD(x2,1);}
	{OBJ x53;
	 if(ISTGPRM(x4,1)){
	  r.c1=__ABUILTIN_3;
	 }else{
	  r.c1=__ABUILTIN_5;}
	 r.c2=x1;}}}}}}}
  break;}
 return r;}
extern OBJ _AStringScan_68_c(OBJ x1,OBJ x2,OBJ x3,OBJ x4) /* cmp */
{OBJ r;
 {TUP2 t=_AStringScan_68(x1,x2,x3,x4);
  PRD1(2,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;}
 return r;}

extern TUP3 _AStringScan_69(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5) /* SCANDENOTATION */
{TUP3 r;
 CPCLS(__AChar_27,1);
 COPY(__AString_8,1);
 {OBJ x6;TUP2 x8;
  x6=_AStringFilter_4(__AChar_27,x1);
  x8=_AStringScan_64(x6,x5,__AString_8);
  if(ISTGPRM(x4,1)){
   {OBJ x10;OBJ x11;OBJ x12;OBJ x13;
    x10=_AStringConv_1(x8.c1);
    PRD(1,6,x11);FLD(x11,1)=x10;
    PRD1(2,x12);FLD1(x12,1)=x11;FLD1(x12,2)=__ASeq_6;
    x13=_ASeq_26(x3,x12);
    r=_AStringScan_45(x8.c2,x2,x13);}
  }else{
   FREE(x8.c1,1);
   r=_AStringScan_45(x8.c2,x2,x3);}}
 return r;}
extern OBJ _AStringScan_69_c(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5) /* SCANDENOTATION */
{OBJ r;
 {TUP3 t=_AStringScan_69(x1,x2,x3,x4,x5);
  PRD1(3,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;
  FLD1(r,3)=t.c3;}
 return r;}

extern OBJ _AStringScan_70(OBJ x1,OBJ x2,OBJ x3) /* scanformat */
{OBJ r;
 {OBJ x5;OBJ x6;OBJ x7;OBJ x8;OBJ x12;OBJ x13;OBJ x14;
  if(ISPRM(x2)){
   CPCLS(__AStringScan_82,1);
   x5=__ABUILTIN_5;
  }else{
   CPCLS(__AStringScan_82,1);
   x5=__ABUILTIN_3;}
  x6=(*(OBJ(*)(OBJ,OBJ))METHOD(__AStringScan_82,1))(__AStringScan_82,__ABUILTIN_20);
  x7=_AString_12(x3);
  if(ISTGPRM(x1,1)){
   COPY(__AString_8,1);
   x8=__AString_8;
  }else{
   CPCLS(__AStringScan_83,1);
   x8=(*(OBJ(*)(OBJ,OBJ))METHOD(__AStringScan_83,1))(__AStringScan_83,__ABUILTIN_20);}
  if(ISTGPRM(x5,1)){
   FREE(x2,1);
   COPY(__AString_8,1);
   x12=__AString_8;
  }else{
   {OBJ x10;OBJ x11;
    if(ISPRM(x2)){
     HLT("Option at <unknown> : undefined selection cont\'Option:option->data");
    }else{
     {OBJ x9=FLD1(x2,1);
      if(EXPRD(x2,1)){
       x10=x9;
       DSPRDF(x2);
      }else{
       x10=x9;
       FRPRD(x2,1);}}}
    ANatConv_1(x10,x11);
    x12=_AString_49(x11);}}
  x13=_AString_24(x12,x7);
  x14=_AString_24(x8,x13);
  r=_AString_24(x6,x14);}
 return r;}

extern OBJ _AStringScan_71(OBJ x1,OBJ x2) /* :: */
{OBJ r;
 {OBJ x3;
  x3=_AString_12(x2);
  r=_AString_24(x1,x3);}
 return r;}

extern OBJ _AStringScan_72(OBJ x1,OBJ x2) /* - */
{OBJ r;
 if(ISPRM(x1)){
  r=__AOption_5;
 }else{
  {OBJ x10=FLD1(x1,1);
   if(EXPRD(x1,1)){
    {
     RSOME(x1,r);
     ANat_62(x10,x2,FLD1(r,1));}
   }else{
    {
     FRPRD(x1,1);PRD1F(1,r);
     ANat_62(x10,x2,FLD1(r,1));}}}}
 return r;}

extern OBJ _AStringScan_73(OBJ x1) /* zero? */
{OBJ r;
 if(ISPRM(x1)){
  r=__ABUILTIN_3;
 }else{
  {OBJ x8=FLD1(x1,1);
   if(EXPRD(x1,1)){
    DSPRDF(x1);
   }else{
    FRPRD(x1,1);}
   ANat_76(x8,__ANat_5,r);}}
 return r;}

extern OBJ _AStringScan_74(OBJ x1,OBJ x2) /* substringTo */
{OBJ r;
 if(ISPRM(x1)){
  r=__AString_6;
 }else{
  {OBJ x21;
   ANat_6(x2,x21);
   if(ISTGPRM(x21,1)){
    {OBJ x22;
     x22=_AString_5(x1);
     r=_AString_12(x22);}
   }else{
    {OBJ x23;
     ANat_3(x2,x23);
     if(ISTGPRM(x23,1)){
      CPPRD(x1,1);
      {OBJ x24;OBJ x25;OBJ x26;OBJ x27;
       ANat_4(x2,x24);
       x25=_AString_4(x1);
       x26=_AString_5(x1);
       x27=_AStringScan_74(x25,x24);
       r=_AString_2(x26,x27);}
     }else{
      HLT("StringScan at <612,5-15> : missing else in substringTo\'StringScan:string**nat->string");}}}}}
 return r;}

extern OBJ _AStringScan_75(register OBJ x1,register OBJ x2) /* substringFrom */
{OBJ r;
 for(;;){
  if(ISPRM(x1)){
   {OBJ x16;
    ANat_6(x2,x16);
    r=__AString_6;}
  }else{
   {OBJ x20;
    ANat_6(x2,x20);
    if(ISTGPRM(x20,1)){
     r=x1;
    }else{
     {OBJ x21;
      ANat_3(x2,x21);
      if(ISTGPRM(x21,1)){
       {OBJ x22;OBJ x23;
	ANat_4(x2,x22);
	x23=_AString_4(x1);
	x1=x23;x2=x22;continue;}
      }else{
       HLT("StringScan at <617,5-17> : missing else in substringFrom\'StringScan:string**nat->string");}}}}}
  break;}
 return r;}

extern OBJ _AStringScan_76(OBJ x1) /* nzdigit? */
{OBJ r;
 {OBJ x2;
  AChar_16(x1,__APrintableChar_13,x2);
  if(ISTGPRM(x2,1)){
   AChar_14(x1,__APrintableChar_21,r);
  }else{
   r=__ABUILTIN_3;}}
 return r;}

extern OBJ _AStringScan_77(OBJ x1) /* scan,9'77 */
{OBJ r;
 CPPRD(__AReal_3,1);
 AReal_65(__AReal_3,r);
 return r;}

extern OBJ _AStringScan_80(OBJ x1,OBJ x2) /* in,1'80 */
{OBJ r;
 r=_AStringScan_49(x1,x2);
 return r;}

extern OBJ _AStringScan_81(OBJ x1,OBJ x2) /* in,1'81 */
{OBJ r;
 r=_AStringScan_49(x1,x2);
 return r;}

extern OBJ _AStringScan_82(OBJ x1) /* scanformat'82 */
{OBJ r;
 r=_AString_12(__APrintableChar_25);
 return r;}

extern OBJ _AStringScan_83(OBJ x1) /* scanformat'83 */
{OBJ r;
 r=_AString_12(__APrintableChar_27);
 return r;}

extern OBJ _AStringScan_84(OBJ x1) /* scanBool'84 */
{OBJ r;
 r=_AString_2(__APrintableChar_73,__AString_6);
 return r;}

extern OBJ _AStringScan_85(OBJ x1) /* scanBool'85 */
{OBJ r;
 r=_AString_2(__APrintableChar_12,__AString_6);
 return r;}

extern OBJ _AStringScan_86(OBJ x1) /* scanBool'86 */
{OBJ r;
 r=_AString_2(__APrintableChar_13,__AString_6);
 return r;}

extern OBJ _AStringScan_87(OBJ x1) /* scanBool'87 */
{OBJ r;
 CPCLS(__AStringScan_84,1);
 {OBJ x2;
  x2=(*(OBJ(*)(OBJ,OBJ))METHOD(__AStringScan_84,1))(__AStringScan_84,__ABUILTIN_20);
  r=_AString_2(__APrintableChar_87,x2);}
 return r;}

extern OBJ _AStringScan_88(OBJ x1) /* scanBool'88 */
{OBJ r;
 CPCLS(__AStringScan_84,1);
 {OBJ x2;
  x2=(*(OBJ(*)(OBJ,OBJ))METHOD(__AStringScan_84,1))(__AStringScan_84,__ABUILTIN_20);
  r=_AString_2(__APrintableChar_89,x2);}
 return r;}

extern OBJ _AStringScan_89(OBJ x1) /* scanBool'89 */
{OBJ r;
 CPCLS(__AStringScan_87,1);
 {OBJ x2;
  x2=(*(OBJ(*)(OBJ,OBJ))METHOD(__AStringScan_87,1))(__AStringScan_87,__ABUILTIN_20);
  r=_AString_2(__APrintableChar_80,x2);}
 return r;}

extern OBJ _AStringScan_90(OBJ x1) /* scanBool'90 */
{OBJ r;
 CPCLS(__AStringScan_88,1);
 {OBJ x2;
  x2=(*(OBJ(*)(OBJ,OBJ))METHOD(__AStringScan_88,1))(__AStringScan_88,__ABUILTIN_20);
  r=_AString_2(__APrintableChar_86,x2);}
 return r;}

extern OBJ _AStringScan_91(OBJ x1) /* scanBool'91 */
{OBJ r;
 CPCLS(__AStringScan_89,1);
 {OBJ x2;
  x2=(*(OBJ(*)(OBJ,OBJ))METHOD(__AStringScan_89,1))(__AStringScan_89,__ABUILTIN_20);
  r=_AString_2(__APrintableChar_69,x2);}
 return r;}

extern OBJ _AStringScan_92(OBJ x1) /* scanBool'92 */
{OBJ r;
 CPCLS(__AStringScan_90,1);
 {OBJ x2;
  x2=(*(OBJ(*)(OBJ,OBJ))METHOD(__AStringScan_90,1))(__AStringScan_90,__ABUILTIN_20);
  r=_AString_2(__APrintableChar_88,x2);}
 return r;}

extern OBJ _AStringScan_93(OBJ x1) /* scanBool'93 */
{OBJ r;
 CPCLS(__AStringScan_91,1);
 {OBJ x2;
  x2=(*(OBJ(*)(OBJ,OBJ))METHOD(__AStringScan_91,1))(__AStringScan_91,__ABUILTIN_20);
  r=_AString_2(__APrintableChar_74,x2);}
 return r;}














static OBJ _mt_4_0_2(OBJ t,OBJ t1,OBJ t2) 
{OBJ r;
 DPCLS(t,r);
 INCCLS(r,0,2);
 FLDCLS(r,1)=t1;
 FLDCLS(r,2)=t2;
 return r;}

static OBJ _mt_4_2_2(OBJ t,OBJ t1,OBJ t2) 
{OBJ r;
 if(EXCLS(t)){
  DSCLSF(t);
 }else{
  COPY(FLDCLS(t,1),1);
  COPY(FLDCLS(t,2),1);
  DCCLS(t,1);}
 r=(*(OBJ(*)(OBJ,OBJ,OBJ,OBJ))ENTRY(t))(FLDCLS(t,1),FLDCLS(t,2),t1,t2);
 return r;}

init_AStringScan()
{
 static int visited=0; if(visited) return; visited=1;
 init_ANat();
 init_AOption();
 init_AInt();
 init_AReal();
 init_AChar();
 init_AString();
 init_ABTUnion();
 init_ASeq();
 init_ADenotation();
 init_AStringConv();
 init_AStringFilter();
 init_APrintableChar();
 init_ACompose();
 init_ARealConv();
 init_AIntConv();
 init_ANatConv();
 init_ACharConv();
 init_AOptionMap();
 init_AStringMapSeq();
 CLS(1,_AStringScan_31,__AStringScan_31);
 CLS(5,_AStringScan_63_c,__AStringScan_63);
 CLS(5,_AStringScan_62_c,__AStringScan_62);
 LCLS(1,_AStringScan_93,__AStringScan_93);
 CLS(1,_AStringScan_29,__AStringScan_29);
 CLS(5,_AStringScan_61_c,__AStringScan_61);
 LCLS(1,_AStringScan_92,__AStringScan_92);
 CLS(4,_AStringScan_60_c,__AStringScan_60);
 LCLS(1,_AStringScan_91,__AStringScan_91);
 CLS(1,_AStringScan_27,__AStringScan_27);
 CLS(3,_AStringScan_59_c,__AStringScan_59);
 LCLS(1,_AStringScan_90,__AStringScan_90);
 CLS(5,_AStringScan_58_c,__AStringScan_58);
 LCLS(1,_AStringScan_89,__AStringScan_89);
 CLS(4,_AStringScan_57_c,__AStringScan_57);
 LCLS(1,_AStringScan_88,__AStringScan_88);
 CLS(1,_AStringScan_24,__AStringScan_24);
 CLS(6,_AStringScan_56_c,__AStringScan_56);
 LCLS(1,_AStringScan_87,__AStringScan_87);
 CLS(1,_AStringScan_23,__AStringScan_23);
 CLS(7,_AStringScan_55_c,__AStringScan_55);
 LCLS(1,_AStringScan_86,__AStringScan_86);
 CLS(1,_AStringScan_22,__AStringScan_22);
 CLS(7,_AStringScan_54_c,__AStringScan_54);
 LCLS(1,_AStringScan_85,__AStringScan_85);
 CLS(1,_AStringScan_21,__AStringScan_21);
 CLS(6,_AStringScan_53_c,__AStringScan_53);
 LCLS(1,_AStringScan_84,__AStringScan_84);
 CLS(1,_AStringScan_20,__AStringScan_20);
 CLS(5,_AStringScan_52_c,__AStringScan_52);
 LCLS(1,_AStringScan_83,__AStringScan_83);
 CLS(1,_AStringScan_19,__AStringScan_19);
 CLS(2,_AStringScan_51,__AStringScan_51);
 LCLS(1,_AStringScan_82,__AStringScan_82);
 CLS(2,_AStringScan_18,__AStringScan_18);
 CLS(2,_AStringScan_50,__AStringScan_50);
 CLS(2,_AStringScan_81,__AStringScan_81);
 CLS(2,_AStringScan_49,__AStringScan_49);
 CLS(2,_AStringScan_80,__AStringScan_80);
 CLS(5,_AStringScan_48_c,__AStringScan_48);
 CLS(1,_AStringScan_15,__AStringScan_15);
 CLS(5,_AStringScan_47_c,__AStringScan_47);
 CLS(1,_AStringScan_14,__AStringScan_14);
 CLS(3,_AStringScan_46_c,__AStringScan_46);
 LCLS(1,_AStringScan_77,__AStringScan_77);
 CLS(1,_AStringScan_13,__AStringScan_13);
 CLS(3,_AStringScan_45_c,__AStringScan_45);
 CLS(1,_AStringScan_76,__AStringScan_76);
 CLS(1,_AStringScan_12,__AStringScan_12);
 CLS(4,_AStringScan_44_c,__AStringScan_44);
 CLS(2,_AStringScan_75,__AStringScan_75);
 CLS(1,_AStringScan_11,__AStringScan_11);
 CLS(1,_AStringScan_43,__AStringScan_43);
 CLS(1,_AStringScan_42,__AStringScan_42);
 CLS(2,_AStringScan_74,__AStringScan_74);
 CLS(1,_AStringScan_73,__AStringScan_73);
 CLS(2,_AStringScan_9,__AStringScan_9);
 CLS(3,_AStringScan_41,__AStringScan_41);
 CLS(2,_AStringScan_72,__AStringScan_72);
 CLS(2,_AStringScan_8_c,__AStringScan_8);
 CLS(5,_AStringScan_40_c,__AStringScan_40);
 CLS(2,_AStringScan_71,__AStringScan_71);
 CLS(2,_AStringScan_7_c,__AStringScan_7);
 CLS(2,_AStringScan_39,__AStringScan_39);
 CLS(3,_AStringScan_70,__AStringScan_70);
 CLS(2,_AStringScan_6,__AStringScan_6);
 CLS(2,_AStringScan_38_c,__AStringScan_38);
 CLS(5,_AStringScan_69_c,__AStringScan_69);
 CLS(1,_AStringScan_5_c,__AStringScan_5);
 CLS(1,_AStringScan_37,__AStringScan_37);
 CLS(4,_AStringScan_68_c,__AStringScan_68);
 CLS(1,_AStringScan_4_c,__AStringScan_4);
 CLS(2,_AStringScan_67_c,__AStringScan_67);
 CLS(1,_AStringScan_3_c,__AStringScan_3);
 CLS(1,_AStringScan_35,__AStringScan_35);
 CLS(5,_AStringScan_66_c,__AStringScan_66);
 CLS(1,_AStringScan_2_c,__AStringScan_2);
 CLS(5,_AStringScan_65_c,__AStringScan_65);
 CLS(1,_AStringScan_1_c,__AStringScan_1);
 CLS(1,_AStringScan_33,__AStringScan_33);
 CLS(3,_AStringScan_64_c,__AStringScan_64);
 MTH(4,0,2,_mt_4_0_2);LZYMTH(4,0,2,_mt_4_0_2);
 MTH(4,2,2,_mt_4_2_2);LZYMTH(4,2,2,_mt_4_2_2);
 PRM(5,__AStringScan_26);
 PRM(4,__AStringScan_28);
 PRM(3,__AStringScan_30);
 PRM(2,__AStringScan_32);
 PRM(1,__AStringScan_34);
 PRM(0,__AStringScan_36);
 PRD1F(1,__AStringScan_78);FLD1(__AStringScan_78,1)=__ABUILTIN_3;
 PRD1F(1,__AStringScan_79);FLD1(__AStringScan_79,1)=__ABUILTIN_5;
 PRDF(1,0,__AStringScan_94);FLD(__AStringScan_94,1)=__APrintableChar_7;
 PRDF(1,0,__AStringScan_95);FLD(__AStringScan_95,1)=__APrintableChar_29;
 PRDF(1,0,__AStringScan_96);FLD(__AStringScan_96,1)=__ASeq_6;
 PRDF(1,1,__AStringScan_97);FLD(__AStringScan_97,1)=__ASeq_6;
 PRD1F(1,__AStringScan_98);FLD1(__AStringScan_98,1)=__ANat_5;}

