# Q = 180
# 241 successful iterations

INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q # 10
INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q # 20
INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q # 30
INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q # 40
INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q # 50
INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q # 60
INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q # 70
INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q # 80
INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q # 90
INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q # 100
INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q # 110
INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q # 120
INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q # 130
INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q # 140
INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q # 150
INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q # 160
INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q # 170
INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q INCREASE Q # 180

CLEAR S # s <= (x > 0)
CLEAR L
CLEAR M
INCREASE M
REPEAT X TIMES (
    REPEAT L TIMES ( CLEAR L INCREASE S )
    REPEAT M TIMES ( CLEAR M INCREASE L )
)

PRINT X
REPEAT Q TIMES (
    # if x > 1
    REPEAT S TIMES (
    
        # o: store x / 2 for quick access
        CLEAR O
 
        # a: even
        # b: odd
        CLEAR A
        INCREASE A
        CLEAR B
        REPEAT X TIMES (
          
            CLEAR T # copy t <= b
            REPEAT B TIMES ( INCREASE T )
            
            # flip-flop a/b
            # if a, if b
            REPEAT A TIMES ( CLEAR A INCREASE B )
            REPEAT T TIMES ( CLEAR B INCREASE A INCREASE O )
        )
 
        # if a
        REPEAT A TIMES (
 
            # out alrdy has x / 2
            # copy x <= out
            CLEAR X
            REPEAT O TIMES ( INCREASE X )
            
            CLEAR S # s <= (x > 0)
            CLEAR L
            CLEAR M
            INCREASE M
            REPEAT X TIMES (
                REPEAT L TIMES ( CLEAR L INCREASE S )
                REPEAT M TIMES ( CLEAR M INCREASE L )
            )

 
        )
        # else (if b)
        REPEAT B TIMES (
 
            # out alrdy has x / 2
            # add x <= o
            REPEAT O TIMES ( INCREASE X )
 
            # x *= 2
            REPEAT X TIMES ( INCREASE X )
 
            # x += 1
            INCREASE X
            INCREASE X
 
        )
 
        PRINT X
    )
)
#EOF