import Data.Maybe

    chunk = undefined

    chunk cardToChange changes decklist =
        R $
            let updateCard oldCard = foldl (\acc x -> acc >>= unR x) (Just oldCard) changes
             in unR decklist & ix (toText cardToChange) %~ (\x -> fromMaybe x (updateCard x))