let aggreg_args al = let cconc a = if a <> "" then function b -> a^" "^b else function b -> a^b in List.fold_left cconc "" al