Prolog reverse list function

%reverse(List,RList).
%example use reverse([a,b,c,d],R).
%R = [d,c,b,a] ? ;

reverse([],[]).
reverse([X|R],Reversed):-
 reverse(R, RevRest),
 conc(RevRest,[X],Reversed).