begin
  integer x
  x = 4
  for x = 1, 1, x cycle
    write(x, -1)
    newline
  repeat
endofprogram