Разбиение списка целых чисел L на две части L1 и L2 - Prolog

Не нашел прогу в чистом виде,помогите с данной задачей пож-та.

Листинг программы

split_1([],[],[]).
split_1([H|T],[H],T).
 
split_2([],[],[]).
split_2([H],[H],[])
split_2([H1,H2|T],[H1,H2],T).
 
%% и т.д.

Объяснение кода листинга программы

Код разбивает список целых чисел L на две части L1 и L2.

split_1([],[],[]). - базовый случай, когда список пуст.
split_1([H|T],[H],T). - если список не пуст, то первый элемент H добавляется в L1, а остальная часть списка T передается в рекурсивный вызов для дальнейшего разбиения.
split_2([],[],[]). - базовый случай, когда список пуст.
split_2([H],[H],[]) - если список не пуст, то первый элемент H добавляется в L2, а остальная часть списка передается в рекурсивный вызов для дальнейшего разбиения.
split_2([H1,H2|T],[H1,H2],T). - если в списке есть два последовательных элемента H1 и H2, то они добавляются в L2, а остальная часть списка T передается в рекурсивный вызов для дальнейшего разбиения.
... и так далее, используя аналогичную логику для других случаев.