#line 1 "-"
#line 1 "test/for_each.g"
use "sequence_queries.g";
use "iterator_models.g";

fun main() -> int@ {
  let n = 8;
  let a = new int[n];
  for (let i = 0; i != n; ++i)
    a[i] = i;
  let sum = 0;
  for_each(a, a + n, fun(int x) p=&sum { *p = *p + x; });
  return sum - (n * (n-1))/2;
}