# pääloop kunnes x=1
 
PRINT X
INCREASE R 
 
# -- tästä ei puhuta
INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W 
REPEAT W TIMES ( REPEAT W TIMES ( INCREASE W ) ) 
INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W 
REPEAT W TIMES (
CLEAR P
CLEAR A
CLEAR Z
INCREASE P
CLEAR J
CLEAR I
CLEAR C
CLEAR Q
INCREASE Q
CLEAR S
 
 
REPEAT R TIMES ( 
# A = 1 , niin pariton | A = 0 , niin parillinen
REPEAT X TIMES ( 
INCREASE Z
REPEAT A TIMES ( 
CLEAR Z 
)
CLEAR A
REPEAT Z TIMES ( 
INCREASE A 
INCREASE C
)
)

REPEAT A TIMES (
REPEAT X TIMES ( 
REPEAT Q TIMES (
 
REPEAT S TIMES ( 
INCREASE R
CLEAR Q
)
REPEAT Q TIMES ( 
CLEAR R
)
 
)
INCREASE S
INCREASE X INCREASE X
)
INCREASE X
CLEAR P
CLEAR C
)


REPEAT P TIMES ( CLEAR X )
REPEAT C TIMES ( INCREASE X )
REPEAT R TIMES ( PRINT X )
)
)