(defun lot-of-strings (nstrings maxlength)
  (let ((count 0) (strings nil))
    (while (<= count nstrings)
      (let* ((length (1+ (% count maxlength)))
	     (string (make-string length 65)))
	(and (zerop (logand length 1))
	     (setq strings (cons string strings)))
	(setq count (1+ count))))))

(defun runtest ()
  (let ((nstrings 16))
    (while (<= nstrings 1048576)
      (let ((maxlength 2))
	(while (<= maxlength 1024)
	  (lot-of-strings nstrings maxlength)
	  (setq maxlength (* 2 maxlength))))
      (setq nstrings (* 2 nstrings)))))