runTrials config = do
  conclusions <-
    for ([1 .. config ^. #stats . #numTrials] :: [Int]) $ \i -> do
      putStrLn $ "Run #" <> show i

      game <- runReaderT ?? config $ magnify #game $
        newGame @rs

      label <- runGame @rs game
        & magnify (#stats . #heuristicWeights)
        & (runReaderT ?? config)
        & timeout (config ^. #stats . #microSecondsTimeout)
        <&> toGameLabel