let test =
    match (Here ("O", "K")) {
    | Here (x, y) ->
      print_string ("This test is ");
      print_string (x);
      print_string (y);
      print_string (".\n")
    | NotHere  -> print_string ("This test is KO.\n")
    }