((loopserd (cond testgroup "

" (alph-head "

-- " (firstchar) " --

") (call |indexauth-nobrc|))))