( "x:x\x1b" )
extract-array
    copies
    swap
t2
wrap-stack
push-d
get