#!/usr/bin/env gosh

(use srfi-13)

(define (main args)
  (receive (a b) (apply values (map string->number (string-split (read-line) " ")))
    (let loop ([i a])
      (cond
       [(<= i b)
        (when (or (= (mod i 3) 0)
                  (string-contains (number->string i) "3"))
          (print i))
        (loop (+ i 1))])
       ))
  0)