h3 <- function(x) {
    cat("\n---", x, "\n")
}


# TODO: figure out how to format (modern) JS code from R?
format_js <- function(x) {
    x
}