dataPrimary :: CharParser st DataRange
dataPrimary = do
    keyword notS
    fmap DataComplementOf dataPrimary
   <|> fmap DataOneOf (bracesP $ sepByComma literal)
   <|> dataRangeRestriction
dataPrimary :: CharParser st DataRange
dataPrimary = do
    keyword notS
    fmap DataComplementOf dataPrimary
   <|> fmap DataOneOf (bracesP $ sepByComma literal)
   <|> dataRangeRestriction
dataPrimary = do
    keyword notS
    fmap DataComplementOf dataPrimary
   <|> fmap DataOneOf (bracesP $ sepByComma literal)
   <|> dataRangeRestriction