to aaa
;Procedura trazi upis rijeci i nekog slova iza nje.
;Npr.
;
;	kokolo i
;
;Ako upis nije valjan slijedi primjereno upozorenje.
;Svaki se samoglasnik u upisanoj rijeci zamjeni s
;upisanim slovom iza nje i prebroji se broj zamjena.
;
;Dobije se:
;
;	kikili
;	broj zamjena je 3
;
;Pokrenuti s:
;-------------
;zamjeni
;-------------
;
end

to preradi :lista :slovo :br
if emptyp :lista [pr " (pr [broj zamjena je] :br) stop]
ifelse samoglas first :lista ~
	[type :slovo preradi bf :lista :slovo sum :br 1] ~
	[type first :lista preradi bf :lista :slovo :br]
end

to samoglas :sam
ifelse memberp :sam [a e i o u] [op "true] [op "false]
end

to zamjeni
localmake "ri rl
if emptyp :ri [pr [Upisite nesto, molim!] stop]
localmake "s last :ri
if (or ~
		(not ((count :ri)=2)) ~
		(not (wordp (first :ri))) ~
		(not (wordp :s)) ((count :s)>1))~
	[pr [Pogresan upis!] stop]
preradi first :ri last :ri 0
end