to aaa
;UCBLogo
;TEXT ZADATKA:
;Nakon upita racunala upisati recenicu.
;Program spisuje redom pojavu samoglasnika u recenici.
;
;Pozvati sa:
;------------
;samoglasnici
;------------
;
end
to radi :aeiou :rij
if emptyp :rij [op :aeiou]
op radi word :aeiou vidi first :rij bf :rij
end
to recenica
pr [Unesite recenicu!]
radi "  spoji rl " 
end
to samoglasnici
pr [Unesite recenicu!]
(pr [Ovo su samoglasnici u njoj:] radi "  spoji rl " )
end
to spoji :rec :rij
if emptyp :rec [op :rij]
op spoji bf :rec word :rij first :rec
end
to vidi :slovo
ifelse memberp :slovo [a e i o u] [op :slovo] [op " ]
end