; magic 1089
(define (rev n)
(let loop ((n n) (x 0))
(if (zero? n) x
(loop (quotient n 10)
(+ (* x 10) (modulo n 10))))))
(define (magic n)
(let ((d (- n (rev n))))
(+ d (rev d))))
(display (magic 532)) (newline)
(display (magic 235)) (newline)
(display (magic 854)) (newline)