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