let r = ref "This test is KO.\n"
let test =
    r := "This test is OK.\n";
    print_string (!r)