let f = ref (\x -> x)
let test =
    f := (\x -> "This test is OK.\n");
    print_string (!f ("This test is KO.\n"))