I want to read from stdin element by element but I don't know how to stop when I insert a new line.
Here is my code:

```
(define readNext
  (lambda (tmp)
    (let ([a (read)])
     (if (equal? a ??????)
       tmp
       (readNext (cons (read) tmp))))))

```