(define (read-threshold)
  (let ([x (read)]) x))

(define (read-list)
  (let ([x (read)])
    (if (eof-object? x)
        (list)
        (cons x (read-list)))))
      
(let ([t (read-threshold)]
      [l (read-list)])
  (for ([x l])
       (if (< x t)
           (printf "~a\n" x)
           #f)))