; permute3.l

(defun permute3 (l)
  (list
    l
    (list (first l) (third l) (second l))
    (list (second l) (first l) (third l))
    (list (second l) (third l) (first l))
    (list (third l) (first l) (second l))
    (list (third l) (second l) (first l))
  )
)