Написать предикат (задача) - Prolog

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

Помогите пожалуйста решить!!! Написать предикат,который истинен,если первый аргумент атом(строка) второй аргумент список из встречающихся в этом атоме цифр. Пример: pr(`авто`, [] ) pr(`19 января 2015`, [ 1,9,2,0,1,5])

Решение задачи: «Написать предикат (задача)»

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

                            ?- ['pr'].
% pr compiled 0.00 sec, 124 bytes
true.

?- pr_atom('авто', X).
X = [].

?- pr_atom('19 января 2015', X).
X = ['1', '9', '2', '0', '1', '5'].
                        