RosettaCodeData/Task/Comma-quibbling/Mathematica/comma-quibbling.math

quibble[words___] :=
    ToString@{StringJoin@@
        Replace[Riffle[{words}, ", "],
            {most__, ", ", last_} -> {most, " and ", last}]}