fun pomocna(nil,kopija,k,r,brojac1,indeks) = nil | pomocna(h::t,kopija,k,r,brojac1,indeks) = if(k+brojac1*r=indeks) then (if(k+brojac1*r)<=length(kopija) then [h]@pomocna(t,kopija,k,r,brojac1+1,indeks+1) else nil) else pomocna(t,kopija,k,r,brojac1,indeks+1);

fun f(l,k,r) = pomocna(l,l,k,r,0,1);