program wallgen

implicit none

integer :: a, b, c, d, e, f, g, h
integer :: env = 1

open(unit = 3, file = "env.txt", action = "WRITE")

if(env == 1) then
	write(3,*) 7292
	do a = 1,10,1
		do b = 1,100,1
			write(3,*) a
			write(3,*) b
			write(3,*) 100-a
			write(3,*) b
		enddo
	enddo
	do c = 20,45,1
		do d = 30,70,1
			write(3,*) c
			write(3,*) d
		enddo
	enddo
	do e =  55,80,1
		do f = 30,70,1
			write(3,*) e
			write(3,*) f
		enddo
	enddo
	do g = 1,20,1
		do h = 11,89,1
			write(3,*) h
			write(3,*) g
			write(3,*) h
			write(3,*) 100-g
		enddo
	enddo
endif

if(env == 2) then
	write(3,*) 6228
	do a = 1,99,1
		write(3,*) 1
		write(3,*) a
		write(3,*) 99
		write(3,*) a
	enddo
	do b = 1,99,1
		write(3,*) b
		write(3,*) 1
		write(3,*) b
		write(3,*) 99
	enddo
	do c = 10,45,1
		do d = 10,90,1
			write(3,*) c
			write(3,*) d
		enddo
	enddo
	do e = 55,90,1
		do f = 10,90,1
			write(3,*) e
			write(3,*) f
		enddo
	enddo
endif

if(env == 3) then
	write(3,*) 396
	do a = 1,99,1
		write(3,*) 1
		write(3,*) a
		write(3,*) 99
		write(3,*) a
	enddo
	do b = 1,99,1
		write(3,*) b
		write(3,*) 1
		write(3,*) b
		write(3,*) 99
	enddo
endif

if(env == 4) then
	write(3,*) 810
	do a = 6,95,1
		do b = 6,95,1
			write(3,*) a
			write(3,*) b
		enddo
	enddo
endif

close(3)

end program wallgen