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


CLEAR A 



# B= 0 TAI =SUUREMPI ,MUTTA KUITENKIN B=X-1



REPEAT B TIMES (


CLEAR B     
INCREASE B

)


REPEAT B TIMES (

CLEAR B

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 x/2=J  
#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 X

)

CLEAR M
CLEAR J


)

)