-- Writeup at https://work.njae.me.uk/2022/12/21/advent-of-code-2022-day-19/
-import Debug.Trace
+-- import Debug.Trace
import AoC
import Data.Text (Text)
import Data.Sequence ((|>))
import Data.List
import Data.Maybe
-import Data.Ord
+-- import Data.Ord
import Control.Monad.Reader
import Control.Lens hiding ((<|), (|>), (:>), (:<), indices)
import Control.Parallel.Strategies