Module Utils

module Exn : sig ... end
type t = string
val split_on_chars : t -> on:char list -> t list
val string_rstrip : ?drop:(char -> bool) -> t -> t
val is_prefix : string -> prefix:string -> bool
val string_is_empty : string -> bool
val string_prefix : string -> int -> string
val string_drop_prefix : string -> int -> string
val raise_with_original_backtrace : exn -> Printexc.raw_backtrace -> 'a
exception Finally of exn * exn
val protectx : f:('a -> 'b) -> 'a -> finally:('a -> unit) -> 'b
module In_channel : sig ... end
module Out_channel : sig ... end
val remove_consecutive_duplicates : ?which_to_keep:[< `First | `Last Last ] -> 'a ListLabels.t -> equal:('a -> 'a -> bool) -> 'a ListLabels.t
val dedup_and_sort : 'a ListLabels.t -> compare:('a -> 'a -> int) -> 'a ListLabels.t
val list_is_empty : 'a list -> bool
val list_intersperse : 'a list -> sep:'a -> 'a list