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