%------------------------------------------------------------------------------
%----Find the Al Pacino movie containing the name "Glen" twice
fof(movie,conjecture,
    ? [Movie] :
      ( movie_actor(Movie,'Al Pacino')
      & regexp(Movie,'Glen.*Glen')
      & print(printall(nl,nl,'The movie is ',Movie,nl,nl)) ) ).

%------------------------------------------------------------------------------