GENERIC: product ( seq -- n )

M: product nested-sequence [ product ] map call-next-method ;