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