正整数和负整数

我一直在尝试在Prolog中创建谓词，该谓词将整数列表分为正整数列表和负整数列表。正整数列表包含可被2整除的整数，负整数包含可被3整除的整数

具有预期结果的示例查询：

?- split([-9,6,3,4,-8,-12],X,Y).
X = [6,4],
Y = [-9,-12].

这是我到目前为止得到的代码：

split([], [], []).
split([Head|Tail], [Head|List1], List2) :- Head>=0,Head mod 2==0, split(Tail, List1, List2).
split([Head|Tail], List1, [Head|List2]) :- Head<0,Head mod 3==0, split(Tail, List1, List2).

我似乎无法弄清楚我在做什么错。