class mod_on_comparative_modifier
{
    <: mod_on_superlative;
    node(Foot).top.supermod_kind = value(comparative|intensifier);
    node que : [cat: que, adj:no, type: coanchor];
    node Modifier : [type: anchor|subst, cat: adjP|adv|advneg|N2|PP|S|CS|adjPx];
    que < Modifier;
    Incise >> que;
    Incise >> Modifier;
    node(Foot).top.cat = value(~-);
}