Someone

alias mklog {
  if (!$1) { return }
  var %i = $date(mmmm)
  var %d = $date(yyyy)
  if (!$exists(LogFiles)) { mkdir LogFiles }
  if (!$exists($+(LogFiles\,%i))) { mkdir $+(LogFiles\,%i) }
  if (!$exists($+(LogFiles\,%i,\,$1))) { write $+(LogFiles\,%i,\,$1) - Session start $date(mmm dd $time) - }
  if ($bytes($file($+(LogFiles\,%i,\,$1))) > 80) && (!$exists($+(LogFiles\,%i,$1))) { 
    inc %bit. $+ %i $+ $chan
    write $+(LogFiles\,%i,\,$1,$chr(40),$+(%bit.,$1),$chr(41))
  }
  var %o = $strip($3-)
  write $+(LogFiles\,%i,\,$1) $+([,$time,]) $2 %o
}