For the given facts:

a$.$ Father

b$.$ Mother

c$.$ Brother

d$.$ Sister

e$.$ Grandfather

Define Prolog rules for these facts and test the defined rules with queries. Add screenshots of the

screen showing the defined rules and queries for verification.

male$($aaa$).$

male$($bbb$).$

male$($ccc$).$

male$($ddd$).$

male$($eee$).$

male$($fff$).$

male$($hhh$).$

female$($iii$).$

female$($jjj$).$

female$($kkk$).$

female$($lll$).$

female$($mmm$).$

$/*$ parent $($child$,$ parent$).*/$

parent$($bbb$,$ aaa$).$

parent$($jjj$,$ aaa$).$

parent$($ccc$,$ bbb$).$

parent$($iii$,$ bbb$).$

parent$($ddd$,$ bbb$).$

parent$($kkk$,$ jjj$).$

parent$($eee$,$ kkk$).$

parent$($eee$,$ hhh$).$

parent$($iii$,$ mmm$).$

parent$($ccc$,$ mmm$).$

parent$($ddd$,$ mmm$).$

parent$($kkk$,$ fff$).$

parent$($jjj$,$ lll$).$

parent$($bbb$,$ lll$).$

$/*$ married $($A$,$B$)-$ A is married to B $*/$

married$($aaa$,$ lll$).$

married$($lll$,$ aaa$).$

married$($bbb$,$ mmm$).$

married$($mmm$,$ bbb$).$

married$($jjj$,$ fff$).$

married$($fff$,$ jjj$).$

married$($kkk$,$ hhh$).$

married$($hhh$,$ kkk$).$

Note: Run your function in Replit and Swi$-$Prolog.