Prolog - video 3

:- dynamic maschio/1.
:- dynamic femmina/1.
maschio(nicola).
maschio(nicola).
maschio(michele).
maschio(giorgio).
maschio(luca).
maschio(fabrizio).
maschio(tonino).
maschio(nonno).
maschio(attilio).
maschio(enrico).
femmina(nonna).
femmina(mirvana).
femmina(silvana).
femmina(maria).
femmina(roberta).
femmina(sandra).
femmina(gina).
femmina(irene).
padre(michele, nicola).
padre(giorgio, nicola).
padre(maria, nicola).
padre(luca,michele).
padre(sandra, michele).
padre(fabrizio, attilio).
padre(attilio, nonno).
padre(tonino, nonno).
padre(mirvana, enrico).
padre(gina, enrico).
madre(michele, silvana).
madre(giorgio, silvana).
madre(maria, silvana).
madre(luca, roberta).
madre(sandra, roberta).
madre(fabrizio, mirvana).
madre(attilio, nonna).
madre(tonino, nonna).
madre(mirvana, irene).
madre(gina, irene).

aggiungi_maschio(Nome) :-  maschio(Nome), !.
aggiungi_maschio(Nome) :- asserta(maschio(Nome)).