--query_ = Query Low <$> ep_ NonLinear
--dotquery_       = string "." *> (Query High <$> ep_ NonLinear)
--linearquery_    = string ".." *> (Query Low <$> ep_ Linear)
--dotlinearquery_ = string "..." *> (Query High <$> ep_ Linear)
--lnlogicquery_   = string "!" *> (Query Low <$> lp_ Negative)
--hnlogicquery_   = string ".!" *> (Query High <$> lp_ Negative)

polarity_  = (string "!" *> string ":" *> pure Negative) <|> (string ":" *> pure Positive)
polarity_  = (string "!" *> string ":" *> pure Negative) <|> (string ":" *> pure Positive)
polarity_  = (string "!" *> string ":" *> pure Negative) <|> (string ":" *> pure Positive)