9 lines
239 B
Text
9 lines
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")
|
||
|
}
|