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.

 
(do ((c (read-char) (read-char)))
    ((eof-object? c) 'done)
  (display c))
 