# Module Utils.List

    module List: sig .. end

    include List

    val fold_left1 : ('a -> 'a -> 'a) -> 'a list -> 'a

    val fold_right1 : ('a -> 'a -> 'a) -> 'a list -> 'a

    val range : int -> int -> int list

    val last : 'a list -> 'a

    val concat_map : ('a -> 'b list) -> 'a list -> 'b list

    val concat_map2 : ('a -> 'b -> 'c list) -> 'a list -> 'b list -> 'c list

    val mapn : ?init:int -> ('a -> int -> 'b) -> 'a list -> 'b list

    val zip : 'a list -> 'b list -> ('a * 'b) list

    val split3 : ('a * 'b * 'c) list -> 'a list * 'b list * 'c list