Evaluated proc hex2rgb hex {set h [nsplit $hex 2]; m {x {hex2dec $x}} { } }