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