readline <- function(texto) {
  cat(texto)
  options(echo=F)
  t <- readLines(stdin(), n=1)
  options(echo=T)
  return(t)
}