* expect.scm: (expect-regexec): new procedure, use it in