pArrayItem :: Parser (Expression :~ SrcPos)
pArrayItem = withAnnotation $ do
  arr <- identifier
  ix <- brackets pExpression
  return (ArrayItem arr ix)
pArrayItem :: Parser (Expression :~ SrcPos)
pArrayItem = withAnnotation $ do
  arr <- identifier
  ix <- brackets pExpression
  return (ArrayItem arr ix)
pArrayItem = withAnnotation $ do
  arr <- identifier
  ix <- brackets pExpression
  return (ArrayItem arr ix)