#include <perms.h>
int _imp_mainep(int _imp_argc, char **_imp_argv) {
  _imp_enter();
  auto int ITEST(int N) {
    _imp_enter();
    int A[N - 1 + 1];
    A[N] = IEXP(N, 2);
    return (A[N]);
    _imp_leave();
  }
  auto double RTEST(int N) {
    _imp_enter();
    double A[N - 1 + 1];
    A[N] = 16 / 3;
    return (A[N]);
    _imp_leave();
  }
  int I;
  double X;
  I = ITEST(100);
  X = RTEST(1000);
  if (I == 10000 && X == (16 / 3))
    PRINTSTRING(_imp_str_literal("TEST OK"));
  else {
    PRINTSTRING(_imp_str_literal("FAIL"));
    PRINTSTRING(_imp_str_literal("\nExpected =         100000"));
    PRINTFL(16 / 3, 9);
    PRINTSTRING(_imp_str_literal("\nactual    ="));
    WRITE(I, 10);
    PRINTFL(X, 9);
  }

  _imp_leave();
  exit(0);
  return (0);
}