struct 

 
 (** Merge a string list with the separator " , ". *)

 let commacat = big (merge " , ");;

 
 (** Merge a string list with the separator "; ". *)

 let semicolon = big (merge "; ");;

 
 (** Merge a string list with the separator ",". *)

 let nospacecommacat = big (merge ",");;

 
 (** Merge a string list with the separator ";". *)

 let nospacesemicolon = big (merge ";");;

 
 (** Merge a string list with the separator ".". *)

 let dotcat = big (merge ".");;

 
 (** Merge a string list with the separator "\n". *)

 let newlinecat = big (merge "\n");;

 
 (** Merge a string list with the separator " ". *)

 let blankcat = big (merge " ");;

 
 (** Merge a string list with the separator "/". *)

 let slashcat = big (merge "/");;

end