--ep_ lin = EP lin <$> rel_ <*> many q_
--lp_ p = LP p <$> rel_ <*> many q_

query_ = Query <$> ((string "@" *> pure High) <|> pure Low) <*> pattern_
query_ = Query <$> ((string "@" *> pure High) <|> pure Low) <*> pattern_
query_ = Query <$> ((string "@" *> pure High) <|> pure Low) <*> pattern_