win :: Board -> Player -> Bool
win b p = rowControl b p || columnControl b p || diagonalControl b p
win :: Board -> Player -> Bool
win b p = rowControl b p || columnControl b p || diagonalControl b p
win b p = rowControl b p || columnControl b p || diagonalControl b p