main :: IO ()
main = do
  scores <- withPool 2 $ \pool -> do
    parallel pool $
      map (\_ -> score <$> mctsVsMcts (5,50,50) (5,50,50)) [1..20]
  putStrLn (prettyScore (mconcat scores))