(* type *) type paletteType = [ | `Gray of int | `Rgb of int * int * int ] (* /type *)