(defun print-array (a m n &key ((:item-getter p)))
  (format t "~a:~%" p)
  (dotimes (i m)
    (dotimes (j n)
      (format t "[~d, ~d] = ~a~%" i j (funcall p a i j)))))
 
(defun 2d-array-get-item (a i j)
  (aref a i j))
 
(defun array-of-arrays-get-item (a i j)
  (aref (aref a i) j))
 
(let ((2d-array (make-array '(2 3)
                 :initial-contents
                 '((1 2 3)
                   (4 5 6))))
      (array-of-arrays (make-array 2
                        :initial-contents
                        (list (make-array 3 :initial-contents '(1 2 3))
                              (make-array 2 :initial-contents '(4 5))))))
  (format t "~a~%" 2d-array)
  (format t "~a~%" array-of-arrays)
  (print-array 2d-array 2 3 :item-getter '2d-array-get-item)
  (print-array array-of-arrays 2 3 :item-getter 'array-of-arrays-get-item))

KGRlZnVuIHByaW50LWFycmF5IChhIG0gbiAma2V5ICgoOml0ZW0tZ2V0dGVyIHApKSkKICAoZm9ybWF0IHQgIn5hOn4lIiBwKQogIChkb3RpbWVzIChpIG0pCiAgICAoZG90aW1lcyAoaiBuKQogICAgICAoZm9ybWF0IHQgIlt+ZCwgfmRdID0gfmF+JSIgaSBqIChmdW5jYWxsIHAgYSBpIGopKSkpKQoKKGRlZnVuIDJkLWFycmF5LWdldC1pdGVtIChhIGkgaikKICAoYXJlZiBhIGkgaikpCgooZGVmdW4gYXJyYXktb2YtYXJyYXlzLWdldC1pdGVtIChhIGkgaikKICAoYXJlZiAoYXJlZiBhIGkpIGopKQoKKGxldCAoKDJkLWFycmF5IChtYWtlLWFycmF5ICcoMiAzKQogICAgICAgICAgICAgICAgIDppbml0aWFsLWNvbnRlbnRzCiAgICAgICAgICAgICAgICAgJygoMSAyIDMpCiAgICAgICAgICAgICAgICAgICAoNCA1IDYpKSkpCiAgICAgIChhcnJheS1vZi1hcnJheXMgKG1ha2UtYXJyYXkgMgogICAgICAgICAgICAgICAgICAgICAgICA6aW5pdGlhbC1jb250ZW50cwogICAgICAgICAgICAgICAgICAgICAgICAobGlzdCAobWFrZS1hcnJheSAzIDppbml0aWFsLWNvbnRlbnRzICcoMSAyIDMpKQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAobWFrZS1hcnJheSAyIDppbml0aWFsLWNvbnRlbnRzICcoNCA1KSkpKSkpCiAgKGZvcm1hdCB0ICJ+YX4lIiAyZC1hcnJheSkKICAoZm9ybWF0IHQgIn5hfiUiIGFycmF5LW9mLWFycmF5cykKICAocHJpbnQtYXJyYXkgMmQtYXJyYXkgMiAzIDppdGVtLWdldHRlciAnMmQtYXJyYXktZ2V0LWl0ZW0pCiAgKHByaW50LWFycmF5IGFycmF5LW9mLWFycmF5cyAyIDMgOml0ZW0tZ2V0dGVyICdhcnJheS1vZi1hcnJheXMtZ2V0LWl0ZW0pKQ==