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

to recenica
make "a 0
make "e 0
make "i 0
make "o 0
make "u 0	
make "ima "false
pr [Unesi recenicu]
make "l rl
obradi :l
if not :ima then [pr [nema samoglasnika]]
if :a>0 then [(pr [a=] :a)]
if :e>0 then [(pr [e=] :e)]
if :i>0 then [(pr [i=] :i)]
if :o>0 then [(pr [o=] :o)]
if :u>0 then [(pr [u=] :u)]
end

to obradi :l
if empty? :l then stop
obradi2 first :l
obradi bf :l
end

to obradi2 :s
if empty? :s then stop
if (first :s)="a then [make "a :a+1 make "ima "true] else \
if (first :s)="e then [make "e :e+1 make "ima "true] else \
if (first :s)="i then [make "i :i+1 make "ima "true] else \
if (first :s)="o then [make "o :o+1 make "ima "true] else \
if (first :s)="u then [make "u :u+1 make "ima "true]
obradi bf :s	
end