# Build B=10 and C=8
CLEAR B
INCREASE B
INCREASE B
INCREASE B
INCREASE B
INCREASE B
INCREASE B
INCREASE B
INCREASE B
INCREASE B
INCREASE B
CLEAR C
INCREASE C
INCREASE C
INCREASE C
INCREASE C
INCREASE C
INCREASE C
INCREASE C
INCREASE C
# A = 180 using 100 + 80
CLEAR A
REPEAT B TIMES (
  REPEAT B TIMES (
    INCREASE A
  )
)
REPEAT B TIMES (
  REPEAT C TIMES (
    INCREASE A
  )
)

PRINT X

# L = [X >= 2]
CLEAR B
CLEAR C
REPEAT X TIMES (
  CLEAR D
  INCREASE D
  REPEAT C TIMES (
    CLEAR D
  )
  CLEAR C
  REPEAT D TIMES (
    INCREASE C
  )
  CLEAR D
  INCREASE D
  REPEAT C TIMES (
    CLEAR D
  )
  REPEAT D TIMES (
    INCREASE B
  )
)
CLEAR L
INCREASE L
CLEAR D
INCREASE D
REPEAT B TIMES (
  CLEAR D
)
REPEAT D TIMES (
  CLEAR L
)

REPEAT A TIMES (
  REPEAT L TIMES (

    # B = X//2, C = X%2
    CLEAR B
    CLEAR C
    REPEAT X TIMES (
      CLEAR D
      INCREASE D
      REPEAT C TIMES (
        CLEAR D
      )
      CLEAR C
      REPEAT D TIMES (
        INCREASE C
      )
      CLEAR D
      INCREASE D
      REPEAT C TIMES (
        CLEAR D
      )
      REPEAT D TIMES (
        INCREASE B
      )
    )

    # E = 1 - C (1 если чётное)
    CLEAR E
    INCREASE E
    REPEAT C TIMES (
      CLEAR E
    )

    # S = 3X + 1
    CLEAR S
    INCREASE S
    REPEAT X TIMES (
      INCREASE S
    )
    REPEAT X TIMES (
      INCREASE S
    )
    REPEAT X TIMES (
      INCREASE S
    )

    # X := (чётное ? B : S)
    CLEAR X
    REPEAT E TIMES (
      REPEAT B TIMES (
        INCREASE X
      )
    )
    REPEAT C TIMES (
      REPEAT S TIMES (
        INCREASE X
      )
    )

    PRINT X

    # Обновить L = [X >= 2] для следующей итерации
    CLEAR B
    CLEAR C
    REPEAT X TIMES (
      CLEAR D
      INCREASE D
      REPEAT C TIMES (
        CLEAR D
      )
      CLEAR C
      REPEAT D TIMES (
        INCREASE C
      )
      CLEAR D
      INCREASE D
      REPEAT C TIMES (
        CLEAR D
      )
      REPEAT D TIMES (
        INCREASE B
      )
    )
    CLEAR L
    INCREASE L
    CLEAR D
    INCREASE D
    REPEAT B TIMES (
      CLEAR D
    )
    REPEAT D TIMES (
      CLEAR L
    )

  )
)