I need to write a program in prolog that accepts a list, reverses that list and the appends that to the end of the original list.

Example: 
list\_rList([1,2,3],X)  

X = [1,2,3,3,2,1]

So far I have been able to reverse the list, but I can manage to append the reverse list to the original list.

Here is what I have:

```
list_rList([],[]).  
list_rList([H|T],R):-  list_rList(T,RevT),  append(RevT,[H],R).

```