pull YN back to QCl, before polarity choice: YN: Cl -> QCl, in line with TagQ, WH_Cop, WH_Pred. Generalize WH to PosQ,NegQ: QCl -> OS.
tag : NP -> VP -> {s : Polarity => Str}, case <(fromAgr subj.a).n, (fromAgr subj.a).g,Do>, <Sg,Fem,do> etc table { Pos, Neg }. TagQ: (tag np vp).s ! Pos,Neg
oper:tag:NP_no_VP
remove_Present.Anter,Past,Fut.reformat_lines_less_than_80_chars
quote_nonExist:cc_ok.parse:[QCl]