CLEAR A

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

INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q

INCREASE R
INCREASE R

REPEAT Q TIMES ( REPEAT Q TIMES ( REPEAT Q TIMES ( REPEAT Q TIMES ( INCREASE P ) ) ) )
REPEAT R TIMES ( REPEAT A TIMES ( INCREASE P ) )
#b=100 to simulate while true

#do things if l is 1
INCREASE L

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


REPEAT P 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 M
	INCREASE C
	INCREASE Z
	REPEAT X TIMES (
		CLEAR E
		REPEAT C TIMES ( INCREASE E )
		REPEAT D TIMES ( INCREASE C )
		CLEAR D
		REPEAT E TIMES ( INCREASE D )
		REPEAT C TIMES ( INCREASE M CLEAR Z )
	)
	REPEAT Z TIMES ( CLEAR L )
	REPEAT L TIMES (
		CLEAR T
		REPEAT X TIMES ( INCREASE T INCREASE T INCREASE T )
		CLEAR X
		INCREASE T
		REPEAT D TIMES ( REPEAT T TIMES ( INCREASE X ) )
		REPEAT C TIMES ( REPEAT M TIMES ( INCREASE X ) )
	)
)