(define (swap v i j) (let ((s (vector-ref v i))) (vector-set! v i (vector-ref v j)) (vector-set! v j s) ))