class comparative_as_mod 
{
    - comparer;
%%    node(Foot).top.degree = value(-);
%%    node(Root).top.degree = value(super);
    Root >>+ supermod;
    node supermod: [cat: supermod, bot: [supermod_kind: comparative|intensifier|quantity]];
    node(supermod).adjright = value(atmostone);
    comparer +
        node(supermod).bot.supermod_kind = value(intensifier),
        node(comparer).lex = value(si|tellement|'à ce point')
        |
        node(supermod).bot.supermod_kind = value(quantity),
        node(comparer).lex = value(assez|suffisamment|trop)
        |
        node(supermod).bot.supermod_kind = value(comparative),
        node(comparer).lex = value(~si|tellement|assez|suffisamment|trop|'à ce point')
        ;
    supermod >> quantity;
    quantity >> comparer;
    node(supermod).bot.cat = node(Foot).cat;
    node quantity: [id: quantity, cat:quantity];
    node(quantity).bot.cat = node(Foot).cat;
}