Posted to tcl by mookie at Tue Mar 08 14:23:01 GMT 2022view pretty
proc 2Hex { input } { binary encode hex [encoding convertto utf-8 "$input"] } proc 2Base { input } { encoding convertfrom utf-8 [binary decode hex "$input"] } set problem "%F0%9F%92%99" puts [2Hex $problem]