(define a (make-array '(10 3) 0))
(array-set! a '(5 2) 99)
(array-ref a '(3))
(array-ref a '(5 2))
(define m (make-array '(10 20 3) '99))