solveProblem :: Problem -> Result
solveProblem pb@(a, ms) = solveProblem' (a, sort ms)
solveProblem :: Problem -> Result
solveProblem pb@(a, ms) = solveProblem' (a, sort ms)
solveProblem pb@(a, ms) = solveProblem' (a, sort ms)