Update 4A.scm

Update to the matcher.