# Main script ----------- R = 1 = LOOP PYÖRII , 0 = LOOP POIS
#----- Var
PRINT X
INCREASE R 
INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W
REPEAT W TIMES ( REPEAT W TIMES ( INCREASE W ) ) 
REPEAT W TIMES (
REPEAT R TIMES (


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


# -------------------- JOS PARILLINEN JAA KAHDELLA
REPEAT A TIMES (
CLEAR C
CLEAR A
CLEAR B
INCREASE A
REPEAT X TIMES (
 
REPEAT B TIMES (
INCREASE C
CLEAR B
INCREASE Z
)
 
REPEAT A TIMES ( 
CLEAR A
INCREASE B
CLEAR Z
)
 
REPEAT Z TIMES ( INCREASE A )
)
 
CLEAR X
REPEAT C TIMES ( INCREASE X )
)
 
# ----------------------------------------------
 
INCREASE A
CLEAR B
REPEAT A TIMES (
REPEAT B TIMES (
CLEAR B
CLEAR A
)
INCREASE B
)

# ------------------------------- JOS PARITON KERRO KOLMELLA LISÄÄ YKS
 
REPEAT A TIMES (
 
# ------------------------ JOS X = 1 , R = 0 
 
 
INCREASE A
CLEAR G
REPEAT X TIMES (
REPEAT B TIMES (
REPEAT G TIMES (
CLEAR B
CLEAR G
)
REPEAT A TIMES (
CLEAR A
INCREASE G
)
)
)
REPEAT G TIMES ( CLEAR R )
 
 
 
# ---------------------------------------------
 
REPEAT X TIMES ( INCREASE X INCREASE X )
INCREASE X
)
 
# ---------------- LASKETTU ARVO 
REPEAT R TIMES ( PRINT X )
# --------------------------

 
)
)