;; makes a string upper case (define cl:string-capitalize (lambda (s) (string-append (string (char-upcase (string-ref s 0))) (substring s 1 (string-length s)))))