(define (permute v i j)
   (let ((temp (vector-ref v i)))
      (vector-set! v i (vector-ref v j))
      (vector-set! v j temp)))