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)