# pääloop kunnes x=1

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 (

# 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 B
INCREASE B INCREASE A
CLEAR G
REPEAT X TIMES (
REPEAT B TIMES (
REPEAT G TIMES (
CLEAR B
CLEAR G
)
REPEAT A TIMES (
CLEAR A
INCREASE G
)
)
)
REPEAT G TIMES ( CLEAR R )

REPEAT X TIMES ( INCREASE X INCREASE X )
INCREASE X
CLEAR P
)


# A = 0 , niin parillinen. P = 0 jos parillinen tehty <------------------------
REPEAT P TIMES (
CLEAR C
CLEAR A
CLEAR B
CLEAR Z
INCREASE B


REPEAT X TIMES (
 
REPEAT B TIMES (
INCREASE C
CLEAR B
INCREASE Z
)
REPEAT A TIMES ( 
CLEAR A
INCREASE B
CLEAR Z
)
 
REPEAT Z TIMES ( INCREASE A )
)
 
CLEAR X
REPEAT C TIMES ( INCREASE X )


)
REPEAT R TIMES ( PRINT X )
)
)