line-mode
"="
3
center
save-a
split
w( "" "0x" )
over
    2
    rjust
m2
is-sorted #(list)
    reverse
f1
zip
push-a
join