answer(A1,A2) :- 
  actor([*]:actor(*,A2),A1),
  actor([*]:actor(*,A1),A2),
  A1 < A2.
$