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 A

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

REPEAT B TIMES ( CLEAR B  INCREASE A  INCREASE J )  

REPEAT C TIMES ( CLEAR C INCREASE B )


)

CLEAR C 

#luodaan luvut J=x/2  
#B ON 0 JOS X ON PARILLINEN, A ON 1 JOS X PARILLINEN, MUUTEN TOSINPÄIN


REPEAT B TIMES ( 
 
REPEAT X TIMES ( REPEAT F TIMES ( INCREASE X )  )
INCREASE X
PRINT X
CLEAR B 

)

REPEAT A TIMES ( 
 
CLEAR X
REPEAT J TIMES ( INCREASE X )
PRINT J
CLEAR A

)

CLEAR J

)

)