#include <perms.h>

//          Edinburgh IMP77 Compiler - Version 8.4
//
//     1  { > IMP.intmath }
//     2  %begin

int main(int argc, char **argv) { /*%begin*/
  _imp_initialise(argc, argv);

  //     3  %integer i,x,y

  int I;
  int X;
  int Y;

  //     4    x = 0

  X = 0;

  //     5    y = 9

  Y = 9;

  //     6    print string("Start

  _imp_PRINTSTRING(_imp_str_literal("Start\n"));

  //     7+ ")
  //     8    %for i = 1, 1, 100000 %cycle

  // %for I = 1, 1, 100000 %cycle
  {
    I = 0;
  L_0001:
    if (I == 100000) goto L_0002;
    I += 1;

    //     9      x = x + (y * y - y) // y

    X = X + ((long)(Y * Y - Y) / (long)Y);

    //    10    %repeat

    goto L_0001;
  }

L_0002:;

//    11    print string("Finish

  _imp_PRINTSTRING(_imp_str_literal("Finish\n"));

  //    12+ ")
  //    13    Write(x,1)

  _imp_WRITE(X, 1);

  //    14    new line

  _imp_NEWLINE();

  //    15  %end %of %programm

  _imp_stop(0);
  return 0;
end_0:;
}