[X|Y]=[a,b,c,d,e].

[X,Y|Z]=[a,b,c,d,e].

p([H|T], H, T).


dnt(N):-N>0,

      M is N-1,

      write('*'),
    
      dnt(M).