(define (soloMinusculas? cad)
    ;;se convierte de cadena a lista de caracteres, y se envia a revision
    (soloMinAux? (string->list cad)))

(define (soloMinAux? L)
    (if (null? L)
        #t
        (let ((c (char->integer (car L))))
            (and (>= c 97) (<= c 122) (soloMinAux? (cdr L))))))