sommadispari
0 swap 0
  do
    swap dup 2 mod
    if +
    else drop
    then
  loop