(defun transpose (m)
  (apply #'mapcar #'list m))