( ARRAY                                        create an array )

( used in the form:  )
(    n ARRAY <name>  )

: array                           ( n --- )        ( compiling)
                                  ( n --- addr )   ( executing)
  <builds                         ( put <name> into dictionary)
    2 * allot                     ( and allocate 2*n bytes)
  does>                           ( at execution time)
    swap                          ( swap n and base-addr)
    2 *                           ( offset = 2*n)
    +                             ( addr = base-addr + offset)
;