#lang racket
(define (upcase-stdin)
  (for ([l (in-lines (current-input-port))])
    (display (string-upcase l))))

(define (read-numbers)
  (for/list ([l (in-lines (current-input-port))])
    (string->number l)))