7 lines
No EOL
263 B
Text
7 lines
No EOL
263 B
Text
let test =
|
|
match (Deep (Deep (Deep (Inside ("KO", "KO", "OK"))))) {
|
|
| Deep (Deep (Deep (NotHere | Inside (not_here, neither_here, you_found_me)))) ->
|
|
print_string ("This test is ");
|
|
print_string (you_found_me);
|
|
print_string (".\n")
|
|
} |