part2 l s = scanr reverseDoInstruction l $ fromSuccess $ parseInput s
part2 l s = scanr reverseDoInstruction l $ fromSuccess $ parseInput s
part2 l s = scanr reverseDoInstruction l $ fromSuccess $ parseInput s