(define string-replace
(lambda (s match replacement)
(let ((ll (string->list s))
(match1 (char match))
(replacement1 (char replacement)))
(if (= (string ...
↧