BioBIKE
(ASSIGN table (indices) = value [DISPLAY ON | OFF])
Examples (see DEFINE for explanations regarding definition of tables):

  (FOR-EACH gene IN (GENES-OF A7120)
         AS length = (LENGTH-OF gene)
         DO (ASSIGN gene-length (length) = (REPLICON-OF gene))
The statement defines a table, gene-info, with two enumerated dimensions. The legal indices for the first dimension are the gene names of all4312 orthologs. The legal indices for the second dimension are gene-name, organism, etc.
  (DEFINE gene-lengths (number-of-genes)
  (ASSIGN gene-lengths (3) = (LENGTH-OF (THIRD gene-list))

Presuming that the variable number-of-genes holds an integer, the statement defines a table, gene-lengths, with a single numeric dimension. The legal indices for the table are from 1 to the value of the variable number-of-genes.
  (DEFINE mutations (seq-length (A C G T)) AS 0)
  (INCREMENT mutations (position C))

Presuming that seq-length is an integer, the statement defines a table, mutations, with one numeric dimension and a second enumerated dimension. The legal indices for the second dimension are the letters A, C, G, and T. All the elements of the table (seq-length times 4) are initialized to 0.
  (DEFINE gene-info ((ORTHOLOGS-OF all4312) (gene-name organism replicon start stop)))
  (FOR-EACH gene IN (ORTHOLOGS-OF all4312)
         DO (ASSIGN gene-info (gene replicon) = (REPLICON-OF gene))
The statement defines a table, gene-info, with two enumerated dimensions. The legal indices for the first dimension are the gene names of all4312 orthologs. The legal indices for the second dimension are gene-name, organism, etc.
  (DEFINE log-ratio-bin ((-10 TO +10)) AS 0 ADJUSTABLE false)
  (FOR-EACH log-ratio IN log-ratio-set
         AS bin = (APPROX log-ratio)
         DO (INCREMENT log-ratio-bin (bin))
The statement defines a table, log-ratio-bin, with one numeric dimension. The legal indices for the dimension are the integers from -10 to +10. Since the table is set as nonadjustable, if any future statement tries to use an index outside this range, an error will be raised. All 21 of the elements of the table are initialized to 0.
  (DEFINE telephone-directory (* (work home cell)))
  (ASSIGN telephone-directory (Turing cell) = 1-234-567-8900)
The statement defines a table, telephone-directory, with one general dimension and a second enumerated dimension. The legal indices for the second dimension are work, home, and cell.