14 lines
No EOL
245 B
Text
14 lines
No EOL
245 B
Text
let write = \x ->
|
|
match (x) {
|
|
| O -> print_string ("O")
|
|
| K -> print_string ("K")
|
|
| D -> print_string (".")
|
|
| N -> print_string ("\n")
|
|
}
|
|
|
|
let test =
|
|
print_string ("This test is ");
|
|
write (O);
|
|
write (K);
|
|
write (D);
|
|
write (N) |