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