decode-unicode-char - decode hex-encoded char values (2 or 3 chars in 4 hex digits)
decode-unicode-char: func [val /local c] [
c: to-integer debase/base val 16
rejoin either c < 128 [[to-char c]] [
either c < 2048 [[
to-char (192 or to-integer (c / 64))
to-char (128 or (c and 63))
]] [[
to-char (224 or to-integer (c / 4096))
to-char (128 or ((to-integer (c / 64)) and 63))
to-char (128 or (c and 63))
]]
]
]
