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