-- Bad parList
sudoku5 :: [String] -> [Maybe Grid]
sudoku5 xs = (solve <$> xs) `using` (badParList rseq)
sudoku5 :: [String] -> [Maybe Grid]
sudoku5 xs = (solve <$> xs) `using` (badParList rseq)
sudoku5 xs = (solve <$> xs) `using` (badParList rseq)