;Lovro Žmak, 1999., učenik 8. razreda, PC LOGO 4.0
;zadatak 4

to najduza :l
if not list? :l then [pr [nije lista] stop]
make "max 0
naj :l
op :max
end

to naj :l
if empty? :l then [stop]	
if not list? (first :l) \
then if (count first :l)>:max then [make "max (count first :l)]
if list? (first :l) then [naj first :l]	
naj bf :l
end