Scheme: Scheme: find a substring