BUILD-ARRAY
* BUILD-ARRAY ( n1 n2 ... nX X --- n )

writes X, n1, ... nX into the dictionary -
returns product n1 * n2 * ... * nX

FORTH/BASE misc ordinary primitive