fun broj(nil,x)=0 | broj(h::t,x) = if h=x then 1+broj(t,x) else broj(t,x);
fun nova(nil)=nil | nova(h::t) = if (broj(t,h)>0) then nova(t) else [h]@nova(t);
fun konacna(l,nil)=nil | konacna(l,h::t)= if (broj(l,h)=2 orelse broj(l,h)=3) then [h]@konacna(l,t) else konacna(l,t);
fun konacna1 x = konacna(x,nova(x));