USING: io kernel ;

[ read1 dup ] [ write1 ] while drop