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 E
	CLEAR F
	CLEAR M
	INCREASE C
	INCREASE Z
	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 CLEAR Z)
	)
	REPEAT Z TIMES ( CLEAR L )
	#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
	)
)