diff --git a/include/extra/array.h b/include/extra/array.h
index 8cc7c9a..6ec3825 100644
--- a/include/extra/array.h
+++ b/include/extra/array.h
@@ -12,7 +12,9 @@
 
 extern ssize_t libcdsb_array_get(vtype_value* x, vtype_array* s, ssize_t index, _Bool cut) LIBCDSB_nt__ LIBCDSB_nn2__;
 
-extern ssize_t libcdsb_array_find(const vtype_array* x, const void* value, vtype value_type)  LIBCDSB_nt__ LIBCDSB_nn1__;
-extern ssize_t libcdsb_array_push(      vtype_array* x, const void* value, vtype value_type)  LIBCDSB_nt__ LIBCDSB_nn1__;
+extern ssize_t libcdsb_array_find(const vtype_array* x, const void* value, vtype value_type) LIBCDSB_nt__ LIBCDSB_nn1__;
+extern ssize_t libcdsb_array_push(      vtype_array* x, const void* value, vtype value_type) LIBCDSB_nt__ LIBCDSB_nn1__;
+
+extern int array_foreach(vtype_array* x, int (*callback)(void* value, ssize_t index, vtype type)) LIBCDSB_nt__ LIBCDSB_nn12__;
 
 #endif /* LIBCDSB_EXTRA_ARRAY_H */
diff --git a/src/array/extra.c b/src/array/extra.c
index 3baefbb..25b1d2c 100644
--- a/src/array/extra.c
+++ b/src/array/extra.c
@@ -73,3 +73,27 @@ ssize_t libcdsb_array_get(val_t* x, arr_t* s, ssize_t i, _Bool cut) {
 
     return i;
 }
+
+/*#####################################################################################################################*/
+
+int array_foreach(vtype_array* x, int (*callback)(void* value, ssize_t index, vtype type)) {
+
+    void*  p;
+    void*  e;
+    size_t n;
+    int    r;
+
+    p = x->mem;
+    e = x->mem + x->size*vtype_size(x->type);
+    n = 0;
+
+    while (p < e) {
+        if ((r = callback(p, n, x->type)))
+            return r;
+
+        p += vtype_size(x->type);
+        ++n;
+    }
+
+    return 0;
+}