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
REPEAT Y TIMES ( REPEAT Y TIMES ( REPEAT Y TIMES ( INCREASE O ) ) )
REPEAT Y TIMES ( REPEAT Y TIMES ( INCREASE O ) )
REPEAT Y TIMES ( REPEAT Y TIMES ( INCREASE O ) )
REPEAT Y TIMES ( INCREASE O )
PRINT X
REPEAT O TIMES (
  REPEAT B TIMES (
    CLEAR P CLEAR Q INCREASE Q
    REPEAT X TIMES (
      REPEAT P TIMES ( CLEAR Q )
      CLEAR P INCREASE P
    )
    REPEAT Q TIMES ( CLEAR P )
  )
  REPEAT P TIMES (
    CLEAR N CLEAR M CLEAR B CLEAR C CLEAR A 
    INCREASE B
    REPEAT X TIMES (
      CLEAR C REPEAT A TIMES ( INCREASE C )
      REPEAT B TIMES (
        INCREASE N
        CLEAR B
        INCREASE A
      )
      REPEAT C TIMES (
        CLEAR A
        INCREASE B
        INCREASE M
      )
    )
    REPEAT B TIMES ( CLEAR X 
      REPEAT M TIMES ( INCREASE X )
    )
    #3x+1
    REPEAT A TIMES (
      CLEAR Y
      REPEAT M TIMES ( INCREASE X )
      INCREASE X
      REPEAT X TIMES ( INCREASE Y )
      REPEAT X TIMES ( INCREASE Y )
      PRINT Y
    )
    PRINT X
  )
)
# x/2 innovointia:
#REPEAT X TIMES (
#  REPEAT A TIMES ( 
#  INCREASE N INCREASE B CLEAR A )
#  REPEAT B TIMES ( INCREASE A )
#)