line-mode
words
dup
w( "0x" "" "" )
swap
extract-array
nip
    2
    rjust
t2
>
    reverse
f1
zip
unwords