let split str c = let idx = String.index str c in String.sub str 0 idx, String.sub str (idx + 1) (String.length str - idx - 1)