Evaluated proc hex2rgb hex { list [string range $hex 0 1] [string range $hex 2 3]}