9 lines
No EOL
239 B
Text
9 lines
No EOL
239 B
Text
let test =
|
|
match (Here ("O", "K", ".\n")) {
|
|
| Here (x, y, z) ->
|
|
print_string ("This test is ");
|
|
print_string (x);
|
|
print_string (y);
|
|
print_string (z)
|
|
| NotHere -> print_string ("This test is KO.\n")
|
|
} |