hex

: W parse-word s" {" compare invert if begin parse-word 2dup s" }" compare while s>number? 2drop , repeat 2drop else ." missing {!" then ;

create array W { 12345678 90ABCDEF 23456789 ABCDEF12 }

array 4 cells dump

output: 7FA744A0: 78 56 34 12  EF CD AB 90 - 89 67 45 23  12 EF CD AB  xV4......gE#....