replace-unicode-escapes
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