14 lines
245 B
Text
14 lines
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)
|