The Ballad of Kandi

library(tidyverse)

## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.4     ✔ readr     2.1.5
## ✔ forcats   1.0.0     ✔ stringr   1.5.1
## ✔ ggplot2   3.4.4     ✔ tibble    3.2.1
## ✔ lubridate 1.9.3     ✔ tidyr     1.3.0
## ✔ purrr     1.0.2     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

KatrinasWords <- c("glitches", "bitches", "stitches", "snitches", "witches", "ditches") |>
  sort()

KatrinasWords

## [1] "bitches"  "ditches"  "glitches" "snitches" "stitches" "witches"

theMotherLoad <- expand.grid(a = KatrinasWords, b = KatrinasWords) |>
  filter(a != b) |>
  mutate(words = paste0(a, " get ", b))

theMotherLoad

theMotherLoad$words |> paste(collapse = ", ") |> cat()

ditches get bitches, glitches get bitches, snitches get bitches, stitches get bitches, witches get bitches, bitches get ditches, glitches get ditches, snitches get ditches, stitches get ditches, witches get ditches, bitches get glitches, ditches get glitches, snitches get glitches, stitches get glitches, witches get glitches, bitches get snitches, ditches get snitches, glitches get snitches, stitches get snitches, witches get snitches, bitches get stitches, ditches get stitches, glitches get stitches, snitches get stitches, witches get stitches, bitches get witches, ditches get witches, glitches get witches, snitches get witches, stitches get witches

cat(".")

.