• + 0 comments

    This? Input thanks to @abhiranjan

    (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)))