empty.ml

open Containers
let _ = let lst = [1;2;3] in
        let open Sequence in
        let open Format in
        let s   = of_list lst in
        if not @@ is_empty s
        then print_endline "not empty";
        Format.printf "%a" (List.pp pp_print_int) (to_list s)

(*
not empty
1, 2, 3
*)