Underc0de

sReplace [] _ _ = []
sReplace sText nText final = if take (length nText) sText == nText
                        then final ++ (sReplace (drop (length nText) sText) nText final)
                       else [head sText] ++ (sReplace (tail sText) nText final)

ejemplo input y output:
input -> sReplace "soy un chico muy listo" "listo" "tonto"
output -> Soy un chico muy tonto