test_string.ml