-- | `Matrix` for part 2
grid2 :: Matrix.Matrix String
grid2 =
  grid 5 5 $
  [ "", "",  "1", "",  ""
  , "", "2", "3", "4", ""
  ] ++ map show ([5 .. 9] :: [Int]) ++
  [ "", "A", "B", "C", ""
  , "",  "", "D", "",  ""
  ]
grid2 :: Matrix.Matrix String
grid2 =
  grid 5 5 $
  [ "", "",  "1", "",  ""
  , "", "2", "3", "4", ""
  ] ++ map show ([5 .. 9] :: [Int]) ++
  [ "", "A", "B", "C", ""
  , "",  "", "D", "",  ""
  ]
grid2 =
  grid 5 5 $
  [ "", "",  "1", "",  ""
  , "", "2", "3", "4", ""
  ] ++ map show ([5 .. 9] :: [Int]) ++
  [ "", "A", "B", "C", ""
  , "",  "", "D", "",  ""
  ]