uzmi_levi(st(E,nil,D),E,D).
uzmi_levi(st(E,L,D),E1,st(E,L1,D)):-uzmi_levi(L,E1,L1).

brisi_elem(E,st(E,L,nil),L).
%brisi_elem(E,st(E,nil,D),D).
brisi_elem(E,st(E,L,D),st(E1,L,D1)):-uzmi_levi(D,E1,D1).
brisi_elem(E,st(G,L,D),st(G,L,D1)):-E>G,
    brisi_elem(E,D,D1).
brisi_elem(E,st(G,L,D),st(G,L1,D)):-E<G,
    brisi_elem(E,L,L1).