setCMD <- function(cmd, dir = ".", sepN = 1, conf = cmdConf) {
  
  idx <- seq_along(cmd) %% sepN
  idx[idx == 0] <- sepN
  
  cmdList <- tapply(cmd, idx, c)
  
  cmdHead <- glue(cmdConf$head, .trim = F)
  cmdList <- map2(cmdHead, cmdList, ~ c(.x, .y))
  names(cmdList) <- 1:length(cmdList)
  
  iwalk(cmdList, ~ write.table(
    .x,
    glue("{dir}/batch{.y}.sh"),
    sep = "\n", quote = F, row.names = F, col.names = F,
    eol = "\n"
  ))
  
  submit <- glue(
    "{cmdConf$prefix} {dir}/batch{names(cmdList)}.sh {cmdConf$suffix}"
  )
  write.table(
    c("#!/bin/bash", submit),
    glue("{dir}/submit.sh"),
    sep = "\n", quote = F, row.names = F, col.names = F,
    eol = "\n"
  )
  
  system(glue("ls -lh {dir}"))
}