/* The program erases a specific string from the main string at all the locations it can be found.
 W param = main string
 E param = sub string that needs to be erased
 By : MysticVegeta
 */

fcn stringErase (w : string, e : string) : string
    if length (e) > length (w) then
        result "Error: Length of parameter 'e' exceeds the length of original string."
    end if
    var fw := w
    loop
        var ind := index (fw, e)
        exit when ind <= 0
        fw := fw (1 .. ind - 1) + fw (length (e) + ind .. *)
    end loop
    result fw
end stringErase

put stringErase (" I hate you hate you hate you and will always hate you", "hate")