class whpro_modifier_on_S
{
    <: whpro_modifier;
    node(Root).cat = value(S);
    Foot < Incise;
}