namespace eval ::algos::tclposting {
  variable log [logger::init algos::tclposting]
  proc intake {uri text data} {
    variable log
    if {![regexp -nocase -- [join {
      {\mtcl(/tk)?\M}
      {\.tcl}
      {tclsh}
      {tcl-lang}
      {tcltk}
      {tcllib}
      {tklib}
      {tcl\.tk}
      {tcllang}
      {tkinter}} | ] $text] &&
      ![regexp -- {\mTk\M} $text]} \
    {
      return
    }

    if {[regexp -nocase -- [join {
      {Title Tk}
      {Comic-Con Tk}
      {\mtvs?\M}
      {\d\d( ?"|( |-|)in(ch)?)}
      {television}
      {DVDVR}
      {wrestling}
      {tk mclaren}} | ] $text]} \
    {
      return
    }

    if {[regexp -nocase -- {chin(a|ese)} $text] && [regexp -nocase -- {theater|movie} $text]} return

    return [dict get $data commit record createdAt]
  }
}