loaded script info

alias loaded {  
  var %o = 1
  var %totals = $script(0)
  var %lines = 0
  while (%totals >= %o) { 
    inc %lines $lines($script(%o)) 
    inc %o 
  }
  say Total loaded script files: %totals $chr(124) total lines of code: %lines
}