### ** lines2str
lines2str <-
function(txt, sep = "")
    trimws(gsub("\n", sep, paste(txt, collapse = sep),
                fixed = TRUE, useBytes = TRUE))