concrete TenseRus of Tense = TenseX - [PNeg,PPos] ** open (R = ParamX) in {
flags coding=utf8 ; optimize=all ;
lin
  PNeg = {
    s = "не" ;
    p = R.Neg
    } ;
  PPos = {
    s = [] ;
    p = R.Pos
    } ;
}