对列表中的所有成员进行平方，包括不使用maplist的子列表Prolog

I am new to Prolog and trying to implement a sort of a deep square predicate, which squares all the numbers in the list and also in the sublists. I wrote some sort of a working code but its not giving me the output i expect.I am new to Prolog and trying to implement a so