Il suffit de mettre profile dans le findall :

scopep(UserId) :-
findall([X,Y,Z,R],(profile(UserId,A),scopeProfile(A,X,Y,Z,R)),List),
maplist(writeln,List).