# pääloop kunnes x=1
 
# INCREASE X INCREASE X INCREASE X INCREASE X INCREASE X INCREASE X
 
PRINT X
INCREASE R 
 
INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W
REPEAT W TIMES ( REPEAT W TIMES ( INCREASE W ) ) 
 
 
REPEAT W TIMES (
REPEAT R TIMES (
CLEAR P
 
# A = 1 , niin pariton | A = 0 , niin parillinen
CLEAR A
CLEAR Z
REPEAT X TIMES ( 

INCREASE Z

REPEAT A TIMES ( 
CLEAR Z 
CLEAR A
)
 
REPEAT Z TIMES ( INCREASE A )

)
INCREASE P
 
# A = 1 , niin pariton <------------------------
REPEAT A TIMES (
 
# Ykkös checker--------------------------------
 
CLEAR A
CLEAR Z
INCREASE Z
REPEAT X TIMES ( 

REPEAT Z TIMES (
REPEAT A TIMES ( CLEAR G CLEAR Z )
REPEAT Z TIMES ( 
INCREASE G 
INCREASE A 

)
)
INCREASE X INCREASE X
)
INCREASE X
 
REPEAT G TIMES ( CLEAR R )
CLEAR P
)
 
 
# A = 0 , niin parillinen. P = 0 jos parillinen tehty <------------------------
REPEAT P TIMES (
 
CLEAR A
CLEAR C
CLEAR Z
REPEAT X TIMES ( 
 
INCREASE Z
REPEAT A TIMES ( 
CLEAR Z 
CLEAR A
)
 
REPEAT Z TIMES ( 
INCREASE A 
INCREASE C
 
)
)
 
CLEAR X
REPEAT C TIMES ( INCREASE X )
)
)
REPEAT R TIMES ( PRINT X )
)