commaAnd :: NE.NonEmpty L.Doc -> L.Doc
commaAnd (d NE.:| ds) = case ds of
    [] -> d
    _  -> comma ds L.<+> "and" L.<+> d
commaAnd :: NE.NonEmpty L.Doc -> L.Doc
commaAnd (d NE.:| ds) = case ds of
    [] -> d
    _  -> comma ds L.<+> "and" L.<+> d
commaAnd (d NE.:| ds) = case ds of
    [] -> d
    _  -> comma ds L.<+> "and" L.<+> d