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