4 lines
119 B
Text
4 lines
119 B
Text
|
let test =
|
||
|
let msg = "This test is OK.\n";
|
||
|
let cst = (\x -> msg);
|
||
|
print_string (cst ("This test is KO.\n"))
|