Kappa_data_structures.Color
type color =
| Red
| Grey
| Lightblue
| Black
val triple_of_color : color -> int * int * int