(defun transpose
  ((`(() . ,_))
   '())
  ((matrix)
   (cons (lists:map #'car/1 matrix)
         (transpose (lists:map #'cdr/1 matrix)))))