The following is a very na´ve implementation of
a subset of the pattern matcher used in PLT Scheme.
It is not meant to be used instead of (lib "match.ss"),
but rather to show how syntax-rules can be used in
an example of medium size.