class comparative_as_adj_mod 
{
    <: comparative_as_wrapping_mod;
    node(Foot).cat = value(adjP);
    - supermod::agreement; supermod = supermod::N;
}