#include <perms.h>
int _imp_mainep(int _imp_argc, char **_imp_argv) {
  static int Fail = 0;
  typedef struct Levelf {
    int I;
    int J;
    int K;
  } Levelf;
  typedef struct Workaf {
    int Nnames;
    int Ccsize;
    int Dsize;
    int Aslmax;
    int Aslcurbtm;
    int Constptr;
    int Constbtm;
    int Dictbase;
    int Wkfilead;
    int Wkfilek;
    int Fileaddr;
    int Release;
    int Aasl0;
    int Constlimit;
    int Rtcount;
    int Artop;
    int Sp1;
    int Sp2;
    int Sp3;
    int *Line;
    _imp_string Ladate;
    unsigned char Cc;
    unsigned char A;
    int Word;
    int Tags;
    int Ctable;
    Levelf Levelinf;
    int Plabs[32 /*0:31*/];
    int Plink[32 /*0:31*/];
  } Workaf;
  static Workaf *Worka;
  Workaf Work;
  unsigned char A[101 /*0:100*/];
  unsigned char Af[101 /*0:100*/];
  int I;
  unsigned char B;
  unsigned char C;
  Work = 0;
  Worka = &Work;
  *B = &Array;
  Worka->Cc = &B;
  *C = &Worka->Cc;
  for (I = 0; I <= 9; I++) A[I] = '0' + I;
  for (I = 0; I <= 9; I++)
    if (A[I] != I + '0' || A[I] != B(I) || A[I] != C(I) || A[I] != Worka->Cc) {
      Write(A[I], 5);
      Write(B(I), 5);
      Write(Worka->Cc, 5);
      Write(C(I), 5);
      Fail = 1;
      Newline();
    }
  if (!Fail) Printstring(_imp_str_literal("TEST OK"));
  exit(0);
  return (1);
}