adivinarPersonaje :- not((atributos(PosiblePersonaje, Atributos), satisfaceAtributos(Atributos))),  write('ni idea quien es. pasame su nombre que lo agrego\n'), read(NombreNuevo),write('bien, ahora pasame sus atributos:'), read(AtributosNuevo),agregarPersonaje(NombreNuevo, AtributosNuevo).