d:[1 2 3 0 4 0 5 6 0 7 8 9 0 10] ; input
h:3 ;highest
a:1 ;accumulator

;collect
0avd
d>
dn0

;set max
h-a
h+a

;store temp
d+a

;first check
h>
a-h
an4
a+d
d-d
d+1
n5
4a-a
a+h
d-d
d+2
5h>
a-h
an8
h>d

;reset
8d-d
a-a

;next
d>
dn0

;sum
avh
h>
avh
h>
avh
=a