# Alkuarvo on X
# Y = 0, Z = 0
CLEAR Y
CLEAR Z
# Aloitetaan silmukka, kun X != 1
REPEAT X TIMES (
PRINT X
# Lasketaan Z = X mod 2
CLEAR Z
REPEAT X TIMES (
INCREASE Z
CLEAR Y
INCREASE Y
REPEAT 1 TIMES () # tyhjä komento, tarvitaan
)
# Jos Z = 0 -> X on parillinen
# Jos Z = 1 -> X on pariton
# Pariton: X = 3*X + 1
# Parillinen: X = X / 2
# Tämä toteutetaan vähentämällä X:ää ja lisäämällä uuteen muuttujaan
# Pariton tapa: X = 3*X + 1
# Parillinen tapa: X = X / 2
# Parittomuuden tarkistus ja laskenta tehdään toistamalla
# Tämä osa vaatii pitkän toiston, mutta periaate on yllä
)