Basket = "basket" <fl> FruitList.
FruitList : EFruitList | NFruitList.
EFruitList = "()".
NFruitList = "(" <first> Fruit <rest> FruitList ")".
Fruit : Apple | Orange.
Apple = "a".
Orange = "o".