Simple.gf

abstract Simple = {
  flags startcat = Object;
  cat Object; Quality;

  fun
    Meal, Drink: Object;
    Tasty, Exotic: Quality;
    QObject: Quality -> Object -> Object;
    And: Object -> Object -> Object;
}

SimpleUk.gf

concrete SimpleUk of Simple = {
  flags lexer=text;
  lincat Object, Quality = {s: Str};

  lin Meal = {s = "страви"};
  lin Drink = {s = "напої"};

  lin Tasty = {s = "смачні"};
  lin Exotic = {s = "екзотичні"};

  lin QObject qual obj = {s = qual.s ++ obj.s};
  lin And ob1 ob2 = {s = ob1.s ++ ("та"|",") ++ ob2.s};
}