( TABLE                                create a n-number table )

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

: table                           ( n --- )   ( compiling)
                                  ( --- n )   ( executing)
  <builds                         ( put <name> into dictionary)
  does>                           ( at execution time)
    swap                          ( swap n and base-addr)
    2 *                           ( offset = 2n)
    +                             ( addr = base-addr + offset)
    @                             ( fetch value)
;