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