average lines a day script

average {
  ; Edit the date in the following line to the first to use in the average, year-month-day
  var %sd 2009-05-05
  var %ct $ctime(%sd 12:00:00), %ed $asctime(yyyy-mm-dd), %et $ctime(%ed 12:00:00), %cd %sd, %t 0, %d 0
  while (%ct <= %et) {
    inc %t %runescapelines. [ $+ [ %cd ] ]
    inc %d
    inc %ct 86400
    var %cd $asctime(%ct, yyyy-mm-dd)
  }
  say I've said $calc(%t / %d) lines a day.
}