помогите ПОЖАЛУЙСТА исправить ошибку.

[лингвист]

мой пример:

pr('авто',[])
pr('19 января 2015',[1,9,2,0,1,5]

т.е.нужно вырезать из списка все нецифры.

Вот мое решение:

pr([A|B],[A|L]):-цифра(A),!,pr(B,L).
pr([_|B],L):-!,pr(B,L).
pr([],[]).
цифра('1'). цифра('2').

Проверяю в SWI-prolog,выдает faulse.
Помогите пожалуйста!!!! Что здесь нужно исправить?