processInput :: String -> String
processInput = unlines . writeOutput . zip [1..] . map solveProblem . parseProblem . tail . lines
processInput :: String -> String
processInput = unlines . writeOutput . zip [1..] . map solveProblem . parseProblem . tail . lines
processInput = unlines . writeOutput . zip [1..] . map solveProblem . parseProblem . tail . lines