let blue_light = (`Color "#9999ff" : [> `Color of string])