let test =
    match (Deep (Deep (Deep (Inside ("OK"))))) {
    | Deep (Deep (Deep (Inside (you_find_me)))) ->
      print_string ("This test is ");
      print_string (you_find_me);
      print_string (".\n")
    }