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