let selcol = (`Color "#ffffff" : [> `Color of string ])