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
)
)