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