dataRange :: CharParser st DataRange
dataRange = fmap (mkDataJunction UnionOf)
      $ sepBy1 dataConjunct $ keyword orS
dataRange :: CharParser st DataRange
dataRange = fmap (mkDataJunction UnionOf)
      $ sepBy1 dataConjunct $ keyword orS
dataRange = fmap (mkDataJunction UnionOf)
      $ sepBy1 dataConjunct $ keyword orS