inline fun <T, R> Iterable<T>.foldMap(
    initial: R,
    operation: (R, T) -> Pair<R, T>,
) = buildList {
    this@foldMap.fold(initial) { acc, element ->
        val (newAcc, newElement) = operation(acc, element)
        add(newElement)
        newAcc
    }
}