PRINT X


INCREASE I  
INCREASE I 
INCREASE I

INCREASE R INCREASE R INCREASE R INCREASE R 

REPEAT I TIMES ( REPEAT R TIMES ( INCREASE U ) )

REPEAT U TIMES ( REPEAT U TIMES ( INCREASE K ) )


INCREASE F
INCREASE F

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 INCREASE E ) 

REPEAT B TIMES ( CLEAR B  INCREASE A  INCREASE J CLEAR E )  

REPEAT C TIMES ( CLEAR C INCREASE B )


)

CLEAR A
CLEAR B 
CLEAR C 

#luodaan luvut J=x/2  
#E ON 0 JOS X ON PARILLINEN, 1 JOS X ON PARITON




INCREASE M 

REPEAT E TIMES ( 
 
REPEAT X TIMES ( REPEAT F TIMES ( INCREASE X ) )
INCREASE X
PRINT X

CLEAR M 
CLEAR E 

)

REPEAT M TIMES ( 
 
CLEAR X
REPEAT J TIMES ( INCREASE X )

PRINT J
CLEAR M

)

CLEAR J


)

)