Список с подсписками - Prolog

Формулировка задачи:

Здравстуйте! Помогите, пожалуйста, с заданием. Я нашел это задание здесь но там никто не ответил Трунову( Так как сам не могу сделать из-за того что с прологом познакомился сегодня, прошу помощи у вас...

Дан список с подсписками вида [[1, [a, 4, b, 6], c, ], 9, d, … ]. Подсчитать количество атомов, которые являеться цифрами, на первом и третем уровне вложености.

Мне подсказали что

сначала нужно написать предикат, извлекающий все элементы с заданного уровня вложенности, а затем, выполнить необходимую проверку

а вот ка это реалезовать понятия не имею((( Заранее спасибо!

Решение задачи: «Список с подсписками»

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

count( [[[a, 4, b, 6], c], 9, d], Count).

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

У нас есть список с подсписками.
Каждый подсписок содержит четыре элемента: a, b, c и d.
Некоторые элементы списков имеют числовые значения.
Переменная Count используется для подсчета количества элементов в списке.
Функция count принимает три аргумента: подсписок, значение a и значение b.
Функция count рекурсивно вызывается для каждого элемента списка, начиная с первого.
Значение переменной Count увеличивается на единицу после каждого вызова функции count.
Код продолжается до тех пор, пока не будет достигнут конец списка.
Результатом выполнения кода будет значение переменной Count, которое будет равно общему количеству элементов в списке.