adi awk script for twtxt

#!/bin/sh

tac | awk -F '	' '
function r(t) {
        p=t "<[^>]*>"
        while (match($2, p)) {
                s = substr($2, RSTART + 2, RLENGTH - 3)
                split(s, a, " ")
                s = sprintf(t "<%s>", s)
                l = sprintf("[%s%s](%s)", t, a[1], a[2])
                gsub("\\?", "\\?", s)
                gsub(s, l, $2)
        }
}
/^(#|$)/ {
        next
}
{
        r("#")
        r("@")
		date=gsub("[TZ]"," ",$1)
		gsub("\xe2\x80\xa8", "<br>", $2)
        printf "* %s <br> <small> %s <\/small>\n", $2, $1
}'