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