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