RosettaCodeData/Task/CSV-data-manipulation/PicoLisp/csv-data-manipulation.l

(in "data.csv"
   (prinl (line) "," "SUM")
   (while (split (line) ",")
      (prinl (glue "," @) "," (sum format @)) ) )