module EightQueens
(
  main
) where

--import Linear.Vector
import Linear.V2
--import Linear.V3
import Control.Lens

data Square = X | Q

board = V2 <$> [0..8] <*> [0..8]
--board = V3 <$> [0..8] <*> [0..8] <*> [X]
row p = undefined

main = undefined
--main = repeat 8 placeQueen $ board