# Set I, the number of iterations, to 196
INCREASE W
INCREASE W
INCREASE W
INCREASE W
INCREASE W
INCREASE W
INCREASE W
INCREASE W
INCREASE W
INCREASE W
INCREASE W
INCREASE W
INCREASE W
INCREASE W
REPEAT W TIMES (
REPEAT W TIMES (
INCREASE I # Increase to 14^2 = 196
)
)
# Set M to 3
INCREASE M INCREASE M INCREASE M
PRINT X
REPEAT I TIMES (
## Set P = 1 if X > 1 ##
REPEAT X TIMES ( # X-1
REPEAT N TIMES (
INCREASE L
)
CLEAR N
INCREASE N
)
CLEAR N
REPEAT L TIMES (
CLEAR P
INCREASE P
)
CLEAR L
#########################
REPEAT P TIMES (
# Check if X is even (then E=1) Z = X/2
INCREASE E
REPEAT X TIMES (
REPEAT E TIMES (
CLEAR E
CLEAR T
)
REPEAT T TIMES (
CLEAR T
INCREASE E
INCREASE Z
)
INCREASE T
)
INCREASE O # Setting odd to 1, if even then gets set to 0
# If X is even
REPEAT E TIMES (
# Set X to be Z
CLEAR X
REPEAT Z TIMES (
INCREASE X
)
CLEAR O
)
# If X is odd
REPEAT O TIMES (
# Print result of 3x+1
REPEAT X TIMES (
REPEAT M TIMES (
INCREASE J
)
)
INCREASE J
PRINT J
CLEAR J
# Print the result of (3x+1)/2
REPEAT Z TIMES (
INCREASE X
)
INCREASE X
)
CLEAR Z
CLEAR E
CLEAR O
PRINT X
)
CLEAR P
)