Evaluated proc hex2dec {hex {sep { }}} { m [nsplit $hex 2] {x {. [scan $x %x]}} $sep }