hex \ so bytes print nicely

[
  "\u0041",
  "\u00F6",
  "\u0416",
  "\u20AC"
]
\ add the 0x1D11E one; the '\u' string notation requires four hex digits
  "" 1D11E s:+ a:push

\ for each test, print it out and its bytes:
(
  dup . space
  b:new
  ( . space drop ) b:each
  cr
) a:each! drop

cr
\ now the inverse:
[
  [41],
  [C3,B6],
  [D0,96],
  [E2,82,AC],
  [$F0,9D,84,9E]
]

(
  dup . space
  b:new >s  .  cr
) a:each! drop

bye