#include <perms.h>
int _imp_mainep(int _imp_argc, char **_imp_argv) {
  int L;
  int M;
  int N;
  double X;
  int I;
  int J;
  L = 12345678;
  for (J = 0; J <= 1; J++)
    for (I = 0; I <= 30; I++) {
      N = IEXP((-1), J) * ((unsigned)L >> I);
      X = N;
      M = Intpt(X);
      if (N != M) {
        _imp_monitor();
        Write(I, 1);
        Space();
        Write(N - M, 5);
        Newline();
        exit(0);
      }
      M = Int(X);
      if (M != N) {
        _imp_monitor();
        Write(I, 1);
        Space();
        Write(N - M, 5);
        Newline();
        exit(0);
      }
    }
  Printstring(_imp_str_literal("TEST OK"));
  Newline();
  exit(0);
  return (1);
}