4 lines
56 B
Factor
4 lines
56 B
Factor
|
USING: io kernel ;
|
||
|
|
|
||
|
|
[ read1 dup ] [ write1 ] while drop
|