fun vrati(nil,l,kopija) = nil | vrati(h1::t1,h2::t2,kopija) = if(h1*h1=h2) then [(h1,h2)]@vrati(t1,kopija,kopija) else vrati(h1::t1,t2,kopija);
fun konacna(l1,l2) = vrati(l1,l2,l2);