# 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 INCREASE W

REPEAT W TIMES (
CLEAR P
CLEAR A
CLEAR Z
INCREASE P
CLEAR J
CLEAR I
CLEAR C


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 )

)

 
# A = 1 , niin pariton <------------------------
CLEAR Z
INCREASE Z
CLEAR S

REPEAT A TIMES (
 
# Ykkös checker--------------------------------
REPEAT X TIMES ( 

REPEAT Z TIMES (

REPEAT S TIMES ( 
INCREASE R
CLEAR Z 
)
REPEAT Z TIMES ( 
CLEAR R
)

)
INCREASE S
INCREASE X INCREASE X
)


INCREASE X
CLEAR P
)
 



# A = 0 , niin parillinen. P = 0 jos parillinen tehty <------------------------
REPEAT P TIMES (
 

REPEAT X TIMES ( 
INCREASE J

REPEAT I TIMES ( CLEAR J )
CLEAR I
REPEAT J TIMES ( 
INCREASE I 
INCREASE C
 
)
)
CLEAR X
)


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