Gist.ARRAYArray interface.
val length : t -> intlength a is the length of a.
iter iterates over all elements of the array in increasing index order.
fold_left f init a folds f over a's elements in increasing index order starting with init.