class modifier_at_S_level
{
    + s_modifier;
    - x_modifier;
    - s_adj_pos;
    node(Root).bot = node(Foot).top;
    node(Root).cat = value(S|VMod);
    %% S modifier can be negated by que
    %% example il ne veut venir que demain
    %% example il ne viendra que si tu viens
    <: que_as_advneg; Negated = Modifier; Sentence = Root; Arg = Incise;
    advque =>
        desc.position = value(post),
        node(Modifier).que_restr=value(+)
        ;
    ~ advque =>
        node(Modifier).que_restr=value(-)
        ;
    desc.dependency = value('mod');
}