concrete FoodmarketEng of Foodmarket = FoodEng, FruitEng, MushroomEng ** {
  lin
    FruitKind x = x ;
    MushroomKind x = x ;
}