#include <perms.h>
int _imp_mainep(int _imp_argc, char **_imp_argv) {
  _imp_string S;
  _imp_string T;
  static const int *Fred = 0x244444;
  int Jjfred = 7;
  static int Opcode[21 /*0:20*/] = {
      0x5800, 0x4800, 0x5000, 0x4000, 0x5A00, 0x5B00,          0x5C00,
      0x5D00, 0x1A00, 0x1B00, 0x1C00, 0x1D00, [12 ... 20] = -1};
  _imp_string *Sref;
  int I;
  int J;
  int K;
  static int Twod[2 /*1:2*/][3 /*1:3*/] = {1, 2, 3, 4, 5, 6};
  float D;
  I = 10;
  J = 3;
  K = 1;
  I = IEXP(J, K);
  for (I = 1; I <= 2; I++)
    for (J = 1; J <= 3; J++)
      if (Twod[I][J] != (J - 1) * 2 + I) {
        Write(I, 1);
        Write(J, 1);
        Printstring(_imp_str_literal(" th element of TWOD has value"));
        Write(Twod[I][J], 2);
        Newline();
      }
  K = 06632;
  K = I ^ J;
  if (~I == J) K = 0;
  if (I != J) K = 0;
  if (~I != J) K = 0;
  if (~I != ~J) K = 0;
  if (~I == J) K = 0;
  if (~I == ~J) K = 0;
  if (~I != ~J) K = 0;
  D = 23.;
  K = 2;
  I = IEXP(J, K);
  Sref = &S;
  S = _imp_str_literal("1234567890");
  T = Substring(S, 3, 2);
  Printstring(_imp_str_literal("TEST OK (if no other output)"));
  exit(0);
  return (1);
}