swapPosParser :: Parser Instruction
swapPosParser =  string "swap position " *> (SwapPos <$> int <*> secondPart)
  where
    secondPart = string "with position " *> int
swapPosParser :: Parser Instruction
swapPosParser =  string "swap position " *> (SwapPos <$> int <*> secondPart)
  where
    secondPart = string "with position " *> int
swapPosParser =  string "swap position " *> (SwapPos <$> int <*> secondPart)
  where
    secondPart = string "with position " *> int