hobbies([mary, [reading, sewing, boxing]]).
hobbies([richard, [reading, swimming, gaming]]).
hobbies([allen, [chess, scrabble]]).
haveHobbies(X):-hobbies([X,HList]),HList\=[],!, write(X)->write('TRUE');write('FALSE').