(define (judge a b)
  (if (> a b) "EOF"
      (begin
        (when (or (member #\3 (string->list (number->string a)))
                  (= (modulo a 3) 0))
          (print a))
        (judge (+ a 1) b))))

(define (main args)
  (judge (read) (read)) 0)