let violet_light = (`Color "#FF00FF" : [> `Color of string])