fun f(nil,c,k,brojac,indeks) = ~1 
| f(h::t,c,k,brojac,indeks) = if (h=c) then (if (k=brojac+1) then indeks else f(t,c,k,brojac+1,indeks+1)) else f(t,c,k,brojac,indeks+1); 
fun konacna(l,c,k) = f(explode l,c,k,0,0);