let
fold_right f a b =
Array
.fold_right f (
Array
.sub a.data 0 a.length) b