# Main program file
PRINT X
# Q is a sufficiently large integer
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
INCREASE Q
# CONST T = 3
INCREASE T
INCREASE T
INCREASE T
REPEAT Q TIMES (
# D: 1 IF % 2 == 0 ELSE 0
# E: 0 IF % 2 == 0 ELSE 1
# IF 0 D AND E = 0 !!
INCREASE A
REPEAT X TIMES (
REPEAT C TIMES (
CLEAR A
CLEAR B
CLEAR C
INCREASE A
INCREASE D
CLEAR E
)
REPEAT B TIMES (
CLEAR B
INCREASE C
CLEAR D
INCREASE E
)
REPEAT A TIMES (
CLEAR A
INCREASE B
)
)
CLEAR A
CLEAR B
CLEAR C
REPEAT D TIMES (
INCREASE R
)
REPEAT E TIMES (
INCREASE R
)
REPEAT R TIMES (
REPEAT E TIMES (
# /2
INCREASE X
INCREASE A
REPEAT X TIMES (
REPEAT C TIMES (
INCREASE Z
CLEAR A
CLEAR B
CLEAR C
INCREASE A
)
REPEAT B TIMES (
CLEAR B
INCREASE C
)
REPEAT A TIMES (
CLEAR A
INCREASE B
)
)
CLEAR A
CLEAR B
CLEAR C
CLEAR X
REPEAT Z TIMES (
INCREASE X
)
CLEAR Z
PRINT X
)
REPEAT D TIMES (
# *3+1
REPEAT T TIMES (
REPEAT X TIMES (
INCREASE Z
)
)
CLEAR X
REPEAT Z TIMES (
INCREASE X
)
INCREASE X
CLEAR Z
PRINT X
)
)
CLEAR D
CLEAR E
CLEAR R
)