# Commands:
#   CLEAR X
#   INCREASE X
#   PRINT X
#   REPEAT X TIMES ( ... )

# Longest Collatz conjecture: 113 (somewhere)



# Max amount to A (unpacked; currently 113)
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

PRINT X # Start the conjecture

INCREASE C # Will be nuked when reaches 1 (and if already 1)
INCREASE K
REPEAT X TIMES (
  REPEAT K TIMES (
    REPEAT M TIMES (
      INCREASE N
    )
    INCREASE M
    REPEAT N TIMES (
      CLEAR K # Loop will break
    )
  )
)
REPEAT K TIMES ( # If loop went through (stopped at 1)
  CLEAR C
)

REPEAT X TIMES ( # Is the first number odd?
  INCREASE P
  REPEAT O TIMES (
    CLEAR O
    CLEAR P
  )
  REPEAT P TIMES (
    INCREASE O
  )
)

INCREASE I

REPEAT A TIMES (
  REPEAT C TIMES ( # Continue if hasn't reached 1

    REPEAT L TIMES ( # If swapping variables requested...
      REPEAT J TIMES (
        INCREASE T
      )
      REPEAT I TIMES (
        INCREASE J
        CLEAR I
      )
      REPEAT T TIMES (
        INCREASE I
        CLEAR J
        CLEAR T
      )
      CLEAR L
    )

    REPEAT I TIMES (
      CLEAR Y

      CLEAR O
      CLEAR P
      CLEAR Q
      REPEAT X TIMES ( # Is odd?
        INCREASE P
        REPEAT O TIMES (
          CLEAR O
          CLEAR P
          INCREASE Y
          INCREASE Q
        )
        REPEAT P TIMES (
          INCREASE O
          CLEAR Q
        )
      )

      REPEAT Q TIMES (
        PRINT Y
        INCREASE L

        # Stop if 1 (Clear C)
        INCREASE V
        REPEAT Y TIMES (
          REPEAT V TIMES (
            REPEAT Z TIMES (
              INCREASE W
            )
            INCREASE Z
            REPEAT W TIMES (
              CLEAR V # Loop will break
              CLEAR W # Clear everything else if continuing
              CLEAR Z
            )
          )
        )
      )

      REPEAT O TIMES ( # Multiply and increment if odd
        CLEAR Y
        REPEAT X TIMES (
          INCREASE Y INCREASE Y INCREASE Y
        )
        INCREASE Y

        PRINT Y
        CLEAR X

        CLEAR D
        CLEAR E
        REPEAT Y TIMES ( # Divide by 2
          INCREASE E
          REPEAT D TIMES (
            INCREASE X
            CLEAR D
            CLEAR E
          )
          REPEAT E TIMES (
            INCREASE D
          )
        )
        PRINT X

        # Stop if 1 (Clear C)
        INCREASE V
        REPEAT X TIMES (
          REPEAT V TIMES (
            REPEAT Z TIMES (
              INCREASE W
            )
            INCREASE Z
            REPEAT W TIMES (
              CLEAR V # Loop will break
              CLEAR W # Clear everything else if continuing
              CLEAR Z
            )
          )
        )
      )
      REPEAT V TIMES ( # If loop went through (stopped at 1)
        CLEAR C
      )
    )

    # THE SAME PROGRAM UNDERNEATH BUT WITH X AND Y SWAPPED!!! BE CAUTIOUS AND STUFF!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

    REPEAT J TIMES (
      CLEAR X

      CLEAR O
      CLEAR P
      CLEAR Q
      REPEAT Y TIMES ( # Is odd?
        INCREASE P
        REPEAT O TIMES (
          CLEAR O
          CLEAR P
          INCREASE X
          INCREASE Q
        )
        REPEAT P TIMES (
          INCREASE O
          CLEAR Q
        )
      )

      REPEAT Q TIMES (
        PRINT X
        INCREASE L

        # Stop if 1 (Clear C)
        INCREASE V
        REPEAT X TIMES (
          REPEAT V TIMES (
            REPEAT Z TIMES (
              INCREASE W
            )
            INCREASE Z
            REPEAT W TIMES (
              CLEAR V # Loop will break
              CLEAR W # Clear everything else if continuing
              CLEAR Z
            )
          )
        )
      )

      REPEAT O TIMES ( # Multiply and increment if odd
        CLEAR X
        REPEAT Y TIMES (
          INCREASE X INCREASE X INCREASE X
        )
        INCREASE X

        PRINT X
        CLEAR Y

        CLEAR D
        CLEAR E
        REPEAT X TIMES ( # Divide by 2
          INCREASE E
          REPEAT D TIMES (
            INCREASE Y
            CLEAR D
            CLEAR E
          )
          REPEAT E TIMES (
            INCREASE D
          )
        )
        PRINT Y

        # Stop if 1 (Clear C)
        INCREASE V
        REPEAT Y TIMES (
          REPEAT V TIMES (
            REPEAT Z TIMES (
              INCREASE W
            )
            INCREASE Z
            REPEAT W TIMES (
              CLEAR V # Loop will break
              CLEAR W # Clear everything else if continuing
              CLEAR Z
            )
          )
        )
      )
      REPEAT V TIMES ( # If loop went through (stopped at 1)
        CLEAR C
      )
    )
  )
)