#include <perms.h>
int _imp_mainep(int _imp_argc, char **_imp_argv) {
  int Itest(int N) {
    int A[N];
    A[N] = IEXP(N, 2);
    return (A[N]);
  }
  double Rtest(int N) {
    double A[N];
    A[N] = 16 / 3;
    return (A[N]);
  }
  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);
  }
  exit(0);
  return (1);
}