let test =
    let msg = "This test is OK.\n";
    let cst = (\x -> msg);
    print_string (cst ("This test is KO.\n"))