(define (permute ss)
  (match ss
    ['() '(())]
    [xs (let* ([x xs]
               [ys (permute (remove x xs))])
       (cons x ys))]))