Evaluated proc hex2str {hex {sep \n}} {join [map [nsplit $hex 2] {x {dec2str [scan $x %x]}}] $sep}