(let (
      (From (read (current-input-port)))
      (To      (read (current-input-port)))
      )
    (let loop((i From))
        (when (or (= (modulo i 10) 3) (= (floor (/ i 10)) 3))
            (begin (display i) (display "\n")))
        (unless (= i To)
            (loop (+ i 1)))
    )
)