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