Prolog - Ayuda con lista de prolog

Necesito crear un programa que haga ésto:

La lista de los cuadrados de una lista numérica dada.

Muchas gracias por la ayuda.

Hola! Justo tenía que hacer este ejercicio para mis clases ^^
Quizás esto te ayude:

cuadrados([X], [Y]):-Y is X*X.
cuadrados([X|Xs], Lista):-Y is X*X, cuadrados(Xs,Aux), append([Y],Aux,Lista).