menu query,channel { 
  Counter 2.1
  .Total
  ..since %written-start.date - %written-start.time :x
  ..Lines $+ $chr(58) %written.lines :/msg $chan 4 My Total written Lines are: (12 $+ %written.lines $+ 12) 4lines.
  ..Words $+ $chr(58) %written.words :/msg $chan 4 My Total Written Words are: (12 $+ %written.words $+ ) 4words with an average of (12 $+ $round($calc(%written.words / %written.lines),1) $+ 12) 4words per line.
  ..Letters $+ $chr(58) %written.chars :/msg $chan 4 My Total Written Chars are: (12 $+ %written.chars $+ ) 4characters with an average of (12 $+ $round($calc(%written.chars / %written.words),1) $+ 12) 4chars per word and (12 $+ $round($calc(%written.chars / %written.lines),1) $+ ) 4chars per line.
  .Today  
  ..Today $chr(40) $+ $date $+ $chr(41) :x
  ..Lines $+ $chr(58) %written.lines.today :/msg $chan 4 Today I have Typed: (12 $+ %written.lines.today $+ 12) 4lines to day
  ..Words $+ $chr(58) %written.words.today :/msg $chan 4 Today I have typed: (12 $+ %written.words.today $+ 12) 4words to day
  ..Letters $+ $chr(58) %written.chars.today :/msg $chan 4 Today I have Written (12 $+ %written.chars.today $+ 12) 4letters to day
  .Record
  ..Lines $+ $chr(58) $($+(%written.lines.record),1) :/msg $chan 4 My record for Written Lines is: (12 $+ %written.lines.record $+ 12)4With an Average of 412(12 $+ $calc(%written.lines.record / %time.passed) $+ 12) 4Per minute 4lines. This Record was set on,12 %written.lines.record.date $time
  ..Words $+ $chr(58) $($+(%written.words.record),1) :/msg $chan 4  My for Written Words is: (12 $+ %written.words.record $+ 12)4With an Average of 4(12 $+ $round($calc(%written.words.record / %written.lines.record),1) $+ 12)4Per line. 4words. This Record was set on,12 %written.words.record.date $time  
  ..Letters $+ $chr(58) $($+(%written.chars.record),1) :/msg $chan 4  My record for Written Chars is: (12 $+ %written.chars.record $+ 12)4With an Average of 4(12 $+ $round($calc(%written.chars.record / %written.words.record),1) $+ 12)4 Letters per Word. 4letters. This Record was set on,12 %written.chars.record.date $time
}