CLEAR A

INCREASE A
INCREASE A
INCREASE A
INCREASE A
INCREASE A
INCREASE A
INCREASE A
INCREASE A
INCREASE A
INCREASE A

#b=100 to simulate while true
REPEAT A TIMES (
	REPEAT A TIMES (
		INCREASE B
	)
)
#do things if l is 1
INCREASE L

#A=10
#B=100 
#C D E to check parity of X


REPEAT B TIMES (
	REPEAT L TIMES ( PRINT X )
	#check parity of x? also compute x/2
	#start with C=1 D=0
	#every iteration swap C and D using E and F as temp things
	#use m for storing x/2
	CLEAR C
	CLEAR D
	CLEAR E
	CLEAR F
	CLEAR M
	INCREASE C
	REPEAT X TIMES (
		REPEAT C TIMES ( INCREASE E )
		REPEAT D TIMES ( INCREASE F )
		CLEAR C
		CLEAR D
		REPEAT E TIMES ( INCREASE D )
		REPEAT F TIMES ( INCREASE C )
		CLEAR E
		CLEAR F
		REPEAT C TIMES ( INCREASE M )
	)
	#if even C=1
	REPEAT C TIMES (
		CLEAR X
		REPEAT M TIMES ( INCREASE X )	
	)
	#if odd D=1
	CLEAR T
	REPEAT D TIMES (
		REPEAT X TIMES (
			INCREASE T
			INCREASE T
			INCREASE T
		)
		CLEAR X
		REPEAT T TIMES (
			INCREASE X
		)
		INCREASE X
		CLEAR T
	)
)