如何打印给定数字的倒计时，包括Prolog中用户的负片副本？

Question

我必须构建一个名为count(X,L)的谓词，它打印一个倒计时，如

?- count(3,L).
L = [3,-3,2,-2,1,-1,0].    % expected result

我想出了这个

countdown(X,[X|Z]) :-
   X > 0,
   Y is X-1,
   countdown(Y,Z).
countdown(0,[0]).

但我不知道如何获得负面副本？任何帮助？ 谢谢！