var %x = 1 while (%x <= $did($dname,5).lines) { set %msg %msg $+ $crlf $+ $did($dname,5,%x).text inc %x }