sommadispari 0 swap 0 do swap dup 2 mod if + else drop then loop FORTH gestisce uno stack su cui carica i dati prima di eseguire il processo sommadispari. 23 34 7 9 4 sommadispari * swap scambia il contenuto delle prime due posizioni dello stack * dup duplica il contenuto della cima dello stack e lo colloca sullo stack * si sottointende che si effettui una operazione di push sullo stack per ogni numero nel codice * if effettua un test sulla cima dello stack se vale 1 allora esegue le istruzioni tra if e else (+ nel nostro caso) 0 allora esegue da else a then (drop nel nostro caso) alla fine del processo sullo stack ci sara' la somma dei numeri dispari.