# Oletetaan, että X on valmiiksi annettu
# Käytetään apumuuttujaa Y

CLEAR Y
REPEAT X TIMES (
    # Tämä on vain alustava silmukka, korvataan logiikalla
)

# Collatz logiikka REPEAT-komentoja ja muuttujia hyödyntäen
# Koska tämä pseudo-kieli ei tue if-else, käytämme seuraavaa ideaa:

# 1. Tulostetaan X aina
PRINT X

# 2. Luodaan silmukka REPEATillä X:llä niin kauan, kun X != 1
#    (tässä tulkki tukee vain REPEAT, joten käytetään Y muuttujaa laskurina)

CLEAR Y
REPEAT 10000 TIMES (   # isompi luku varmuudeksi
    # Jos X == 1, lopetetaan
    CLEAR Z
    REPEAT X TIMES (INCREASE Z)   # Z = X

    # Jos Z == 1, lopetetaan
    REPEAT Z TIMES (
        INCREASE Y
    )
    # Logiikka parillinen / pariton
    # Jos Z parillinen, X = X/2
    # Jos Z pariton, X = 3*X +1
)