carry-ns ( ns lengths -- )


Vocabulary
sequences.product.private

Inputs
nsan object
lengthsan object


Outputs
None

Definition
USING: kernel math sequences ;

IN: sequences.product.private

: carry-ns ( ns lengths -- )
0 pick length integer>fixnum-strict (carry-n) ; inline