let
string_before s n =
String
.sub s 0 n