Code not working. Printing out a few specific elements from a list

Question

Task:

pirmieji(S,K,R) R is the first K elements of S

Example:

?- pirmieji([a,b,c,d,e],3,R).

R = [a,b,c].

---

My code:

pi