-- (c) 2009 Aarne Ranta under LGPL

abstract Foods = {
  flags startcat = Comment ;
  cat
    Comment ; Item ; Kind ; Quality ;
  fun
    -- Pred : Item -> Quality -> Comment ;
    -- This, That, These, Those : Kind -> Item ;
    -- Mod : Quality -> Kind -> Kind ;
    -- Wine, Cheese, Fish, Pizza : Kind ;
    -- Very : Quality -> Quality ;
    -- Fresh, Warm, Italian,
    --   Expensive, Delicious, Boring : Quality ;
    Expensive: Quality;
}