         Edinburgh IMP77 Compiler - Version 8.4

    1  %begin
    2    %integer x
    3    x = 4
    4    %for x = 1, 1, x %cycle
    5      write(x, -1)
    6      newline
    7    %repeat
    8  %endofprogram

    8 Statements compiled
