(define (rt n sed m) (let* (
   (r (fileVal "RC4"))
   (rb ((r "sill") 'sb ))
   (a (((fileVal "Do") 'DoV) n (lambda (j) (rb))))
   (rr ((r sed)  'rbi)))
   (if (and (<= 0 m) (< m n)) (vector-set! a m (+ 1 (vector-ref a m))))
   (let R ((low 0) (high (- n 1))) (let ((s (- high low)))
     (if (= s 0) (vector-ref a low)
                 (let ((d (if (= s 1) 0 ((rr s)))))
       (cons (R low (+ low d)) (R (+ low d 1) high))))))))

(define u (rt 20 "20x" 20))
(define v (rt 20 "20y" 17))
(define w (rt 20 "20y" 20))

u ; => (((((124 . 20) . 77) . 128) 113 155 . 76) 47 ((((70 . 228) . 151) . 71) (93 . 37) 78 52 . 55) (63 . 103) . 22)
v ; => (((124 ((20 . 77) 128 . 113) 155 . 76) 47 . 70) ((((228 . 151) . 71) . 93) 37 78 52 . 55) (64 . 103) . 22)
w ; => (((124 ((20 . 77) 128 . 113) 155 . 76) 47 . 70) ((((228 . 151) . 71) . 93) 37 78 52 . 55) (63 . 103) . 22)
(sf w v) ; => #f
(sf w u) ; => #t
(sf u v) ; => #f

(define u (rt 1000000 "vf"  -1))
(define v (rt 1000000 "joe" -1))
(define w (rt 1000000 "vf" 859533))
(sf u v) ; => #t
(sf u w) ; => #f
(sf v w) ; => #f