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.

 
let copy()=let n,g=stdin,stdout
           let rec fN()=match n.ReadLine() with "EOF"->g.Write "" |i->g.WriteLine i; fN()
           fN()
copy()
 