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