Update 4A.scm

Update to the matcher.
Merge pull request #11 from coder3431/patch-3

Update 4A.scm