;; matrix stuff
(defun transpose (x)
   (apply #'mapcar (cons #'list x)))

(defun lists2m (ls)
  (let* ((height (length ls))
	 (width  (length (first ls)))
	 (a      (make-array `(,height ,width))))
    (doitems (row rown ls a)
      (doitems (cell coln row)
	(setf (aref a rown coln) cell)))))