(define (foo m n)
(map (lambda (x) ((if (> m n) - +) m x))
(let loop ((n (abs (- n m))) (r '()))
(if (zero? n) (cons 0 r)
(loop (- n 1) (cons n r))))))