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