to aaa
;UCBLogo
;Zadatak 4 s zupanijskih natjecanja 1999.
;TEXT ZADATKA (vidite sluzbeni text):
;
;Pozvati sa:
;--------------------------
;pr zamjena "mata "amt "ogb
;--------------------------
;	dobije se rijec: gobo
;--------------------------
;pr zamjena "ata "ae "ei
;--------------------------
;	dobije se rijec: ete
;NAPOMENA: Ovo je druga verzija s tail rekurzijom
end

to radi :r :t :z :nova
if emptyp :r [op :nova]
op radi bf :r :t :z word :nova umjesto first :r :t :z
end

to umjesto :slovo :trazeno :zamjena
if emptyp :trazeno [op :slovo]
if equalp :slovo first :trazeno [op first :zamjena]
op umjesto :slovo bf :trazeno bf :zamjena
end

to zamjena :r :t :z
if (or (not (wordp :r)) ~
	(not (wordp :t)) ~
	(not (wordp :r)) ~
	(not (equalp count :t count :z))) [stop]
op radi :r :t :z "
end