(defun perms (x)
    (if (null x) ’(())
        [(cons a p) (a <- x) (p <- (perms (remove a x :count 1)))]))

lispnik