See "Macro Example: A simple pattern matcher" in the Scheme Cookbook:

    http://www.schemecookbook.org/Cookbook/MacroExampleASimplePatternMatcher