Create an executable file that copies stdin to stdout, or else a script that does so through the invocation of an interpreter at the command line.

#lang racket
 
(let loop ()
  (match (read-char)
    [(? eof-object?) (void)]
    [c (display c)
       (loop)]))