This should do the trick:

mind_reader <- function() {
	ll <- letters[round(runif(6, 1, 26))]
	ff <- ll[1]
	for (ix in 2:length(ll)) {
		ff <- paste(ff, ll[ix], sep = "")
		}
	if (exists(ff)) {
		cat("The function that you were thinking of is")
		return(ff)
		} else
		{ cat("please update libopenmind to the patched
			or development version")
			}
}


Prof Brian Ripley wrote:

> R is lacking a mind_read() function!)
	[[alternative text/enriched version deleted]]

