I know that there is one in the old SVN repo, but I think a rewrite
(with an automated test script) is due.