concrete FruitEng of Fruit = {
  lin
    Apple = {s = "apple"} ;
    Peach = {s = "peach"} ;
}