on *:text:*.*:#:{
    msg $chan $str( $+ $r(1,14) DOT  , $count($$1-,.) )
}