to sommadispari :termini

if null :termini 
   [output 0]
   [if odd first :termini 
       [output sum first :termini sommadispari butfirst :termini]
   ]

si noti quanto questa funzione opera in modo simile
alla funzione lisp, a parte la diversa sintassi.