modificarPeso :: (Peso->Peso)->Raton->Raton
modificarPeso unaFuncion unRaton =unRaton {
    peso = unaFuncion.peso $unRaton
}

modificarEnfermedad :: (Enfermedades->Enfermedades)->Raton->Raton
modificarEnfermedad unaFuncion unRaton =unRaton {
    enfermedades = unaFuncion.enfermedades $unRaton
}

enfermedadesQueNoterminanDeCiertaForma :: String->Enfermedades->Enfermedades
enfermedadesQueNoterminanDeCiertaForma terminacion = filter (not.(== terminacion).tail) 


hierbaVerde :: String->Hierba