sig
  module List :
    sig
      type 'a t = 'a list = [] | (::) of 'a * 'a list
      val init : int -> (int -> 'a) -> 'a list
      val make : int -> 'a -> 'a list
      val first : 'a list -> 'a
      val last : 'a list -> 'a
      val iteri : (int -> 'a -> unit) -> 'a list -> unit
      val mapi : (int -> 'a -> 'b) -> 'a list -> 'b list
      val rfind : ('a -> bool) -> 'a list -> 'a
      val find_exc : ('a -> bool) -> exn -> 'a list -> 'a
      val findi : (int -> 'a -> bool) -> 'a list -> int * 'a
      val unique : ?cmp:('a -> 'a -> bool) -> 'a list -> 'a list
      val filter_map : ('a -> 'b option) -> 'a list -> 'b list
      val find_map_exn : ('a -> 'b option) -> 'a list -> 'b
      val find_map_opt : ('a -> 'b option) -> 'a list -> 'b option
      val find_map : ('a -> 'b option) -> 'a list -> 'b option
      val split_nth : int -> 'a list -> 'a list * 'a list
      val filteri : (int -> 'a -> bool) -> 'a list -> 'a list
      val fold_left_map :
        ('a -> 'b -> 'a * 'c) -> 'a -> 'b list -> 'a * 'c list
      val remove : 'a list -> 'a -> 'a list
      val remove_if : ('a -> bool) -> 'a list -> 'a list
      val remove_all : 'a list -> 'a -> 'a list
      val take : int -> 'a list -> 'a list
      val drop : int -> 'a list -> 'a list
      val takewhile : ('a -> bool) -> 'a list -> 'a list
      val dropwhile : ('a -> bool) -> 'a list -> 'a list
      val enum : 'a list -> 'a Enum.t
      val of_enum : 'a Enum.t -> 'a list
      val cons : 'a -> 'a list -> 'a list
      val assoc_opt : 'a -> ('a * 'b) list -> 'b option
      val assq_opt : 'a -> ('a * 'b) list -> 'b option
      val find_opt : ('a -> bool) -> 'a list -> 'a option
      val nth_opt : 'a list -> int -> 'a option
      val compare_lengths : 'a list -> 'b list -> int
      val compare_length_with : 'a list -> int -> int
      val hd : 'a list -> 'a
      val tl : 'a list -> 'a list
      val nth : 'a list -> int -> 'a
      val sort : ?cmp:('a -> 'a -> int) -> 'a list -> 'a list
      val map2 : ('a -> 'b -> 'c) -> 'a list -> 'b list -> 'c list
      val rev_map2 : ('a -> 'b -> 'c) -> 'a list -> 'b list -> 'c list
      val iter2 : ('a -> 'b -> unit) -> 'a list -> 'b list -> unit
      val fold_left2 :
        ('a -> 'b -> 'c -> 'a) -> 'a -> 'b list -> 'c list -> 'a
      val fold_right2 :
        ('a -> 'b -> 'c -> 'c) -> 'a list -> 'b list -> 'c -> 'c
      val for_all2 : ('a -> 'b -> bool) -> 'a list -> 'b list -> bool
      val exists2 : ('a -> 'b -> bool) -> 'a list -> 'b list -> bool
      val combine : 'a list -> 'b list -> ('a * 'b) list
      val map : ('a -> 'b) -> 'a list -> 'b list
      val append : 'a list -> 'a list -> 'a list
      val flatten : 'a list list -> 'a list
      val concat : 'a list list -> 'a list
      val fold_right : ('a -> 'b -> 'b) -> 'a list -> 'b -> 'b
      val remove_assoc : 'a -> ('a * 'b) list -> ('a * 'b) list
      val remove_assq : 'a -> ('a * 'b) list -> ('a * 'b) list
      val split : ('a * 'b) list -> 'a list * 'b list
      val filter : ('a -> bool) -> 'a list -> 'a list
      val find_all : ('a -> bool) -> 'a list -> 'a list
      val partition : ('a -> bool) -> 'a list -> 'a list * 'a list
      val length : 'a list -> int
      val rev_append : 'a list -> 'a list -> 'a list
      val rev : 'a list -> 'a list
      val rev_map : ('a -> 'b) -> 'a list -> 'b list
      val iter : ('a -> unit) -> 'a list -> unit
      val fold_left : ('b -> 'a -> 'b) -> 'b -> 'a list -> 'b
      val for_all : ('a -> bool) -> 'a list -> bool
      val exists : ('a -> bool) -> 'a list -> bool
      val find : ('a -> bool) -> 'a list -> 'a
      val mem : 'a -> 'a list -> bool
      val memq : 'a -> 'a list -> bool
      val assoc : 'a -> ('a * 'b) list -> 'b
      val assq : 'a -> ('a * 'b) list -> 'b
      val mem_assoc : 'a -> ('a * 'b) list -> bool
      val mem_assq : 'a -> ('a * 'b) list -> bool
      val stable_sort : ('a -> 'a -> int) -> 'a list -> 'a list
      val fast_sort : ('a -> 'a -> int) -> 'a list -> 'a list
      val merge : ('a -> 'a -> int) -> 'a list -> 'a list -> 'a list
      val sort_uniq : ('a -> 'a -> int) -> 'a list -> 'a list
      val to_seq : 'a list -> 'a Stdlib.Seq.t
      val of_seq : 'a Stdlib.Seq.t -> 'a list
      val concat_map : ('a -> 'b list) -> 'a list -> 'b list
      val equal : ('a -> 'a -> bool) -> 'a list -> 'a list -> bool
      val compare : ('a -> 'a -> int) -> 'a list -> 'a list -> int
      exception Empty_list
      exception Invalid_index of int
      exception Different_list_size of string
    end
  val ( @ ) : 'a list -> 'a list -> 'a list
end