procedure main()
i:=1
every i*:=1to 1e3
write(i)
end