product@ ( n product-sequence -- ns seqs )

Vocabulary

sequences.product.private

Inputs

n	an object
product-sequence	an object

Outputs

ns	an object
seqs	an object

Definition

USING: accessors kernel ;

IN: sequences.product.private

: product@ ( n product-sequence -- ns seqs )
    [ lengths>> product-ns ] [ nip sequences>> ] 2bi ;