;; makes a string lower case (define cl:string-lower (lambda (s) (let ((out "")) (for-each (lambda (x) (set! out (string-append out (string (char-downcase x))))) (string->list s)) out)))