;; invert list paying no attention to key
(define ivl:invert
(lambda (lst . args)
(let ((pivot (if (null? args)
(car lst)
(car args))))
(cons (car lst) (map (lambda (i)
(- pivot (- i pivot)))
(cdr lst))))))