(defmacro make-arrays (max &body body)
  (let ((loop :for i :from 0 :to `,max
	 :do `(format nil "(~Aa (make-array 0 :element-type 'string :adjustable t :fill-pointer 0)" i)
      :finally (format nil ")"))
	,@body)))