(define a (read))
(define b (read))

(for-each print
          (filter (lambda (x)
                    (or (zero? (mod x 3))
                        (string-scan (number->string x) "3")))
                  (iota (- (+ b 1) a) a)))