proizvod([],0).
proizvod([X],X).
proizvod([G|R],P):-proizvod(R,P1), P is P1*G.

/*  Poziva se sa: proizvod(Lista,Rezultat).  */