Module Array.Unfoldable

type 'a t = 'a array
val unfold : ('a -> ('a * 'a) option) -> 'a -> 'a t