-- Exercise 9
-- write the correct type and the definition of
chessBoard :: String -> Picture
chessBoard str = over (fenToPicture str) emptyBoard
chessBoard :: String -> Picture
chessBoard str = over (fenToPicture str) emptyBoard
chessBoard str = over (fenToPicture str) emptyBoard