let indexOf str substr =
        let ssl = String.length substr in
        let max = String.length str - ssl in
        let rec loop i =
                (if i > max then - 1
                        else(
                                if String.sub str i ssl = substr then i
                                else loop (i + 1))
                )
        in loop 0