#include <perms.h>
int _imp_mainep(int _imp_argc, char **_imp_argv) {
  float I;
  float J;
  if (_imp_on_event(1, 2, 9)) goto Trap;
  I = 2;
  for (;;) {
    J = I;
    I += I;
    if (I < 00.00001 || J >= I) {
      Printstring(_imp_str_literal("Oflow missed"));
      exit(0);
    }
  }
  Printstring(_imp_str_literal("FAIL"));
  exit(0);
Trap:;
  Printstring(_imp_str_literal("event trapped "));
  Write((unsigned)Eventinf >> 8, 5);
  Write(Eventinf & 255, 5);
  Newline();
  Printstring(_imp_str_literal("Line of failure ="));
  Write(Eventline, 4);
  Newline();
  Printstring(_imp_str_literal("Test OK"));
  exit(0);
  return (1);
}