middleBoard :: Picture
middleBoard = above (above emptyRow otherEmptyRow) (above emptyRow otherEmptyRow)
middleBoard :: Picture
middleBoard = above (above emptyRow otherEmptyRow) (above emptyRow otherEmptyRow)
middleBoard = above (above emptyRow otherEmptyRow) (above emptyRow otherEmptyRow)