reverseDoInstruction :: Instruction -> String -> String
reverseDoInstruction (SwapPos x y) s = doInstruction s (SwapPos y x)
reverseDoInstruction :: Instruction -> String -> String
reverseDoInstruction (SwapPos x y) s = doInstruction s (SwapPos y x)
reverseDoInstruction (SwapPos x y) s = doInstruction s (SwapPos y x)