196

#lang racket

(define (display-line str)
  (display str)
  (newline))

(define (reverse-number n)
  (string->number
   (list->string
    (reverse
     (string->list
      (number->string
       n))))))

(define (is-palindrome? n)
  (= n
     (reverse-number n)))

(define (reverse-and-add n)
  (+ n (reverse-number n)))

(define (find-palindrome n)
  (if (is-palindrome? n)
      n
      (begin
        (display-line n)
        (find-palindrome (reverse-and-add n)))))