-- Writeup at https://work.njae.me.uk/2021/12/16/advent-of-code-2021-day-15/
-import Debug.Trace
+-- import Debug.Trace
-- import qualified Data.Text.IO as TIO
import Data.Char
import Control.Monad.Reader
import Control.Lens hiding ((<|), (|>), (:>), (:<))
-import Data.Maybe (fromMaybe)
+-- import Data.Maybe (fromMaybe)
import Linear (V2(..), (^+^), (^-^), (*^), (^*))
import Data.Array.IArray