moveParser :: Parser Instruction
moveParser = string "move position " *> (Move <$> int <*> secondPart)
  where secondPart = string "to position " *> int
moveParser :: Parser Instruction
moveParser = string "move position " *> (Move <$> int <*> secondPart)
  where secondPart = string "to position " *> int
moveParser = string "move position " *> (Move <$> int <*> secondPart)
  where secondPart = string "to position " *> int