reverseParser :: Parser Instruction
reverseParser = string "reverse positions " *> (Reverse <$> int <*> secondPart)
  where secondPart = string "through " *> int
reverseParser :: Parser Instruction
reverseParser = string "reverse positions " *> (Reverse <$> int <*> secondPart)
  where secondPart = string "through " *> int
reverseParser = string "reverse positions " *> (Reverse <$> int <*> secondPart)
  where secondPart = string "through " *> int