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

# ------------------------ JOS X = 1 , R = 0 
CLEAR C
CLEAR A
CLEAR B
INCREASE A
REPEAT X TIMES (
REPEAT B TIMES (
CLEAR G
)
REPEAT A TIMES ( 
CLEAR A
INCREASE B
INCREASE G
)
)

REPEAT G TIMES ( CLEAR R )
# ---------------------------------------------

REPEAT R TIMES (
# ----------------------------- IF a = 1 , niin parillinen | b = 1 , niin pariton
CLEAR B
CLEAR A
INCREASE A
REPEAT X TIMES ( # 6
CLEAR Z
REPEAT B TIMES (
CLEAR B
INCREASE Z
)
REPEAT A TIMES ( 
CLEAR A
INCREASE B
)
REPEAT Z TIMES ( INCREASE A )
)
# ---------------------------------

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

REPEAT B TIMES (
INCREASE C
CLEAR B
INCREASE Z
)

REPEAT A TIMES ( 
CLEAR A
INCREASE B
)

REPEAT Z TIMES ( INCREASE A )
)

CLEAR X
REPEAT C TIMES ( INCREASE X )
)

# ----------------------------------------------


# ------------------------------- JOS PARITON KERRO KOLMELLA LISÄÄ YKSI
REPEAT B TIMES (
CLEAR C
CLEAR K
INCREASE K INCREASE K INCREASE K
REPEAT K TIMES ( REPEAT X TIMES ( INCREASE C )  )

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

# ---------------- LASKETTU ARVO 
PRINT X
# --------------------------

)
)