let black = (`Color "#000000" : [> `Color of string])