sig
val map_from_to : ('a -> 'b) -> 'a -> 'a -> ('a -> 'a) -> 'b list
val from_to : 'a -> 'a -> ('a -> 'a) -> 'a list
val take : int -> 'a list -> 'a list
val transpose : 'a list list -> 'a list list
val combine_all : 'a list list -> 'a list list
val repeat : int -> 'a -> 'a list
val flat_map : ('a -> 'b list) -> 'a list -> 'b list
val unique : ('a -> 'a -> bool) -> 'a list -> 'a list
val ith_group : int -> int -> 'a list -> 'a list
end