Print <- function(qspray) {
  capture.output(qspray)
}