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