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  





REPEAT K TIMES (

INCREASE V

REPEAT X TIMES ( INCREASE P )

REPEAT V TIMES (
    
REPEAT P TIMES ( REPEAT A TIMES ( CLEAR A INCREASE B ) INCREASE A ) CLEAR P REPEAT B TIMES ( INCREASE P ) CLEAR A CLEAR B

)

CLEAR V

#MUUTUJA P 0 TAI SUUREMPI



REPEAT P TIMES (

CLEAR P   
INCREASE P

)


REPEAT P TIMES (

CLEAR P

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

REPEAT B TIMES ( CLEAR B  INCREASE A INCREASE P )  

REPEAT C TIMES ( CLEAR C INCREASE B )

)

CLEAR A
CLEAR B
CLEAR C


REPEAT P TIMES ( INCREASE P )


REPEAT X TIMES ( INCREASE E )


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

)

CLEAR P 

#E ON 0 JOS X ON PARILLINEN, 1 JOS X ON PARITON




INCREASE M 

REPEAT E TIMES ( 

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

CLEAR M 
CLEAR E 

)



REPEAT M TIMES ( 
 


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

REPEAT B TIMES ( CLEAR B  INCREASE A INCREASE P )  

REPEAT C TIMES ( CLEAR C INCREASE B )

)

CLEAR X
REPEAT P TIMES ( INCREASE X )

CLEAR A
CLEAR B
CLEAR C 

CLEAR M
CLEAR P

PRINT X

)

)

)