myintersect <- function(A, B) {}