let test =
    match (K (K ("OK"))) {
    | _ ->
         print_string ("This test is too easy.\n")
    }