#!/bin/sh

tail -r | 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)",  a[1], a[2])
                gsub("\\?", "\\?", s)
                gsub(s, l, $2)
        }
}
/^(#|$)/ {
        next
}
{
        r("#")
        r("@")
        printf "* %s\n", $2
}'