switch <- function(EXPR,...)
    .Internal(switch(EXPR,...))