(define answer (lambda ()
                   (letrec
                       ( (is_it_it (lambda (x y)
                                     (if (> y x)
                                         (newline)
                                         (if (= 0 (remainder x y))
                                             (begin
                                               (display x)
                                               (newline)
                                               (display y)
                                             )
                                             (is_it_it x (+ 9 (* 10 y)))
                                             )
                                         )
                                     )
                                  )
                         (finder (lambda (x)
                                 (begin
                                   (is_it_it x 19)
                                 (if (< x 3999999999999999999999999999999999999999999999)
                                 (finder (+ 9 (* 10 x)))
                                 )
                                   )
                                   )
                                 )
                         )
                     (finder 399)
                     )
                 )
  )

(answer)