Создать предикат который подсчитывает общее количество латинских букв в списке символов

char_count("",_,0). 
char_count(S,[A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z],N):–
              frontchar(S,[A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z],S1),!, 
              char_count(S1,[A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z],N1), 
              N=N1+1. 
               
char_count(S,[A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z],N):–
              frontchar(S,_,S1), 
                 
              char_count(S1,[A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z],N).

predicates
nondeterm check(char).
inc(char,integer).
nondeterm char_count(string,integer).
 
clauses
check(X):-char_int(X,Code), char_int('A',CodeA), char_int('Z',CodeZ),
    Code>=CodeA, Code<=CodeZ.
check(X):-char_int(X,Code), char_int('a',CodeA), char_int('z',CodeZ),
    Code>=CodeA, Code<=CodeZ.
 
inc(Char,1):-check(Char),!.
inc(_,0).
 
char_count("",0). 
char_count(S,N) :-
              frontchar(S,Char,S1),char_count(S1,N1),
              inc(Char,Inc),N=N1+Inc. 
              
goal
char_count("A1b2C3d4E5",N).