val segments_of_string: string list -> int -> string -> string list
val rev_map_concat: ('a -> string) -> string -> string -> 'a list -> string
val segments_of_string: string list -> int -> string -> string list
val rev_map_concat: ('a -> string) -> string -> string -> 'a list -> string