push 0 ; *
push 7 ; * Liste med tall, nederste element er 0
push 2 ; *
push 8 ; *
push 5 ; *
push 4 ; *main
LOOP
; --- kontrollera om nästa tal som finns på stacken är 0
swap ; byt plats på de översta talen
dup ; kopiera talet som är överst på stacken
push 0 ; push:a 0
eq ; plocka bort de två översta talen på stacken och jämför dem
jtrue SLUT ; hoppa till slutet om talet == 0
; --- spara det högsta talet av de två som är överst på stacken
jmp LOOP ; hoppa tillbaka till början
SLUT
drop ; ta bort nollan
end main