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 (
  REPEAT P TIMES (
  CLEAR N CLEAR B CLEAR C CLEAR A 
  REPEAT X TIMES (
    INCREASE B
    REPEAT A TIMES ( 
      CLEAR A CLEAR B
      INCREASE N
    )
    REPEAT B TIMES (
      INCREASE A
    )
  )
  )
  CLEAR B INCREASE B
  REPEAT A TIMES ( INCREASE B )
  REPEAT B TIMES (
    CLEAR P 
    REPEAT N TIMES (
      CLEAR P INCREASE P
    )
  )
  REPEAT P TIMES (
    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
  )
)