%-

(:def fruit
  (:oneof
    (| "banana")
    (| "pear")
    (| "mango")
    (| "papaya")
    (| "watermelon")
    (| "canteloupe")
    (| "honeydew melon")
    (| "apple")
    (| "nectarine")
    (| "peach")
    (| "apricot")
    (| "plum")
    (| "fig")
    (| "durian")
    (| "jackfruit")
    (| "orange")
    (| "date")))