replace-unicode-escapes (See related posts)

   1  
   2      replace-unicode-escapes: func [s [string!] /local c uc] [
   3          parse s [
   4              any [
   5                  some chars
   6                  | [mark: #"\"
   7                     #"u" copy c 4 hex-c (
   8                      change/part mark uc: decode-unicode-char c 6  ; 6 = length "\uxxxx"
   9                      ) -1 skip :mark
  10                  | escaped]
  11              ]
  12          ]
  13      ]
  14