datatype fruit =
  Apple
| Banana
| Cherry