join.ml
shellwords
1 2 3 4 5 open Quote let join ls = let aux acc word = quote word :: acc in List.fold_left aux [] ls |> List.rev |> String.concat " "
1 2 3 4 5
open Quote let join ls = let aux acc word = quote word :: acc in List.fold_left aux [] ls |> List.rev |> String.concat " "