Another simple example

ruleVerbatimBlock = verbatimRule "block" $ do
    body <- between (symbol "{") (char '}') ruleBlockBody
    return $ Syn "block" [body]

• "to parse a verbatim block, look for a block body between { and }"