#parittomalle luvulle A -> A
#REPEAT A TIMES ( INCREASE A INCREASE A ) INCREASE A
#parilliselle luvulle A -> T C = 1 muut 0 I palauttaa A%2
#REPEAT A TIMES ( REPEAT I TIMES ( INCREASE T ) REPEAT C TIMES ( CLEAR U CLEAR C INCREASE I ) REPEAT U TIMES ( INCREASE C CLEAR I ) INCREASE U )
INCREASE J INCREASE J INCREASE J
REPEAT J TIMES ( REPEAT J TIMES ( INCREASE J INCREASE J INCREASE J ) )
INCREASE N
REPEAT J TIMES (
REPEAT N TIMES (
PRINT X
INCREASE M
REPEAT X TIMES ( REPEAT I TIMES ( INCREASE T ) REPEAT C TIMES ( CLEAR U CLEAR C INCREASE I ) REPEAT U TIMES ( INCREASE C CLEAR I ) INCREASE U )
REPEAT I TIMES ( CLEAR M REPEAT X TIMES ( INCREASE X INCREASE X ) INCREASE X ) # JOS PARITON X3+1
REPEAT M TIMES ( CLEAR X REPEAT T TIMES ( INCREASE X ) ) #MUUTETAAN PUOLIKKAAKSI JOS PARILLINEN
CLEAR I CLEAR T CLEAR C CLEAR U CLEAR M ) #TYHJENNETÄÄN MUUTTUJAT
CLEAR Q
CLEAR P
INCREASE P
REPEAT X TIMES ( REPEAT Q TIMES ( CLEAR P ) INCREASE Q ) # EHTO 1 TARKISTUKSEEN
REPEAT P TIMES ( CLEAR N )
)
PRINT X
