begin
  integer I, INC = 2, FINAL = 17
  for I = 1, INC, FINAL cycle
    write(FINAL-INC, -1); newline
    INC = 0 ; FINAL = FINAL-1
  repeat
endofprogram