let string_before s n = String.sub s 0 n