make_arad_raw <- function(lines) {
  charToRaw(paste(lines, collapse = "\r\n"))
}