; global variable and indexing

(let arrayA g)

(def simple () (a b)
  (do
    (set g 1000)        ; global
    (set a g)
    (set b 11)
    (set arrayA (new 10))
    (setv arrayA 1 20)  ; arrayA[1] = 20
    (set b (index arrayA 1))))  ; b = arrayA[1]