Помогите написать Пролог-программy нахождения количества ненулевых цифр в целом числе - Prolog

predicates
num_nzd(integer,integer)
 
clauses
num_nzd(0,0).
num_nzd(N,1) :- N<10.
num_nzd(N,K) :- N>=10,M=N mod 10, V=N div 10, num_nzd(V,K1), M>0, K=K1+1.
num_nzd(N,K) :- N>=10,M=N mod 10, V=N div 10, M=0, num_nzd(V,K).