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")
    }