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