RosettaCodeData/Task/Input-loop/MIRC-Scripting-Language/input-loop.mirc

var %n = 1
while (%n <= $lines(input.txt)) {
  write output.txt $read(input.txt,%n)
  inc %n
}