PRINT X CLEAR A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A # C = continue flag CLEAR C INCREASE C REPEAT A TIMES ( REPEAT C TIMES ( # Compute I = floor(X/2) and R = parity(X) together CLEAR R CLEAR I REPEAT X TIMES ( CLEAR T INCREASE T REPEAT R TIMES ( CLEAR T ) CLEAR R REPEAT T TIMES ( INCREASE R ) CLEAR U INCREASE U REPEAT R TIMES ( CLEAR U ) REPEAT U TIMES ( INCREASE I ) ) # Check if I == 0 (X == 1), set C = 0 if so CLEAR L INCREASE L REPEAT I TIMES ( CLEAR L ) REPEAT L TIMES ( CLEAR C ) # Process only if I != 0 (X > 1) CLEAR G INCREASE G REPEAT L TIMES ( CLEAR G ) REPEAT G TIMES ( # If even (R == 0): X = I CLEAR H INCREASE H REPEAT R TIMES ( CLEAR H ) REPEAT H TIMES ( CLEAR X REPEAT I TIMES ( INCREASE X ) PRINT X ) # If odd (R == 1): X = 6*I + 4 REPEAT R TIMES ( CLEAR X REPEAT I TIMES ( INCREASE X INCREASE X INCREASE X INCREASE X INCREASE X INCREASE X ) INCREASE X INCREASE X INCREASE X INCREASE X PRINT X ) ) ) )