(load "deletion.ss")

(load "retention.ss")		

(define list-l '(1 2 3 4 5 6))

(define list-l-1
   (map (incr-list 1) list-l))

(define list-l-2
   (incr-list-k (lambda (f) (map f list-l)) 1))