print $ strategy sample relief
    print $ strategy puzzle relief

    print $ strategy sample 20 relief
    print $ strategy puzzle 20 relief
    print $ strategy sample 10000 part2Relief
    print $ strategy puzzle 10000 part2Relief

        state = runRounds 20 . Vec.toList

        part2Relief = (`mod` product [3, 11, 7, 2, 19, 5, 17, 13])
        state rounds = runRounds rounds . Vec.toList

        strategy input rel = product . take 2 . reverse . sort . foldl1 (zipWith (+)) . evalState (state input rel) . initialState $ input

        strategy input rounds rel = product . take 2 . reverse . sort . foldl1 (zipWith (+)) . evalState (state rounds input rel) . initialState $ input