(require 'stdlib)

(defun transpose (m)
  (apply map list m))

(setq matrix '((1 2 3) (4 5 6) (7 8 9)))
(puts matrix)
(puts (transpose matrix))