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