#include <perms.h>
int _imp_mainep(int _imp_argc, char **_imp_argv) {
  _imp_enter();
  _imp_string S;
  _imp_string T;
  const int *FRED = 0x244444;
  int JJFRED = 7;
  static int OPCODE[20 - 0 + 1] = {0x5800, 0x4800, 0x5000, 0x4000, 0x5A00,
                                   0x5B00, 0x5C00, 0x5D00, 0x1A00, 0x1B00,
                                   0x1C00, 0x1D00, -1};
  _imp_string *SREF;
  int I;
  int J;
  int K;
  static int TWOD[2 - 1 + 1][3 - 1 + 1] = {1, 2, 3, 4, 5, 6};
  float D;
  I = 10;
  J = 3;
  K = 1;
  I = IEXP(J, K);
  for (I = 1; I != 2 + 1; I += 1) {
    for (J = 1; J != 3 + 1; J += 1) {
      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)"));
  _imp_leave();
  exit(0);
  return (0);
}