aperson(A) :- actor(T,A).
r(A,D) :- actor(T,A), director(T,D).
answer(D) :- r([*,*,*]:aperson(*,*,*,X),D).
$