dataConjunct :: CharParser st DataRange
dataConjunct = fmap (mkDataJunction IntersectionOf)
      $ sepBy1 dataPrimary $ keyword andS
dataConjunct :: CharParser st DataRange
dataConjunct = fmap (mkDataJunction IntersectionOf)
      $ sepBy1 dataPrimary $ keyword andS
dataConjunct = fmap (mkDataJunction IntersectionOf)
      $ sepBy1 dataPrimary $ keyword andS