magical(norbert).
magical(buckbeat).
magical(ssss).
dementor(ssss).
like(harry,X) :- not(dementor(X)), magical(X).
