Prolog

[SeRhy]

Люди помоготе немогу монять в чем ошибка, мне нужно подщитать количество елементов в списке, вот то что сделал я(просьба написать в чем ошибка, что я неправильно делал):

domains
       y_list=symbol*
       N=real
       
predicates
  print_list(y_list,integer)
  list(y_list)
goal
  list(y_list),
  print_list(S,0).
clauses
  list([q,w,e,r,t,y,q,w,e]).
  print_list([qwe|tre])
  print_list([],0).
  print_list([_|tre],"",S):-list(tre,S1),S is 1+S1,write(S).

Зарание спасиба.