(defn flatmap
"maps f over coll and concatenates the results. Thus function f
should return a collection. Returns a transducer when no collection
is provided."
([f]
(fn [f1]
(fn
([] (f1))
([result] (f1 result))
([result input]
(reduce (preserving-reduced f1) result (f input))))))
([f coll] (sequence (flatmap f) coll)))
slop: "digital content of low quality that is produced usually in quantity by means of artificial intelligence"
https://www.merriam-webster.com/dictionary/slop
It is strictly this meaning I intended.