INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE X
INCREASE X
#INCREASE X
#INCREASE X
#INCREASE X
#INCREASE X
#INCREASE X
INCREASE B
INCREASE P
REPEAT Y TIMES ( REPEAT Y TIMES ( REPEAT Y TIMES ( INCREASE O ) ) )
PRINT X
REPEAT O TIMES (
CLEAR N CLEAR B CLEAR C CLEAR A 
  REPEAT P TIMES (
  REPEAT X TIMES (
    INCREASE B
    REPEAT A TIMES ( 
      CLEAR A CLEAR B
      INCREASE N
    )
    REPEAT B TIMES (
      INCREASE A
    )
  )
  CLEAR P 
  REPEAT N TIMES (
    CLEAR P INCREASE P
  )
  )
  REPEAT P TIMES (
    CLEAR B INCREASE B
    REPEAT A TIMES (
      CLEAR B
      CLEAR Y
      INCREASE N
      REPEAT N TIMES ( INCREASE X )
      REPEAT X TIMES ( INCREASE Y )
      REPEAT X TIMES ( INCREASE Y )
      PRINT Y
    )
    REPEAT B TIMES ( CLEAR X 
      REPEAT N TIMES ( INCREASE X )
      #INCREASE X
    )
    #3x+1
    PRINT X
  )
)