namespace eval ::algos::tclposting {
  variable log [logger::init algos::tclposting]
  proc intake {uri text data} {
    variable log
    if {![regexp -- [join {
      {\s[Tt]cl(/[Tt]k)?(\.|,|\s)}
      {^[Tt]cl(/[Tt]k)?(,|\s)}
      {\s[Tt]cl(/[Tt]k)?$}
      {\sTk(\.|,|\s)}
      {^Tk(,|\s)}
      {\sTk$}
      {\.tcl}
      {tclsh}
      {tcl-lang}
      {tcltk}
      {tcllib}
      {tklib}
      {tcl\.tk}
      {#tcllang}
      {[Tt]kinter}} | ] $text]} \
    {
      return {}
    }

    if {[regexp -nocase -- [join {
      {Title Tk}
      {Comic-Con Tk}
      {[Tt][Vv][Ss]?}
      {[Tt]elevision}} | ] $text]} \
    {
      return {}
    }

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