test :: [Coord]
test =
  [ (1, 1)
  , (1, 6)
  , (8, 3)
  , (3, 4)
  , (5, 5)
  , (8, 9)
  ]
test :: [Coord]
test =
  [ (1, 1)
  , (1, 6)
  , (8, 3)
  , (3, 4)
  , (5, 5)
  , (8, 9)
  ]
test =
  [ (1, 1)
  , (1, 6)
  , (8, 3)
  , (3, 4)
  , (5, 5)
  , (8, 9)
  ]