import Sudoku
import Control.Exception
import System.Environment
import Control.Parallel.Strategies
import Data.Maybe

main :: IO ()
main = do
  [f] <- getArgs
  file <- readFile f

  let puzzles   = lines file
-- <<solutions
  let solutions = map solve puzzles `using` parList rseq
-- >>

  print (length (filter isJust solutions))