;Radan Skorić, 1999., učenik 8. razreda, PC LOGO 4.0
;zadatak 4

to najduza :l
if not list? :l[pr [uneseni parametar mora biti lista] stop]
op trazi :l 0
end

to trazi :l :n
if empty? :l[op :n]
make "p [] 
make "na :n
for "i 1 (count :l)[if list? (item :i :l)[make "p se :p (item :i :l)] \
	else [if (count (item :i :l))>:na[make "na (count (item :i :l))]]]
trazi :p :na
end