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