(@ check 'transact text +-
    (. .alarm ..)
    (parse text . '<title>' title '</title>' .)
    (![title] >
        (ERR_NO_TITLE .alarm)
    >
        (parse text . '<charset>' charset '</charset>' .)
        (![= `TS_DOC_CHARSET] charset >
            (ERR_CHARSET .alarm)
        >
            ...
        )
    )
    ([alarm] >
        \\ alarm
    >
        ;
    )
)
