on 100:text:`lines:#:{
  var %i = 0
  var %lines = 0
  while ($script(0) > %i) {
    inc %i
    var %file = $script(%i)
    var %flines = $lines(%file)
    var %size = $bytes($file(%file).size,k)
  msg $chan  $+ $remove($nopath(%file),11),.mrc) $+  has $bytes(%flines,b) lines. ( $+ %size KB)
    inc %lines %flines
  }
  var %change = ( $+ $bytes(%linescoded,b) -> $bytes(%lines,b) $+ )
  msg $chan Lines coded: $bytes(%lines,b) $+ . $iif(%linescoded != %lines,%change,$null)
  set %linescoded %lines
}