liuSongJ::JJOO->Atleta->Pais->JJOO
liuSongJ (J año (a:atletas) dia) atl p
                                        | ciaNumberA a == ciaNumberA atl && desprtesA atl /= [] = (J año (igualSalvoPais atl p (deportesA atl)):atletas) dia)
                                        | ciaNumberA a == ciaNumberA atl && desprtesA atl = [] = (J año ((nuevoA (nombreA atl) (sexoA atl) (anioNacimientoA atl) p (ciaNumberA atl)):atletas) dia)
                                        | otherwise = liusongJ (J año (atletas++[a]) dia) atl p
liuSongJ (NuevoDia comp jjoo) atl p = liuSongJ jjoo atl p


igualSalvoPais::Atleta->Pais->[Deporte]->Atleta
igualSalvoPais a p [] = a
igualSalvoPais a p (d:dep) = igualSalvoPais ((entrenarDeporteA (nuevoA (nombreA atl) (sexoA atl) (anioNacimientoA atl) p (ciaNumberA atl)) d (capacidadA a d)) p dep