( b1 b2 -- )
: XPACKR 1+ SWAP DO I DUP . NL XPACK LOOP ;