tc <-
function(x) {
return (head(color.id(x),n=1))
}