#include <perms.h>

//          Edinburgh IMP77 Compiler - Version 8.4
//
//     1  %BEGIN

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

  //     2  %INTEGER I

  int I;

  //     3        I=0

  I = 0;

  //     4        %CYCLE

L_0001:;

//     5           WRITE(I,2)

  _imp_WRITE(I, 2);

  //     6           I=I+1

  I = I + 1;

  //     7        %REPEAT %UNTIL  I=4

  if (I == 4) goto L_0002;
  goto L_0001;
L_0002:;

//     8        printstring("

  _imp_PRINTSTRING(_imp_str_literal("\nTest OK"));

  //     9+ Test OK")
  //    10  %ENDOFPROGRAM

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