let red = (`Color "#ff0000" : [> `Color of string])