let test =
    match (Deep (Deep (Deep (Inside ("KO", "KO", "OK"))))) {
    | Deep (Deep (Deep (Inside (not_here, neither_here, you_found_me)))) ->
      print_string ("This test is ");
      print_string (you_found_me);
      print_string (".\n")
    }