# used to print the solver output
#' @export
print.text <- function(x, ...)
  cat(paste0(x, collapse = "\n"))