to aaa
;UCBLogo
;TEXT ZADATKA:
;Iz upisane liste cijelih brojeva izbacuje one koji su se vec pojavili.
;Pozvati s:
;-------
;kreni
;-------
;
end

to cisti :pl :lista
if emptyp :lista [op :pl stop]	
ifelse memberp first :lista :pl [op cisti :pl bf :lista]  ~
	[op cisti (lput first :lista :pl) bf :lista]
end

to kreni
pr [upisite listu cijelih brojeva]
(pr [ostali su:] cisti [] rl)
end