`entrez.func.1352` <-
function(probe){entrez <- eval(parse(text=paste("u133x3p.PR2EG$\"",probe,"\"",sep=""))); ifelse(is.null(entrez),NA,entrez)}