#include "impstrings.h"
#define unless(cond) if (!(cond))
void TOPLEV(void)
{
  double LR1;
  int I;
  int I1 = 1;
  int I2 = 2;
  int I3 = 3;

  while (I2 == I3) I = I1;
  do
    I = I1;
  while (!(I2 == I3));
  for (I2 = I3; I2 <= I1; I2 += 1) I = I1;
  while (I2 == I3) I = I1;
  while (I1 == I2) I = I1;
  for (;;) {
    I = I1;
    if (I1 == I2) break;        /* watch for %continue! */
  }
  for (I2 = I3; I2 <= I1; I2 += 1) I = I1;
  while (I1 == I2) {
    I = I1;
    if (I2 == I3) break;        /* watch for %continue */
  }
lab7:;
  for (I2 = I3; I2 <= I1; I2 += 1) {
    I = I1;
    if (I2 == I3) break;        /* watch for %continue */
  }
  while (I2 == I3) {
    I = I1;
    I1 = I2;
  }
  do {
    I = I1;
    I1 = I2;
  } while (!(I2 == I3));
lab3:;
  for (I2 = I3; I2 <= I1; I2 += 1) {
    I = I1;
    I1 = I2;
  }
lab4:;
  while (I2 == I3) {
    I = I1;
    I1 = I2;
  }
lab5:;
  while (I1 == I2) {
    I = I1;
    I1 = I2;
  }
lab6:;
  for (;;) {
    I = I1;
    I1 = I2;
    if (I1 == I2) break;        /* watch for %continue! */
  }
lab2:;
  for (I2 = I3; I2 <= I1; I2 += 1) {
    I = I1;
    I1 = I2;
  }
  while (I1 == I2) {
    I = I1;
    I1 = I2;
    if (I2 == I3) break;        /* watch for %continue */
  }
lab1:;
  for (I2 = I3; I2 <= I1; I2 += 1) {
    I = I1;
    I1 = I2;
    if (I2 == I3) break;        /* watch for %continue */
  }
}