func[] equind a[] .
   for v in a[]
      sumr += v
   .
   for i to len a[]
      sumr -= a[i]
      if suml = sumr
         r[] &= i
      .
      suml += a[i]
   .
   return r[]
.
print equind [ -7 1 5 2 -4 3 0 ]