#include <perms.h>
int _imp_mainep(int _imp_argc, char **_imp_argv) {
  long long int L;
  long long int M;
  long long int N;
  long double X;
  int I;
  int J;
  L = 0xFEDCBA98FEDCBA98;
  for (J = 0; J <= 1; J++)
    for (I = 0; I <= 30; I++) {
      N = IEXP((-1), J) * ((unsigned)L >> I);
      X = N - 0.001;
      M = Lintpt(X);
      if (N != M + 1) {
        Write(I, 1);
        Printfl(N, 16);
        Printfl(X, 15);
        Write(N - M, 5);
        Newline();
        exit(0);
      }
      N = -N;
      X = -X;
      M = Lint(X);
      if (M != N) {
        Write(I, 1);
        Write(N - M, 5);
        Newline();
        exit(0);
      }
    }
  Printstring(_imp_str_literal("TEST OK"));
  exit(0);
  return (1);
}