nameP = unpack <$> AT.takeWhile (inClass "a-z") -- many1 letter
ruleBodyP = ruleElementP `sepBy` ","
ruleElementP = withTestP <|> withoutTestP
nameP = unpack <$> AT.takeWhile (inClass "a-z") -- many1 letter
ruleBodyP = ruleElementP `sepBy` ","
ruleElementP = withTestP <|> withoutTestP