alias readwrite { var %i = 1 while (%i <= $lines(test.txt) { write example.txt $read($mircdirtest.txt,%i) inc %i } }