Процедура карты пролога, которая применяет предикат к элементам списка

Как написать процедуру Prolog map (List, PredName, Result) , которая применяет предикат PredName (Arg, Res) к элементам List , и возвращает результат в списке Result ?

Например:

test(N,R) :- R is N*N.

?- map([3,5,-2], test, L).
L = [9,25,4] ;
no