let clicol = (`Color "#ffafaf" : [> `Color of string])