Помогите, плиз, язык пролог..!

Даны 2 списка, необходимо написать программу, которая по введенному с клавиатуры элементу списка 1 возвращает соответствующий по номеру элемент в списке 2.
Эту задачу я решила, но как сделать, если в первом списке есть несколько элементов, соответствующих введенному элементу.. Необходимо вывести все соответствующие элементы из списка 2
domains
number = integer
list = integer *
predicates
read_list (list)
read_list2 (list)
write_list (list)
write_list2 (list)
find_n (number, list)
num(list,number,number)
run

find(number,list)
goal
run.

clauses
run:-
write("введите элементы списка 1\n "),read_list(Lst),nl,write ("Введите элементы списка 2 \n"),read_list2(Lst2),nl, write ("Введите элемент списка 1: "), readint(A),nl,num(Lst,A,N),write("номер этого элемента в списке 1: "),nl,
write(N),nl,write("номер элемента из списка 2, соответствующий по номеру из списка 1 : "),nl, find_n(N,Lst2).

read_list ([H|T]) :- readint (H), !,read_list (T).
read_list ([]).

read_list2 ([H|T]) :- readint (H), !,read_list (T).
read_list2 ([]).
/*__________________________*/

write_list ([]).
write_list ([Head|Tail]) :- write (Head),write (""), write_list (Tail).

write_list2 ([]).
write_list2 ([Head|Tail]) :- write (Head),write (""), write_list (Tail).
/*---------------------------------*/

/*------------------------------------*/
num([X|_],X,1).
num([_|T],X,N):-
num(T,X,N1),
N=N1+1.
/*----------------------------------*/

/*------------------------------------*/
find_n (Middle, [_|Tail]) :- Middle1=Middle-1, Middle1>0,
find_n (Middle1, Tail).
find_n (_, [Head|_]) :- write (Head),write (", ").
/*----------------------------------*/

find(H,[H|_]).

find(H,[_|T]):-find(H,T).