PRINT X
INCREASE F
INCREASE F
INCREASE R INCREASE R INCREASE R INCREASE R INCREASE R
INCREASE R INCREASE R INCREASE R INCREASE R INCREASE R
INCREASE R
REPEAT R TIMES ( REPEAT F TIMES ( REPEAT F TIMES ( REPEAT F TIMES ( REPEAT F TIMES ( INCREASE K ) ) ) ) )
INCREASE K INCREASE K INCREASE K
#LUO LUVUN 179
REPEAT K TIMES (
REPEAT X TIMES ( CLEAR G REPEAT Y TIMES ( CLEAR Y INCREASE G ) INCREASE Y )
CLEAR Y
# G=0, KUN X=1, MUULLOIN G=1
REPEAT G TIMES (
CLEAR G
INCREASE W
REPEAT F TIMES (
INCREASE A
REPEAT X TIMES (
REPEAT A TIMES ( CLEAR A INCREASE E )
REPEAT B TIMES ( CLEAR B INCREASE A INCREASE J INCREASE G )
REPEAT C TIMES ( CLEAR C INCREASE B )
REPEAT D TIMES ( CLEAR D INCREASE C INCREASE G )
REPEAT E TIMES ( CLEAR E INCREASE D )
)
CLEAR B
CLEAR D
CLEAR E
REPEAT A TIMES (
CLEAR X
PRINT G # X/2
REPEAT J TIMES ( INCREASE X )
PRINT J #X/4
CLEAR C
CLEAR A
CLEAR W
)
CLEAR J
REPEAT C TIMES (
CLEAR X
REPEAT G TIMES ( INCREASE X )
# X/2
PRINT G
CLEAR C
CLEAR W
)
CLEAR G
)
REPEAT W TIMES (
# 3*X+1
REPEAT X TIMES ( REPEAT F TIMES ( INCREASE X ) )
INCREASE X
PRINT X
CLEAR W
)
)
)
