7 lines
144 B
Text
7 lines
144 B
Text
|
let r = ref "KO"
|
||
|
|
let alias = r
|
||
|
|
let test =
|
||
|
|
alias := "OK";
|
||
|
|
print_string ("This test is ");
|
||
|
|
print_string (!r);
|
||
|
|
print_string (".\n")
|